FUNCTION BOLEH PARAMETERS MKODE,nPos LOCAL mCari mCari=mKode+mPhoto IF GASYKLAS() SELECT GASYKLAS SET ORDER TO 1 SEEK mCari IF FOUND() RETURN IIF(SUBSTR(Keterangan,nPos,1)=="1",.T.,.F.) ENDIF ENDIF RETURN .F. ENDFUNC