Code Program

	ADMIN - REFRESH
GASY Script
PROCEDURE KODE_PRO(IPHOTO)
	PUBLIC okodepro
	okodepro=CREATEOBJECT("kodepro",IPHOTO)
	okodepro.Show
	RETURN
ENDPROC
DEFINE CLASS kodepro AS form
	BorderStyle = 3
	Height = 500
	Width = 700
	MinHeight = 500
	MinWidth = 700
	MaxHeight = 500
	MaxWidth = 700
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Batasan Akses Menu/Proses"
	Closable = .T.
	MaxButton = .F.
	MinButton = .F.
	Icon = _SCREEN.ICON
	desktop = .F.
	WindowState = 0
	BackColor = RGB(144,176,168)


	ADD OBJECT check1 AS checkbox WITH ;
		Top = 39, ;
		Left = 11, ;
		Height = 15, ;
		Width = 107, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "001 Setup User", ;
		TabIndex = 2, ;
		Name = "Check1"


	ADD OBJECT check2 AS checkbox WITH ;
		Top = 56, ;
		Left = 11, ;
		Height = 15, ;
		Width = 106, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "002 Browse - Lihat", ;
		TabIndex = 3, ;
		Name = "Check2"


	ADD OBJECT check3 AS checkbox WITH ;
		Top = 73, ;
		Left = 11, ;
		Height = 15, ;
		Width = 109, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "003 Browse - Ubah", ;
		TabIndex = 4, ;
		Name = "Check3"


	ADD OBJECT check4 AS checkbox WITH ;
		Top = 90, ;
		Left = 11, ;
		Height = 15, ;
		Width = 122, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "004 Browse - Tambah", ;
		TabIndex = 5, ;
		Name = "Check4"


	ADD OBJECT check5 AS checkbox WITH ;
		Top = 107, ;
		Left = 11, ;
		Height = 15, ;
		Width = 114, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "005 Browse - Hapus", ;
		TabIndex = 6, ;
		Name = "Check5"


	ADD OBJECT check6 AS checkbox WITH ;
		Top = 124, ;
		Left = 11, ;
		Height = 15, ;
		Width = 151, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "006 Tambah/Ubah Laporan", ;
		TabIndex = 7, ;
		Name = "Check6"


	ADD OBJECT check7 AS checkbox WITH ;
		Top = 141, ;
		Left = 11, ;
		Height = 15, ;
		Width = 154, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "007 Tambah/Ubah Prosedur", ;
		TabIndex = 8, ;
		Name = "Check7"


	ADD OBJECT check8 AS checkbox WITH ;
		Top = 158, ;
		Left = 11, ;
		Height = 15, ;
		Width = 224, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "008 Tambah/Ubah/Hapus Sandi Transaksi", ;
		TabIndex = 9, ;
		Name = "Check8"


	ADD OBJECT check9 AS checkbox WITH ;
		Top = 175, ;
		Left = 11, ;
		Height = 15, ;
		Width = 173, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "009 Tambah/Ubah File Interface", ;
		TabIndex = 10, ;
		Name = "Check9"


	ADD OBJECT check10 AS checkbox WITH ;
		Top = 192, ;
		Left = 11, ;
		Height = 15, ;
		Width = 197, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "010 Tambah/Ubah Register Nasabah", ;
		TabIndex = 11, ;
		Name = "Check10"


	ADD OBJECT check11 AS checkbox WITH ;
		Top = 209, ;
		Left = 11, ;
		Height = 15, ;
		Width = 158, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "011 Hapus Register Nasabah", ;
		TabIndex = 12, ;
		Name = "Check11"


	ADD OBJECT check12 AS checkbox WITH ;
		Top = 226, ;
		Left = 11, ;
		Height = 15, ;
		Width = 243, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "012 Tambah/Ubah Rekening Akuntansi", ;
		TabIndex = 13, ;
		Name = "Check12"


	ADD OBJECT check13 AS checkbox WITH ;
		Top = 243, ;
		Left = 11, ;
		Height = 15, ;
		Width = 169, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "013 Hapus Rekening Akuntansi", ;
		TabIndex = 14, ;
		Name = "Check13"


	ADD OBJECT check14 AS checkbox WITH ;
		Top = 260, ;
		Left = 11, ;
		Height = 15, ;
		Width = 140, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "014 Tambah/Ubah Jurnal", ;
		TabIndex = 15, ;
		Name = "Check14"


	ADD OBJECT check15 AS checkbox WITH ;
		Top = 277, ;
		Left = 11, ;
		Height = 15, ;
		Width = 101, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "015 Hapus Jurnal", ;
		TabIndex = 16, ;
		Name = "Check15"


	ADD OBJECT check16 AS checkbox WITH ;
		Top = 294, ;
		Left = 11, ;
		Height = 15, ;
		Width = 140, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "016 Proses Posting Ulang", ;
		TabIndex = 17, ;
		Name = "Check16"


	ADD OBJECT check17 AS checkbox WITH ;
		Top = 311, ;
		Left = 11, ;
		Height = 15, ;
		Width = 160, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "017 Mutasi/Saldo Buku Besar", ;
		TabIndex = 18, ;
		Name = "Check17"


	ADD OBJECT check18 AS checkbox WITH ;
		Top = 328, ;
		Left = 11, ;
		Height = 15, ;
		Width = 181, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "018 Tambah Realisasi Kredit", ;
		TabIndex = 19, ;
		Name = "Check18"


	ADD OBJECT check19 AS checkbox WITH ;
		Top = 345, ;
		Left = 11, ;
		Height = 15, ;
		Width = 170, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "019 Pembatalan Realisasi Kredit", ;
		TabIndex = 20, ;
		Name = "Check19"


	ADD OBJECT check20 AS checkbox WITH ;
		Top = 362, ;
		Left = 11, ;
		Height = 15, ;
		Width = 146, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "020 Ubah Master Nasabah", ;
		TabIndex = 21, ;
		Name = "Check20"


	ADD OBJECT check21 AS checkbox WITH ;
		Top = 379, ;
		Left = 11, ;
		Height = 15, ;
		Width = 156, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "021 Tambah Angsuran Kredit", ;
		TabIndex = 22, ;
		Name = "Check21"


	ADD OBJECT check22 AS checkbox WITH ;
		Top = 396, ;
		Left = 11, ;
		Height = 15, ;
		Width = 173, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "022 Pembatalan Angsuran Kredit", ;
		TabIndex = 23, ;
		Name = "Check22"


	ADD OBJECT check23 AS checkbox WITH ;
		Top = 413, ;
		Left = 11, ;
		Height = 15, ;
		Width = 148, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "023 Ubah Anggaran Bunga", ;
		TabIndex = 24, ;
		Name = "Check23"


	ADD OBJECT check24 AS checkbox WITH ;
		Top = 430, ;
		Left = 11, ;
		Height = 15, ;
		Width = 128, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "024 Proses Akhir Bulan", ;
		TabIndex = 25, ;
		Name = "Check24"


	ADD OBJECT check25 AS checkbox WITH ;
		Top = 39, ;
		Left = 270, ;
		Height = 15, ;
		Width = 202, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "025 Tambah Transaksi Deposito", ;
		TabIndex = 26, ;
		Name = "Check25"


	ADD OBJECT check26 AS checkbox WITH ;
		Top = 56, ;
		Left = 270, ;
		Height = 15, ;
		Width = 189, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "026 Pembatalan Transaksi Deposito", ;
		TabIndex = 27, ;
		Name = "Check26"


	ADD OBJECT check27 AS checkbox WITH ;
		Top = 73, ;
		Left = 270, ;
		Height = 15, ;
		Width = 105, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "027 Proses Bunga", ;
		TabIndex = 28, ;
		Name = "Check27"


	ADD OBJECT check28 AS checkbox WITH ;
		Top = 90, ;
		Left = 270, ;
		Height = 15, ;
		Width = 223, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "028 Tambah/Ubah File Nasabah TB", ;
		TabIndex = 29, ;
		Name = "Check28"


	ADD OBJECT check29 AS checkbox WITH ;
		Top = 107, ;
		Left = 270, ;
		Height = 15, ;
		Width = 135, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "029 Hapus File Nasabah", ;
		TabIndex = 30, ;
		Name = "Check29"


	ADD OBJECT check30 AS checkbox WITH ;
		Top = 124, ;
		Left = 270, ;
		Height = 15, ;
		Width = 130, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "030 Tambah Transaksi ", ;
		TabIndex = 31, ;
		Name = "Check30"


	ADD OBJECT check31 AS checkbox WITH ;
		Top = 141, ;
		Left = 270, ;
		Height = 15, ;
		Width = 144, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "031 Pembatalan Transaksi", ;
		TabIndex = 32, ;
		Name = "Check31"


	ADD OBJECT check32 AS checkbox WITH ;
		Top = 158, ;
		Left = 270, ;
		Height = 15, ;
		Width = 102, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "032 Kontrol Saldo", ;
		TabIndex = 33, ;
		Name = "Check32"


	ADD OBJECT check33 AS checkbox WITH ;
		Top = 175, ;
		Left = 270, ;
		Height = 15, ;
		Width = 105, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "033 Proses Bunga", ;
		TabIndex = 34, ;
		Name = "Check33"


	ADD OBJECT check34 AS checkbox WITH ;
		Top = 192, ;
		Left = 270, ;
		Height = 15, ;
		Width = 128, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "034 Proses Akhir Bulan", ;
		TabIndex = 35, ;
		Name = "Check34"


	ADD OBJECT check35 AS checkbox WITH ;
		Top = 209, ;
		Left = 270, ;
		Height = 15, ;
		Width = 140, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "035 Proses Jurnal Kolektif", ;
		TabIndex = 36, ;
		Name = "Check35"


	ADD OBJECT check36 AS checkbox WITH ;
		Top = 226, ;
		Left = 270, ;
		Height = 15, ;
		Width = 168, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "036 Tambah Transaksi TP", ;
		TabIndex = 37, ;
		Name = "Check36"


	ADD OBJECT check37 AS checkbox WITH ;
		Top = 243, ;
		Left = 270, ;
		Height = 15, ;
		Width = 144, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "037 Pembatalan Transaksi", ;
		TabIndex = 38, ;
		Name = "Check37"


	ADD OBJECT check38 AS checkbox WITH ;
		Top = 260, ;
		Left = 270, ;
		Height = 15, ;
		Width = 105, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "038 Proses Bunga", ;
		TabIndex = 39, ;
		Name = "Check38"


	ADD OBJECT rekam AS commandbutton WITH ;
		Top = 461, ;
		Left = 96, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Rekam", ;
		TabIndex = 40, ;
		Name = "Rekam"


	ADD OBJECT selesai AS commandbutton WITH ;
		Top = 461, ;
		Left = 588, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "E\<XIT", ;
		TabIndex = 41, ;
		Name = "Selesai"


	ADD OBJECT pilihan AS commandbutton WITH ;
		Top = 461, ;
		Left = 12, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Semuanya", ;
		TabIndex = 42, ;
		Name = "Pilihan"


	ADD OBJECT check39 AS checkbox WITH ;
		Top = 277, ;
		Left = 270, ;
		Height = 15, ;
		Width = 155, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "039 Tambah/Ubah Nasabah", ;
		TabIndex = 43, ;
		Name = "Check39"


	ADD OBJECT check40 AS checkbox WITH ;
		Top = 294, ;
		Left = 270, ;
		Height = 15, ;
		Width = 116, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "040 Hapus Nasabah", ;
		TabIndex = 44, ;
		Name = "Check40"


	ADD OBJECT check41 AS checkbox WITH ;
		Top = 311, ;
		Left = 270, ;
		Height = 15, ;
		Width = 131, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "041 Setup Prosedur", ;
		TabIndex = 45, ;
		Name = "Check41"


	ADD OBJECT check42 AS checkbox WITH ;
		Top = 328, ;
		Left = 270, ;
		Height = 15, ;
		Width = 124, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "042 Transaksi Kas", ;
		TabIndex = 46, ;
		Name = "Check42"


	ADD OBJECT check43 AS checkbox WITH ;
		Top = 345, ;
		Left = 270, ;
		Height = 15, ;
		Width = 129, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "043 Transaksi Non Kas", ;
		TabIndex = 47, ;
		Name = "Check43"


	ADD OBJECT check44 AS checkbox WITH ;
		Top = 362, ;
		Left = 270, ;
		Height = 15, ;
		Width = 100, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "044 Penyesuaian", ;
		TabIndex = 48, ;
		Name = "Check44"


	ADD OBJECT check45 AS checkbox WITH ;
		Top = 379, ;
		Left = 270, ;
		Height = 15, ;
		Width = 149, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "045 Laporan Transaksi", ;
		TabIndex = 49, ;
		Name = "Check45"


	ADD OBJECT check46 AS checkbox WITH ;
		Top = 396, ;
		Left = 270, ;
		Height = 15, ;
		Width = 141, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "046 Laporan Performance", ;
		TabIndex = 50, ;
		Name = "Check46"


	ADD OBJECT check47 AS checkbox WITH ;
		Top = 413, ;
		Left = 270, ;
		Height = 15, ;
		Width = 136, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "047 Laporan Buku Besar", ;
		TabIndex = 51, ;
		Name = "Check47"


	ADD OBJECT check48 AS checkbox WITH ;
		Top = 430, ;
		Left = 270, ;
		Height = 15, ;
		Width = 155, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "048 Laporan Bank Indonesia", ;
		TabIndex = 52, ;
		Name = "Check48"


	ADD OBJECT check49 AS checkbox WITH ;
		Top = 39, ;
		Left = 516, ;
		Height = 15, ;
		Width = 100, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "049 Akhir Hari", ;
		TabIndex = 53, ;
		Name = "Check49"


	ADD OBJECT check50 AS checkbox WITH ;
		Top = 56, ;
		Left = 516, ;
		Height = 15, ;
		Width = 93, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "050 Akhir Bulan", ;
		TabIndex = 54, ;
		Name = "Check50"


	ADD OBJECT check51 AS checkbox WITH ;
		Top = 73, ;
		Left = 516, ;
		Height = 15, ;
		Width = 97, ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "051 Akhir Tahun", ;
		TabIndex = 55, ;
		Name = "Check51"


	ADD OBJECT check52 AS checkbox WITH ;
		Top = 90, ;
		Left = 516, ;
		Height = 15, ;
		Width = 169, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "052 Copy File Per Tanggal", ;
		TabIndex = 56, ;
		Name = "Check52"


	ADD OBJECT check53 AS checkbox WITH ;
		Top = 107, ;
		Left = 516, ;
		Height = 15, ;
		Width = 172, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "053 Transaksi Per Tanggal", ;
		TabIndex = 57, ;
		Name = "Check53"


	ADD OBJECT check54 AS checkbox WITH ;
		Top = 124, ;
		Left = 516, ;
		Height = 15, ;
		Width = 151, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "054 Modifikasi Laporan", ;
		TabIndex = 58, ;
		Name = "Check54"


	ADD OBJECT check55 AS checkbox WITH ;
		Top = 141, ;
		Left = 516, ;
		Height = 15, ;
		Width = 82, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "055 Indeks", ;
		TabIndex = 60, ;
		Name = "Check55"


	ADD OBJECT check56 AS checkbox WITH ;
		Top = 158, ;
		Left = 516, ;
		Height = 15, ;
		Width = 67, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "056 Dbu", ;
		TabIndex = 61, ;
		Name = "Check56"


	ADD OBJECT line1 AS line WITH ;
		Height = 0, ;
		Left = 0, ;
		Top = 31, ;
		Width = 699, ;
		BorderColor = RGB(128,128,128), ;
		Name = "Line1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Kode User:", ;
		Height = 17, ;
		Left = 12, ;
		Top = 8, ;
		Width = 64, ;
		TabIndex = 62, ;
		Name = "Label1"


	ADD OBJECT kodeuser AS textbox WITH ;
		Height = 23, ;
		Left = 79, ;
		MaxLength = 3, ;
		InputMask = '!!!',;
		TabIndex = 1, ;
		Top = 3, ;
		Width = 52, ;
		Name = "KodeUser"


	ADD OBJECT line2 AS line WITH ;
		Height = 0, ;
		Left = 1, ;
		Top = 453, ;
		Width = 699, ;
		BorderColor = RGB(128,128,128), ;
		Name = "Line2"


	ADD OBJECT check57 AS checkbox WITH ;
		Top = 175, ;
		Left = 516, ;
		Height = 15, ;
		Width = 137, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "057 Backup/Restore", ;
		TabIndex = 61, ;
		Name = "Check57"


	ADD OBJECT check58 AS checkbox WITH ;
		Top = 192, ;
		Left = 516, ;
		Height = 15, ;
		Width = 135, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "058 Laporan Default", ;
		TabIndex = 61, ;
		Name = "Check58"


	ADD OBJECT check59 AS checkbox WITH ;
		Top = 209, ;
		Left = 516, ;
		Height = 15, ;
		Width = 164, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "059 Menu/Proses Default", ;
		TabIndex = 61, ;
		Name = "Check59"


	PROCEDURE Destroy
		TUTUP('KR_USR')
	ENDPROC
 

	PROCEDURE Init
		PARAMETERS lxFoto
		LOCAL Ok1, Nom, iKodenya
		iFoto=''
		IF TYPE('lcFoto')='C'
			IFOTO=lxFoto
		ENDIF
		
		iKodenya=""

		This.KodeUser.Value=iFoto
		IF !KR_USR()
			RETURN
		ENDIF

		Select KR_USR
		LOCATE FOR ALLTRIM(PHOTO)==iFoto
		IF FOUND()
			iKodenya=Catatan
		ENDIF

		FOR Nom=1 TO 57
			Ok1="Thisform.Check"+LTRIM(STR(Nom,3))+".Value"
			&Ok1=VAL(SUBSTR(iKodenya,Nom,1))
		NEXT
	ENDPROC


	PROCEDURE rekam.Init
		This.Visible=Dadi(1)
	ENDPROC


	PROCEDURE rekam.Click
		LOCAL mIsi, Ok1, Nom
		mIsi=""
		FOR Nom=1 TO 59
			Ok1="Thisform.Check"+LTRIM(STR(Nom,3))+".Value"
			Ok2=&Ok1
			mIsi=ALLTRIM(mIsi)+STR(Ok2,1)
		NEXT
		IF !KR_USR()
			RETURN
		ENDIF
		Select KR_USR
		LOCATE FOR ALLTRIM(PHOTO)==This.Parent.KodeUser.Value
		IF FOUND()
			IF Kunci_Rc(5)
				REPLACE Catatan WITH mIsi
				Dadimenu=ALLTRIM(mIsi)
				UNLOCK
				FLUSH
			ENDIF
		ENDIF
		TUTUP('KR_USR')
	ENDPROC


	PROCEDURE selesai.Click
		Thisform.Release
	ENDPROC


	PROCEDURE pilihan.Click
		LOCAL mIsi, Ok1, Nom
		mIsi=""
		FOR Nom=1 TO 59
			Ok1="Thisform.Check"+LTRIM(STR(Nom,3))+".Value"
			&Ok1=1
		NEXT
		mIsi=REPLICATE('1',59)
	ENDPROC


	PROCEDURE pilihan.RightClick
		LOCAL mIsi, Ok1, Nom
		mIsi=""
		FOR Nom=1 TO 59
			Ok1="Thisform.Check"+LTRIM(STR(Nom,3))+".Value"
			&Ok1=0
		NEXT
		mIsi=REPLICATE('0',59)
	ENDPROC



	PROCEDURE kodeuser.LostFocus
		LOCAL iKodenya, Nom
		iKodenya=""
		IF !KR_USR()
			RETURN
		ENDIF
		Select KR_USR
		LOCATE FOR ALLTRIM(PHOTO)==This.Value
		IF FOUND()
			iKodenya=Catatan
		ENDIF

		FOR Nom=1 TO 59
			Ok1="Thisform.Check"+LTRIM(STR(Nom,3))+".Value"
			&Ok1=VAL(SUBSTR(iKodenya,Nom,1))
		NEXT
		TUTUP('KR_USR')
	ENDPROC


