FUNCTION gLookup(lJudul,oNilai,ccCursor,nKolom,nKembali) LOCAL HASIL HASIL=oNilai SELECT (ccCursor) IF EOF() Tutup(ccCursor) RETURN oNilai ENDIF IF nKolom>0 DEFINE POPUP Daftar FROM MROW(),MCOL() TO MROW()+10,MCOL()+nKolom FONT "Courier",8 PROMPT FIELD ; FIELDGET(1)+" "+ALLTRIM(FIELDGET(2)) SCROLL SHORTCUT TITLE lJudul ELSE DEFINE POPUP Daftar FONT "Courier",8 PROMPT FIELD ; FIELDGET(1)+" "+ALLTRIM(FIELDGET(2)) SCROLL SHORTCUT TITLE lJudul ; RELATIVE FROM MROW(),MCOL() ENDIF ON SELECTION POPUP Daftar BAR() ACTIVATE POPUP Daftar DEACTIVATE POPUP Daftar SELECT (ccCursor) IF BAR()>0 GOTO BAR() mSERI=IIF(PCOUNT()=5,FIELDGET(1),"") HASIL=FIELDGET(IIF(PCOUNT()=5,nKembali,1)) ENDIF TUTUP(ccCursor) RETURN HASIL ENDFUNC