Code Program

	ADMIN - REFRESH
GASY Script

PROCEDURE menugasy
	PARAMETERS iPara1
	SET DATE ITALIAN
	IF TYPE('OTOOL')<>'O' OR ISNULL(OTOOL)
		oTools()
	ENDIF
	
	SET SYSMENU SAVE
	SET SYSMENU TO

	IF !FILE(Alamatdl+'Proses\XMENU'+iPara1+'.FXP')
		DEFINE PAD MnGasy01 OF _Msysmenu PROMPT "\<User" COLOR SCHEME 3 KEY ALT+U, ""
		DEFINE PAD MnGasy02 OF _Msysmenu PROMPT "\<File" COLOR SCHEME 3 KEY ALT+F, ""
		DEFINE PAD MnGasy03 OF _Msysmenu PROMPT "\<Transaksi" COLOR SCHEME 3 KEY ALT+T, ""
		DEFINE PAD MnGasy04 OF _Msysmenu PROMPT "\<Laporan" COLOR SCHEME 3 KEY ALT+L, ""
		DEFINE PAD MnGasy05 OF _Msysmenu PROMPT "\<Akhir" COLOR SCHEME 3 KEY ALT+A, ""
		DEFINE PAD MnGasy06 OF _Msysmenu PROMPT "Utilit\<y" COLOR SCHEME 3 KEY ALT+Y, ""

		ON PAD MnGasy01 OF _Msysmenu ACTIVATE POPUP MnGasy01
		ON PAD MnGasy02 OF _Msysmenu ACTIVATE POPUP MnGasy02
		ON PAD MnGasy03 OF _Msysmenu ACTIVATE POPUP MnGasy03
		ON PAD MnGasy04 OF _Msysmenu ACTIVATE POPUP MnGasy04
		ON PAD MnGasy05 OF _Msysmenu ACTIVATE POPUP MnGasy05
		ON PAD MnGasy06 OF _Msysmenu ACTIVATE POPUP _Cetakan

		DEFINE POPUP MnGasy01 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF MnGasy01 PROMPT "Log\<in" SKIP FOR NOT EMPTY(MPHOTO)
		DEFINE BAR 2 OF MnGasy01 PROMPT "Log\<out" SKIP FOR EMPTY(MPHOTO)
		DEFINE BAR 3 OF MnGasy01 PROMPT "\-"
		DEFINE BAR 4 OF MnGasy01 PROMPT "\<Nama Langganan"
		DEFINE BAR 5 OF MnGasy01 PROMPT "\<Setup" SKIP FOR NOT DADI(1)
		DEFINE BAR 6 OF MnGasy01 PROMPT "\-"
		DEFINE BAR 7 OF MnGasy01 PROMPT "E\<XIT" KEY CTRL+X, "CTRL+X"
		
		ON SELECTION BAR 1 OF MnGasy01 USERMASUK()
		ON SELECTION BAR 2 OF MnGasy01 USERKELUAR()
		ON SELECTION BAR 4 OF MnGasy01 LANGGANAN()
		ON SELECTION BAR 5 OF MnGasy01 NAMAUSER()
		ON SELECTION BAR 7 OF MnGasy01 SELESAI()
		
		DEFINE POPUP MnGasy02 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF MnGasy02 PROMPT "R\<ekening" SKIP FOR NOT DADI(12)
		DEFINE BAR 2 OF MnGasy02 PROMPT "\-"
		DEFINE BAR 3 OF MnGasy02 PROMPT "\<Interface" SKIP FOR NOT DADI(9)
		DEFINE BAR 4 OF MnGasy02 PROMPT "\<Sandi Mutasi Transaksi" SKIP FOR NOT DADI(8)
		DEFINE BAR 5 OF MnGasy02 PROMPT "\-"
		DEFINE BAR 6 OF MnGasy02 PROMPT "In\<deks" SKIP FOR NOT DADI(55)
		DEFINE BAR 7 OF MnGasy02 PROMPT "\<Backup/Restore File" SKIP FOR NOT DADI(57)
		DEFINE BAR 8 OF MnGasy02 PROMPT "\-"
		DEFINE BAR 9 OF MnGasy02 PROMPT "\<Master Nasabah"
		
		ON SELECTION BAR 1 OF MnGasy02 Akmst()
		ON SELECTION BAR 3 OF MnGasy02 GasyTbl()
		ON SELECTION BAR 4 OF MnGasy02 SandiMutasi()
		ON SELECTION BAR 6 OF MnGasy02 ProIndek()
		ON SELECTION BAR 7 OF MnGasy02 Do Form Libs\BakupRes
		ON BAR 9 OF MnGasy02 ACTIVATE POPUP _Nasabah
		DEFINE POPUP _Nasabah MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF _Nasabah PROMPT "\<1.Register Induk" SKIP FOR NOT Dadi(10)
		DEFINE BAR 2 OF _Nasabah PROMPT "\<2.Tabungan Umum" SKIP FOR NOT Dadi(28) OR !USED("TB_MST")
		DEFINE BAR 3 OF _Nasabah PROMPT "\<3.Tabungan Program" SKIP FOR NOT Dadi(36) OR !USED("TP_MST")
		IF FILE('KSP.TXT')
			DEFINE BAR 4 OF _Nasabah PROMPT "\<4.Data Anggota" SKIP FOR NOT Dadi(10)
		ENDIF
		
		ON SELECTION BAR 1 OF _Nasabah DN00()
		ON SELECTION BAR 2 OF _Nasabah TB00()
		ON SELECTION BAR 3 OF _Nasabah TP00()
		IF FILE('KSP.TXT')
			ON SELECTION BAR 4 OF _Nasabah Do Form Libs\Kop001
		ENDIF	

		DEFINE POPUP MnGasy03 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF MnGasy03 PROMPT "\<Kas" SKIP FOR NOT DADI(42)
		DEFINE BAR 2 OF MnGasy03 PROMPT "\-"
		DEFINE BAR 3 OF MnGasy03 PROMPT "\<Non Kas" SKIP FOR NOT DADI(43)
		DEFINE BAR 4 OF MnGasy03 PROMPT "Bunga \<Tabungan Umum" SKIP FOR NOT DADI(33)
		DEFINE BAR 5 OF MnGasy03 PROMPT "Bunga Tabungan \<Program" SKIP FOR NOT DADI(38)
		DEFINE BAR 6 OF MnGasy03 PROMPT "Bunga \<Deposito" SKIP FOR NOT DADI(27)
		DEFINE BAR 7 OF MnGasy03 PROMPT "\-"
		DEFINE BAR 8 OF MnGasy03 PROMPT "\<Penyesuaian" SKIP FOR NOT DADI(44)
		DEFINE BAR 9 OF MnGasy03 PROMPT "\<Validasi"

		ON SELECTION BAR 1 OF MnGasy03 Do Form Libs\Kasir With 'CJ'
		ON SELECTION BAR 3 OF MnGasy03 Do Form Libs\Kasir With 'GJ'
		ON SELECTION BAR 4 OF MnGasy03 DO FORM LIBS\BNG_TBU
		ON SELECTION BAR 5 OF MnGasy03 DO FORM LIBS\BNG_TBP
		ON SELECTION BAR 6 OF MnGasy03 DO FORM libs\BNG_DPU
		ON SELECTION BAR 8 OF MnGasy03 DO FORM Libs\AKUBAH
		ON SELECTION BAR 9 OF MnGasy03 DO FORM Libs\Otorisasi

		DEFINE POPUP MnGasy04 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF MnGasy04 PROMPT "\<Transaksi" SKIP FOR NOT DADI(45)
		DEFINE BAR 2 OF MnGasy04 PROMPT "\<Performance" SKIP FOR NOT DADI(46)
		DEFINE BAR 3 OF MnGasy04 PROMPT "\-"
		DEFINE BAR 4 OF MnGasy04 PROMPT "\<Buku Besar" SKIP FOR NOT DADI(47)
		DEFINE BAR 5 OF MnGasy04 PROMPT "Laporan \<Khusus" SKIP FOR NOT DADI(48)
		
		ON SELECTION BAR 1 OF MnGasy04 DO FORM LIBS\PROSES WITH 'LT_','Laporan Transaksi'
		ON SELECTION BAR 2 OF MnGasy04 DO FORM LIBS\PROSES WIth 'LP_','Laporan Performance'
		ON SELECTION BAR 4 OF MnGasy04 DO FORM LIBS\Ledger
		ON SELECTION BAR 5 OF MnGasy04 DO FORM LIBS\PROSES WITH 'LK_','Laporan Khusus'

		DEFINE POPUP MnGasy05 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF MnGasy05 PROMPT "\<Hari" SKIP FOR NOT DADI(49)
		DEFINE BAR 2 OF MnGasy05 PROMPT "\-"
		DEFINE BAR 3 OF MnGasy05 PROMPT "\<Bulan" SKIP FOR NOT DADI(50)
		DEFINE BAR 4 OF MnGasy05 PROMPT "\<T a h u n" SKIP FOR NOT DADI(51)
		ON SELECTION BAR 1 OF MnGasy05 Akhirh()
		ON SELECTION BAR 3 OF MnGasy05 AKHIRB()
		ON SELECTION BAR 4 OF MnGasy05 DO FORM LIBS\AKHIRT


		DEFINE POPUP _Cetakan MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF _Cetakan PROMPT "\<Help"
		DEFINE BAR 2 OF _Cetakan PROMPT "\<Kalkulator"
		DEFINE BAR 3 OF _Cetakan PROMPT "Atur Layar \<Tampilan"
		DEFINE BAR 4 OF _Cetakan PROMPT "View ToolBar Standar"
		DEFINE BAR 5 OF _Cetakan PROMPT "Kalender"
		DEFINE BAR 6 OF _Cetakan PROMPT "\-"
		DEFINE BAR _mfi_pgset OF _Cetakan PROMPT "Set\<up Halaman"
		DEFINE BAR _mfi_save OF _Cetakan PROMPT "\<Simpan"
		DEFINE BAR _mfi_savas OF _Cetakan PROMPT "Simpan dengan \<nama lain"
		DEFINE BAR _med_sp100 OF _Cetakan PROMPT "\-" PICTRES _med_sp100
		DEFINE BAR _med_undo OF _Cetakan PROMPT "\<Undo" KEY CTRL+Z, "Ctrl+Z" PICTRES _med_undo 
		DEFINE BAR _med_redo OF _Cetakan PROMPT "Re\<do" KEY CTRL+R, "Ctrl+R" PICTRES _med_redo 
		DEFINE BAR _med_sp100 OF _Cetakan PROMPT "\-" PICTRES _med_sp100
		DEFINE BAR _med_cut OF _Cetakan PROMPT "Cu\<t" KEY CTRL+X, "Ctrl+X" PICTRES _med_cut 
		DEFINE BAR _med_copy OF _Cetakan PROMPT "\<Copy" KEY CTRL+C, "Ctrl+C" PICTRES _med_copy 
		DEFINE BAR _med_paste OF _Cetakan PROMPT "\<Paste" KEY CTRL+V, "Ctrl+V" PICTRES _med_paste 
		DEFINE BAR _med_sp200 OF _Cetakan PROMPT "\-" PICTRES _med_sp200
		DEFINE BAR _med_slcta OF _Cetakan PROMPT "Se\<lect All" KEY CTRL+A, "Ctrl+A" PICTRES _med_slcta 
		DEFINE BAR _med_sp300 OF _Cetakan PROMPT "\-" PICTRES _med_sp300
		DEFINE BAR _med_find OF _Cetakan PROMPT "\<Find..." KEY CTRL+F, "Ctrl+F" PICTRES _med_find 
		DEFINE BAR _med_repl OF _Cetakan PROMPT "R\<eplace..." KEY CTRL+L, "Ctrl+L" PICTRES _med_repl 
		DEFINE BAR _med_goto OF _Cetakan PROMPT "Go to Line..." PICTRES _med_goto FONT "Arial",10
		DEFINE BAR 11 OF _Cetakan PROMPT "\-"
		DEFINE BAR _mfi_close OF _Cetakan PROMPT "Cl\<ose"
		DEFINE BAR _mfi_clall OF _Cetakan PROMPT "Clo\<se All"

		ON SELECTION BAR 1 OF _Cetakan Help
		ON SELECTION BAR 2 OF _Cetakan Do Form Libs\Kalkulator
		ON SELECTION BAR 3 OF _Cetakan AturLayar()
		ON SELECTION BAR 4 OF _Cetakan oTools()
		ON SELECTION BAR 5 OF _Cetakan Do Form Libs\Wariga

		ACTIVATE MENU _Msysmenu NOWAIT
		IF !EMPTY(MPHOTO)
			ZPROSES()
		ENDIF
		ELSE
		DO (Alamatdl+'Proses\XMENU'+iPara1+'.FXP')
	ENDIF
