Code Program

	ADMIN - REFRESH
GASY Script

PROCEDURE BUNYI(nKALI)
	SET BELL ON
	FOR NOM=1 TO nKALI
	?? CHR(7)
	NEXT
	SET BELL OFF
ENDPROC

FUNCTION DAFTAR
	PARAMETERS lJelas,Lkode,oNilai
	LOCAL HASIL
	HASIL=oNilai
	IF GASYKLAS()
		SELECT GASYKLAS
		SELECT KODE,KETERANGAN FROM GASYKLAS WHERE KLP==lKode ORDER BY KODE INTO CURSOR DAFTAR
		SELECT DAFTAR

		DEFINE POPUP Daftar FONT "Courier",8 PROMPT FIELD  ;
			ALLTRIM(KODE)+" "+ALLTRIM(KETERANGAN) SCROLL SHORTCUT TITLE ;
			"["+lKode+"] Daftar "+lJelas FROM MROW(),MCOL()
		ON SELECTION POPUP Daftar BAR()
	 
		ACTIVATE POPUP Daftar
		DEACTIVATE POPUP Daftar 

		SELECT Daftar
		IF BAR()>0
			GOTO BAR()
			HASIL=KODE
		ENDIF
		TUTUP("DAFTAR")
	ENDIF	
	RETURN HASIL
ENDPROC

FUNCTION DBBLIAK(nBULAN)
	LOCAL mDb
	mDb="AK_MST.DBBLI"+RIGHT('00'+LTRIM(STR(nBULAN,2)),2)
	RETURN &mDb
Endfunc

FUNCTION DN_MST(X11)
	IF !USED('DN_MST')
		DATAFOTO=ALLTRIM(ALAMATNYA("ADF"))
		IF !EMPTY(DATAFOTO)
			BUKA(X11,DATAFOTO+'DN_MST','DN_MST',DATAFOTO+'DN_MST1',DATAFOTO+'DN_MST2')
		ENDIF
	ENDIF
	RETURN (USED("DN_MST"))
ENDFUNC

Function EndOfMonth
Parameters dTanggal
Do Case 
	Case Month(dTanggal)=4 Or Month(dTanggal)=6 Or Month(dTanggal)=9 Or Month(dTanggal)=11
		Return Date(Year(dTanggal),Month(dTanggal),30)
	Case Month(dTanggal)=2
		If Year(dTanggal)%4=0
			Return Date(Year(dTanggal),Month(dTanggal),29)
			Else
			Return Date(Year(dTanggal),Month(dTanggal),28)
		Endif
	Otherwise
		Return Date(Year(dTanggal),Month(dTanggal),31)
Endcase
ENDFUNC

FUNCTION FIELDGET
	PARAMETERS nFIELD
	LOCAL mKODE
	mKODE=FIELD(nFIELD)
	RETURN &mKODE
ENDFUNC

FUNCTION FIELDPUT
	PARAMETERS nFIELD,cFIELD
	LOCAL mKODE
	mKODE=FIELD(nFIELD)
	REPLACE &mKODE WITH cFIELD
	RETURN
ENDFUNC

FUNCTION gLookup(lJudul,oNilai,ccCursor,nKolom,nKembali)
	LOCAL HASIL
	HASIL=oNilai
	SELECT (ccCursor)
	IF EOF()
		Tutup(ccCursor)
		RETURN oNilai
	ENDIF
	IF nKolom>0	
		DEFINE POPUP Daftar FROM MROW(),MCOL() TO MROW()+10,MCOL()+nKolom FONT "Courier",8 PROMPT FIELD  ;
			FIELDGET(1)+" "+ALLTRIM(FIELDGET(2)) SCROLL SHORTCUT TITLE lJudul
		ELSE
		DEFINE POPUP Daftar FONT "Courier",8 PROMPT FIELD  ;
			FIELDGET(1)+" "+ALLTRIM(FIELDGET(2)) SCROLL SHORTCUT TITLE lJudul ;
			 RELATIVE FROM MROW(),MCOL() 
	ENDIF
			
	ON SELECTION POPUP Daftar BAR()
	ACTIVATE POPUP Daftar
	DEACTIVATE POPUP Daftar
	SELECT (ccCursor)
	IF BAR()>0
		GOTO BAR()
		mSERI=IIF(PCOUNT()=5,FIELDGET(1),"")
		HASIL=FIELDGET(IIF(PCOUNT()=5,nKembali,1))
	ENDIF
	TUTUP(ccCursor)
	RETURN HASIL
