FUNCTION AK_MST(lExcl,xxTgl) LOCAL mKey0, mKey1, mKey2, mKey3 IF !USED("AK_MST") IF EMPTY(xxTgl) RETURN .F. ENDIF ALAMATAK=ALAMATNYA('AAK') IF !EMPTY(ALAMATAK) mKEY0=ALAMATAK+'AKM_'+STR(YEAR(xxTGL),4) mKEY1=ALAMATAK+'AK1_'+STR(YEAR(xxTGL),4) mKEY2=ALAMATAK+'AK2_'+STR(YEAR(xxTGL),4) mKEY3=ALAMATAK+'AK3_'+STR(YEAR(xxTGL),4) BUKA(lExcl,mKEY0,'AK_MST',mKEY1,mKEY2,mKEY3) RELEASE mKey* ENDIF ENDIF RETURN (USED("AK_MST")) ENDFUNC

PROCEDURE AK_MST(lSHARE,pTgl,lReindeks) cLokasi=ALAMATNYA("AAK") cTgl=DATE() IF TYPE("pTGL")="D" AND !EMPTY(pTGL) cTGL=pTgl ENDIF mFILE=cLokasi+"AKM_"+STR(YEAR(cTGL),4) mFILEKEY1=cLokasi+"AK1_"+STR(YEAR(cTGL),4) mFILEKEY2=cLokasi+"AK2_"+STR(YEAR(cTGL),4) mFILEKEY3=cLokasi+"AK3_"+STR(YEAR(cTGL),4) Tutup("AK_MST") IF !FILE(mFILE+".DBF") Tunggu("Proses indek file master rekening akuntansi"+CHR(13)+mFile,1) CHEKFOLDER(MFILE+".DBF") CREATE TABLE (mFILE) ; (; NOPER C(10),; NAPER C(30),; JENIS C(1),; SIFAT C(1),; LEPEL N(1),; UMUM C(10),; Kode C(30),; DBBLA N(15,2),; KRBLA N(15,2),; DBBLI01 N(15,2),; KRBLI01 N(15,2),; DBBLI02 N(15,2),; KRBLI02 N(15,2),; DBBLI03 N(15,2),; KRBLI03 N(15,2),; DBBLI04 N(15,2),; KRBLI04 N(15,2),; DBBLI05 N(15,2),; KRBLI05 N(15,2),; DBBLI06 N(15,2),; KRBLI06 N(15,2),; DBBLI07 N(15,2),; KRBLI07 N(15,2),; DBBLI08 N(15,2),; KRBLI08 N(15,2),; DBBLI09 N(15,2),; KRBLI09 N(15,2),; DBBLI10 N(15,2),; KRBLI10 N(15,2),; DBBLI11 N(15,2),; KRBLI11 N(15,2),; DBBLI12 N(15,2),; KRBLI12 N(15,2),; DBHRI N(15,2),; KRHRI N(15,2); ) USE IF BUKA(.T.,mFILE,"AK_MST") SELECT AK_MST INDEX ON NOPER TO (mFILEKEY1) INDEX ON UPPER(NAPER) TO (mFILEKEY2) ADDITIVE INDEX ON UMUM TO (mFILEKEY3) ADDITIVE ENDIF Tutup("AK_MST") ENDIF IF lReindeks Tunggu("Proses indek file master rekening akuntansi"+CHR(13)+mFile,1) IF BUKA(.T.,mFILE,"AK_MST") SELECT AK_MST PACK INDEX ON NOPER TO (mFILEKEY1) INDEX ON UPPER(NAPER) TO (mFILEKEY2) ADDITIVE INDEX ON UMUM TO (mFILEKEY3) ADDITIVE ENDIF Tutup("AK_MST") ENDIF RETURN (BUKA(lShare,mFILE,"AK_MST",mFileKey1,mFileKey2,mFileKey3)) ENDPROC