ENDPROC

PARAMETERS iPara1
SET RESOURCE ON
oTools()
SET SYSMENU SAVE
SET SYSMENU TO

IF !FILE(Alamatdl+'Proses\XMENU'+iPara1+'.FXP')
	DEFINE PAD MnGasy01 OF _Msysmenu PROMPT "\<User" COLOR SCHEME 3 KEY ALT+U, ""
	DEFINE PAD MnGasy02 OF _Msysmenu PROMPT "\<File" COLOR SCHEME 3 KEY ALT+F, ""
	DEFINE PAD MnGasy03 OF _Msysmenu PROMPT "\<Transaksi" COLOR SCHEME 3 KEY ALT+T, ""
	DEFINE PAD MnGasy04 OF _Msysmenu PROMPT "\<Laporan" COLOR SCHEME 3 KEY ALT+L, ""
	DEFINE PAD MnGasy05 OF _Msysmenu PROMPT "\<Akhir" COLOR SCHEME 3 KEY ALT+A, ""
	DEFINE PAD MnGasy06 OF _Msysmenu PROMPT "Utilit\<y" COLOR SCHEME 3 KEY ALT+Y, ""

	ON PAD MnGasy01 OF _Msysmenu ACTIVATE POPUP MnGasy01
	ON PAD MnGasy02 OF _Msysmenu ACTIVATE POPUP MnGasy02
	ON PAD MnGasy03 OF _Msysmenu ACTIVATE POPUP MnGasy03
	ON PAD MnGasy04 OF _Msysmenu ACTIVATE POPUP MnGasy04
	ON PAD MnGasy05 OF _Msysmenu ACTIVATE POPUP MnGasy05
	ON PAD MnGasy06 OF _Msysmenu ACTIVATE POPUP _Cetakan

	DEFINE POPUP MnGasy01 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF MnGasy01 PROMPT "Log\<in" SKIP FOR NOT EMPTY(MPHOTO)
	DEFINE BAR 2 OF MnGasy01 PROMPT "Log\<out" SKIP FOR EMPTY(MPHOTO)
	DEFINE BAR 3 OF MnGasy01 PROMPT "\-"
	DEFINE BAR 4 OF MnGasy01 PROMPT "\<Nama Langganan"
	DEFINE BAR 5 OF MnGasy01 PROMPT "\<Setup" SKIP FOR NOT DADI(1)
	DEFINE BAR 6 OF MnGasy01 PROMPT "\-"
	DEFINE BAR 7 OF MnGasy01 PROMPT "E\<XIT" KEY CTRL+X, "CTRL+X"
	
	ON SELECTION BAR 1 OF MnGasy01 USERMASUK()
	ON SELECTION BAR 2 OF MnGasy01 USERKELUAR()
	ON SELECTION BAR 4 OF MnGasy01 LANGGANAN()
	ON SELECTION BAR 5 OF MnGasy01 NAMAUSER()
	ON SELECTION BAR 7 OF MnGasy01 SELESAI()
	
	DEFINE POPUP MnGasy02 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF MnGasy02 PROMPT "R\<ekening" SKIP FOR NOT DADI(12)
	DEFINE BAR 2 OF MnGasy02 PROMPT "\-"
	DEFINE BAR 3 OF MnGasy02 PROMPT "\<Interface" SKIP FOR NOT DADI(9)
	DEFINE BAR 4 OF MnGasy02 PROMPT "\<Sandi Mutasi Transaksi" SKIP FOR NOT DADI(8)
	DEFINE BAR 5 OF MnGasy02 PROMPT "\-"
	DEFINE BAR 6 OF MnGasy02 PROMPT "In\<deks" SKIP FOR NOT DADI(55)
	DEFINE BAR 7 OF MnGasy02 PROMPT "\<Backup/Restore File" SKIP FOR NOT DADI(57)
	DEFINE BAR 8 OF MnGasy02 PROMPT "\-"
	DEFINE BAR 9 OF MnGasy02 PROMPT "\<Master Nasabah"
	
	ON SELECTION BAR 1 OF MnGasy02 Akmst()
	ON SELECTION BAR 3 OF MnGasy02 GasyTbl()
	ON SELECTION BAR 4 OF MnGasy02 SandiMutasi()
	ON SELECTION BAR 6 OF MnGasy02 ProIndek()
	ON SELECTION BAR 7 OF MnGasy02 Do Form Libs\BakupRes
	ON BAR 9 OF MnGasy02 ACTIVATE POPUP _Nasabah
	DEFINE POPUP _Nasabah MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF _Nasabah PROMPT "\<1.Register Induk" SKIP FOR NOT Dadi(10)
	DEFINE BAR 2 OF _Nasabah PROMPT "\<2.Tabungan Umum" SKIP FOR NOT Dadi(28) OR !USED("TB_MST")
	DEFINE BAR 3 OF _Nasabah PROMPT "\<3.Tabungan Program" SKIP FOR NOT Dadi(36) OR !USED("TP_MST")
	*DEFINE BAR 4 OF _Nasabah PROMPT "\<4.Register Induk Baru" SKIP FOR NOT Dadi(10)
	
	ON SELECTION BAR 1 OF _Nasabah REG_INDUK()
	ON SELECTION BAR 2 OF _Nasabah TB00()
	ON SELECTION BAR 3 OF _Nasabah TP00()
	*ON SELECTION BAR 4 OF _Nasabah DN01()


	DEFINE POPUP MnGasy03 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF MnGasy03 PROMPT "\<Kas" SKIP FOR NOT DADI(42)
	DEFINE BAR 2 OF MnGasy03 PROMPT "\-"
	DEFINE BAR 3 OF MnGasy03 PROMPT "\<Non Kas" SKIP FOR NOT DADI(43)
	DEFINE BAR 4 OF MnGasy03 PROMPT "Bunga \<Tabungan Umum" SKIP FOR NOT DADI(33)
	DEFINE BAR 5 OF MnGasy03 PROMPT "Bunga Tabungan \<Program" SKIP FOR NOT DADI(38)
	DEFINE BAR 6 OF MnGasy03 PROMPT "Bunga \<Deposito" SKIP FOR NOT DADI(27)
	DEFINE BAR 7 OF MnGasy03 PROMPT "\-"
	DEFINE BAR 8 OF MnGasy03 PROMPT "\<Penyesuaian" SKIP FOR NOT DADI(44)
	DEFINE BAR 9 OF MnGasy03 PROMPT "\<Validasi"

	ON SELECTION BAR 1 OF MnGasy03 Do Form Libs\Kasir With 'CJ'
	ON SELECTION BAR 3 OF MnGasy03 Do Form Libs\Kasir With 'GJ'
	ON SELECTION BAR 4 OF MnGasy03 DO FORM LIBS\BNG_TBU
	ON SELECTION BAR 5 OF MnGasy03 DO FORM LIBS\BNG_TBP
	ON SELECTION BAR 6 OF MnGasy03 DO FORM libs\BNG_DPU
	ON SELECTION BAR 8 OF MnGasy03 DO FORM Libs\AKUBAH
	ON SELECTION BAR 9 OF MnGasy03 DO FORM Libs\Otorisasi

	DEFINE POPUP MnGasy04 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF MnGasy04 PROMPT "\<Transaksi" SKIP FOR NOT DADI(45)
	DEFINE BAR 2 OF MnGasy04 PROMPT "\<Performance" SKIP FOR NOT DADI(46)
	DEFINE BAR 3 OF MnGasy04 PROMPT "\-"
	DEFINE BAR 4 OF MnGasy04 PROMPT "\<Buku Besar" SKIP FOR NOT DADI(47)
	*IF FILE('BPR.TXT')
		DEFINE BAR 5 OF MnGasy04 PROMPT "Bank \<Indonesia" SKIP FOR NOT DADI(48)
	*	ELSE
	*	DEFINE BAR 5 OF MnGasy04 PROMPT "Laporan \<Khusus" SKIP FOR NOT DADI(48)
	*ENDIF
	
	ON SELECTION BAR 1 OF MnGasy04 DO FORM LIBS\Laporan WITH 'LTH','Laporan Transaksi'
	ON SELECTION BAR 2 OF MnGasy04 DO FORM LIBS\Laporan WIth 'LPB','Laporan Performance'
	ON SELECTION BAR 4 OF MnGasy04 DO FORM LIBS\Ledger
	*IF FILE('BPR.TXT')
		ON SELECTION BAR 5 OF MnGasy04 DO FORM (Alamatdl+'LIBS\Lap_bi')
	*	ELSE
	*	ON SELECTION BAR 5 OF MnGasy04 DO FORM LIBS\Laporan WIth 'LKU','Laporan Khusus'
	*ENDIF

	DEFINE POPUP MnGasy05 MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF MnGasy05 PROMPT "\<Hari" SKIP FOR NOT DADI(49)
	DEFINE BAR 2 OF MnGasy05 PROMPT "\-"
	DEFINE BAR 3 OF MnGasy05 PROMPT "\<Bulan" SKIP FOR NOT DADI(50)
	DEFINE BAR 4 OF MnGasy05 PROMPT "\<T a h u n" SKIP FOR NOT DADI(51)
	ON SELECTION BAR 1 OF MnGasy05 Akhirh()
	ON SELECTION BAR 3 OF MnGasy05 AKHIRB()
	ON SELECTION BAR 4 OF MnGasy05 AKHIRT()


	DEFINE POPUP _Cetakan MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF _Cetakan PROMPT "\<Help"
	DEFINE BAR 2 OF _Cetakan PROMPT "\<Kalkulator"
	DEFINE BAR 3 OF _Cetakan PROMPT "Atur Layar \<Tampilan"
	DEFINE BAR 4 OF _Cetakan PROMPT "View ToolBar Standar"
	DEFINE BAR 5 OF _Cetakan PROMPT "Kalender"
	DEFINE BAR 6 OF _Cetakan PROMPT "\-"
	DEFINE BAR _mfi_pgset OF _Cetakan PROMPT "Set\<up Halaman"
	DEFINE BAR _mfi_save OF _Cetakan PROMPT "\<Simpan"
	DEFINE BAR _mfi_savas OF _Cetakan PROMPT "Simpan dengan \<nama lain"
	DEFINE BAR 7 OF _Cetakan PROMPT "\-"
	DEFINE BAR _med_undo OF _Cetakan PROMPT "\<Undo" KEY CTRL+Z, "Ctrl+Z" PICTRES _med_undo FONT "Arial",14
	DEFINE BAR _med_redo OF _Cetakan PROMPT "Re\<do" KEY CTRL+R, "Ctrl+R" PICTRES _med_redo FONT "Arial",14
	DEFINE BAR _med_sp100 OF _Cetakan PROMPT "\-" PICTRES _med_sp100
	DEFINE BAR _med_cut OF _Cetakan PROMPT "Cu\<t" KEY CTRL+X, "Ctrl+X" PICTRES _med_cut FONT "Arial",14
	DEFINE BAR _med_copy OF _Cetakan PROMPT "\<Copy" KEY CTRL+C, "Ctrl+C" PICTRES _med_copy  FONT "Arial",14
	DEFINE BAR _med_paste OF _Cetakan PROMPT "\<Paste" KEY CTRL+V, "Ctrl+V" PICTRES _med_paste FONT "Arial",14
	DEFINE BAR _med_sp200 OF _Cetakan PROMPT "\-" PICTRES _med_sp200
	DEFINE BAR _med_slcta OF _Cetakan PROMPT "Se\<lect All" KEY CTRL+A, "Ctrl+A" PICTRES _med_slcta FONT "Arial",14
	DEFINE BAR _med_sp300 OF _Cetakan PROMPT "\-" PICTRES _med_sp300
	DEFINE BAR _med_find OF _Cetakan PROMPT "\<Find..." KEY CTRL+F, "Ctrl+F" PICTRES _med_find FONT "Arial",14
	DEFINE BAR _med_repl OF _Cetakan PROMPT "R\<eplace..." KEY CTRL+L, "Ctrl+L" PICTRES _med_repl FONT "Arial",14
	DEFINE BAR _med_goto OF _Cetakan PROMPT "Go to Line..." PICTRES _med_goto FONT "Arial",12
	DEFINE BAR _med_pref OF _Cetakan PROMPT "Prope\<rties..." FONT "Arial",12
	DEFINE BAR 11 OF _Cetakan PROMPT "\-"
	DEFINE BAR _mfi_close OF _Cetakan PROMPT "Cl\<ose" FONT "Arial",14
	DEFINE BAR _mfi_clall OF _Cetakan PROMPT "Clo\<se All" FONT "Arial",14
	IF FILE('DADI.TXT')
		DEFINE BAR 13 OF _Cetakan PROMPT "Run" SKIP FOR !FILE('DADI.TXT')
		ON SELECTION BAR 13 OF _Cetakan Do Form Libs\GasyPros
	ENDIF	
	
	ON SELECTION BAR 1 OF _Cetakan Help
	ON SELECTION BAR 2 OF _Cetakan Do Form Libs\Kalkulator
	ON SELECTION BAR 3 OF _Cetakan AturLayar()
	ON SELECTION BAR 4 OF _Cetakan oTools()
	ON SELECTION BAR 5 OF _Cetakan Do Form Libs\Wariga

	ACTIVATE MENU _Msysmenu NOWAIT
	IF !EMPTY(MPHOTO) AND FILE("libs\proses.scx")
		DO FORM LIBS\PROSES
	ENDIF
	ELSE
	DO (Alamatdl+'Proses\XMENU'+iPara1+'.FXP')