ENDFUNC

Function Kunci_Fi(Dly)
	Local Dly1
	dly=IIF(PCOUNT()=0,5,dly)
	Dly=Dly*100
	Dly1=Dly
	DO Whil .T.
	   DO Whil Dly>0  AND INKEY()<>27
	      If Flock()
	         Return(.T.)
	      Endif
	      Dly=Dly-1
	   ENDDO
	   IF MESSAGEBOX('User lain sedang menggunakan secara Exclusive',5,'File Locking')=2
	      RETURN (.F.)
	   ENDIF      
	   Dly=Dly1
	   Loop
	EndDO
	Return(.F.)
ENDFUNC

Function Kunci_Rc(Dly)
	Local Dly1, OLDW
	dly=IIF(PCOUNT()=0,5,dly)
	Dly=Dly*100
	Dly1=Dly
	DO While .T.
	   DO Whil Dly>0 AND INKEY()<>27
	      If Rlock()
	         Return(.T.)
	      Endif
	      Dly=Dly-1
	   ENDDO   
	   IF MESSAGEBOX('User lain sedang menggunakan secara Exclusive',5,'Record Locking')=2
	      RETURN (.F.)
	   ENDIF      

	   Dly=Dly1
	   Loop
	Enddo
	Return(.F.)
ENDFUNC

FUNCTION LAMA_BLN(xTGLT,xTGLB)
	RETURN IIF(xTGLT>xTGLB,12*(YEAR(xTGLT)-YEAR(xTGLB))+MONTH(xTGLT)-MONTH(xTGLB),0)
ENDFUNC

PROCEDURE MY_ERROR
	PARAMETERS gnError, gcMess, gcProg, gnLineNo
	LOCAL cMESS, mNilai 
	cMESS='Kode: ' + LTRIM(STR(gnError))+CHR(13)+;
		  'Jenis: ' + gcMess+CHR(13)+;
		  'Prosedur: ' + gcProg+CHR(13)+;
		  'Nomor Baris: '+ LTRIM(STR(gnLineNo))+CHR(13)

	DO CASE 
 		case gnError=152 and occurs('KALKULATOR',cMess)>0
 			MESSAGEBOX('ISIAN BELUM LENGKAP',0+48,'GASY')
 			RETURN
 			
		CASE gnError=1705
			IF MESSAGEBOX(cMess,5,'File tidak bisa dibuka bersama-sama!!')=4
				RETRY			
			ENDIF		
			RETURN
		CASE gnError=1771
			IF MESSAGEBOX(cMess,5,'Pilihan obyek ini sudah diaktifkan')=4
				RETRY
			ENDIF		
			RETURN		
		CASE gnError=1
			IF MESSAGEBOX(cMess,5+48,'File tidak ditemukan')=4
				RETRY
			ENDIF		
			RETURN
		
		OTHERWISE
		
		mNilai=MESSAGEBOX(cMess,2,'Gagal Proses')

		DO CASE
			CASE mNilai=4
			RETRY		
			
			CASE mNilai=3
			RETURN TO MASTER
			
			CASE mNilai=5
			RETURN
			
		ENDCASE
	ENDCASE
ENDPROC

SET TALK OFF
SET EXCLUSIVE OFF
SET STATUS BAR OFF
SET DELETED ON
SET SAFETY OFF
SET CARRY OFF
SET CONFIRM	OFF
SET CENTURY ON
SET COMPATIBLE DB4
SET	DATE ITALIAN
SET EXACT OFF
SET SYSFORMATS ON
SET OLEOBJECT ON
SET SYSMENU SAVE
SET SYSMENU TO
SET PATH TO LIBS

