Code Program

	ADMIN - REFRESH
GASY Script
PARAMETERS cFile,cJns,cLokasi,cTgl,cHari
LOCAL mFile
**File Akuntansi
DO Case
Case cFile=="AK_MST"
	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)	
	Tunggu("Proses indek file master rekening akuntansi"+CHR(13)+mFile,1)
	Tutup("AK_MST")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (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
	ENDIF
	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")

CASE cFile=="AK_BBB"
	mFILE=cLokasi+"BB_"+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	mFILEKEY=cLokasi+"BB_"+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu("Proses indek file buku besar bulanan"+CHR(13)+mFile,1)
	Tutup("AK_BBB")	
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KJ C(2),TANGGAL D(8),BUKTI C(6),;
		        URUT N(3),NOPER C(10),URAIAN C(30),NILAI N(15,2),;
		        D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5))
		USE				        
	ENDIF
    IF BUKA(.T.,mFILE,"AK_BBB")
    	SELECT AK_BBB
    	PACK
   		INDEX ON NOPER+DTOS(TANGGAL)+BUKTI+STR(URUT,3) TO (mFILEKEY)
	ENDIF	
	Tutup("AK_BBB")	

Case cFile=="AK_GJB"
	mFILE=cLokasi+"GJ_"+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu("Proses indek file jurnal umum bulanan"+CHR(13)+mFile,1)
	Tutup("AK_GJB")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KJ C(2),TANGGAL D(8),BUKTI C(6),;
	        URUT N(3),NOPER C(10),URAIAN C(60),NILAI N(15,2),;
	        D_K C(1),PROSES L(1),OPR C(3),SPR C(3),SANDI C(5))
		USE			        
	ENDIF
    IF BUKA(.T.,mFILE,"AK_GJB")
    	SELECT AK_GJB
   		PACK
	ENDIF
	Tutup("AK_GJB")

Case cFile=="AK_CJB"
	mFILE=cLokasi+"CJ_"+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu("Proses indek file jurnal kas bulanan"+CHR(13)+mFile,1)
	Tutup("AK_CJB")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KJ C(2),TANGGAL D(8),BUKTI C(6),;
	        URUT N(3),NOPER C(10),URAIAN C(60),NILAI N(15,2),;
	        D_K C(1),PROSES L(1),OPR C(3),SPR C(3),SANDI C(5))
	    USE	    
	ENDIF
    IF BUKA(.T.,mFILE,"AK_CJB")
    	SELECT AK_CJB
   		PACK
	ENDIF
	Tutup("AK_CJB")


CASE cFile=="CJHARIAN"
	mFILE=cLokasi+IIF(PCOUNT()=4,"CJHARIAN","DTAKH\C"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu("Proses indek file jurnal kas harian"+CHR(13)+mFile,1)
	TUTUP("CJHARIAN")
	IF !FILE(mFILE+".DBF")
		CHEKFOLDER(MFILE+'.DBF')
		CREATE TABLE (mFILE) FREE (KJ C(2),TANGGAL D(8),BUKTI C(6),;
	        URUT N(3),NOPER C(10),URAIAN C(60),NILAI N(15,2),;
	        D_K C(1),PROSES L(1),OPR C(3),SPR C(3),SANDI C(5))
		USE			        
	ENDIF	        
    IF BUKA(.T.,mFILE,"CJHARIAN")
    	SELECT CJHARIAN
    	GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(TANGGAL)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
   		PACK
		INDEX ON BUKTI+STR(URUT,3) TO (mFILE)
	ENDIF
	TUTUP("CJHARIAN")

CASE cFile=="GJHARIAN"
	mFILE=cLokasi+IIF(PCOUNT()=4,"GJHARIAN","DTAKH\G"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu("Proses indek file jurnal umum harian"+CHR(13)+mFile,1)
	TUTUP("GJHARIAN")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KJ C(2),TANGGAL D(8),BUKTI C(6),;
	        URUT N(3),NOPER C(10),URAIAN C(60),NILAI N(15,2),;
	        D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5))
		USE			        
	ENDIF
   	IF BUKA(.T.,mFILE,"GJHARIAN")
   		SELECT GJHARIAN
   		GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(TANGGAL)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
    	PACK
		INDEX ON BUKTI+STR(URUT,3) TO (mFILE)
	ENDIF
	TUTUP("GJHARIAN")

CASE cFile=="BBHARIAN"
	mFILE=cLokasi+"BBHARIAN"
	Tunggu("Proses indek file buku besar harian"+CHR(13)+mFile,1)
	TUTUP("BBHARIAN")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KJ C(2),TANGGAL D(8),BUKTI C(6),;
		        URUT N(3),NOPER C(10),URAIAN C(60),NILAI N(15,2),;
		        D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5))
		USE				        
	ENDIF
    IF BUKA(.T.,mFILE,"BBHARIAN")
    	SELECT BBHARIAN
    	GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(Tanggal)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
	    PACK
    	INDEX ON NOPER+BUKTI+STR(URUT,3) TO (mFILE)
	ENDIF
	Tutup("BBHARIAN")

CASE cFile=="AK_PLK"
	mFILE=cLokasi+"AK_PLK"
	Tunggu("Proses indek file laporan khusus"+CHR(13)+mFile,1)
	Tutup("AK_PLK")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KODE C(3),KETERANGAN C(50))				
		USE
	ENDIF	
   	IF BUKA(.T.,mFILE,"AK_PLK")
   		SELECT AK_PLK
    	PACK
	ENDIF
	Tutup("AK_PLK")

