Code Program

	ADMIN - REFRESH
GASY Script
PROCEDURE PROINDEK
	PUBLIC oGasyIndek
	oGasyIndek=CREATEOBJECT("oIndek")
	oGasyIndek.Show
ENDPROC

DEFINE CLASS oIndek AS form
	MinHeight=508
	MinWidth=792
	Autocenter=.t.
	Caption="Indek/Reindeks File"
	Top = 0
    Left = 0
   	MaxHeight = 508
	MaxWidth = 792
	DoCreate = .T.
	Closable = .T.
	ControlBox = .T.
	TitleBar = 1
	MaxButton= .F.
	MinButton= .F.	
	Icon = "bmps\ico\gasy.ico"
	WindowType = 1
	WindowState = 0
	BackColor = RGB(144,176,168)
	Name = "_form"
		
	ADD OBJECT cntak AS container WITH Top = 20+ 55, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 2, Name = "cntAk"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 55+5, Left = 35+6, Height = 15, Width = 77, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Akuntansi", Name = "Checkak"
	
	ADD OBJECT cntak1 AS container WITH Top = 20+ 80, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 3, Name = "cntAk1"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 85, Left = 35+6, Height = 15, Width = 114, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Rekening Akuntansi", Name = "Checkak1"

	ADD OBJECT cntak2 AS container WITH Top = 20+ 105, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 4, Name = "cntAk2"
	ADD OBJECT checkak21 AS checkbox WITH Top = 20+ 105+5, Left = 35+6, Height = 15, Width = 128, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Sandi Mutasi Transaksi", Name = "Checkak2"

	ADD OBJECT cntak3 AS container WITH Top = 20+ 130, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 8, Name = "cntAk3"
	ADD OBJECT checkak31 AS checkbox WITH Top = 20+ 130+5, Left = 35+6, Height = 15, Width = 86, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Standar Jurnal", Name = "Checkak3"

	ADD OBJECT cntak4 AS container WITH Top = 20+ 155, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 10, Name = "cntAk4"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 155+5, Left = 35+6, Height = 15, Width = 53, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Neraca", Name = "Checkak4"

	ADD OBJECT cntak5 AS container WITH Top = 20+ 180, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 12, Name = "cntAk5"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 185, Left = 35+6, Height = 15, Width = 67, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Rugi-Laba", Name = "Checkak5"

	ADD OBJECT cntak6 AS container WITH Top = 20+ 205, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 14, Name = "cntAk6"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 205+5, Left = 35+6, Height = 15, Width = 107, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Buku Besar Harian", Name = "Checkak6"

	ADD OBJECT cntak7 AS container WITH Top=251,Left=35,Width=153,Height=25,SpecialEffect=0,;
		TabIndex=16, Name="cntAk7"
	ADD OBJECT check1 AS checkbox WITH Top=251+5,Left=35+6,Height=15,Width=115,FontName="MS Sans Serif",;
		AutoSize=.T.,Caption = "Buku Besar Bulanan",Name = "Checkak7"
		
	ADD OBJECT cntak8 AS container WITH Top = 20+ 256, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 18, Name = "cntAk8"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 256+5, Left = 35+6, Height = 15, Width = 142, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Neraca Percobaan Harian", Name = "Checkak8"

	ADD OBJECT cntak9 AS container WITH Top = 20+ 281, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 20, Name = "cntAk9"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 281+5, Left = 35+6, Height = 15, Width = 101, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Jurnal Kas Harian", Name = "Checkak9"
		
	ADD OBJECT cntak10 AS container WITH Top = 20+ 306, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 22, Name = "cntAk10"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 306+5, Left = 35+6, Height = 15, Width = 109, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Jurnal Kas Bulanan", Name = "Checkak10"

	ADD OBJECT cntak11 AS container WITH Top = 20+ 331, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 24, Name = "cntAk11"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 331+5, Left = 35+6, Height = 15, Width = 113, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Jurnal Umum Harian", Name = "Checkak11"

	ADD OBJECT cntak12 AS container WITH Top = 20+ 356, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 26, Name = "cntAk12"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 356+5, Left = 35+6, Height = 15, Width = 121, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Jurnal Umum Bulanan", Name = "Checkak12"

	ADD OBJECT cntak13 AS container WITH Top = 20+ 381, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 28, Name = "cntAk13"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 381+5, Left = 35+6, Height = 15, Width = 110, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Interface Akuntansi", Name = "Checkak13"

	ADD OBJECT cntak14 AS container WITH Top = 20+ 406, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 30, Name = "cntAk14"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 406+5,	Left = 35+6, Height = 15, Width = 95, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Laporan Khusus", Name = "Checkak14"

	ADD OBJECT cntak15 AS container WITH Top = 20+ 431, Left = 35, Width = 153, Height = 25, SpecialEffect = 0, ;
		TabIndex = 30, Name = "cntAk15"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 431+5, Left = 35+6, Height = 15, Width = 97, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Rasio Keuangan", Name = "Checkak15"


	ADD OBJECT cntkr AS container WITH Top = 20+ 55, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 32, Name = "cntKr"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 55+5, Left = 197+6, Height = 15, Width = 92, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Kredit Umum", Name = "Checkkr"

	ADD OBJECT cntkr1 AS container WITH Top = 20+ 80, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 34, Name = "cntKr1"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 85, Left = 197+6, Height = 15, Width = 96, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Master Nasabah", Name = "Checkkr1"

	ADD OBJECT cntkr2 AS container WITH Top = 20+ 107, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 36, Name = "cntKr2"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 107+5, Left = 197+6, Height = 15, Width = 116, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Jaminan/Catatan PK", Name = "Checkkr2"

	ADD OBJECT cntkr3 AS container WITH Top = 20+ 135, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 38, Name = "cntKr3"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 135+5, Left = 197+6, Height = 15, Width = 94, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Realisasi Harian", Name = "Checkkr3"

	ADD OBJECT cntkr4 AS container WITH Top = 20+ 164, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 40, Name = "cntKr4"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 164+5, Left = 197+6, Height = 15, Width = 97, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Angsuran Harian", Name = "Checkkr4"

	ADD OBJECT cntkr5 AS container WITH Top = 20+ 194, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 42, Name = "cntKr5"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 194+5, Left = 197+6, Height = 15, Width = 101, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Mutasi Harian RC", Name = "Checkkr5"

	ADD OBJECT cntkr6 AS container WITH Top = 20+ 225, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 44, Name = "cntKr6"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 225+5, Left = 197+6, Height = 15, Width = 102, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Realisasi Bulanan", Name = "Checkkr6"

	ADD OBJECT cntkr7 AS container WITH Top = 20+ 257, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 46, Name = "cntKr7"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 257+5, Left = 197+6, Height = 15, Width = 105, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Angsuran Bulanan", Name = "Checkkr7"

	ADD OBJECT cntkr8 AS container WITH Top = 20+ 291, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 48, Name = "cntKr8"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 291+5, Left = 197+6, Height = 15, Width = 109, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Mutasi Bulanan RC", Name = "Checkkr8"

	ADD OBJECT cntkr9 AS container WITH Top = 20+ 326, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 50, Name = "cntKr9"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 326+5, Left = 197+6, Height = 15, Width = 138, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Master Nasabah Bulanan", Name = "Checkkr9"

	ADD OBJECT cntkr10 AS container WITH Top = 20+ 361, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 52, Name = "cntKr10"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 361+5, Left = 197+6, Height = 15, Width = 100, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Historis Angsuran", Name = "Checkkr10"
		
	ADD OBJECT cntkr11 AS container WITH Top = 20+ 395, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 54, Name = "cntKr11"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 395+5, Left = 197+6, Height = 15, Width = 104, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Historis Mutasi RC", Name = "Checkkr11"

	ADD OBJECT cntkr12 AS container WITH Top = 20+ 431, Left = 197, Width = 152, Height = 25, SpecialEffect = 0, ;
		TabIndex = 56, Name = "cntKr12"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 431+5, Left = 197+6, Height = 15, Width = 98, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Anggaran Bunga", Name = "Checkkr12"

	ADD OBJECT cntdp AS container WITH Top = 20+ 55, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 58, Name = "cntDP"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 55+5, Left = 359+6, Height = 15, Width = 71, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Deposito", Name = "Checkdp"

	ADD OBJECT cntdp1 AS container WITH Top = 20+ 81, Left = 359, Width = 202, Height = 25,	SpecialEffect = 0, ;
		TabIndex = 60, 	Name = "cntDp1"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 81+5, Left = 359+6, Height = 15, Width = 141, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Master Nasabah Deposito", Name = "Checkdp1"

	ADD OBJECT cntdp2 AS container WITH Top = 20+ 106, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 62, Name = "cntDp2"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 106+5, Left = 359+6, Height = 15, Width = 140, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Anggaran Bunga Bulanan", Name = "Checkdp2"

	ADD OBJECT cntdp3 AS container WITH Top = 20+ 132, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 64, Name = "cntDp3"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 132+5, Left = 359+6, Height = 15, Width = 87, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Hutang Bunga", Name = "Checkdp3"

	ADD OBJECT cntdp4 AS container WITH Top = 20+ 157, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 66, Name = "cntDp4"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 157+5, Left = 359+6, Height = 15, Width = 98, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Transaksi Harian", Name = "Checkdp4"


	ADD OBJECT cntdp5 AS container WITH Top = 20+ 182, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 68, Name = "cntDp5"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 182+5, Left = 359+6, Height = 15, Width = 106, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Transaksi Bulanan", Name = "Checkdp5"

	ADD OBJECT cnttb AS container WITH Top = 20+ 213, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 70, Name = "cntTB"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 213+5, Left = 359+6, Height = 15, Width = 116, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Tabungan Umum", Name = "Checktb"

	ADD OBJECT cnttb1 AS container WITH Top = 20+ 238, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 72, Name = "cntTb1"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 238+5, Left = 359+6, Height = 15, Width = 96, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Master Nasabah", Name = "Checktb1"

	ADD OBJECT cnttb2 AS container WITH Top = 20+ 263, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 74, Name = "cntTb2"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 263+5, Left = 359+6, Height = 15, Width = 100, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Mutasi dan Saldo", Name = "Checktb2"

	ADD OBJECT cnttb3 AS container WITH Top = 20+ 289, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 76, Name = "cntTB3"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 289+5, Left = 359+6, Height = 15, Width = 118, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Kartu Kontrol/Historis", Name = "Checktb3"

	ADD OBJECT cnttb4 AS container WITH Top = 20+ 315, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 78, Name = "cntTb4"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 315+5, Left = 359+6, Height = 15, Width = 98, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Transaksi Harian", Name = "Checktb4"


	ADD OBJECT cnttp AS container WITH Top = 20+ 354, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 80, Name = "cntTP"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 354+5, Left = 359+6, Height = 15, Width = 128, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Tabungan Program", Name = "CheckTp"

	ADD OBJECT cnttp1 AS container WITH Top = 20+ 380, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 82, Name = "cntTp1"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 380+5, Left = 359+6, Height = 15, Width = 96, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Master Nasabah", Name = "CheckTp1"

	ADD OBJECT cnttp2 AS container WITH Top = 20+ 406, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 84, Name = "cntTp2"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 406+5, Left = 359+6, Height = 15, Width = 118, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Kartu Kontrol/Historis", Name = "Checktp2"

	ADD OBJECT cnttp3 AS container WITH Top = 20+ 431, Left = 359, Width = 202, Height = 25, SpecialEffect = 0, ;
		TabIndex = 86, Name = "cntTp3"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 431+5, Left = 359+6, Height = 15, Width = 98, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Transaksi Harian", Name = "Checktp3"


	ADD OBJECT cntstp AS container WITH Top = 20+ 55, Left = 572, Width = 184, Height = 25, SpecialEffect = 0, ;
		TabIndex = 88, Name = "cntStp"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 55+5, Left = 572+6, Height = 15, Width = 123, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Setup/Konfigurasi", Name = "Checkstp"

	ADD OBJECT cntstp1 AS container WITH Top = 20+ 81, Left = 572, Width = 184, Height = 25,SpecialEffect = 0,;
		TabIndex = 90, Name = "cntStp1"		
	ADD OBJECT check11 AS checkbox WITH Top = 20+ 81+5, Left = 572+6, Height = 15, Width = 59, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "File User", Name = "Checkstp1"		

	ADD OBJECT cntstp2 AS container WITH Top = 20+ 106,	Left = 572,	Width = 184,Height = 25,SpecialEffect = 0,;
		TabIndex = 92, Name = "cntStp2"
	ADD OBJECT check21 AS checkbox WITH Top = 20+ 106+5,Left = 572+6, Height = 15, Width = 102, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Interface Program", Name = "Checkstp2"

	ADD OBJECT cntstp3 AS container WITH Top = 20+ 131, Left = 572, Width = 184, Height = 25, SpecialEffect = 0, ;
		TabIndex = 94, Name = "cntStp3"
	ADD OBJECT check31 AS checkbox WITH Top = 20+ 131+5, Left = 572+6, Height = 15, Width = 102, FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Petunjuk Program", Name = "Checkstp3"

	ADD OBJECT cntstp4 AS container WITH Top = 20+ 156, Left = 572, Width = 184, Height = 25, SpecialEffect = 0, ;
		TabIndex = 96, Name = "cntStp4"
	ADD OBJECT check1 AS checkbox WITH Top = 20+ 156+5, Left = 572+6, Height = 15, Width = 158, FontBold = .T., FontName = "MS Sans Serif", ;
		AutoSize = .T., Caption = "Register Induk Nasabah", Name = "Checkstp4"

	ADD OBJECT cnttgl AS container WITH Top = 20+ 214, Left = 571, Width = 185, Height = 100, SpecialEffect = 0, ;
		TabIndex = 98, Name = "cntTgl"
	ADD OBJECT check1 AS checkbox WITH ;
		Top = 20+ 214+10, ;
		Left = 571+9, ;
		Height = 15, ;
		Width = 124, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Alamat File Sistem", ;
		Name = "CheckTgl"


	ADD OBJECT alamatfilesistem AS textbox WITH ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Enabled = .F., ;
		Height = 23, ;
		Left = 571+9, ;
		SelectOnEntry = .T., ;
		Top = 20+ 214+36, ;
		Width = 169, ;
		Name = "AlamatFileSistem"


	ADD OBJECT cmdrekam AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 20+ 214+7, ;
		Left = 571+139, ;
		Height = 23, ;
		Width = 39, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "\<Ok", ;
		VISIBLE=.F.,;
		ToolTipText = "Rekam perubahan alamat data sistem", ;
		Name = "cmdRekam"


	ADD OBJECT check2 AS checkbox WITH ;
		Top = 40, ;
		Left = 35, ;
		Height = 15, ;
		Width = 57, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Tanggal", ;
		Name = "Check2Tgl"


	ADD OBJECT tglfile AS textbox WITH ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Alignment = 3, ;
		Value = {}, ;
		Enabled = .F., ;
		Height = 23, ;
		Left = 100, ;
		SelectOnEntry = .T., ;
		ToolTipText = "Klik kanan untuk menampilkan kalender", ;
		Top = 40, ;
		Width = 85, ;
		Name = "TglFile"

	ADD OBJECT cmdproses AS commandbutton WITH Top = 20+ 355, Left = 571, Height = 23, Width = 185, FontBold = .T., FontName = "MS Sans Serif", ;
		Caption = "Proses Keseluruhan", Name = "cmdProses"

	ADD OBJECT cmdkembali AS commandbutton WITH Top = 20+ 433, Left = 571, Height = 23, Width = 185, FontBold = .T., FontName = "MS Sans Serif", ;
		Caption = "Exit", Name = "cmdKembali"


	PROCEDURE cntstp1.Click
		Reindeks('KR_USR','',ALAMATDL,GASY_TGL)
	ENDPROC


	PROCEDURE cntstp2.Click
		Reindeks('GASYKLAS','',ALAMATDL,GASY_TGL)
	ENDPROC


	PROCEDURE cntstp3.Click
		Reindeks('GASYHELP','',ALAMATDL,GASY_TGL)
	ENDPROC


	PROCEDURE cntstp4.Click
		Reindeks('DN_MST','',ALLTRIM(This.Parent.Checkstp4.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE checkstp4.Init
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT ALAMAT
			LOCATE FOR KLP="ADF"
			IF FOUND()
				This.ToolTipText=ALLTRIM(ALAMAT)
				ELSE
				This.ToolTipText=ALAMATDL+"DTRN\"
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			This.ToolTipText=ALAMATDL+"DTRN\"
		ENDIF
	ENDPROC


	PROCEDURE cntdp1.Click
		Reindeks('DP_MST','',ALLTRIM(This.Parent.Checkdp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntdp2.Click
		Reindeks('DP_BBI','',ALLTRIM(This.Parent.Checkdp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntdp3.Click
		Reindeks('DP_BNG','',ALLTRIM(This.Parent.Checkdp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntdp4.Click
		Reindeks('DP_TRS_H','',ALLTRIM(This.Parent.Checkdp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntdp5.Click
		Reindeks('DP_TRS_B','',ALLTRIM(This.Parent.Checkdp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntdp.Click
		FOR Nom=1 TO 5
			mPro="This.Parent.CntDP"+LTRIM(STR(Nom,2))+".Click"
			&mPro
		ENDFOR
	ENDPROC


	PROCEDURE checkdp.Init
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT ALAMAT
			LOCATE FOR KLP="ADP"
			IF FOUND()
				This.Caption=ALLTRIM(KETERANGAN)
				This.ToolTipText=ALLTRIM(ALAMAT)
				ELSE
				This.Caption="Deposito"
				This.ToolTipText=ALAMATDL+"DTDP\"
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			This.Caption="Deposito"
			This.ToolTipText=ALAMATDL+"DTDP\"
		ENDIF
	ENDPROC



	PROCEDURE checktgl.InteractiveChange
		This.Parent.AlamatFileSistem.Enabled=IIF(This.Value=1,.T.,.F.)
		This.Parent.cmdRekam.Visible=IIF(This.Value=1,.T.,.F.)
	ENDPROC


	PROCEDURE alamatfilesistem.Init
		IF !FILE('Alamat.Dbf')
			CREATE TABLE ALAMAT (KODE C(2), Alamat C(50))
			USE
		ENDIF
		IF BUKA(.F.,'ALAMAT','ALAMAT')
			SELECT ALAMAT
			IF KUNCI_FI(10)
				LOCATE FOR KLP=='ADI'
				IF !FOUND()
					APPEND BLANK
					REPLACE KLP WITH 'ADI', KODE WITH 'DL', KETERANGAN WITH 'Data file interface', ALAMAT WITH "DATA_SIS\"
					FLUSH
				ENDIF
				ALAMATDL=ALLTRIM(ALAMAT)
				This.Value=ALAMATDL
				UNLOCK
			ENDIF
			TUTUP("ALAMAT")
		ENDIF
	ENDPROC


	PROCEDURE cmdrekam.Click
		This.Visible=.F.
		This.Parent.AlamatFileSistem.Enabled=.F.
		This.Parent.CheckTgl.Value=0
		
		IF !FILE('Alamat.Dbf')
			CREATE TABLE ALAMAT (KODE C(2), Alamat C(50))
			USE
		ENDIF
		IF BUKA(.F.,'ALAMAT','ALAMAT')
			SELECT ALAMAT
			IF KUNCI_FI(10)
				LOCATE FOR KLP=='ADI'
				IF !FOUND()
					APPEND BLANK
				ENDIF
				REPLACE KLP WITH 'ADI', KODE WITH 'DL', KETERANGAN WITH 'Data file interface', ALAMAT WITH This.Parent.AlamatFileSistem.Value
				FLUSH
				ALAMATDL=ALLTRIM(ALAMAT)
				UNLOCK
			ENDIF
			TUTUP("ALAMAT")
		ENDIF
	ENDPROC


	PROCEDURE check2tgl.InteractiveChange
		This.Parent.TglFile.Enabled=IIF(This.Value=1,.T.,.F.)
	ENDPROC	


	PROCEDURE cnttb1.Click
		Reindeks('TB_MST',ALLTRIM(This.Parent.Checktb.StatusBarText),ALLTRIM(This.Parent.Checktb.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cnttb2.Click
		Reindeks('TB_SLD',ALLTRIM(This.Parent.Checktb.StatusBarText),ALLTRIM(This.Parent.Checktb.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cnttb3.Click
		Reindeks('TB_KRT',ALLTRIM(This.Parent.Checktb.StatusBarText),ALLTRIM(This.Parent.Checktb.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cnttb4.Click
		Reindeks('TB_TRS_H',ALLTRIM(This.Parent.Checktb.StatusBarText),ALLTRIM(This.Parent.Checktb.ToolTipText),GASY_TGL)
	ENDPROC

	
	PROCEDURE cnttb.Click
		FOR Nom=1 TO 4
			mPro="This.Parent.CntTB"+LTRIM(STR(Nom,2))+".Click"
			&mPro
		ENDFOR
	ENDPROC


	PROCEDURE Checktb.RightClick
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT LEFT(KODE,1) AS KODE, KETERANGAN FROM ALAMAT WHERE KLP=="ATB" INTO CURSOR TBU_JNS
			mKode=gLookup("Jenis Tabungan","","TBU_JNS",60)
			SELECT ALAMAT
			LOCATE FOR KLP="ATB" AND LEFT(KODE,1)==ALLTRIM(mKODE)
			IF FOUND()
				This.Caption=ALLTRIM(KETERANGAN)
				This.StatusBarText=ALLTRIM(Kode)
				This.ToolTipText=ALLTRIM(ALAMAT)
				ELSE
				This.Caption="Tabungan Umum"
				This.StatusBarText="A"
				This.ToolTipText=ALAMATDL+"DTTBA\"
			ENDIF
			TUTUP("ALAMAT")
		ENDIF
	ENDPROC


	PROCEDURE checktb.Init
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT ALAMAT
			LOCATE FOR KLP="ATB"
			IF FOUND()
				This.Caption=ALLTRIM(KETERANGAN)
				This.StatusBarText=ALLTRIM(Kode)
				This.ToolTipText=ALLTRIM(ALAMAT)
				ELSE
				This.Caption="Tabungan Umum"
				This.StatusBarText="A"
				This.ToolTipText=ALAMATDL+"DTTBA\"
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			This.Caption="Tabungan Umum"
			This.StatusBarText="A"
			This.ToolTipText=ALAMATDL+"DTTBA\"
		ENDIF

	ENDPROC


	PROCEDURE cnttp1.Click
		Reindeks('TP_MST',ALLTRIM(This.Parent.Checktp.StatusBarText),ALLTRIM(This.Parent.Checktp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cnttp2.Click
		Reindeks('TP_KRT',ALLTRIM(This.Parent.Checktp.StatusBarText),ALLTRIM(This.Parent.Checktp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cnttp3.Click
		Reindeks('TP_TRS_H',ALLTRIM(This.Parent.Checktp.StatusBarText),ALLTRIM(This.Parent.Checktp.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cnttp.Click
		FOR Nom=1 TO 3
			mPro="This.Parent.CntTP"+LTRIM(STR(Nom,2))+".Click"
			&mPro
		ENDFOR
	ENDPROC


	PROCEDURE CheckTp.RightClick
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT LEFT(KODE,1) As Kode, KETERANGAN FROM ALAMAT WHERE KLP=="ATP" INTO CURSOR TBP_JNS
			mKode=gLookup("Jenis Tabungan Program","","TBP_JNS",60)
			SELECT ALAMAT
			LOCATE FOR KLP="ATP" AND LEFT(KODE,1)==ALLTRIM(mKODE)
			IF FOUND()
				This.Caption=ALLTRIM(KETERANGAN)
				This.StatusBarText=ALLTRIM(Kode)
				This.ToolTipText=ALLTRIM(ALAMAT)
				ELSE
				This.Caption="Tabungan Program"
				This.StatusBarText="1"
				This.ToolTipText=ALAMATDL+"DTTP1\"
			ENDIF
			TUTUP("ALAMAT")
		ENDIF
	ENDPROC


	PROCEDURE checktp.Init
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT Alamat
			LOCATE FOR KLP="ATP"
			IF FOUND()
				This.Caption=ALLTRIM(Keterangan)
				This.StatusBarText=ALLTRIM(Kode)
				This.ToolTipText=ALLTRIM(Alamat)
				ELSE
				This.Caption="Tabungan Program"
				This.StatusBarText="1"
				This.ToolTipText=ALAMATDL+"DTTP1\"
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			This.Caption="Tabungan Program"
			This.StatusBarText="1"
			This.ToolTipText=ALAMATDL+"DTTP1\"
		ENDIF

	ENDPROC


	PROCEDURE CheckKr.RightClick
		IF Buka(.f.,'ALAMAT','ALAMAT')
			SELECT LEFT(KODE,1) As Kode, Keterangan FROM Alamat WHERE KLP=="AKR" INTO CURSOR KRU_JNS
			mKode=gLookup("Jenis Kredit","","KRU_JNS",60)
			SELECT Alamat
			LOCATE FOR KLP="AKR" AND LEFT(KODE,1)==ALLTRIM(mKODE)
			IF FOUND()
				This.Caption=ALLTRIM(Keterangan)
				This.StatusBarText=ALLTRIM(Kode)
				This.ToolTipText=ALLTRIM(Alamat)
				ELSE
				This.Caption="Kredit Umum"
				This.StatusBarText="1"
				This.ToolTipText=ALAMATDL+"DTKR1\"
			ENDIF
			TUTUP("Alamat")
		ENDIF
	ENDPROC


	PROCEDURE checkkr.Init
		IF Buka(.f.,'Alamat','ALamat')
			SELECT Alamat
			LOCATE FOR KLP="AKR"
			IF FOUND()
				This.Caption=ALLTRIM(Keterangan)
				This.StatusBarText=ALLTRIM(Kode)
				This.ToolTipText=ALLTRIM(Alamat)
				ELSE
				This.Caption="Kredit Umum"
				This.StatusBarText="1"
				This.ToolTipText=ALAMATDL+"DTKR1\"
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			This.Caption="Kredit Umum"
			This.StatusBarText="1"
			This.ToolTipText=ALAMATDL+"DTKR1\"
		ENDIF
	ENDPROC
	
	
	PROCEDURE cntkr.Click
		FOR Nom=1 TO 12
			mPro="This.Parent.CntKr"+LTRIM(STR(Nom,2))+".Click"
			&mPro
		ENDFOR
	ENDPROC


	PROCEDURE cntkr1.Click
		Reindeks('KR_MST',ALLTRIM(This.Parent.Checkkr.StatusBarText),ALLTRIM(This.Parent.Checkkr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr2.Click
		Reindeks('KR_JAM',ALLTRIM(This.Parent.Checkkr.StatusBarText),ALLTRIM(This.Parent.Checkkr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr3.Click
		Reindeks('KR_RLS_H',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr4.Click
		Reindeks('KR_TRS_H',ALLTRIM(This.Parent.Checkkr.StatusBarText),ALLTRIM(This.Parent.Checkkr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr5.Click
		Reindeks('KR_RCS_H',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr6.Click
		Reindeks('KR_RLS_B',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr7.Click
		Reindeks('KR_TRS_B',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr8.Click
		Reindeks('KR_RCS_B',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.Checkkr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr9.Click
		Reindeks('KR_MST_B',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr10.Click
		Reindeks('KR_TRS',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr11.Click
		Reindeks('KR_RCS',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntkr12.Click
		Reindeks('KR_BNG',ALLTRIM(This.Parent.CheckKr.StatusBarText),ALLTRIM(This.Parent.CheckKr.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak.Click
		FOR Nom=1 TO 15
			mPro="This.Parent.CntAk"+LTRIM(STR(Nom,2))+".Click"
			&mPro
		ENDFOR
	ENDPROC


	PROCEDURE checkAk.Init
		IF Buka(.f.,'Alamat','Alamat')
			SELECT Alamat
			LOCATE FOR KLP="AAK"
			IF FOUND()
				This.ToolTipText=ALLTRIM(ALAMAT)
				ELSE
				This.ToolTipText=ALAMATDL+"DTAK\"
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			This.ToolTipText=ALAMATDL+"DTAK\"
		ENDIF
	ENDPROC
	
	
	PROCEDURE cntak1.Click
		Reindeks('AK_MST','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak2.Click
		Reindeks('AK_STD','',ALAMATDL,GASY_TGL)
	ENDPROC


	PROCEDURE cntak3.Click
		Reindeks('AK_JCN','',ALAMATDL,GASY_TGL)
	ENDPROC


	PROCEDURE cntak4.Click
		Reindeks('AK_NRB','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak5.Click
		Reindeks('AK_RLB','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak6.Click
		Reindeks('BBHARIAN','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak7.Click
		Reindeks('AK_BBB','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak8.Click
		Reindeks('AK_NPH','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak9.Click
		Reindeks('CJHARIAN','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak10.Click
		Reindeks('AK_CJB','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak11.Click
		Reindeks('GJHARIAN','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak12.Click
		Reindeks('AK_GJB','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC

	PROCEDURE cntak13.Click
		Reindeks('AK_TBL','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak14.Click
		Reindeks('AK_PLK','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC


	PROCEDURE cntak15.Click
		Reindeks('AK_RKL','',ALLTRIM(This.Parent.Checkak.ToolTipText),GASY_TGL)
	ENDPROC
	
	
	PROCEDURE cmdkembali.Click
	    RELEASE oGasyIndek
	ENDPROC
	
	
	PROCEDURE cmdProses.Click
		This.Parent.Cntak.Click
		This.Parent.Cntkr.Click
		This.Parent.Cntdp.Click
		This.Parent.Cnttb.Click
		This.Parent.Cnttp.Click
		This.Parent.Cntstp1.Click
		This.Parent.Cntstp2.Click
		This.Parent.Cntstp3.Click
		This.Parent.Cntstp4.Click
	ENDPROC
	
	PROCEDURE tglfile.Init
		This.Value=Gasy_Tgl
	ENDPROC
	
	PROCEDURE tglfile.keypress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	
	PROCEDURE tglfile.gotfocus	
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	PROCEDURE tglfile.Lostfocus	
		This.Value=IIF(EMPTY(This.Value),DATE(),This.Value)
		Gasy_Tgl=This.Value
	ENDPROC
	
	
	PROCEDURE tglfile.click	
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	
	PROCEDURE tglfile.RightClick
		IF TYPE('This.Parent.GasyTgl')<>'O'
			This.Parent.NewObject('GasyTgl','_viewtgl','Progasy.Vcx')
			This.Parent.GasyTgl.Top=This.Top
			This.Parent.GasyTgl.Left=This.Left+This.Width	
			This.Parent.GasyTgl.Kembalinya=This.Name
			This.Parent.GasyTgl.Visible=.T.
			This.Parent.GasyTgl.Proses.Click(IIF(EMPTY(This.Value),DATE(),This.Value))
		ENDIF
	ENDPROC
	
ENDDEFINE
*
*-- EndDefine: indek
**************************************************
Sloka 12 Sarasamuccaya
Teks Sloka
Sloka kedua belas dari Sarasamuccaya menggarisbawahi pentingnya berpikir positif dan bagaimana sikap ini dapat mempengaruhi pengalaman hidup seseorang. Berikut adalah terjemahan dari Sloka 12:
"Orang yang bijaksana hendaknya memelihara pikiran yang positif, seperti bunga teratai yang tetap bersih meskipun tumbuh di lumpur. Dengan berpikir positif, ia dapat menghadapi tantangan dengan ketenangan dan menemukan peluang dalam setiap kesulitan."
Penjelasan
Sloka ini mengajarkan bahwa berpikir positif adalah fondasi untuk menghadapi kehidupan dengan lebih baik. Dalam perumpamaan ini, pikiran positif digambarkan seperti bunga teratai yang tetap indah dan bersih meskipun tumbuh di lingkungan yang kotor. Ini menunjukkan bahwa dengan menjaga pikiran tetap positif, kita dapat mengatasi tantangan hidup dengan lebih mudah dan melihat sisi baik dari setiap situasi.
Berpikir positif tidak hanya berarti mengabaikan masalah atau kenyataan yang sulit, tetapi lebih kepada menemukan kekuatan untuk menghadapi tantangan secara konstruktif. Sikap ini membantu kita untuk tetap optimis dan berfokus pada solusi daripada terjebak dalam keputusasaan.
Relevansi
Dalam kehidupan modern yang penuh dengan tekanan dan tantangan, pesan dari sloka ini sangat relevan. Berpikir positif dapat membantu kita mengatasi stres dan meningkatkan kesejahteraan mental. Dengan pola pikir yang positif, kita dapat lebih mudah menemukan kebahagiaan dan kepuasan dalam kehidupan sehari-hari.
Berpikir positif juga berperan penting dalam membangun hubungan yang sehat dan harmonis. Dengan memiliki pandangan yang optimis, kita dapat memperkuat hubungan dengan orang lain dan menciptakan lingkungan yang lebih mendukung dan inklusif.
Dengan menerapkan ajaran ini, kita dapat membangun kehidupan yang lebih bermakna dan penuh harapan. Berpikir positif yang disertai dengan kebijaksanaan dan kebajikan dapat membawa kita menuju kehidupan yang lebih bahagia dan memuaskan, serta menginspirasi orang lain untuk mengadopsi sikap yang sama.
SARASAMUSCAYA - 012 - 102
