Code Program

	ADMIN - REFRESH
GASY Script

GASYTBL - 51

PROCEDURE GASYTBL PUBLIC oGasyTBL AUSED(OLDTABEL) IF !GASYKLAS() RETURN ENDIF oGasyTBL=CREATEOBJECT("GasyTbl1") oGasyTBL.Show ENDPROC DEFINE CLASS GasyTbl1 AS form Caption="Setup File Interface" AutoCenter = .T. MinHeight = 200 MinWidth = 408 MaxButton= .F. Icon = "bmps\arw03up.ico" BackColor = RGB(144,176,168) ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Kode Klasifikasi: ", ; Height = 18, ; Left = 19, ; Top = 14, ; Width = 122, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label1" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Keterangan: ", ; Height = 18, ; Left = 51, ; Top = 41, ; Width = 90, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label2" ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Kode : ", ; Height = 18, ; Left = 90, ; Top = 95, ; Width = 51, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label3" ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Keterangan: ", ; Height = 18, ; Left = 51, ; Top = 122, ; Width = 90, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label4" ADD OBJECT label5 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Jumlah Karakter: ", ; Height = 18, ; Left = 19, ; Top = 68, ; Width = 122, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label5" ADD OBJECT text1 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 3, ; Top = 12, ; Width = 45, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 60, ; Top = 39, ; Width = 239, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "Text2" ADD OBJECT text3 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 3, ; Value = 1, ; Format = "999", ; Height = 28, ; InputMask = "999", ; Left = 145, ; MaxLength = 3, ; Top = 66, ; Width = 45, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "Text3" ADD OBJECT text4 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 10, ; Top = 93, ; Width = 100, ; Name = "Text4" ADD OBJECT text5 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 60, ; Top = 120, ; Width = 239, ; Name = "Text5" ADD OBJECT command1 AS commandbutton WITH ; AutoSize = .T., ; Top = 159, ; Left = 145, ; Height = 23, ; Width = 70, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = " \<Rekam", ; Name = "Command1" ADD OBJECT Cetak AS commandbutton WITH ; AutoSize = .T., ; Top = 159, ; Left = 215, ; Height = 23, ; Width = 70, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = " \<Cetak", ; Name = "Cetak" ADD OBJECT _Close AS commandbutton WITH ; Top = 159, ; Left = 328, ; Height = 23, ; Width = 56, ; Caption ='E\<XIT',; Name = "_Close" ADD OBJECT lihat AS commandbutton WITH ; AutoSize = .T., ; Top = 93, ; Left = 249, ; Height = 23, ; Width = 39, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = "....", ; Name = "Lihat" PROCEDURE Destroy TUTUPDBF() ENDPROC PROCEDURE text1.LostFocus IF !EMPTY(This.Value) IF GASYKLAS() SELECT GASYKLAS SET ORDER TO 1 SEEK ALLTRIM(This.Value) IF FOUND() This.Parent.Text2.Value=NAMAKLP This.Parent.Text3.Value=LEBAR This.Parent.Text2.Enabled=.T. This.Parent.Text3.Enabled=.T. This.Parent.Text4.MaxLength=Lebar ELSE This.Parent.Text2.Enabled=.T. This.Parent.Text3.Enabled=.T. ENDIF ENDIF ENDIF ENDPROC PROCEDURE text1.Valid IF LASTKEY()=27 OR EMPTY(This.Value) RETURN -1 ENDIF RETURN 1 ENDPROC PROCEDURE text2.LostFocus IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF ENDPROC PROCEDURE text3.LostFocus This.Parent.Text4.MaxLength=This.Value IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF ENDPROC PROCEDURE text4.RightClick This.Parent.Lihat.Click ENDPROC PROCEDURE text4.LostFocus IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF ENDPROC PROCEDURE text4.Valid IF LASTKEY()=27 OR LASTKEY()=5 OR EMPTY(THIS.Value) RETURN -1 ENDIF SELECT GASYKLAS SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Value) IF FOUND() IniPesan("Kode ini sudah direkam!") This.Parent.Text5.Value=Keterangan RETURN 1 ENDIF RETURN 1 ENDPROC PROCEDURE command1.Click IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF IF EMPTY(This.Parent.Text4.Value) OR EMPTY(This.Parent.Text5.Value) This.Parent.Text4.Setfocus ENDIF IF GASYKLAS() SELECT GASYKLAS SET ORDER TO 1 IF KUNCI_FI(10) SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Parent.Text4.Value) IF NOT FOUND() APPEND BLANK REPLACE KLP WITH This.Parent.Text1.Value,; NAMAKLP WITH This.Parent.Text2.Value,; LEBAR WITH This.Parent.Text3.Value,; KODE WITH This.Parent.Text4.Value,; KETERANGAN WITH This.Parent.Text5.Value FLUSH UNLOCK ELSE REPLACE KETERANGAN WITH This.Parent.Text5.Value FLUSH UNLOCK ENDIF ENDIF ENDIF This.Parent.Text4.Value="" This.Parent.Text5.Value="" This.Parent.Text4.SetFocus ENDPROC PROCEDURE _Close.Click RELEASE oGasyTBL ENDPROC PROCEDURE lihat.Click IF !EMPTY(This.Parent.Text1.Value) IF GASYKLAS() SELECT GASYKLAS SELECT KODE,KETERANGAN,NAMAKLP FROM GASYKLAS WHERE KLP=This.Parent.Text1.Value ORDER BY KODE INTO CURSOR KlasNsb SELECT KlasNsb DEFINE POPUP SANDI FROM MROW(),MCOL() FONT "Courier",8 PROMPT FIELD KODE+" "+ALLTRIM(KETERANGAN) ; SHORTCUT TITLE NAMAKLP COLOR SCHEME 4 ON SELECTION POPUP SANDI BAR() ACTIVATE POPUP SANDI DEACTIVATE POPUP SANDI RELEASE POPUPS SANDI EXTENDED TUTUP("KlasNsb") ENDIF ENDIF ENDPROC PROCEDURE CETAK.CLICK SELECT GASYKLAS PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface') ENDPROC PROCEDURE CETAK.RIGHTCLICK SELECT * FROM GASYKLAS WHERE KLP==THISFORM.TEXT1.VALUE INTO CURSOR HASIL SELECT HASIL GO TOP IF EOF() PESAN('Data kosong') RETURN ENDIF PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface') TUTUP('HASIL') ENDPROC ENDDEFINE * *-- EndDefine: gasyklas **************************************************