CASE cFile=="AK_TBL"
	mFILE=cLokasi+"AK_TBL"
	Tunggu("Proses indek file interface tabel"+CHR(13)+mFile,1)
	Tutup("AK_TBL")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) FREE (KJ C(2),KETERANGAN C(30),NOPER C(10),ALAMATDATA C(50))
		USE		
	ENDIF
   	IF BUKA(.T.,mFILE,"AK_TBL")
   		SELECT AK_TBL
    	PACK
	    INDEX ON KJ TO (mFILE)
	ENDIF
	Tutup("AK_TBL")

CASE cFile=="AK_RKL"
	mFILE=cLokasi+"AK_RKL"
	Tunggu("Proses indek file rasio keuangan"+CHR(13)+mFile,1)
	Tutup("AK_RKL")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) (KODE C(4),NOPER C(10),;
	        NAPER C(40),RK C(4),KP C(1),JNS C(1),;
	        BOBOT N(6,2),RUPIAH_THL N(18,2),RUPIAH_THI N(18,2),;
	        NILAI N(12),RASIO N(6,2),STD_RASIO C(15),;
	        PEMBILANG C(4),PENYEBUT C(4),KC C(1),UF N(3),KL C(1))
		USE		
	ENDIF
   	IF BUKA(.T.,mFILE,"AK_RKL")
   		SELECT AK_RKL
	    PACK
		INDEX ON KODE TO (mFILE)
	ENDIF
	Tutup("AK_RKL")

CASE cFile=="AK_NPH"
	mFILE=cLokasi+"AK_NPH"
	Tunggu("Proses indek file neraca percobaan"+CHR(13)+mFile,1)
	Tutup("AK_NPH")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) (NKODE C(3),NOPER C(10),KETERANGAN C(50),SIFAT C(1),;
		DBBLA N(15,2), KRBLA N(15,2), DEBET N(15,2), ;
		KREDIT N(15,2), DBBLI N(15,2), KRBLI N(15,2))
		USE		
	ENDIF
   	IF BUKA(.T.,mFILE,"AK_NPH")
   		SELECT AK_NPH
	    PACK
		INDEX ON NKODE TO (mFILE)
	ENDIF	   	  
	Tutup("AK_NPH")

CASE cFile=="AK_RLB"
	mFILE=cLokasi+"AK_RLB"
	Tunggu("Proses indek file rugi-laba"+CHR(13)+mFile,1)
	Tutup("AK_RLB")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) (KODE C(4),NOPER C(10),;
		NAPER C(50), SANDI C(3), RUPIAH N(12,2),;
		RIBUAN N(12,0), KP C(1), RK C(3), JENIS C(1), SISA N(8))
	    USE	    
	ENDIF
	IF BUKA(.T.,mFILE,"AK_RLB")
		SELECT AK_RLB
		PACK
		INDEX ON KODE TO (mFILE)
	ENDIF
	Tutup("AK_RLB")

CASE cFile=="AK_NRB"
	mFILE=cLokasi+"AK_NRB"
	Tunggu("Proses indek file neraca"+CHR(13)+mFile,1)
	Tutup("AK_NRB")
	IF !FILE(mFILE+".DBF")
		CREATE TABLE (mFILE) (KODE C(4),NOPER C(10),;
		NAPER C(50), SANDI C(3), RUPIAH N(12,2),;
		RIBUAN N(12,0), KP C(1), RK C(3), JENIS C(1), SISA N(8))
        USE        
	ENDIF
	 IF BUKA(.T.,mFILE,"AK_NRB")
	 	SELECT AK_NRB
	    PACK
		INDEX ON KODE TO (mFILE)
	ENDIF
	Tutup("AK_NRB")

** File-Register
CASE cFile=="DN_MST"
	mFile=cLokasi+'DN_MST'
	Tunggu("Proses indek file register nasabah"+CHR(13)+mFile,1)
	Tutup("DN_MST")
	IF !FILE(mFile+'.DBF')	
   		CREATE TABLE (Mfile) (INDUK C(8),;
            NAMA C(30),;
            ALAMAT C(30),;
            KOTA C(30),;
            PEKERJAAN C(30),; 
            KTP C(30),;
            CATATAN C(30),;
            TGL_TRS D(8),;
            GENDER C(1),;
            AGAMA C(1),;
            BLOKIR C(1))
   		USE
	ENDIF
	IF BUKA(.T.,mFile,'DN_MST')
		SELECT DN_MST
	   	PACK
		INDEX ON INDUK TO (Mfile+'1')
		INDEX ON NAMA TO (mFile+'2')
	ENDIF
	Tutup("DN_MST")

** File-Deposito
CASE cFile=='DP_MST'
	mFile=cLokasi+'DP_MST'
	Tunggu('Indeks file master deposito'+CHR(13)+mFile,1)
	TUTUP("DP_MST")
	IF !FILE(mFile+'.DBF')
		CREATE TABLE (mFile) (KODE C(9),;
             SD C(2),;
             INDUK C(8),;
             NAMA C(30),;
             ALAMAT C(30),;
             KOTA C(30),;
             PEKERJAAN C(30),; 
             KTP C(30),;
             TGL_TRS D(8),;
             JNG_WAKTU N(3),;
             PRS_BUNGA N(7,4),;
             JML_SETOR N(12),;
             TGL_TRK D(8),;
             PAJAK N(5,2),;
             PEMILIK C(3),;
             WLY C(4),;
             KPT C(4),;             
             JNS_BUNGA C(1),;
             ARO C(1),;
             ARO_KE N(2),;
             Blokir C(1),;
             BUKTI C(4),;
             SDT C(1),;
             TANGGAL D(8),;
             TGL_BNG D(8),;
             RP_BUNGA N(12),;
             RP_PAJAK N(12),;
	         OPR C(3),;
    	     SPR C(3),;
             CASH C(2),;
             BKAS C(6),;             
             SANDI C(5),;
             BLWN C(4),;
             POSTING C(1),;
             STD_JURNAL C(2))             
		USE
	ENDIF			
	IF BUKA(.T.,mFile,'DP_MST')
		SELECT DP_MST
      	PACK
    	INDEX ON KODE+SD TO (mFile+'1')
    	INDEX ON NAMA TO (mFile+'2')
		INDEX ON INDUK TO (mFile+'3')
   	ENDIF
	TUTUP("DP_MST")