ENDIF
ENDPROC


PROCEDURE SETELPRIN
SET PRINTER TO NAME (SYS(1037))
ENDPROC


PROCEDURE USER000
		DEFINE PAD MnGasy01 OF _Msysmenu PROMPT "\<User" COLOR SCHEME 3 KEY ALT+U, ""
		DEFINE PAD MnGasy02 OF _Msysmenu PROMPT "E\<XIT" COLOR SCHEME 3 KEY ALT+X, ""		
		
		ON PAD MnGasy01 OF _Msysmenu ACTIVATE POPUP MnGasy01
		ON SELECTION PAD MnGasy02 OF _Msysmenu SELESAI()
		
		DEFINE POPUP MnGasy01 MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF MnGasy01 PROMPT "Log\<in" SKIP FOR NOT EMPTY(MPHOTO)
		DEFINE BAR 2 OF MnGasy01 PROMPT "Log\<out" SKIP FOR EMPTY(MPHOTO)
		DEFINE BAR 3 OF MnGasy01 PROMPT "\-"
		DEFINE BAR 4 OF MnGasy01 PROMPT "\<Kalkulator"
		DEFINE BAR 5 OF MnGasy01 PROMPT "Kalen\<der"
		DEFINE BAR 6 OF MnGasy01 PROMPT "\-"
		DEFINE BAR _mfi_clall OF MnGasy01 PROMPT "Clo\<se All"
		DEFINE BAR 7 OF MnGasy01 PROMPT "E\<XIT" KEY CTRL+X, "CTRL+X"

		ON SELECTION BAR 1 OF MnGasy01 USERMASUK()
		ON SELECTION BAR 2 OF MnGasy01 USERKELUAR()
		ON SELECTION BAR 4 OF MnGasy01 Do Form Libs\Kalkulator
		ON SELECTION BAR 5 OF MnGasy01 Do Form Libs\Wariga
		ON SELECTION BAR 7 OF MnGasy01 SELESAI()
		ACTIVATE MENU _Msysmenu NOWAIT
ENDPROC

Menu GASY

User

Logout

Nama Langganan

Setup

Exit

File

Rekening

Interface

Sandi Mutasi Transaksi

Master Nasabah

Induk

Tabungan Umum

Tabungan Program

Indek

Transaksi

Kas

Non Kas

Hitung Bunga Tabuungan Umum'

Hitung Bunga Tabungan Progam

Hitung Bunga Deposito

Penyesuaian

Laporan

Harian

Kinerja

Bulanan

Buku Besar

Harian

Bulanan

Tahunan

Khusus

Akhir

Hari

Bulan

Tahun

Utility

Panduan

Kalkulator

Toolbar

Kalender

MENUGASY - 12

MENUGASY - 116