proc da_mst(lShare,lReindeks) cLokasiDA=alamatnya('ADA') if empty(cLokasiDA) return .f. endif MFILE=cLokasiDA+'DA_MST' TUTUP("DA_MST") IF !FILE(MFILE+'.DBF') Tunggu('Indeks file master anggota'+CHR(13)+MFILE,1) ChekFolder(mFile) CREATE TABLE (MFILE) (KODE C(9),; NAMA C(30),; ALAMAT C(30),; INDUK C(8),; KTP C(30),; GRP C(3),; WLY C(4),; TGL_TRS D(8),; YES_BUNGA C(1),; PRS_BUNGA N(6,2),; GOL C(3),; JOB C(4),; KPT C(4),; BLOKIR C(1),; STD_JURNAL C(2),; UMUR N(3),; TGL_LAHIR D,; NOMOR_HP C(30),; NIK C(20),; PEKERJAAN C(30)) USE IF BUKA(.T.,(MFILE),'DA_MST') SELECT DA_MST Pack INDEX ON KODE TO (MFILE+'1') INDEX ON NAMA TO (MFILE+'2') ENDIF TUTUP("DA_MST") ENDIF if lReindeks Tunggu('Indeks file master anggota'+CHR(13)+MFILE,1) IF BUKA(.T.,(MFILE),'DA_MST') SELECT DA_MST INDEX ON KODE TO (MFILE+'1') INDEX ON NAMA TO (MFILE+'2') ENDIF TUTUP("DA_MST") endif IF !BUKA(lShare,(MFILE),'DA_MST',MFILE+'1',MFILE+'2') return .f. endif sele da_mst return .t. endproc