CASE cFile=='DP_TRS_H'
	mFile=cLokasi+IIF(PCOUNT()=4,'DP_TRS_H',"DTDPH\D"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu('Indeks file transaksi harian deposito'+CHR(13)+mFile,1)
	TUTUP("DP_TRS_H")
	IF !FILE(mFile+'.DBF')
		   CREATE TABLE (mFile) (KODE C(9),;
	             SD C(2),;
	             INDUK C(8),;
	             NAMA C(30),;
	             ALAMAT C(30),;
	             KOTA C(30),;
	             PEKERJAAN C(30),; 
	             KTP C(30),;
	             TGL_TRS D(8),;
	             JNG_WAKTU N(3),;
	             PRS_BUNGA N(7,4),;
	             JML_SETOR N(12),;
	             TGL_TRK D(8),;
	             PAJAK N(5,2),;
	             PEMILIK C(3),;
	             WLY C(4),;
	             KPT C(4),;             
	             JNS_BUNGA C(1),;
	             ARO C(1),;
	             ARO_KE N(2),;
	             BLokir C(1),;
	             BUKTI C(4),;
	             SDT C(1),;
	             TANGGAL D(8),;
	             TGL_BNG D(8),;
	             RP_BUNGA N(12),;
	             RP_PAJAK N(12),;
		         OPR C(3),;
	    	     SPR C(3),;
	             CASH C(2),;
	             BKAS C(6),;
	             SANDI C(5),;
	             BLWN C(4),;
	             POSTING C(1),;
	             STD_JURNAL C(2))
	   USE
	ENDIF		   
	IF BUKA(.T.,mFile,'DP_TRS_H')
		SELECT DP_TRS_H
	   	GO TOP
	   	DO WHILE !EOF()
	   		IF EMPTY(TGL_TRS)
	   			DELETE
	   		ENDIF
	   		SKIP
	   	ENDDO
		PACK
	ENDIF
	TUTUP("DP_TRS_H")

CASE cFile=='DP_TRS_B'
	mFILE=cLokasi+"DPT"+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks file transaksi deposito bulanan'+CHR(13)+mFile,1)
	TUTUP("DP_TRS_B")
	IF !FILE(mFILE+'.DBF')
	   CREATE TABLE (mFILE) (KODE C(9),;
             SD C(2),;
             INDUK C(8),;
             NAMA C(30),;
             ALAMAT C(30),;
             KOTA C(30),;
             PEKERJAAN C(30),; 
             KTP C(30),;
             TGL_TRS D(8),;
             JNG_WAKTU N(3),;
             PRS_BUNGA N(7,4),;
             JML_SETOR N(12),;
             TGL_TRK D(8),;
             PAJAK N(5,2),;
             PEMILIK C(3),;
             WLY C(4),;
             KPT C(4),;             
             JNS_BUNGA C(1),;
             ARO C(1),;
             ARO_KE N(2),;
             Blokir C(1),;
             BUKTI C(4),;
             SDT C(1),;
             TANGGAL D(8),;
             TGL_BNG D(8),;
             RP_BUNGA N(12),;
             RP_PAJAK N(12),;
	         OPR C(3),;
    	     SPR C(3),;
             CASH C(2),;
             BKAS C(6),;             
             SANDI C(5),;
             BLWN C(4),;
             POSTING C(1),;
             STD_JURNAL C(2))
       USE
	ENDIF	
	IF BUKA(.T.,mFILE,'DP_TRS_B')
		SELECT DP_TRS_B
		PACK
   	ENDIF
	TUTUP("DP_TRS_B")
	
CASE cFile=='DP_BNG'
	mFile=cLokasi+'DP_BNG'
	Tunggu('Indeks file bunga deposito'+CHR(13)+mFile,1)
	TUTUP("DP_BNG")
	IF !FILE(mFile+'.DBF')
		CREATE TABLE (mFile) (KODE C(9),;
             SD C(2),;
             INDUK C(8),;       
             TGL_TRS D(8),;
             TGL_BNG D(8),;
             RP_BUNGA N(12),;
             RP_PAJAK N(12),;
             TGL_TRK D(8),;
             BUKTI C(4),;
	         OPR C(3),;
    	     SPR C(3),;
             CASH C(2),;
             BKAS C(6),;
             SANDI C(5),;
             BLWN C(4),;
             POSTING C(1))
     	USE
	ENDIF	     	
	IF BUKA(.T.,mFile,'DP_BNG')
   		SELECT DP_BNG
	   	PACK
     	INDEX ON KODE+SD+DTOS(TGL_BNG) TO (mFile)
	ENDIF
	TUTUP("DP_BNG")

CASE cFile=='DP_BBI'
	mFILE=cLokasi+"DPB"+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks file bunga deposito bulanan'+CHR(13)+mFile,1)
	TUTUP("DP_BBI")
	IF !FILE(mFILE+'.DBF')
 		CREATE TABLE (mFILE) (KODE C(9),;
             SD C(2),;
             INDUK C(8),;
             TGL_TRS D(8),;
             TGL_BNG D(8),;
             RP_BUNGA N(12),;
             RP_PAJAK N(12),;
             TGL_TRK D(8),;
             BUKTI C(4),;
	         OPR C(3),;
    	     SPR C(3),;
             CASH C(2),;
             BKAS C(6),;
             SANDI C(5),;
             BLWN C(4),;
             POSTING C(1))
        USE
	ENDIF
	IF BUKA(.T.,mFILE,'DP_BBI')
   		SELECT DP_BBI
		PACK
	ENDIF
	TUTUP("DP_BBI")

** File-Kredit
CASE cFile=='KR_MST'
	mFile=cLokasi+'KM'+ALLTRIM(cJns)+'MST'
	Tunggu('Indeks File Master'+CHR(13)+mFile,1)
	TUTUP("KR_MST")
	IF !FILE(mFile+'.DBF')
	   CREATE TABLE (mFile) ( KODE C(9),;
		    NAMA C(30),;
            ALAMAT C(30),;
            INDUK C(8),;
            NO_PK C(30),;
            GRP C(1),;
            KOL C(1),; 
            WLY C(4),;
            TGL_CAIR D(8),;
            JNS_BUNGA C(1),;
            PRS_BUNGA N(6,2),;
            JNG_WAKTU N(3),;
            JML_PINJAM N(12),;
            PRD_ANGS N(3),;
            SKEEM N(10),;
            TOL_BNG N(3),;
            MOD_DND C(1),;
            JAMINAN C(140),;
            RPH_JAM N(10),;
            RPH_JAMC N(10),;            
            KODE_JAM C(5),;
            SIF_KRE C(1),;
            JNS_GUNA C(2),;
            GOL_DEB C(3),;
            SEK_TOR C(4),;
            JNS_BBI C(1),;
            GOL_JAM C(3),;
            BAG_JAM N(6,2),;
            KODE_AVA C(4),;
            KODE_KAO C(4),;
            KODE_KIN C(4),;
            KODE_DEA C(4),;
            KODE_DLL C(5),;
            PENANGGUNG C(30),;
            TGL_BAYAR D(8),;
            ANG_POKOK N(12),;
            ANG_BUNGA N(12),;
            ANG_DENDA N(12),;
            ANG_BIAYA N(12),;
            DBPK_B N(12),;
            DBBG_B N(12),;
            DBDD_B N(12),;
            DBBY_B N(12),;
            BUNGA_YHD N(12),;
            BUNGA_BLI N(12),;
            AJE_BUNGA N(12),;
            AJE_DENDA N(12),;
            SLD_BLL N(12),;
            SLD_BLI N(12),;
            TGK_PRPBLL N(12),;
            TGK_PRPBLI N(12),;
            TGK_BRPBLL N(12),;
            TGK_BRPBLI N(12),;
            TGK_PXXBLL N(3),;
            TGK_PXXBLI N(3),;
            TGK_BXXBLL N(3),;
            TGK_BXXBLI N(3),;
            KOL_MAN C(1),;
            ADM_REAL N(12),;
            STD_JURNAL C(2))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_MST')		
		Select KR_MST
		Pack
		INDEX ON KODE TO (mFile+'1')
		INDEX ON NAMA TO (mFile+'2')
		INDEX ON INDUK TO (mFile+'3')
	ENDIF
	TUTUP("KR_MST")

CASE cFile=='KR_MST_B'		   	
	mFile=cLokasi+'KB'+ALLTRIM(cJns)+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks File Master Bulanan'+CHR(13)+mFile,1)
	Tutup("KR_MST_B")
	IF !FILE(mFile+'.DBF')
		CREATE TABLE (mFile) ( KODE C(9),;
	            NAMA C(30),;
    	        ALAMAT C(30),;
	            INDUK C(8),;
    	        NO_PK C(30),;
	            GRP C(1),;
    	        KOL C(1),; 
	            WLY C(4),;
    	        TGL_CAIR D(8),;
	            JNS_BUNGA C(1),;
    	        PRS_BUNGA N(6,2),;
	            JNG_WAKTU N(3),;
    	        JML_PINJAM N(12),;
	            PRD_ANGS N(3),;
    	        SKEEM N(10),;
	            TOL_BNG N(3),;
    	        MOD_DND C(1),;
	            JAMINAN C(140),;
	            RPH_JAM N(10),;
    	        RPH_JAMC N(10),;            
	            KODE_JAM C(5),;
    	        SIF_KRE C(1),;
	            JNS_GUNA C(2),;
	            GOL_DEB C(3),;
    	        SEK_TOR C(4),;
	            JNS_BBI C(1),;
    	        GOL_JAM C(3),;
	            BAG_JAM N(6,2),;
    	        KODE_AVA C(4),;
        	    KODE_KAO C(4),;
	            KODE_KIN C(4),;
    	        KODE_DEA C(4),;
	            KODE_DLL C(5),;
    	        PENANGGUNG C(30),;
	            TGL_BAYAR D(8),;
    	        ANG_POKOK N(12),;
	            ANG_BUNGA N(12),;
	            ANG_DENDA N(12),;
	            ANG_BIAYA N(12),;
    	        DBPK_B N(12),;
	            DBBG_B N(12),;
	            DBDD_B N(12),;
	            DBBY_B N(12),;
	            BUNGA_YHD N(12),;
	            BUNGA_BLI N(12),;
	            AJE_BUNGA N(12),;
	            AJE_DENDA N(12),;
	            SLD_BLL N(12),;
	            SLD_BLI N(12),;
	            TGK_PRPBLL N(12),;
	            TGK_PRPBLI N(12),;
	            TGK_BRPBLL N(12),;
	            TGK_BRPBLI N(12),;
	            TGK_PXXBLL N(3),;
	            TGK_PXXBLI N(3),;
	            TGK_BXXBLL N(3),;
	            TGK_BXXBLI N(3),;
	            KOL_MAN C(1),;
	            ADM_REAL N(12),;
	            STD_JURNAL C(2))
		Use   		
	ENDIF
	IF BUKA(.T.,(mFile),'KR_MST_B')
		Select KR_MST_B
		Pack
		Index On KODE To (mFile)
	Endif
	TUTUP("KR_MST_B")

CASE cFile=='KR_JAM'
	mFile=cLokasi+'KJ'+Alltrim(cJns)+'JAM'
	Tunggu('Indeks File Jaminan'+CHR(13)+mFile,1)
	TUTUP("KR_JAM")
	IF !FILE(mFile+'.DBF')	
		CREATE TABLE (mFile) ( KODE C(9),URUT C(2), KETERANGAN C(70))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_JAM')
		Select KR_JAM
		PACK
		INDEX ON KODE+URUT TO (mFile)			
	ENDIF
	TUTUP("KR_JAM")

CASE cFile=='KR_RLS_H'
	mFile=cLokasi+IIF(PCOUNT()=4,'KT'+ALLTRIM(cJns)+'RLS_H',"DTKRH"+cJns+"\R"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu('Indeks File Realisasi Harian'+CHR(13)+mFile,1)
	TUTUP("KR_RLS_H")
	IF !FILE(mFile+'.DBF')
		CREATE TABLE (mFile) ( BUKTI C(4), KODE C(9),;
			GRP C(1),;
            TGL_CAIR D(8),;            
            JML_PINJAM N(12),;
			SD C(1),;
            POTONGAN1 N(10),;
            POTONGAN2 N(10),;
            POTONGAN3 N(10),;
            POTONGAN4 N(10),;
            POTONGAN5 N(10),;
            POTONGAN6 N(10),;
            POTONGAN7 N(10),;			
            OPR C(3),;
            SPR C(3),;
            CASH C(2),;
            BKAS C(6),;
            SANDI C(5),;
            BLWN C(4),;
            POSTING C(1))
        USE
	ENDIF
    IF BUKA(.T.,(mFile),'KR_RLS_H')
       	Select KR_RLS_H
       	GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(TGL_CAIR)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
       	Pack
	ENDIF
	TUTUP("KR_RLS_H")

CASE cFile=='KR_TRS_H'
	mFile=cLokasi+IIF(PCOUNT()=4,'KT'+ALLTRIM(cJns)+'TRS_H',"DTKRH"+cJns+"\A"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu('Indeks File Angsuran Harian'+CHR(13)+mFile,1)
	TUTUP("KR_TRS_H")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) (BUKTI C(4),;
             TANGGAL D(8),;
             KODE C(9),;
             GRP C(1),;
             ANG_POKOK N(12),;
             ANG_BUNGA N(12),;
             DENDA N(12),;
             BY_TAGIH N(12),;
             SALDO N(12),;
             OPR C(3),;
             SPR C(3),;
             CASH C(2),;             
             BKAS C(6),;
             SANDI C(5),;
             POSTING C(1),;
             BLWN C(4))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_TRS_H')
		Select KR_TRS_H
		GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(Tanggal)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
		Pack
	ENDIF
	TUTUP("KR_TRS_H")

CASE cFile=='KR_RCS_H'
	mFile=cLokasi+IIF(PCOUNT()=4,'KT'+ALLTRIM(cJns)+'RCS_H',"DTKRH"+cJns+"\K"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu('Indeks File Angsuran RC Harian'+CHR(13)+mFile,1)
	TUTUP("KR_RCS_H")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) (BUKTI C(4),;
    	     TANGGAL D(8),;
        	 KODE C(9),;
        	 GRP C(1),;
             SD C(1),;
             NILAI_RP N(12),;
             SALDO N(12),;
             OPR C(3),;
             SPR C(3),;
             CASH C(2),;             
             BKAS C(6),;
             SANDI C(5),;
             POSTING C(1),;
             BLWN C(4))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_RCS_H')
		Select KR_RCS_H
		GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(Tanggal)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
		Pack
	ENDIF
	TUTUP("KR_RCS_H")

CASE cFile=='KR_RLS_B'			
	mFile=cLokasi+'KR'+ALLTRIM(cJns)+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks File Realisasi Bulanan'+CHR(13)+mFile,1)
	TUTUP("KR_RLS_B")
	IF !FILE(mFile+'.DBF')
		CREATE TABLE (mFile) ( BUKTI C(4), KODE C(9),;
		GRP C(1),;
           TGL_CAIR D(8),;            
           JML_PINJAM N(12),;
           SD C(1),;
           POTONGAN1 N(10),;
           POTONGAN2 N(10),;
           POTONGAN3 N(10),;
           POTONGAN4 N(10),;
           POTONGAN5 N(10),;
           POTONGAN6 N(10),;
           POTONGAN7 N(10),;
           OPR C(3),;
           SPR C(3),;
           CASH C(2),;
           BKAS C(6),;
           SANDI C(5),;
           BLWN C(4),;
           POSTING C(1))
       	USE
	ENDIF
   	IF BUKA(.T.,(mFile),'KR_RLS_B')
       	Select KR_RLS_B
   	   	Pack
	ENDIF
	TUTUP("KR_RLS_B")

CASE cFile=='KR_TRS_B'
	mFile=cLokasi+'KU'+ALLTRIM(cJns)+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks File Angsuran Bulanan'+CHR(13)+mFile,1)
	TUTUP("KR_TRS_B")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) (BUKTI C(4),;
            TANGGAL D(8),;
             KODE C(9),;
             GRP C(1),;
             ANG_POKOK N(12),;
             ANG_BUNGA N(12),;
             DENDA N(12),;
             BY_TAGIH N(12),;
             SALDO N(12),;
             OPR C(3),;
             SPR C(3),;
             CASH C(2),;             
             BKAS C(6),;
             SANDI C(5),;
             POSTING C(1),;
             BLWN C(4))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_TRS_B')
		Select KR_TRS_B
		Pack
	ENDIF
	TUTUP("KR_TRS_B")

CASE cFile=='KR_BNG'
	mFile=cLokasi+'KA'+Alltrim(cJns)+'BNG'	
	Tunggu('Indeks File Anggaran Bunga'+CHR(13)+mFile,1)
	TUTUP("KR_BNG")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) ( KODE C(9),TGL1 D(8),TGL2 D(8), TGLJT D(8),;
				JML_POKOK N(9),DSB_BUNGA N(9),;
		          	PRS_BUNGA N(5,2),JML_HARI N(4),AGR_BUNGA N(9),;
    		      	ANG_BUNGA N(9), TLR_BAYAR N(2),OPR C(3), KBJ_BUNGA N(9),;
        		  	KBJ_DENDA N(9))
		USE
	ENDIF			
	IF BUKA(.T.,(mFile),'KR_BNG')
		Select KR_BNG
		Pack
		Index on KODE+Dtos(TGL1)+Dtos(TGL2) To (mFile)
	ENDIF
	TUTUP("KR_BNG")

