procedure da_sld(lShare,pTgl,lReindeks) cTGL=dATE() cLokasiDA=alamatnya('ADA') if empty(cLokasiADA) RETURN .F. ENDIF IF TYPE("pTgl")="D" and !empty(pTgl) cTgl=pTgl endif MFILE=ADDBS(cLokasiDA)+'DA_'+GS_NTOC(cTGL)+STR(YEAR(cTGL),4) TUTUP("DA_SLD") IF !FILE(MFILE+'.DBF') Tunggu('Indeks file mutasi dan saldo tabungan'+CHR(13)+MFILE,1) ChekFolder(mFile+".dbf") CREATE TABLE (MFILE) (KODE C(9),; GRP C(3),; TBS_LALU N(16),; TBS_KINI N(16),; TBT_KINI N(16),; TBS_HARI N(16),; TBT_HARI N(16),; DSB_KINI N(16),; BUNGA N (16),; PAJAK N (16)) USE IF BUKA(.T.,(MFILE),'DA_SLD') SELECT DA_SLD INDEX ON KODE TO (MFILE) ENDIF TUTUP("DA_SLD") ENDIF if lReindeks IF BUKA(.T.,(MFILE),'DA_SLD') SELECT DA_SLD INDEX ON KODE TO (MFILE) ENDIF TUTUP("DA_SLD") endif IF !BUKA(.T.,(MFILE),'DA_SLD',(Mfile)) return .f. endif sele da_sld return .t. endproc