Code Program

	ADMIN - REFRESH
GASY Script

LOCAL mDb, mKr, mDb1, mKr1, mTgl1, mTgl2, ALAMATAK
ALAMATAK=ALAMATNYA('AAK')
IF EMPTY(ALAMATAK)
	IniPesan('Cek Alamat:'+CHR(13)+'Alamat data akuntansi tidak ditemukan')
	RETURN
ENDIF
BUKA(.T.,ALAMATAK+"GJHARIAN","GJHARIAN",ALAMATAK+"GJHARIAN")
BUKA(.T.,ALAMATAK+"CJHARIAN","CJHARIAN",ALAMATAK+"CJHARIAN")
BUKA(.T.,ALAMATAK+"BBHARIAN","AK_BBH",ALAMATAK+"BBHARIAN")
If !Used("CJHARIAN") Or !Used("GJHARIAN") Or !Used("AK_BBH")
	CLOSE TABLES ALL
	Return
ENDIF

Select CJHARIAN
STORE 0 TO mDb, mKr
GO TOP
MTGL1=TANGGAL
DO WHILE NOT EOF()
	mDb=mDb+IIF(D_K="D",NILAI,0)
	mKr=mKr+IIF(D_K="K",NILAI,0)
	SKIP
ENDDO
IF mDb<>mKr
	Tunggu("Jurnal Kas Harian Tidak Seimbang!",1,5)
	RETURN
ENDIF

SELECT GJHARIAN
STORE 0 TO mDb1, mKr1
GO TOP
MTGL2=TANGGAL
DO WHILE NOT EOF()
	mDb1=mDb1+IIF(D_K="D",NILAI,0)
	mKr1=mKr1+IIF(D_K="K",NILAI,0)
	SKIP
ENDDO
IF mDb1<>mKr1
	Tunggu("Jurnal Non Kas Harian Tidak Seimbang!",1,5)
	RETURN
ENDIF

IF mDb+mKr>0 AND mDb1+mKr1>0
	IF mTgl1<>mTgl2
		Tunggu("Tanggal Transaksi Kas dan Non Kas Tidak Sama",1,5)
		RETURN
	ENDIF
ENDIF
IF mDb+mKr+mDb1+mKr1=0
	Tunggu("Data harian kosong",1,5)
	Return
ENDIF

Tunggu("Pengecekan keseimbangan saldo mutasi",1)
mTgl=MAX(mTgl1,mTgl2)
Gasy_Tgl=mTgl
mFILEDBF=ALAMATAK+"AKM_"+STR(YEAR(mTGL),4)
mFILEKEY1=ALAMATAK+"AK1_"+STR(YEAR(mTGL),4)
mFILEKEY2=ALAMATAK+"AK2_"+STR(YEAR(mTGL),4)
mFILEKEY3=ALAMATAK+"AK3_"+STR(YEAR(mTGL),4)
BUKA(.T.,mFILEDBF,"AK_MST",mFILEKEY1,mFILEKEY2,mFILEKEY3)

mFILEDBF=ALAMATAK+"BB_"+GS_NTOC(mTGL)+STR(YEAR(mTGL),4)
BUKA(.T.,mFILEDBF,"AK_BBB",mFILEDBF)

mFILEDBF=ALAMATAK+"GJ_"+GS_NTOC(mTGL)+STR(YEAR(mTGL),4)
BUKA(.T.,mFILEDBF,"AK_GJB")

MFILEDBF=ALAMATAK+"CJ_"+GS_NTOC(mTGL)+STR(YEAR(mTGL),4)
BUKA(.T.,mFILEDBF,"AK_CJB")

If !Used("AK_MST") Or !Used("AK_BBB") Or Not Used("AK_GJB") Or !Used("AK_CJB")
	Return
Endif

SELECT AK_MST
mDBBLI="DBBLI"+RIGHT("00"+ALLTRIM(STR(MONTH(Gasy_TGL))),2)
mKRBLI="KRBLI"+RIGHT("00"+ALLTRIM(STR(MONTH(Gasy_TGL))),2)

Tunggu("Posting data harian",1)
GO top
DO WHILE !EOF()
	REPLACE &mDbbli WITH 0, &mKrBli WITH 0
	SKIP
ENDDO
Tunggu("Posting data harian",100)
SELECT AK_CJB
APPEND FROM (ALAMATAK+"CJHARIAN") FOR NILAI>0 AND !EMPTY(NOPER)
FLUSH
SELECT AK_GJB
APPEND FROM (ALAMATAK+"GJHARIAN") FOR NILAI>0 AND !EMPTY(NOPER)
FLUSH

SELECT AK_BBB
APPEND FROM (ALAMATAK+"CJHARIAN") FOR NILAI>0 AND !EMPTY(NOPER)
APPEND FROM (ALAMATAK+"GJHARIAN") FOR NILAI>0 AND !EMPTY(NOPER)
FLUSH

