IF Buka(.f.,'Alamat','Alamat') SELECT LEFT(KODE,1) AS KRU,Alamat AS ALAMATKR FROM Alamat WHERE KLP=='AKR' INTO CURSOR KRU_JNS SELECT KRU_JNS GO TOP IF EOF() Inipesan('Cek File'+CHR(13)+'Alamat data kredit tidak ditemukan') CLOSE TABLES ALL RETURN ENDIF TUTUP("GASYKLAS") ELSE Inipesan('Cek File'+CHR(13)+'Alamat data kredit tidak ditemukan') CLOSE TABLES ALL RETURN ENDIF Tunggu("Buka file",1) Select KRU_JNS Go TOP DO WHILE Not Eof() MFILEMST=ALLTRIM(ALAMATKR)+'KM'+ALLTRIM(KRU)+'MST' MFILETRS=ALLTRIM(ALAMATKR)+'KK'+Alltrim(KRU)+'TRS' MFILERCS=ALLTRIM(ALAMATKR)+'KK'+Alltrim(KRU)+'RCS' MFILERLSH=ALLTRIM(ALAMATKR)+'KT'+ALLTRIM(KRU)+'RLS_H' MFILETRSH=ALLTRIM(ALAMATKR)+'KT'+ALLTRIM(KRU)+'TRS_H' MFILERCSH=ALLTRIM(ALAMATKR)+'KT'+ALLTRIM(KRU)+'RCS_H' MFILERLSB=ALLTRIM(ALAMATKR)+'KR'+ALLTRIM(KRU)+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4) MFILETRSB=ALLTRIM(ALAMATKR)+'KU'+ALLTRIM(KRU)+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4) MFILERCSB=ALLTRIM(ALAMATKR)+'KC'+ALLTRIM(KRU)+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4) BUKA(.T.,(MFILEMST),'KR_MST',(MFILEMST+'1'),(MFILEMST+'2'),(MFILEMST+'3')) If Used("KR_MST") BUKA(.T.,(MFILETRSH),'KR_TRS_H') If Used("KR_TRS_H") BUKA(.T.,(MFILERLSH),'KR_RLS_H') If Used("KR_RLS_H") BUKA(.T.,(MFILERCSH),'KR_RCS_H') If Used("KR_RCS_H") BUKA(.T.,(MFILETRSB),'KR_TRS_B') If Used("KR_TRS_B") BUKA(.T.,(MFILERCSB),'KR_RCS_B') If Used("KR_RCS_B") BUKA(.T.,(MFILERLSB),'KR_RLS_B') If Used("KR_RLS_B") BUKA(.T.,(MFILETRS),'KR_TRS',(MFILETRS)) If Used("KR_TRS") BUKA(.T.,(MFILERCS),'KR_RCS',(MFILERCS)) Endif Endif Endif Endif Endif Endif Endif Endif If Used("KR_MST") And Used("KR_TRS") And Used("KR_RCS") ; And Used("KR_TRS_H") And Used("KR_TRS_B") And Used("KR_RLS_H") ; And Used("KR_RLS_B") And Used("KR_RCS_H") And Used("KR_RCS_B") SELECT KR_TRS_H Go TOP If !Eof() Tunggu("Update Data harian - ANGSURAN",1) Select KR_TRS Append From (MFILETRSH) FOR ANG_POKOK+ANG_BUNGA+DENDA+BY_TAGIH>0 Select KR_TRS_B Append From (MFILETRSH) FOR ANG_POKOK+ANG_BUNGA+DENDA+BY_TAGIH>0 Tunggu("Update Data harian - ANGSURAN",100) Endif SELECT KR_RLS_H Go TOP If !Eof() Tunggu("Update Data harian - REALISASI",1) Select KR_RLS_B Append From (MFILERLSH) Tunggu("Update Data harian - REALISASI",100) Endif SELECT KR_RCS_H Go TOP If !Eof() Tunggu("Update Data harian - RC ",1) Select KR_RCS_B Append From (MFILERCSH) Tunggu("Update Data harian - RC ",100) Endif Select KR_TRS_H Go TOP Do While Not Eof() Delete Skip Enddo Pack Select KR_RCS_H Go TOP Do While Not Eof() Delete Skip Enddo Pack Select KR_RLS_H Go TOP Do While Not Eof() Delete Skip Enddo Pack TUTUP("KR_TRS","KR_RCS","KR_TRS_H","KR_TRS_B","KR_RLS_H","KR_RLS_B","KR_MST","KR_RCS_H","KR_RCS_B") Endif Select KRU_JNS Skip Enddo CLOSE TABLES ALL Tunggu("Proses selesai",100,0) ENDPROC