CASE cFile=='KR_RCS_B'
	mFile=cLokasi+'KC'+ALLTRIM(cJns)+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks File RC Bulanan'+CHR(13)+mFile,1)
	TUTUP("KR_RCS_B")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) (BUKTI C(4),;
       	 TANGGAL D(8),;
            KODE C(9),;
             GRP C(1),;
             SD C(1),;
             NILAI_RP N(12),;
             SALDO N(12),;
             OPR C(3),;
             SPR C(3),;
             CASH C(2),;             
             BKAS C(6),;
             SANDI C(5),;
             POSTING C(1),;
             BLWN C(4))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_RCS_B')
		Select KR_RCS_B
		Pack
	ENDIF
	TUTUP("KR_RCS_B")

CASE cFile=='KR_RCS'
	mFile=cLokasi+'KK'+Alltrim(cJns)+'RCS'
	Tunggu('Indeks File Kartu Mutasi RC'+CHR(13)+mFile,1)
	TUTUP("KR_RCS")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) (BUKTI C(4),;
        	 TANGGAL D(8),;
             KODE C(9),;
             GRP C(1),;
             SD C(1),;
             NILAI_RP N(12),;
             SALDO N(12),;
             OPR C(3),;
             SPR C(3),;
             CASH C(2),;             
             BKAS C(6),;
             SANDI C(5),;
             POSTING C(1),;
             BLWN C(4))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_RCS')
		Select KR_RCS			
		Pack
		Index on KODE+Dtos(TANGGAL) To (mFile)
	ENDIF
	TUTUP("KR_RCS")