GASYTBL - 71

PROCEDURE GASYTBL(IKLP,INAMAKLP) PUBLIC oGasyTBL IF !GASYKLAS() RETURN ENDIF oGasyTBL=CREATEOBJECT("GasyTbl1",IKLP,INAMAKLP) oGasyTBL.Show(1) ENDPROC DEFINE CLASS GasyTbl1 AS form Autocenter=.T. Caption="Setup File Interface" Height = 248-50 Width = 408 MinHeight = 248-50 MinWidth = 408 DoCreate = .T. MaxButton= .F. MINButton= .F. BORDERSTYLE=1 Icon = _screen.icon WindowType = 1 BackColor = RGB(144,176,168) ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Kode Klasifikasi: ", ; Height = 18, ; Left = 19, ; Top = 14, ; Width = 122, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192) ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Keterangan: ", ; Height = 18, ; Left = 51, ; Top = 41, ; Width = 90, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192) ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Kode : ", ; Height = 18, ; Left = 90, ; Top = 95, ; Width = 51, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192) ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Keterangan: ", ; Height = 18, ; Left = 51, ; Top = 122, ; Width = 90, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192) ADD OBJECT label5 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; BackStyle = 0, ; Caption = "Jumlah Karakter: ", ; Height = 18, ; Left = 19, ; Top = 68, ; Width = 122, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192) ADD OBJECT text1 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 3, ; Top = 12, ; Width = 45 ADD OBJECT text2 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 60, ; Top = 39, ; Width = 239, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255) ADD OBJECT text3 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 3, ; Value = 1, ; Format = "999", ; Height = 28, ; InputMask = "999", ; Left = 145, ; MaxLength = 3, ; Top = 66, ; Width = 45, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255) ADD OBJECT text4 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 10, ; Top = 93, ; Width = 100,; INPUTMASK=REPLICATE('!',10) ADD OBJECT text41 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 245, ; MaxLength = 10, ; Top = 93, ; Width = 100,; INPUTMASK=REPLICATE('!',10) ADD OBJECT text5 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 28, ; Left = 145, ; MaxLength = 60, ; Top = 120, ; Width = 239 ADD OBJECT command1 AS commandbutton WITH ; AutoSize = .T., ; Top = 159, ; Left = 145, ; Height = 23, ; Width = 70, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = " \<Rekam" ADD OBJECT Cetak AS commandbutton WITH ; AutoSize = .T., ; Top = 159, ; Left = 215, ; Height = 23, ; Width = 70, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = " \<Cetak" ADD OBJECT _Close AS commandbutton WITH ; Top = 159, ; Left = 328, ; Height = 23, ; Width = 56, ; Caption ='E\<XIT' ADD OBJECT lihat AS commandbutton WITH ; AutoSize = .T., ; Top = 93, ; Left = 350, ; Height = 23, ; Width = 39, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = "...." PROCEDURE INIT LPARAMETERS IKLP1,INAMAKLP1 IF TYPE("IKLP1")="C" AND TYPE("INAMAKLP1")="C" THIS.TEXT1.VALUE=IKLP1 THIS.TEXT2.VALUE=INAMAKLP1 THIS.TEXT1.STYLE=1 THIS.TEXT2.STYLE=1 THIS.TEXT3.VALUE=0 ENDIF ENDPROC PROCEDURE text1.LostFocus IF !EMPTY(This.Value) IF GASYKLAS() SELECT GASYKLAS SET ORDER TO 1 SEEK ALLTRIM(This.Value) IF FOUND() This.Parent.Text2.Value=NAMAKLP This.Parent.Text3.Value=LEBAR This.Parent.Text2.Enabled=.T. This.Parent.Text3.Enabled=.T. This.Parent.Text4.MaxLength=Lebar ELSE This.Parent.Text2.Enabled=.T. This.Parent.Text3.Enabled=.T. ENDIF ENDIF ENDIF ENDPROC PROCEDURE text1.Valid IF LASTKEY()=27 OR EMPTY(This.Value) RETURN -1 ENDIF RETURN 1 ENDPROC PROCEDURE text2.LostFocus IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF ENDPROC PROCEDURE text3.LostFocus This.Parent.Text4.MaxLength=This.Value IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF ENDPROC PROCEDURE text4.RightClick This.Parent.Lihat.Click ENDPROC PROCEDURE text4.LostFocus IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF ENDPROC PROCEDURE text4.Valid IF LASTKEY()=27 OR LASTKEY()=5 OR EMPTY(THIS.Value) RETURN -1 ENDIF IF !GASYKLAS() RETURN ENDIF SELECT GASYKLAS SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Value) IF FOUND() IniPesan("Kode ini sudah direkam!") THIS.PARENT.TEXT41.VALUE=KONDISI This.Parent.Text5.Value=Keterangan RETURN 1 ENDIF RETURN 1 ENDPROC PROCEDURE command1.Click IF EMPTY(This.Parent.Text1.Value) This.Parent.Text1.SetFocus ENDIF IF EMPTY(This.Parent.Text4.Value) OR EMPTY(This.Parent.Text5.Value) This.Parent.Text4.Setfocus ENDIF IF GASYKLAS() SELECT GASYKLAS SET ORDER TO 1 IF KUNCI_FI(10) SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Parent.Text4.Value) IF NOT FOUND() APPEND BLANK REPLACE KLP WITH This.Parent.Text1.Value,; NAMAKLP WITH This.Parent.Text2.Value,; LEBAR WITH This.Parent.Text3.Value,; KODE WITH This.Parent.Text4.Value,; KETERANGAN WITH This.Parent.Text5.Value,; KONDISI WITH THIS.PARENT.TEXT41.VALUE FLUSH UNLOCK ELSE REPLACE KETERANGAN WITH This.Parent.Text5.Value,; KONDISI WITH THIS.PARENT.TEXT41.VALUE FLUSH UNLOCK ENDIF ENDIF ENDIF This.Parent.Text4.Value="" This.Parent.Text5.Value="" This.Parent.Text4.SetFocus ENDPROC PROCEDURE _Close.Click RELEASE oGasyTBL ENDPROC PROCEDURE lihat.Click IF !EMPTY(This.Parent.Text1.Value) IF GASYKLAS() SELECT GASYKLAS SELECT KODE,KETERANGAN,NAMAKLP FROM GASYKLAS WHERE KLP=This.Parent.Text1.Value ORDER BY KODE INTO CURSOR KlasNsb SELECT KlasNsb DEFINE POPUP SANDI FROM MROW(),MCOL() FONT "Courier",8 PROMPT FIELD KODE+" "+ALLTRIM(KETERANGAN) ; SHORTCUT TITLE NAMAKLP COLOR SCHEME 4 ON SELECTION POPUP SANDI BAR() ACTIVATE POPUP SANDI IF BAR()>0 THIS.PARENT.TEXT4.VALUE=KODE THIS.PARENT.TEXT4.SETFOCUS ENDIF DEACTIVATE POPUP SANDI RELEASE POPUPS SANDI EXTENDED TUTUP("KlasNsb") ENDIF ENDIF ENDPROC PROCEDURE CETAK.CLICK ALAMATDL=ALAMATNYA("ADI") IF !GASYKLAS() RETURN ENDIF SELECT GASYKLAS PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface') ENDPROC PROCEDURE CETAK.RIGHTCLICK ALAMATDL=ALAMATNYA("ADI") IF !GASYKLAS() RETURN ENDIF SELECT * FROM GASYKLAS WHERE KLP==THISFORM.TEXT1.VALUE INTO CURSOR HASIL SELECT HASIL GO TOP IF EOF() PESAN('Data kosong') RETURN ENDIF PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface') TUTUP('HASIL') ENDPROC ENDDEFINE * *-- EndDefine: gasyklas **************************************************

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

GASYTBL - 51

GASYTBL - 71