PUBLIC Gasy_Tgl, MPHOTO, MPHOTOS, DADIMENU, USERAKTIF, ALAMATDL, ;
		USERAKTIF, Ret_Val, OLDTABEL, NEWTABEL, xxJudul, MSERI,;
		Tengah, oTool, oGasy, JURNALX, DATAFOTO, MUNDUR,;
		CN_CLIENT, CA_CLIENT, CK_CLIENT, TGLHARIAN, ALAMATLBI, JENISKREDITNYA

lcOnShutdown="Selesai()"
ON SHUTDOWN &lcOnShutdown

ON ERROR DO MY_ERROR WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()

USERAKTIF=.F.
GASY_TGL=DATE()
MPHOTO=""
MPHOTOS=""
DADIMENU=""
Ret_Val=""
xxJudul=""
JURNALX=""
Tengah=.F.
IF FILE('Tengah.Txt')
   Tengah=.T.
ENDIF
Mundur=0
JENISKREDITNYA='Umum'
TGLHARIAN=CTOD("")

CN_CLIENT='Gasy Software'
CA_CLIENT='Jl.Tukad Buana II No.18 Padangsambian-Kaja'
CK_CLIENT='Denpasar'

DIMENSION OLDTABEL(1,2)
OLDTABEL[1,1]="XX00XX00"
OLDTABEL[1,2]=1
AUSED(OLDTABEL)

MSERI="A"
DIMENSION NEWTABEL(1,2)
NEWTABEL[1,1]="ADIKETO"
NEWTABEL[1,2]=1
AUSED(NEWTABEL)
IF !FILE('ALAMAT.DBF')
	CLOSE ALL
	RETURN
ENDIF
	
IF !Buka(.f.,'Alamat','Alamat')
	CLOSE ALL
	RETURN
ENDIF

