... ) LOCAL oBTN1, oBTN2, oRs2,oErr, cSQL, cTITLE IF cNAME = "ALL" RETURN(.T.) ENDIF IF EMPTY( oOBJ ) oOBJ = " " ENDIF IF EMPTY( cTABLE ) cTABLE := "BOGUS" ENDIF IF cMODE = "E" DO CASE CASE cTABLE = "EMPLOYEE" IF SUBSTR(cNAME,1,2 ) = SUBSTR(oRs:Fields("GROUP1"):Value,1,2) .and.; oRs:Fields("GROUP1"):Value ...