FUNCTION CKLAS PARAMETERS ccKLAS, ccVALUE IF !EMPTY(ccValue) If GASYKLAS() SELECT GASYKLAS SET ORDER TO 1 SEEK ccKLAS+ccVALUE IF FOUND() RETURN 1 ENDIF MESSAGEBOX("Isian tidak ada di file interface, Kode = "+ccKlas,0,'Kode Interface') RETURN 0 ENDIF ENDIF Return 1 ENDFUNC