IF Buka(.f.,'Alamat','Alamat') SELECT LEFT(KODE,1) AS TBP,Alamat AS ALAMATDATA FROM Alamat WHERE KLP=='ATP' INTO CURSOR TBP_JNS SELECT TBP_JNS GO TOP IF EOF() Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan') CLOSE TABLES ALL RETURN ENDIF TUTUP("GASYKLAS") ELSE Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan') CLOSE TABLES ALL RETURN ENDIF Tunggu("Proses akhir hari tabungan program",1) SELECT TBP_JNS GO TOP DO WHILE NOT EOF() mFILETRS=ALLTRIM(ALAMATDATA)+'TP_KRT'+ALLTRIM(TBP) mFILETRSH=ALLTRIM(ALAMATDATA)+'TP_TRSH'+ALLTRIM(TBP) BUKA(.T.,mFILETRS,'TP_KRT',mFILETRS) BUKA(.T.,mFILETRSH,'TP_TRS_H') IF USED("TP_TRS_H") AND USED("TP_KRT") SELECT TP_TRS_H GO TOP IF !EOF() Tunggu("Update data harian",1) SELECT TP_KRT APPEND FROM (MFILETRSH) FOR NILAI_RP+JML_BUNGA+JML_PAJAK+JML_ADMIS>0 FLUSH Tunggu("Update data harian OK",100) ENDIF SELECT TP_TRS_H GO TOP DO WHILE NOT EOF() Tunggu("Hapus....."+Kode,RECNO()/RECCOUNT()*100) DELETE SKIP ENDDO PACK USE ENDIF SELECT TBP_JNS SKIP ENDDO Close Tables ALL Tunggu("Proses selesai",100,0) ENDPROC