Code Program

	ADMIN - REFRESH
GASY Script

PARAMETER PerTanggal,jKr,IndekLah
LOCAL AlamatAk, AlamatKr, AlamatDp, ALamatTp, mTgl, mPesan

mPesan=""

IF PerTanggal=0

mTgl=CTOD('')
AlamatAA=ALLTRIM(Alamatnya('ADA'))
AlamatAk=ALLTRIM(Alamatnya('AAK'))
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF
IF !BUKADBF(.F.,'CJHARIAN',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF
	
IF !BUKADBF(.F.,'GJHARIAN',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF

AlamatAk=ALLTRIM(Alamatnya('ADP'))		
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF
IF !BUKADBF(.F.,'DP_TRS_H',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF	

AlamatAk=ALLTRIM(Alamatnya('ATB'))		
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF

IF !BUKADBF(.F.,'TB_TRS_H',ALAMATAK,'A',GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'DA_TRS_H',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	

AlamatAk=ALLTRIM(Alamatnya('AKR'+jKr))		
IF EMPTY(ALAMATAK)
	RETURN .f.
ENDIF
IF !BUKADBF(.F.,'KR_RLS_H',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'KR_TRS_H',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF

IF !BUKADBF(.F.,'KR_RCS_H',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF

AlamatAk=ALLTRIM(Alamatnya('ATP'))
IF EMPTY(ALAMATAK)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'TP_TRS_H',ALAMATAK,'1',GASY_TGL)
	RETURN .f.
ENDIF

SELECT CJHARIAN
GO TOP
mPesan=mPesan+'Tgl.Transaksi Kas = '+DTOC(Tanggal)+CHR(13)
IF !EOF()
	mTgl=TANGGAL
ENDIF
SELECT GJHARIAN
GO TOP
mPesan=mPesan+'Tgl.Transaksi Non Kas = '+DTOC(Tanggal)+CHR(13)
IF !EOF()
	IF !EMPTY(mTgl)
		IF mTgl<>Tanggal
			Pesan(mPesan)
			RETURN .f.
		ENDIF
		ELSE
		mTgl=Tanggal
	ENDIF
ENDIF
SELECT TP_TRS_H
GO TOP
mPesan=mPesan+'Tgl.Transaksi Tabungan Program = '+DTOC(Tgl_Trs)+CHR(13)
IF !EOF()
	IF !EMPTY(mTgl)
		IF mTgl<>TGL_TRS
			Pesan(mPesan)
			RETURN .f.
		ENDIF
		ELSE
		mTgl=Tgl_TRS		
	ENDIF
ENDIF
	
SELECT KR_RLS_H
GO TOP
mPesan=mPesan+'Tgl.Transaksi Realisasi Kredit = '+DTOC(Tgl_Cair)+CHR(13)
IF !EOF()
	IF !EMPTY(mTgl)
		IF mTgl<>TGL_CAIR
			Pesan(mPesan)
			RETURN .f.
		ENDIF
		ELSE
		mTgl=TGL_CAIR
	ENDIF
ENDIF

SELECT KR_TRS_H
GO TOP
mPesan=mPesan+'Tgl.Transaksi Angsuran Kredit = '+DTOC(Tanggal)+CHR(13)
IF !EOF()
	IF !EMPTY(mTgl)
		IF mTgl<>TANGGAL
			Pesan(mPesan)
			RETURN .f.
		ENDIF
		ELSE
		mTgl=Tanggal
	ENDIF	
ENDIF

SELECT TB_TRS_H
GO TOP
mPesan=mPesan+'Tgl.Transaksi Tabungan Umum = '+DTOC(Tgl_TRS)+CHR(13)
IF !EOF()
	IF !EMPTY(mTgl)
		IF mTgl<>TGL_TRS
			Pesan(mPesan)
			RETURN .f.
		ENDIF
		ELSE
		mTgl=Tgl_TRS
	ENDIF	
ENDIF
	
SELECT DP_TRS_H
GO TOP
mPesan=mPesan+'Tgl.Transaksi Tabungan Umum = '+DTOC(Tgl_TRS)+CHR(13)
IF !EOF()
	IF !EMPTY(mTGl)
		IF mTgl<>Tanggal
			Pesan(mPesan)
			RETURN .f.
		ENDIF
		ELSE
		mTgl=Tanggal
	ENDIF 
ENDIF

IF EMPTY(mTgl)
	DO FORM Libs\Tglproses WITH 'Tanggal Transaksi Harian' TO mTgl
	IF EMPTY(mTGL)
		RETURN .F.
	ENDIF
ENDIF

Gasy_Tgl=mTgl
TGLHARIAN=mTgl
	
IF !DN_MST(.F.)
	RETURN .F.
ENDIF	
AlamatAA=ALLTRIM(Alamatnya('ADA'))

AlamatAk=ALLTRIM(Alamatnya('AAK'))
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF
IF !BUKADBF(.F.,'AK_MST',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF	
		
AlamatAk=ALLTRIM(Alamatnya('ADP'))		
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF
IF !BUKADBF(.F.,'DP_MST',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DP_BNG',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF	

AlamatAk=ALLTRIM(Alamatnya('ATB'))		
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF
IF !BUKADBF(.F.,'TB_MST',ALAMATAK,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DA_MST',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'TB_SLD',ALAMATAK,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DA_SLD',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'TB_KRT',ALAMATAK,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DH_KRT',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	

AlamatAk=ALLTRIM(Alamatnya('AKR'+jKr))
IF EMPTY(ALAMATAK)
	RETURN .f.
ENDIF
IF !BUKADBF(.F.,'KR_MST',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'KR_JAM',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'KR_TRS',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'KR_RCS',ALAMATAK,jKr,GASY_TGL)
	RETURN .f.
ENDIF	

AlamatAk=ALLTRIM(Alamatnya('ATP'))		
IF EMPTY(ALAMATAK)
	RETURN .f.
ENDIF
IF !BUKADBF(.F.,'TP_MST',ALAMATAK,'1',GASY_TGL)
	RETURN .f.
ENDIF
	
IF !BUKADBF(.F.,'TP_KRT',ALAMATAK,'1',GASY_TGL)
	RETURN .f.
ENDIF
RETURN .T.

ELSE

mTgl=DATE()

DO FORM Libs\Tglproses WITH 'Transaksi Per Tanggal' TO mTgl
IF EMPTY(mTgl)
	RETURN .F.
ENDIF
Gasy_Tgl=mTgl

TGLHARIAN=mTgl
AlamatAA=ALLTRIM(Alamatnya('ADA'))

AlamatAk=ALLTRIM(Alamatnya('AAK'))
IF EMPTY(ALAMATAK)
	RETURN .F.
ENDIF
AlamatDP=ALLTRIM(Alamatnya('ADP'))
IF EMPTY(ALAMATDP)
	RETURN .F.
ENDIF
AlamatKR=ALLTRIM(Alamatnya('AKR'+jKr))
IF EMPTY(ALAMATKR)
	RETURN .F.
ENDIF
AlamatTB=ALLTRIM(Alamatnya('ATB'))
IF EMPTY(ALAMATTB)
	RETURN .F.
ENDIF

AlamatTP=ALLTRIM(Alamatnya('ATP'))
IF EMPTY(ALAMATTP)
	RETURN .F.
ENDIF

CJHARI=ALAMATAK+"DTAKH\C"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(CJHARI+'.DBF') OR PCOUNT()=3
	Reindeks('CJHARIAN','',AlamatAK,GASY_TGL,1)
ENDIF
	
IF !Buka(.f.,(CJHARI),'CJHARIAN',(CJHARI))
	RETURN .F.
ENDIF

GJHARI=ALAMATAK+"DTAKH\G"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(GJHARI+'.DBF') OR PCOUNT()=3
	Reindeks('GJHARIAN','',AlamatAK,GASY_TGL,1)
ENDIF
IF !Buka(.f.,(GJHARI),'GJHARIAN',(GJHARI))
	RETURN .F.
ENDIF

DPTRSH=ALAMATDP+"DTDPH\D"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)	
IF !FILE(DPTRSH+'.DBF') OR PCOUNT()=3
	Reindeks('DP_TRS_H','',AlamatDP,GASY_TGL,1)
ENDIF
IF !Buka(.f.,(DPTRSH),'DP_TRS_H')
	RETURN .F.
ENDIF

KRRLSH=ALAMATKR+"DTKRH"+jKR+"\R"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(KRRLSH+'.DBF') OR PCOUNT()=3
	Reindeks('KR_RLS_H',jKr,AlamatKR,GASY_TGL,1)
ENDIF
IF !Buka(.f.,(KRRLSH),'KR_RLS_H')
	RETURN .F.
ENDIF

KRTRSH=ALAMATKR+"DTKRH"+jKr+"\A"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(KRTRSH+'.DBF') OR PCOUNT()=3
	Reindeks('KR_TRS_H',jKr,AlamatKR,GASY_TGL,1)
ENDIF
IF !Buka(.f.,(KRTRSH),'KR_TRS_H')
	RETURN .F.
ENDIF

KRTRSH=ALAMATKR+"DTKRH"+jKr+"\A"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(KRTRSH+'.DBF') OR PCOUNT()=3
	Reindeks('KR_RCS_H',jKr,AlamatKR,GASY_TGL,1)
ENDIF
IF !Buka(.f.,(KRTRSH),'KR_RCS_H')
	RETURN .F.
ENDIF

TBTRSH=ALAMATTB+"DTTBHA\B"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(TBTRSH+'.DBF') OR PCOUNT()=3
	Reindeks('TB_TRS_H','A',AlamatTB,GASY_TGL,1)
ENDIF
IF !Buka(.f.,(TBTRSH),'TB_TRS_H')
	RETURN .F.
ENDIF

TPTRSH=ALAMATTP+"DTTPH1\P"+RIGHT(DTOS(mTGL),2)+GS_NTOC(mTGL)+LEFT(DTOS(MTGL),4)
IF !FILE(TPTRSH+'.DBF') OR PCOUNT()=3
	Reindeks('TP_TRS_H','1',AlamatTP,GASY_TGL,1)
ENDIF

IF !Buka(.f.,(TPTRSH),'TP_TRS_H')
	RETURN .F.
ENDIF
	
IF !DN_MST(.F.)
	RETURN .F.
ENDIF	
IF !BUKADBF(.F.,'AK_MST',ALAMATAK,'',GASY_TGL)
	RETURN .f.
ENDIF		
IF !BUKADBF(.F.,'DP_MST',ALAMATDP,'',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DP_BNG',ALAMATDP,'',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'TB_MST',ALAMATTB,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'TB_SLD',ALAMATTB,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'TB_KRT',ALAMATTB,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DA_MST',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DA_SLD',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'DH_KRT',ALAMATAA,'A',GASY_TGL)
	RETURN .f.
ENDIF	

IF !BUKADBF(.F.,'KR_MST',ALAMATKR,jKr,GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'KR_JAM',ALAMATKR,jKr,GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'KR_TRS',ALAMATKR,jKr,GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'KR_RCS',ALAMATKR,jKr,GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'TP_MST',ALAMATTP,'1',GASY_TGL)
	RETURN .f.
ENDIF	
IF !BUKADBF(.F.,'TP_KRT',ALAMATTP,'1',GASY_TGL)
	RETURN .f.
ENDIF
RETURN .T.
ENDIF
ENDFUNC

Sloka 11 Sarasamuccaya

Teks Sloka

Sloka kesebelas dari Sarasamuccaya membahas pentingnya pengampunan dan bagaimana kebajikan ini dapat menyembuhkan dan memperkuat hubungan. Berikut adalah terjemahan dari Sloka 11:

"Orang yang bijaksana hendaknya mempraktikkan pengampunan, seperti pohon yang tetap memberikan naungan meskipun dilempari batu. Dengan pengampunan, ia dapat menghapus dendam dan membangun kembali kedamaian dalam dirinya dan dengan orang lain."

Penjelasan

Sloka ini menekankan bahwa pengampunan adalah kekuatan yang dapat menyembuhkan luka emosional dan memperkuat hubungan yang rapuh. Dalam perumpamaan ini, pengampunan diibaratkan sebagai pohon yang tetap memberikan naungan meskipun diperlakukan buruk. Ini menggambarkan bahwa dengan mempraktikkan pengampunan, kita dapat mengatasi rasa sakit dan dendam, serta membuka jalan menuju rekonsiliasi dan kedamaian.

Pengampunan bukan berarti melupakan atau membenarkan kesalahan, tetapi merupakan keputusan untuk melepaskan kemarahan dan kebencian yang bisa merusak diri sendiri dan hubungan dengan orang lain. Dengan pengampunan, kita dapat membebaskan diri dari beban emosi negatif dan menciptakan ruang untuk cinta dan pemulihan.

Relevansi

Dalam dunia yang sering kali dipenuhi dengan konflik dan perpecahan, pesan dari sloka ini sangat relevan. Pengampunan menjadi salah satu cara untuk memutus siklus kebencian dan membangun masyarakat yang lebih damai dan harmonis. Dengan memaafkan, kita dapat mengurangi ketegangan dan menyembuhkan hubungan yang rusak.

Pengampunan juga memiliki manfaat kesehatan emosional yang signifikan. Penelitian menunjukkan bahwa orang yang mempraktikkan pengampunan memiliki tingkat stres yang lebih rendah dan kesejahteraan emosional yang lebih baik. Dengan melepaskan kebencian dan dendam, kita dapat meningkatkan kualitas hidup kita sendiri dan orang lain.

Dengan menerapkan ajaran ini, kita dapat menciptakan lingkungan yang lebih inklusif dan suportif, di mana setiap individu merasa dihargai dan diterima. Pengampunan yang disertai dengan kebijaksanaan dan kebajikan dapat membawa kita menuju kehidupan yang lebih damai dan memuaskan.

SARASAMUSCAYA - 011 - 103