LOCAL mSeri, mFileTrs, mAlamatD, mFileKrt, mTgl, mKali IF Buka(.f.,'Alamat','Alamat') SELECT LEFT(KODE,1) AS TBU,Alamat AS ALAMATDATA FROM Alamat WHERE KLP=='ATB' INTO CURSOR TBU_JNS SELECT TBU_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",1) mTgl=Gasy_Tgl mKali=0 Select TBU_JNS Go TOP Do While Not Eof() MSERI=TBU MFILETRS=ALLTRIM(ALAMATDATA)+'TT'+Alltrim(mSERI)+'TRS_H' MALAMATD=Alltrim(ALAMATDATA) BUKA(.T.,MFILETRS,'TB_TRS_H') If Used("TB_TRS_H") Select TB_TRS_H Go TOP MTGL=TGL_TRS If !Empty(MTGL) MFILEKRT=MALAMATD+'TK'+Alltrim(mSERI)+GS_NTOC(mTGL)+STR(YEAR(mTGL),4) MFILESLD=MALAMATD+'TS'+Alltrim(mSERI)+GS_NTOC(mTGL)+STR(YEAR(mTGL),4) BUKA(.T.,MFILEKRT,'TB_KRT',MFILEKRT) BUKA(.T.,MFILESLD,'TB_SLD',MFILESLD) Endif Endif If Used("TB_TRS_H") And Used("TB_KRT") AND USED("TB_SLD") mKali=mKali+1 SELECT TB_TRS_H IF !EOF() Tunggu("Update data seri "+TBU_JNS.TBU,1) SELECT TB_KRT APPEND FROM (MFILETRS) FOR NILAI_RP>0 FLUSH Tunggu("Update data seri "+TBU_JNS.TBU,100) ENDIF SELECT TB_TRS_H mJml=RECCOUNT() mMulai=0 GO TOP DO WHILE NOT EOF() mKode=Kode mNilaiRp=Nilai_Rp mSd=Sd mGrp=GRP mMulai=mMulai+1 SELECT TB_SLD SET ORDER TO 1 SEEK MkODE IF !FOUND() APPEND BLANK REPLACE KODE WITH MKODE, GRP WITH mGRP ENDIF REPLACE TBS_KINI WITH TBS_KINI+IIF(MSD$'013567',MNILAIRP,0),; TBT_KINI WITH TBT_KINI+IIF(MSD$'2468',MNILAIRP,0) Tunggu("Update data..."+mKode,mMulai/mJml*100) SELECT TB_TRS_H DELETE SKIP ENDDO SELECT TB_TRS_H Pack TUTUP("TB_TRS_H","TB_KRT","TB_SLD") Endif Select TBU_JNS Skip Enddo Close Tables all MALAMATD=alamatnya('ADA') MFILETRS=MALAMATD+'DA_TRS_H' BUKA(.T.,MFILETRS,'DA_TRS_H') If Used("DA_TRS_H") Select DA_TRS_H Go TOP MTGL=TGL_TRS If !Empty(MTGL) MFILEKRT=MALAMATD+'DH_'+GS_NTOC(mTGL)+STR(YEAR(mTGL),4) MFILESLD=MALAMATD+'DA_'+GS_NTOC(mTGL)+STR(YEAR(mTGL),4) BUKA(.T.,MFILEKRT,'DH_KRT',MFILEKRT) BUKA(.T.,MFILESLD,'DA_SLD',MFILESLD) Endif Endif If Used("DA_TRS_H") And Used("DH_KRT") AND USED("DA_SLD") mKali=mKali+1 SELECT DA_TRS_H IF !EOF() Tunggu("Update data ",1) SELECT DH_KRT APPEND FROM (MFILETRS) FOR NILAI_RP>0 FLUSH Tunggu("Update data",100) ENDIF SELECT DA_TRS_H mJml=RECCOUNT() mMulai=0 GO TOP DO WHILE NOT EOF() mKode=Kode mNilaiRp=Nilai_Rp mSd=Sd mGrp=GRP mMulai=mMulai+1 SELECT DA_SLD SET ORDER TO 1 SEEK MkODE IF !FOUND() APPEND BLANK REPLACE KODE WITH MKODE, GRP WITH mGRP ENDIF REPLACE TBS_KINI WITH TBS_KINI+IIF(MSD$'013567',MNILAIRP,0),; TBT_KINI WITH TBT_KINI+IIF(MSD$'2468',MNILAIRP,0) Tunggu("Update data..."+mKode,mMulai/mJml*100) SELECT DA_TRS_H DELETE SKIP ENDDO SELECT DA_TRS_H Pack TUTUP("DA_TRS_H","DH_KRT","DA_SLD") Endif Tunggu("Proses selesai",100,0) ENDPROC