ENDDEFINE
*
*-- EndDefine: kodepro
**************************************************
Sloka 7 Sarasamuccaya
Teks Sloka
Sloka ketujuh dari Sarasamuccaya membahas pentingnya ketenangan batin dan bagaimana hal tersebut dapat mempengaruhi kualitas hidup seseorang. Berikut adalah terjemahan dari Sloka 7:
"Orang yang bijaksana hendaknya mencapai ketenangan batin, seperti danau yang tenang memantulkan langit dengan jernih. Dengan ketenangan, ia dapat melihat kebenaran dengan jelas dan bertindak dengan bijaksana."
Penjelasan
Sloka ini menekankan bahwa ketenangan batin adalah fondasi bagi kebijaksanaan dan tindakan yang tepat. Dalam perumpamaan ini, ketenangan batin diibaratkan sebagai permukaan danau yang tenang, yang mampu memantulkan langit dengan jelas. Hal ini menggambarkan bahwa seseorang yang tenang dapat melihat situasi dan kebenaran dengan lebih jernih, tanpa terdistorsi oleh emosi atau gangguan.
Ketenangan batin memungkinkan individu untuk menghindari reaksi impulsif dan membuat keputusan yang lebih bijaksana. Ini melibatkan kemampuan untuk menenangkan pikiran, menghadapi tekanan tanpa kehilangan keseimbangan, dan tetap fokus pada tujuan jangka panjang.
Relevansi
Di era modern yang penuh dengan tekanan dan stres, pesan dari sloka ini sangat relevan. Ketenangan batin dapat membantu kita mengatasi stres dan menjaga kesehatan mental. Ini juga memungkinkan kita untuk menjalani kehidupan yang lebih seimbang dan harmonis, dengan kemampuan untuk menghadapi tantangan dengan kepala dingin.
Praktik seperti meditasi, refleksi diri, dan mindfulness dapat membantu kita mencapai ketenangan batin ini. Dengan menumbuhkan ketenangan dalam diri, kita dapat membuat keputusan yang lebih baik dan berkontribusi pada lingkungan yang lebih damai dan harmonis.
Dengan menerapkan ajaran ini, kita dapat meningkatkan kualitas hidup kita dan orang-orang di sekitar kita. Ketenangan batin tidak hanya bermanfaat bagi individu tetapi juga menciptakan dampak positif yang lebih luas dalam masyarakat.
SARASAMUSCAYA - 007 - 107