SELECT AK_BBB
mRekord=RECCOUNT()
mMulai=0
GO TOP
DO WHILE NOT EOF()
	mMulai=mMulai+1
	Tunggu('Proses Posting'+CHR(13)+'Nomer: '+Noper,mMulai/mRekord*100)		
	mNILAID=IIF(D_K="D",NILAI,0)
	mNILAIK=IIF(D_K="K",NILAI,0)
	mNOPER=NOPER
	SELECT AK_MST
	SEEK mNOPER ORDER 1
	IF FOUND()		
		REPLACE &mDBBLI WITH &mDBBLI+mNILAID, &mKRBLI WITH &mKRBLI+mNILAIK
		LEV=LEPEL-1
		DO WHILE LEV>=0
   			UMU=UMUM
   			SEEK UMU
			REPLACE &mDBBLI WITH &mDBBLI+mNILAID, &mKRBLI WITH &mKRBLI+mNILAIK
   			LEV=LEPEL-1
   			IF LEV=0
      			EXIT
   			ENDIF
		ENDDO
	ENDIF
	SELECT AK_BBB
	SKIP
ENDDO
SELECT CJHARIAN
GO TOP
DO WHILE NOT EOF()
	Tunggu("Hapus data kas harian : "+Noper,RECNO()/RECCOUNT()*100)
	DELETE
	SKIP
ENDDO
PACK
FLUSH

SELECT GJHARIAN
GO TOP
DO WHILE NOT EOF()
	Tunggu("Hapus data kas harian : "+Noper,RECNO()/RECCOUNT()*100)
	DELETE
	SKIP
ENDDO
PACK
FLUSH

SELECT AK_BBH
GO TOP
DO WHILE NOT EOF()
	Tunggu("Hapus data kas buku besar harian : "+Noper,RECNO()/RECCOUNT()*100)
	DELETE
	SKIP
ENDDO
PACK
FLUSH
CLOSE TABLES ALL
Tunggu("Proses sudah selesai",100,0)
ENDPROC

Aspek Karma dalam Sarasamuccaya

Karma adalah salah satu konsep utama yang dibahas dalam teks Sarasamuccaya. Konsep ini menekankan pentingnya tindakan dalam kehidupan seseorang dan bagaimana tindakan tersebut mempengaruhi masa depan individu. Berikut adalah beberapa aspek penting dari karma sebagaimana diuraikan dalam Sarasamuccaya:

Pengertian Karma

Dalam konteks Sarasamuccaya, karma merujuk pada setiap tindakan yang dilakukan oleh individu, baik secara fisik, verbal, maupun mental. Tindakan ini memiliki konsekuensi yang sesuai, baik dalam kehidupan sekarang maupun di kehidupan mendatang. Oleh karena itu, perhatian terhadap jenis tindakan yang dilakukan sangat ditekankan.

Jenis-Jenis Karma

Sarasamuccaya mengajarkan bahwa karma dapat dibedakan menjadi beberapa jenis, antara lain:

Karma Baik (Sukarma): Tindakan yang dilakukan dengan niat baik dan penuh kebajikan, yang menghasilkan buah yang positif bagi pelaku dan lingkungan sekitarnya.
Karma Buruk (Dushkarma): Tindakan yang dilakukan dengan niat buruk atau tanpa mempertimbangkan akibatnya, yang dapat membawa dampak negatif bagi pelaku maupun orang lain.

Prinsip Hukum Karma

Salah satu prinsip utama dari hukum karma yang dijelaskan dalam Sarasamuccaya adalah bahwa setiap tindakan membawa dampak yang setara. Ini dikenal dengan istilah hukum sebab-akibat. Prinsip ini mengajarkan bahwa apa yang kita tanam, itulah yang akan kita tuai.

Signifikansi Karma dalam Kehidupan Sehari-Hari

Karma mengajarkan pentingnya kesadaran dalam bertindak. Dalam kehidupan sehari-hari, Sarasamuccaya mendorong individu untuk:

Berperilaku Etis: Memilih tindakan yang benar dan adil dalam setiap situasi.
Menghindari Tindakan Negatif: Menjauhkan diri dari tindakan yang dapat menimbulkan penderitaan atau kerugian bagi diri sendiri dan orang lain.
Menumbuhkan Kebajikan: Mengembangkan sikap dan tindakan yang bermanfaat bagi diri sendiri dan masyarakat.

Dengan menerapkan prinsip-prinsip karma sebagaimana diajarkan dalam Sarasamuccaya, individu diharapkan dapat menjalani kehidupan yang lebih harmonis dan seimbang, serta mencapai kebahagiaan sejati melalui tindakan yang bijaksana.

KARMA DALAM SARASAMUSCAYA - 61