CASE cFile=='KR_TRS'
	mFile=cLokasi+'KK'+Alltrim(cJns)+'TRS'
	Tunggu('Indeks File Kartu Angsuran Kredit'+CHR(13)+mFile,1)
	TUTUP("KR_TRS")
	If !File(mFile+'.DBF')
		CREATE TABLE (mFile) (BUKTI C(4),;
            TANGGAL D(8),;
            KODE C(9),;
             GRP C(1),;
             ANG_POKOK N(12),;
             ANG_BUNGA N(12),;
             DENDA N(12),;
             BY_TAGIH N(12),;
             SALDO N(12),;
             OPR C(3),;
             SPR C(3),;
             CASH C(2),;             
             BKAS C(6),;
             SANDI C(5),;
             POSTING C(1),;
             BLWN C(4))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),'KR_TRS')
		Select KR_TRS
		Pack
		Index on Kode+Dtos(TANGGAL) To (mFile)
	ENDIF
	TUTUP("KR_TRS")

** File-Tabungan
**
CASE cFile=='TB_MST'
	MFILE=cLokasi+'TM'+ALLTRIM(cJns)+'MST'
	Tunggu('Indeks file master tabungan'+CHR(13)+MFILE,1)
	TUTUP("TB_MST")
	IF !FILE(MFILE+'.DBF')
		CREATE TABLE (MFILE) (KODE C(9),;
	            NAMA C(30),;
    	        ALAMAT C(30),;
        	    INDUK C(8),;
	            KTP C(30),;
	            GRP C(3),;
    	        WLY C(4),;            
        	    TGL_TRS D(8),;
            	YES_BUNGA C(1),;
	            PRS_BUNGA N(6,2),;
    	        GOL C(3),;
        	    JOB C(4),;
	            KPT C(4),;
    	        BLOKIR C(1),;
    	        STD_JURNAL C(2))
		USE
	ENDIF
	IF BUKA(.T.,(MFILE),'TB_MST')
		SELECT TB_MST
		Pack
		INDEX ON KODE TO (MFILE+'1')
		INDEX ON NAMA TO (MFILE+'2')
	ENDIF
	TUTUP("TB_MST")