SELECT ALAMAT
LOCATE FOR KLP=='ADI'
ALAMATDL=IIF(FOUND(),ALLTRIM(ALAMAT),'DATA_SIS\')
LOCATE FOR KLP=='ADF'
DATAFOTO=IIF(FOUND(),ALLTRIM(ALAMAT),'DTFOTO\')
LOCATE FOR KLP=='LBI'
ALAMATLBI=IIF(FOUND(),ALLTRIM(ALAMAT),'LAPBULBI\')
TUTUP("ALAMAT")
IF FILE('GasyHlp.Chm')
	SET HELP TO GasyHlp.Chm
ENDIF

DO FORM LOGO
READ EVENTS
IF EMPTY(MPHOTO)
	CLOSE TABLES ALL
	RETURN
ENDIF
_Screen.WindowState= 2
_Screen.BackColor=32768
_Screen.AddProperty('XOffset')
_Screen.AddProperty('YOffset')
_Screen.Show
_Screen.Icon='GASY.ICO'
IF FILE(ALAMATDL+'KLIENT.dbf')
	IF BUKA(.F.,ALAMATDL+'KLIENT','KLIENT')
		SELECT KLIENT
		GO Top
		CN_CLIENT=ALLTRIM(NAMA)
		CA_CLIENT=ALLTRIM(ALAMAT)
		CK_CLIENT=ALLTRIM(KOTA)
	ENDIF
	TUTUP('KLIENT')
ENDIF
IF !FILE(ALAMATDL+'GASYKLAS.DBF')
	Reindeks('GASYKLAS','',ALAMATDL,DATE())
ENDIF
TUTUP('GASYKLAS')
MenuGasy(MPHOTO)
READ Events
CLOSE TABLES ALL
CLEAR ALL
CLEAR EVENTS

Sloka 17 Sarasamuccaya

Teks Sloka

Sloka ketujuh belas dari Sarasamuccaya menyoroti pentingnya pengabdian dan bagaimana sikap ini dapat memperkaya kehidupan spiritual dan emosional seseorang. Berikut adalah terjemahan dari Sloka 17:

"Orang yang bijaksana hendaknya mengabdikan diri kepada sesuatu yang lebih besar dari dirinya, seperti sungai yang mengalir menuju laut. Dengan pengabdian, ia dapat menemukan makna sejati dan kedamaian dalam hidupnya."

Penjelasan

Sloka ini mengajarkan bahwa pengabdian adalah jalan menuju pemenuhan dan kedamaian batin. Dalam perumpamaan ini, pengabdian diibaratkan sebagai sungai yang, dalam perjalanannya, bergabung dengan laut, memberikan gambaran tentang bagaimana pengabdian mengarahkan seseorang menuju tujuan yang lebih besar dan lebih mulia. Sikap ini mengajarkan kita untuk merendahkan hati dan menempatkan kepentingan yang lebih besar di atas kepentingan pribadi.

Pengabdian dapat mengambil banyak bentuk, seperti dedikasi terhadap keluarga, masyarakat, atau tujuan spiritual. Dengan mengabdikan diri, seseorang dapat melampaui ego dan menemukan kedamaian serta makna yang lebih dalam dalam hidupnya. Ini juga memungkinkan seseorang untuk merasakan keterhubungan yang lebih besar dengan orang lain dan alam semesta.

Relevansi

Dalam dunia modern yang sering kali sibuk dengan kepentingan individu, pesan dari sloka ini sangat relevan. Pengabdian mengajarkan kita untuk melampaui diri sendiri dan berkontribusi pada kebaikan bersama. Dengan mengabdikan diri pada sesuatu yang lebih besar, kita dapat menemukan kebahagiaan yang lebih sejati dan meningkatkan kualitas hidup kita.

Pengabdian juga memiliki manfaat psikologis dan emosional yang signifikan. Dengan memberikan diri kita kepada suatu tujuan yang lebih besar, kita dapat merasakan perasaan pencapaian dan kepuasan yang mendalam. Ini juga membantu kita untuk mengembangkan empati dan kasih sayang, memperkuat hubungan kita dengan orang lain.

Dengan menerapkan ajaran ini, kita dapat membangun kehidupan yang lebih berarti dan memuaskan, serta memberikan dampak positif dalam komunitas dan dunia kita. Pengabdian yang disertai dengan kebijaksanaan dan kebajikan dapat membawa kita menuju kehidupan yang lebih harmonis dan berkelanjutan.

FUNCTION TUTUP
	Parameters PP1,PP2,PP3,PP4,PP5,PP6,PP7,PP8,PP9
	If Pcount()>=1
		If Used(PP1)
			Select (PP1)
			Use
		Endif
	Endif
	If Pcount()>=2
		If Used(PP2)
			Select (PP2)
			Use
		Endif
	Endif
	If Pcount()>=3
		If Used(PP3)
			Select (PP3)
			Use
		Endif
	Endif
	If Pcount()>=4
		If Used(PP4)
			Select (PP4)
			Use
		Endif
	Endif
	If Pcount()>=5
		If Used(PP5)
			Select (PP5)
			Use
		Endif
	Endif
	If Pcount()>=6
		If Used(PP6)
			Select (PP6)
			Use
		Endif
	Endif
	If Pcount()>=7
		If Used(PP7)
			Select (PP7)
			Use
		Endif
	Endif
	If Pcount()>=8
		If Used(PP8)
			Select (PP8)
			Use
		Endif
	Endif
	If Pcount()>=9
		If Used(PP9)
			Select (PP9)
			Use
		Endif
	Endif
ENDFUNC

PROCEDURE TUTUPDBF()
	AUSED(NEWTABEL)
	FOR NOM=1 TO ALEN(NEWTABEL,1)
		IF ASCAN(OLDTABEL,NEWTABEL[NOM,1],1,ALEN(OLDTABEL,1),1,8)=0
			TUTUP(NEWTABEL[NOM,1])
		ENDIF
	ENDFOR
ENDPROC

BUNYI - 38

DAFTAR - 37

DBBLIAK - 46

DN_MST - 48

EndOfMonth - 43

EOM - 42

FIELDGET - 44

FIELDPUT - 45

gLookup - 49

Kunci_Fi - 40

Kunci_Rc - 41

LAMA_BLN - 32

LASTDAYOM - 33

MY_ERROR - 90

SARASAMUSCAYA - 017 - 6

TUTUP - 34

TUTUPDBF - 35