FUNCTION DAFTAR PARAMETERS lJelas,Lkode,oNilai LOCAL HASIL HASIL=oNilai IF GASYKLAS() SELECT GASYKLAS SELECT KODE,KETERANGAN FROM GASYKLAS WHERE KLP==lKode ORDER BY KODE INTO CURSOR DAFTAR SELECT DAFTAR DEFINE POPUP Daftar FONT "Courier",8 PROMPT FIELD ; ALLTRIM(KODE)+" "+ALLTRIM(KETERANGAN) SCROLL SHORTCUT TITLE ; "["+lKode+"] Daftar "+lJelas FROM MROW(),MCOL() ON SELECTION POPUP Daftar BAR() ACTIVATE POPUP Daftar DEACTIVATE POPUP Daftar SELECT Daftar IF BAR()>0 GOTO BAR() HASIL=KODE ENDIF TUTUP("DAFTAR") ENDIF RETURN HASIL ENDPROC