CASE cFile=='TB_SLD'		
	MFILE=cLokasi+'TS'+ALLTRIM(cJns)+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks file mutasi dan saldo tabungan'+CHR(13)+MFILE,1)
	TUTUP("TB_SLD")		
	IF !FILE(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
	ENDIF
	IF BUKA(.T.,(MFILE),'TB_SLD')
		SELECT TB_SLD
		PACK
		INDEX ON KODE TO (MFILE)
	ENDIF
	TUTUP("TB_SLD")


CASE cFile=='TB_TRS_H'		
	MFILE=cLokasi+IIF(PCOUNT()=4,'TT'+ALLTRIM(cJns)+'TRS_H',"DTTBHA\B"+RIGHT(DTOS(cTgl),2)+GS_NTOC(cTgl)+LEFT(DTOS(cTgl),4))
	Tunggu('Indeks file mutasi dan saldo tabungan'+CHR(13)+MFILE,1)
	TUTUP("TB_TRS_H")		
	If !File(MFILE+'.DBF')
		CREATE TABLE (MFILE) (BUKTI C(4),;
	             TGL_TRS D(8),;
    	         KODE C(9),;
    	         GRP C(3),;
        	     SD C(1),;
            	 NILAI_RP N(12),;
	             CTK N(3),;
    	         WLY C(4),;
        	     KPT C(4),;
            	 OPR C(3),;
	             SPR C(3),;
    	         CASH C(2),;
        	     BKAS C(6),;
	             SANDI C(5),;
    	         BLWN C(4),;
        	     POSTING C(1),;
        	     SALDO N(12))
		USE
	ENDIF
	IF BUKA(.T.,(MFILE),'TB_TRS_H')
		SELECT TB_TRS_H
		GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(TGL_TRS)
   				DELETE
   			ENDIF
  			SKIP
   		ENDDO
		Pack
	ENDIF
	Tutup("TB_TRS_H")

CASE cFile=='TB_KRT'
	MFILE=cLokasi+'TK'+ALLTRIM(cJns)+GS_NTOC(cTGL)+STR(YEAR(cTGL),4)
	Tunggu('Indeks file historis transaksi tabungan'+CHR(13)+MFILE,1)
	TUTUP("TB_KRT")		
	If !File(MFILE+'.DBF')
		CREATE TABLE (MFILE) (BUKTI C(4),;
	             TGL_TRS D(8),;
    	         KODE C(9),;
    	         GRP C(3),;
        	     SD C(1),;
	             NILAI_RP N(12),;
    	         CTK N(3),;
        	     WLY C(4),;
	             KPT C(4),;
    	         OPR C(3),;
	             SPR C(3),;
    	         CASH C(2),;
        	     BKAS C(6),;
            	 SANDI C(5),;
	             BLWN C(4))             
   		USE
	ENDIF
	IF BUKA(.T.,(MFILE),'TB_KRT')
		SELECT TB_KRT
		PACK
		INDEX ON KODE+DTOS(TGL_TRS) TO (MFILE)
	ENDIF
	Tutup("TB_KRT")

** File-Tabungan-Program
CASE cFile=='TP_MST'
	mFILE=cLokasi+'TP_MST'+ALLTRIM(cJns)
	Tunggu("Proses indek file master tabungan program"+CHR(13)+mFile,1)
	Tutup("TP_MST")
	IF !FILE(mFILE+'.DBF')
		CREATE TABLE (mFILE) (TGL_TRS D(8),GRP C(1),KODE C(9),INDUK C(8),;
			NAMA C(30),	ALAMAT C(30),KOTA C(30), KTP C(30),;
			PEKERJAAN C(15),TGL_LAHIR D(8),;
			JML_SETOR N(9),JNS_SETOR C(1),;
			JNG_WAKTU N(3),PRS_BUNGA N(6,2),;
			SKT C(4),KWT C(4),KPT C(4),GOL C(3),;
			KLA C(4),CATATAN C(30),NAMA_AW C(30),ALAMAT_AW C(30),;
			STD_JURNAL C(2))
			
		USE
	ENDIF
	IF BUKA(.T.,mFILE,'TP_MST')
		SELECT TP_MST
		PACK
		INDEX ON KODE TO (mFILE+'1')
		INDEX ON NAMA TO (mFILE+'2')
	ENDIF		
	Tutup("TP_MST")	

CASE cFile=='TP_KRT'
	mFILE=cLokasi+'TP_KRT'+ALLTRIM(cJns)
	Tunggu("Proses indek file historis transaksi tabungan program"+CHR(13)+mFile,1)
	Tutup("TP_MST")	
	IF !FILE(mFILE+'.DBF')
		CREATE TABLE (mFILE) (BUKTI C(4),TGL_TRS D(8),KODE C(9),GRP C(1),D_K C(1),NILAI_RP N(12,2), ;
			JML_BUNGA N(12,2), JML_PAJAK N(12,2),;
			KWT C(4),KPT C(4),OPR C(3),SPR C(3),CASH C(2),BKAS C(6),SANDI C(5), ;
			BLWN C(4),POSTING C(1))
		USE
	ENDIF
	IF BUKA(.T.,mFILE,'TP_KRT')
		SELECT TP_KRT
		PACK
		INDEX ON KODE+DTOS(TGL_TRS) TO (mFILE)
	ENDIF
	Tutup("TP_KRT")

CASE cFile=='TP_TRS_H'
	mFILE=cLokasi+IIF(PCOUNT()=4,'TP_TRSH'+ALLTRIM(cJns),"DTTPH"+cJns+"\P"+RIGHT(DTOS(cTGL),2)+GS_NTOC(cTGL)+LEFT(DTOS(cTGL),4))
	Tunggu("Proses indek file transaksi harian tabungan program"+CHR(13)+mFile,1)
	Tutup("TP_TRS_H")
	
	IF !FILE(mFILE+'.DBF')
		CREATE TABLE (mFILE) ( BUKTI C(4),TGL_TRS D(8),KODE C(9),GRP C(1),D_K C(1),NILAI_RP N(12,2), ;
			JML_BUNGA N(12,2), JML_PAJAK N(12,2),;
			KWT C(4),KPT C(4),OPR C(3),SPR C(3),CASH C(2),BKAS C(6),SANDI C(5), ;
			BLWN C(4),POSTING C(1))
		USE
	ENDIF
	IF BUKA(.T.,mFILE,'TP_TRS_H')
		SELECT TP_TRS_H
		GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(TGL_TRS)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
		PACK			
	ENDIF
	Tutup("TP_TRS_H")

CASE cFile=='GASYKLAS'
	mFILE=cLokasi+'GASYKLAS'
	Tunggu("Proses indek file inteface program"+CHR(13)+mFile,1)
	Tutup("GASYKLAS")	
	IF !FILE(mFile+".DBF")
		CREATE TABLE (mFile) (KLP C(3),KODE C(10), KETERANGAN C(60), NAMAKLP C(60), LEBAR N(2), CETAK C(1), Kondisi C(10))
		USE
	ENDIF
	IF BUKA(.T.,(mFile),"GASYKLAS")
		Select GASYKLAS
		PACK
		INDEX ON ALLTRIM(KLP+KODE) TO (mFile)
	Endif
	Tutup("GASYKLAS")

CASE cFile=='AK_JCN'
	mFILE=cLokasi+'AK_JCN'
	Tunggu("Proses indek file standar jurnal"+CHR(13)+mFile,1)
	Tutup("AK_JCN")
	IF !FILE((mFILE+".DBF"))
		CREATE TABLE (mFILE) (KODE C(9), URUT C(1), NOPER C(10), ;
			NAPER C(30), D_K C(1), C_N C(50), BLANKO C(30))
		USE
	ENDIF
	IF BUKA(.T.,mFILE,"AK_JCN")
		SELECT AK_JCN
		PACK
		INDEX ON KODE+URUT TO (mFILE)
	ENDIF
	Tutup("AK_JCN")

CASE cFile=='AK_STD'
	mFile=cLokasi+"AK_STD"
	Tunggu("Proses indek file sandi mutasi transaksi"+CHR(13)+mFile,1)
	Tutup("AK_STD")
	IF !FILE((mFILE+".DBF"))
		CREATE TABLE (mFILE) (KODE C(5), KETERANGAN C(40), NOPER C(10), NAPER C(20), ;
			D_K C(2), PROSEDUR C(8), SDT C(1), KPRG C(8), CATATAN C(30), URAIAN C(30))
		USE
	ENDIF
	IF BUKA(.T.,mFILE,"AK_STD")
		SELECT AK_STD
		PACK
		INDEX ON KODE TO (mFILE)
	ENDIF	
	TUTUP("AK_STD")	

CASE cFile=='GASYHELP'
	mFile=cLokasi+"GASYHELP"
	Tunggu("Proses indek file petunjuk program"+CHR(13)+mFile,1)
	TUTUP("GASYHELP")
	IF !FILE(mFile+'.DBF')
		CREATE TABLE (mFile) (KODE C(5), HELP_TOPIK C(60), CETAK C(1), HELP_DETIL M(4), ;
		TOPIK C(100), URAIAN M(4))
		USE
	ENDIF
	IF BUKA(.T.,mFile,"GASYHELP")
		SELECT GASYHELP
		PACK		
		INDEX ON KODE TO (mFILE)
	ENDIF
	TUTUP("GASYHELP")	

CASE cFile=='KR_USR'
	mFile=cLokasi+"KR_USR"
	Tunggu("Proses indek file user program"+CHR(13)+mFile,1)
	Tutup('KR_USR')
	IF !FILE(ALAMATDL+'KR_USR.DBF')
		CREATE TABLE (mFile) (IDENTITAS C(15), NAMA C(30), JABATAN C(30), ;
			TINGKAT N(3), PHOTO C(3), TAMPIL N(3), KODE_AKSES C(15), Catatan C(150))
		USE
	ENDIF
	IF BUKA(.T.,mFile,'KR_USR')		
		SELECT KR_USR
		GO TOP
   		DO WHILE !EOF()
   			IF EMPTY(PHOTO)
   				DELETE
   			ENDIF
   			SKIP
   		ENDDO
		PACK
	ENDIF
	Tutup('KR_USR')	
ENDCASE
RELEASE mFile*
Tunggu("Proses Indeks Selesai",100,0)
ENDPROC
Sloka 14 Sarasamuccaya
Teks Sloka
Sloka keempat belas dari Sarasamuccaya menyoroti pentingnya kerendahan hati dan bagaimana sikap ini dapat membawa kita menuju kebijaksanaan sejati. Berikut adalah terjemahan dari Sloka 14:
"Orang yang bijaksana hendaknya mengembangkan kerendahan hati, seperti padi yang semakin berisi semakin merunduk. Dengan kerendahan hati, ia dapat belajar dari setiap pengalaman dan menghormati semua makhluk."
Penjelasan
Sloka ini mengajarkan bahwa kerendahan hati adalah salah satu kebajikan yang paling berharga dalam perjalanan menuju kebijaksanaan. Dalam perumpamaan ini, kerendahan hati diibaratkan seperti padi yang semakin berisi semakin merunduk, menunjukkan bahwa semakin banyak pengetahuan dan kebijaksanaan yang kita miliki, semakin kita harus bersikap rendah hati dan bersedia belajar dari orang lain.
Kerendahan hati tidak berarti merendahkan diri sendiri, melainkan mengakui bahwa setiap orang memiliki sesuatu untuk diajarkan kepada kita. Dengan bersikap rendah hati, kita membuka diri untuk terus belajar dan berkembang, serta menghormati orang lain dan kontribusi mereka.
Relevansi
Dalam dunia yang sering kali memuja kesombongan dan individualisme, pesan dari sloka ini sangat relevan. Kerendahan hati mengajarkan kita untuk menghargai orang lain dan membuka diri terhadap berbagai perspektif. Dengan bersikap rendah hati, kita dapat membangun hubungan yang lebih baik dan lebih saling menghargai.
Kerendahan hati juga berperan penting dalam pengembangan pribadi. Dengan mengakui bahwa kita tidak tahu segalanya, kita dapat lebih fleksibel dan adaptif dalam menghadapi tantangan. Ini membantu kita untuk tetap tenang dan terbuka dalam belajar dari setiap pengalaman, baik yang menyenangkan maupun yang menantang.
Dengan menerapkan ajaran ini, kita dapat menciptakan lingkungan yang lebih inklusif dan suportif, di mana setiap individu merasa dihargai dan didengar. Kerendahan hati yang disertai dengan kebijaksanaan dan kebajikan dapat membawa kita menuju kehidupan yang lebih harmonis dan memuaskan.
SARASAMUSCAYA - 014 - 3
