>>* Routine: cmdselect.click >>local lcClass,lcMo,lcDate,lcDay,lcYr >>store "" to lcClass,lcMo,lcDate,lcDay,lcYr >> >>with ThisForm >> if .grdSignUp.LastRow # 0 >> if !empty(curEmployees.ccity) and !empty(curEmployees.cbldg) >> lcDate = allt(curEmployees.classdate) >> lcClass = allt(curEmployees.classes) >> lcMo = substr(lcDate,1,at(" ",lcDate)-1) >> lcDay = substr(lcDate,at(",",lcDate)-2,2) >> lcYr = right(lcDate,4) >> * call attended object so filter can be set and reset >> select attended,classes,ccity,cbldg,croom,cmonths,cdates,cyears ; >> from signup ; >> into cursor curAttended ; >> where classes=lcClass and cmonths=lcMo and cdates=lcDay and cyears=lcYr >> oAttend = createobj('attended',lcClass,lcMo,lcDay,lcYr,alias()) >> deactivate window menuscr >> oAttend.visible=.T. >> oAttend.show >> else >> Messagebox("Please select a valid class to update the Class >Attendance",48,"Class has no City or Building association") >> endif >> else >> Messagebox("Please highlight a record to update the Class >Attendance",48,"No Class Selected") >> endif >>endwith>>