FUNCTION GASYKLAS IF !USED("GASYKLAS") Return(BUKA(.F.,ALAMATDL+"GASYKLAS","GASYKLAS",ALAMATDL+"GASYKLAS")) ENDIF RETURN (USED("GASYKLAS")) ENDFUNC

FUNCTION GASYKLAS(lShare,lReindeks) TUTUP('GASYKLAS') IF !CEKDL() RETURN .F. ENDIF IFILE=ALAMATDL+"GASYKLAS" IF !FILE(iFILE+".DBF") CHEKFOLDER(iFILE+".DBF") CREATE TABLE (IFILE) ; (; KLP C(3),; KODE C(10),; KETERANGAN C(60),; NAMAKLP C(60),; LEBAR N(2),; CETAK C(1),; KONDISI C(10); ) USE IF BUKA(.T.,IFILE+".DBF","GASYKLAS") SELECT GASYKLAS INDEX ON KLP+KODE TO (IFILE) ENDIF TUTUP("GASYKLAS") ENDIF IF lREINDEKS IF BUKA(.T.,IFILE+".DBF","GASYKLAS") SELECT GASYKLAS PACK INDEX ON KLP+KODE TO (IFILE) ENDIF TUTUP("GASYKLAS") ENDIF Return(BUKA(lShare,IFILE,"GASYKLAS",IFILE)) ENDFUNC