procedure da_trs_h(lShare,pTgl,lReindeks) cLokasiDA=alamatnya('ADA') if empty(cLokasiDA) return .f. endif MFILE=addbs(cLokasiDA)+'DA_TRS_H' if type("pTgl")="D" and !empty(pTgl) cLokasiDA=alamatnya('ADT') if empty(cLokasiDA) return .f. endif MFILE=addbs(cLokasiDA)+; 'th'+trans(year(pTgl))+; "\bulan_"+gs_ntoc(pTgl)+; "\dtaa\DA_TRS_H_"+dtos(pTgl) endif TUTUP("DA_TRS_H") If !File(MFILE+'.DBF') Tunggu('Indeks file TRANSAKSI ANGGOTA '+CHR(13)+MFILE,1) CREATE TABLE (MFILE) ; (; BUKTI C(4),; TGL_TRS D(8),; KODE C(9),; GRP C(3),; SD C(1),; NILAI_RP N(12),; CTK N(3),; WLY C(4),; KPT C(4),; OPR C(3),; SPR C(3),; CASH C(2),; BKAS C(6),; SANDI C(5),; BLWN C(4),; POSTING C(1),; SALDO N(12); ) USE ENDIF IF !BUKA(lShare,(MFILE),'DA_TRS_H') return .f. endif sele da_trs_h return .t. endproc