Code Program

	ADMIN - REFRESH
GASY Script

TP00 - 47

************************************************** *-- Class: tp000 (c:\gasy\gasytrs.vcx) *-- ParentClass: container *-- BaseClass: container *-- Time Stamp: 02/15/04 03:36:12 AM * PUBLIC oGasyTP00 IF !USED('TP_MST') RETURN ENDIF IF !GASYKLAS() RETURN ENDIF oGasyTP00=CREATEOBJECT("oTp00") oGasyTP00.Height=400 oGasyTP00.Width=718 oGasyTP00.Autocenter=Tengah oGasyTP00.Show DEFINE CLASS otp00 AS form Top = 0 Left = 0 Height = 400 Width = 718 Caption = "Register Nasabah Tabungan Program" DoCreate = .T. Closable = .T. ControlBox = .T. TitleBar = 1 MaxButton= .F. Icon = "bmps\arw03up.ico" WindowType = 0 WindowState = 0 BackColor = RGB(144,176,168) Name = "_form" ADD OBJECT lkode AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 0, ; BackStyle = 0, ; Caption = "Kode", ; Height = 15, ; Left = 61, ; Top = 40+ 5, ; Width = 27, ; TabIndex = 37, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "lKode" ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Nama", ; Height = 15, ; Left = 58, ; Top = 40+ 30, ; Width = 30, ; TabIndex = 38, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label3" ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Alamat", ; Height = 15, ; Left = 54, ; Top = 40+ 55, ; Width = 34, ; TabIndex = 41, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label4" ADD OBJECT tkode AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .T., ; Height = 25, ; Left = 100, ; MaxLength = 9, ; SelectOnEntry = .T., ; TabIndex = 2, ; ToolTipText = "Ketik Kode Nasabah", ; Top = 40+ 0, ; Width = 79, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tKode" ADD OBJECT tnama AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 100, ; MaxLength = 30, ; TabIndex = 4, ; Top = 40+ 26, ; Width = 290, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tNama" ADD OBJECT talamat AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 100, ; MaxLength = 30, ; TabIndex = 5, ; Top = 40+ 50, ; Width = 290, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tAlamat" ADD OBJECT shape1 AS shape WITH ; Top = 40+ 156, ; Left = 250, ; Height = 137, ; Width = 139, ; ToolTipText = "Click, view foto atau hide foto", ; SpecialEffect = 0, ; BorderColor = RGB(128,128,128), ; Name = "Shape1" ADD OBJECT tbfoto AS image WITH ; Stretch = 2, ; BorderStyle = 1, ; Height = 127, ; Left = 255, ; Top = 40+ 162, ; Width = 128, ; Name = "tbFoto" ADD OBJECT label6 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Kota", ; Height = 15, ; Left = 64, ; Top = 40+ 80, ; Width = 24, ; TabIndex = 42, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label6" ADD OBJECT tjob AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 100, ; MaxLength = 30, ; SelectOnEntry = .T., ; TabIndex = 7, ; Top = 40+ 100, ; Width = 290, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tJob" ADD OBJECT tinduk AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 303, ; MaxLength = 8, ; SelectOnEntry = .T., ; TabIndex = 3, ; ToolTipText = "Ketik Kode Nasabah",; Top = 40+ 0, ; Width = 87, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tInduk" ADD OBJECT tkota AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 100, ; MaxLength = 30, ; TabIndex = 6, ; Top = 40+ 75, ; Width = 290, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tKota" ADD OBJECT tktp AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 100, ; MaxLength = 30, ; SelectOnEntry = .T., ; TabIndex = 8, ; Top = 40+ 125, ; Width = 290, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tKtp" ADD OBJECT ttgltrs AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 2, ; Value = {}, ; Enabled = .F., ; Height = 25, ; Left = 100, ; SelectOnEntry = .T., ; TabIndex = 10, ; Top = 40+ 177, ; Width = 112, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tTglTrs" ADD OBJECT tjw AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .F., ; Format = "999", ; Height = 25, ; InputMask = "999", ; Left = 100, ; MaxLength = 3, ; SelectOnEntry = .T., ; TabIndex = 13, ; Top = 40+ 227, ; Width = 32, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tJW" ADD OBJECT ttgljt AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 2, ; Value = {}, ; Enabled = .F., ; Height = 25, ; Left = 100, ; SelectOnEntry = .T., ; TabIndex = 15, ; Top = 40+ 252, ; Width = 112, ; BackColor = RGB(128,128,128), ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tTglJt" ADD OBJECT label12 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 0, ; BackStyle = 0, ; Caption = "Tgl.Jatuh Tempo", ; Height = 15, ; Left = 6, ; Top = 40+ 256, ; Width = 82, ; TabIndex = 36, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label12" ADD OBJECT label13 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "J.W(Tahun)", ; Height = 15, ; Left = 30, ; Top = 40+ 231, ; Width = 58, ; TabIndex = 35, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label13" ADD OBJECT tjmlsetoran AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; Value = 0, ; Enabled = .F., ; Format = "999,999,999,999", ; Height = 25, ; InputMask = "999,999,999,999", ; Left = 100, ; MaxLength = 19, ; SelectOnEntry = .T., ; TabIndex = 11, ; ToolTipText = "Tekan + atau *, untuk mengalikan angka 1000 dan 100", ; Top = 40+ 201, ; Width = 112, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tJmlSetoran" ADD OBJECT tprsbunga AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 3, ; Value = 0, ; Enabled = .F., ; Format = "99.99", ; Height = 25, ; InputMask = "99.99", ; Left = 168, ; SelectOnEntry = .T., ; TabIndex = 14, ; Top = 40+ 227, ; Width = 44, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tPrsBunga" ADD OBJECT jnsk AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 668, ; SelectOnEntry = .T., ; TabIndex = 22, ; Top = 40+ 27, ; Width = 38, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "JNSK" ADD OBJECT tptp5 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 627, ; SelectOnEntry = .T., ; TabIndex = 21, ; Top = 40+ 27, ; Width = 38, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "TPTP5" ADD OBJECT tptp4 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 587, ; SelectOnEntry = .T., ; TabIndex = 20, ; Top = 40+ 27, ; Width = 38, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "TPTP4" ADD OBJECT tptp3 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 547, ; SelectOnEntry = .T., ; TabIndex = 19, ; Top = 40+ 27, ; Width = 38, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "TPTP3" ADD OBJECT tptp2 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 507, ; SelectOnEntry = .T., ; TabIndex = 18, ; Top = 40+ 27, ; Width = 38, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "TPTP2" ADD OBJECT tptp1 AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 467, ; SelectOnEntry = .T., ; TabIndex = 17, ; Top = 40+ 27, ; Width = 38, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "TPTP1" ADD OBJECT label8 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Pekerjaan", ; Height = 15, ; Left = 38, ; Top = 40+ 105, ; Width = 50, ; TabIndex = 51, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label8" ADD OBJECT label9 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Identitas", ; Height = 15, ; Left = 46, ; Top = 40+ 130, ; Width = 42, ; TabIndex = 45, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label9" ADD OBJECT label15 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Tgl.Setor", ; Height = 15, ; Left = 43, ; Top = 40+ 181, ; Width = 45, ; TabIndex = 44, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label15" ADD OBJECT label16 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Setoran", ; Height = 15, ; Left = 49, ; Top = 40+ 206, ; Width = 39, ; TabIndex = 46, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label16" ADD OBJECT trpbunga AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; Value = 0, ; Enabled = .F., ; Format = "999,999,999,999.99", ; Height = 25, ; InputMask = "999,999,999,999.99", ; Left = 100, ; MaxLength = 19, ; SelectOnEntry = .T., ; TabIndex = 16, ; ToolTipText = "Tekan + atau *, untuk mengalikan angka 1000 dan 100", ; Top = 40+ 277, ; Width = 112, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tRPBUNGA" ADD OBJECT label5 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Jumlah Diterima", ; Height = 15, ; Left = 12, ; Top = 40+ 282, ; Width = 76, ; TabIndex = 49, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label5" ADD OBJECT linduk AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 0, ; BackStyle = 0, ; Caption = "No Induk:", ; Height = 15, ; Left = 226, ; Top = 40+ 3, ; Width = 49, ; TabIndex = 34, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; ToolTipText = "Clik disini, untuk melihat DAFTAR NASABAH", ; Name = "lInduk" ADD OBJECT tgllahir AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 2, ; Value = {}, ; Enabled = .F., ; Height = 25, ; Left = 100, ; SelectOnEntry = .T., ; TabIndex = 9, ; Top = 40+ 151, ; Width = 112, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "TGLLAHIR" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Tgl.Lahir", ; Height = 15, ; Left = 45, ; Top = 40+ 154, ; Width = 43, ; TabIndex = 43, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label1" ADD OBJECT namaaw AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 467, ; MaxLength = 30, ; TabIndex = 24, ; Top = 40+ 80, ; Width = 239, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "NAMAAW" ADD OBJECT alamataw AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 467, ; MaxLength = 30, ; TabIndex = 25, ; Top = 40+ 104, ; Width = 239, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "ALAMATAW" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Ahli Waris", ; Height = 15, ; Left = 406, ; Top = 40+ 86, ; Width = 49, ; TabIndex = 39, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label2" ADD OBJECT label14 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Alamat", ; Height = 15, ; Left = 421, ; Top = 40+ 111, ; Width = 34, ; TabIndex = 40, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label14" ADD OBJECT label17 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Klasifikasi", ; Height = 15, ; Left = 407, ; Top = 40+ 31, ; Width = 48, ; TabIndex = 50, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label17" ADD OBJECT mcatatan AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 467, ; MaxLength = 30, ; TabIndex = 23, ; Top = 40+ 53, ; Width = 239, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "MCATATAN" ADD OBJECT label18 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Catatan", ; Height = 15, ; Left = 416, ; Top = 40+ 57, ; Width = 39, ; TabIndex = 48, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label18" ADD OBJECT jset AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Format = "X", ; Height = 25, ; InputMask = "X", ; Left = 214, ; MaxLength = 1, ; SelectOnEntry = .T., ; TabIndex = 12, ; ToolTipText = "Jenis setoran, 1=Rutin per bulan, 2=Sekali Setor", ; Top = 40+ 201, ; Width = 27, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "JSET" ADD OBJECT label21 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Bunga", ; Height = 15, ; Left = 133, ; Top = 40+ 232, ; Width = 33, ; TabIndex = 47, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label21" ADD OBJECT line1 AS line WITH ; Height = 0, ; Left = 0, ; Top = 40+ 312, ; Width = 718, ; BorderColor = RGB(128,128,128), ; Name = "Line1" ADD OBJECT rekam AS commandbutton WITH ; Top = 40+ 324, ; Left = 453, ; Height = 27, ; Width = 84, ; Caption = "\<Rekam", ; Name = "Rekam" ADD OBJECT hapus AS commandbutton WITH ; Top = 40+ 324, ; Left = 537, ; Height = 27, ; Width = 84, ; Caption = "\<Hapus", ; Name = "Hapus" ADD OBJECT cmdkembali AS commandbutton WITH ; Top = 40+ 324, ; Left = 622, ; Height = 27, ; Width = 84, ; Caption = "\<Kembali", ; Name = "cmdKembali" ADD OBJECT proses AS image WITH ; Height = 17, ; Left = 420, ; Top = 40+ 204, ; Visible = .F., ; Width = 17, ; Name = "Proses" PROCEDURE Init This.Rekam.Visible=Dadi(39) This.Hapus.Visible=Dadi(40) ENDPROC PROCEDURE tkode.Valid IF !EMPTY(This.Value) IF ALLTRIM(This.Value)="+" SELECT TP_MST SET ORDER TO 1 GO BOTTOM This.Value=RIGHT("000000000"+ALLTRIM(STR(VAL(KODE)+1)),9) ELSE This.Value=RIGHT("000000000"+ALLTRIM(THIS.Value),9) ENDIF SELECT TP_MST SET ORDER TO 1 SEEK This.Value IF !FOUND() This.Parent.Proses.Click This.Parent.Proses.DblClick This.Parent.TINduk.Enabled=.T. ELSE This.Parent.Proses.Rightclick This.Parent.Proses.DblClick This.Parent.TINduk.Enabled=.T. IF TPSAlDO(This.Value,Gasy_Tgl)>0 This.Parent.Hapus.enabled=.F. ENDIF ENDIF ENDIF RETURN 1 ENDPROC PROCEDURE shape1.Click This.Parent.tbFoto.Visible=IIF(This.Parent.tbFoto.Visible,.F.,.T.) ENDPROC PROCEDURE tinduk.Valid IF !EMPTY(This.Value) This.Value=RIGHT('00000000'+ALLTRIM(This.Value),8) DATAFOTO=ALLTRIM(ALAMATNYA('ADF')) IF DN_MST(.f.) SELECT DN_MST SET ORDER TO 1 SEEK This.Value IF !FOUND() RETURN 0 ENDIF This.Parent.tNama.Value=NAMA This.Parent.tAlamat.Value=ALAMAT This.Parent.tKota.Value=KOTA This.Parent.tJob.Value=PEKERJAAN This.Parent.tKtp.Value=KTP This.Parent.TgLLAHIR.Value=TGL_TRS IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG') This.Parent.TbFoto.Enabled=.T. This.Parent.TbFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG' ELSE This.Parent.TbFoto.Picture=DATAFOTO+'00000000.JPG' ENDIF ENDIF ENDIF RETURN 1 ENDPROC PROCEDURE ttgltrs.Init This.Value=GASY_TGL ENDPROC PROCEDURE tjw.LostFocus This.Parent.TTglJt.Value=GOMONTH(This.Parent.tTglTrs.Value,(This.Value*12)) *TpBunga() ENDPROC PROCEDURE tjmlsetoran.LostFocus *TpBunga() ENDPROC PROCEDURE tjmlsetoran.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeycode=ASC("+") This.Value=This.Value*1000 KEYBOARD '{BACKSPACE}' ENDIF IF nKeycode=ASC("*") This.Value=This.Value*100 ENDIF IF nKeycode=ASC("/") This.Value=This.Value*1000000 ENDIF IF nKeycode=7 This.Value=0 ENDIF ENDPROC PROCEDURE tprsbunga.LostFocus *TpBunga() ENDPROC PROCEDURE jnsk.Init SELECT GASYKLAS SEEK "TP6" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDPROC PROCEDURE jnsk.RightClick This.Value=DAFTAR(This.ToolTipText,"TP6") ENDPROC PROCEDURE jnsk.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TP6",This.Value) ENDPROC PROCEDURE tptp5.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TP5",This.Value) ENDPROC PROCEDURE tptp5.RightClick This.Value=DAFTAR(This.ToolTipText,"TP5",This.Value) ENDPROC PROCEDURE tptp5.Init SELECT GASYKLAS SEEK "TP5" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDPROC PROCEDURE tptp4.Init SELECT GASYKLAS SEEK "TP4" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDPROC PROCEDURE tptp4.RightClick This.Value=DAFTAR(This.ToolTipText,"TP4",This.Value) ENDPROC PROCEDURE tptp4.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TP4",This.Value) ENDPROC PROCEDURE tptp3.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TP3",This.Value) ENDPROC PROCEDURE tptp3.RightClick This.Value=DAFTAR(This.ToolTipText,"TP3",This.Value) ENDPROC PROCEDURE tptp3.Init SELECT GASYKLAS SEEK "TP3" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDPROC PROCEDURE tptp2.Init SELECT GASYKLAS SEEK "TP2" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDPROC PROCEDURE tptp2.RightClick This.Value=DAFTAR(This.ToolTipText,"TP2",This.Value) ENDPROC PROCEDURE tptp2.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TP2",This.Value) ENDPROC PROCEDURE tptp1.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TP1",This.Value) ENDPROC PROCEDURE tptp1.RightClick This.Value=DAFTAR(This.ToolTipText,"TP1",This.Value) ENDPROC PROCEDURE tptp1.Init SELECT GASYKLAS SEEK "TP1" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDPROC PROCEDURE jset.LostFocus *TpBunga(MJW,MSB,MDB,MSP,TG,Pembulatan) ENDPROC PROCEDURE jset.Valid IF LASTKEY()=5 RETURN -1 ENDIF IF This.Value$"01234" RETURN 1 ENDIF IniPesan("Jenis Setoran"+CHR(13)+"0 = Sekali Setor, 1 = Setoran Rutin, 2 = Setoran Berkala") RETURN 0 ENDPROC PROCEDURE rekam.Click IF This.Parent.TJmlSetoran.Value>0 AND !EMPTY(This.Parent.tKode.Value) SELECT TP_MST SET ORDER TO 1 IF Kunci_Fi(10) SEEK This.Parent.tKode.Value IF !FOUND() APPEND BLANK REPLACE Kode WITH This.Parent.tKode.Value ENDIF REPLACE TGL_TRS WITH This.Parent.tTgltrs.Value,; GRP With MSERI,; INDUK WITH This.Parent.TInduk.Value,; NAMA WITH This.Parent.TNama.Value,; ALAMAT WITH This.Parent.TALamat.Value,; KOTA WITH This.Parent.TKOta.ValUE,; PEKERJAAN WITH This.Parent.TJOb.Value,; KTP WITH This.Parent.TKTp.Value,; TGL_LAHIR WITH This.Parent.TGLLAHIR.Value,; JNG_WAKTU WITH This.Parent.TJW.Value,; PRS_BUNGA WITH This.Parent.TPrsBunga.Value,; JML_SETOR WITH This.Parent.TJmlSetoran.Value,; JNS_SETOR WITH This.Parent.JSET.Value,; SKT WITH This.Parent.TPTP1.Value,; KWT WITH This.Parent.TPTP2.Value,; KPT WITH This.Parent.TPTP3.Value,; GOL WITH This.Parent.TPTP4.Value,; KLA WITH This.Parent.TPTP5.Value,; CATATAN WITH This.Parent.mCATATAN.Value,; NAMA_AW WITH This.Parent.NAMAAW.Value,; ALAMAT_AW WITH This.Parent.ALAMATAW.Value,; STD_JURNAL WITH This.Parent.JnSK.Value FLUSH UNLOCK This.Parent.Proses.Click This.Parent.tKode.value="" This.Parent.tKode.Setfocus ENDIF ENDIF ENDPROC PROCEDURE hapus.Click IF This.Parent.TJmlSetoran.Value>0 AND !EMPTY(This.Parent.tKode.Value) SELECT TP_MST SET ORDER TO 1 SEEK This.Parent.TKode.Value IF FOUND() AND KUNCI_RC(5) DELETE UNLOCK This.Parent.Proses.Click ENDIF ENDIF ENDPROC PROCEDURE proses.Click This.Parent.tNama.Value="" This.Parent.tAlamat.Value="" This.Parent.tKota.Value="" This.Parent.tJob.Value="" This.Parent.tKtp.Value="" This.Parent.JSET.Value="" This.Parent.MCATATAN.Value="" This.Parent.NAMAAW.Value="" This.Parent.ALAMATAW.Value="" This.Parent.TGLLAHIR.Value=CTOD("") This.Parent.tJmlSetoran.Value=0 This.Parent.tPrsBunga.Value=0 This.Parent.tRpBUNGA.Value=0 This.Parent.tInduk.Value="" This.Parent.tJW.Value=0 This.Parent.tPrsBunga.Enabled=.F. This.Parent.tJmlSetoran.Enabled=.F. This.Parent.tRpBUNGA.Enabled=.F. This.Parent.tInduk.Enabled=.F. This.Parent.tJW.Enabled=.F. This.Parent.TPTP1.Enabled=.F. This.Parent.TPTP2.Enabled=.F. This.Parent.TPTP3.Enabled=.F. This.Parent.TTglTrs.Enabled=.f. This.Parent.TPTP4.Enabled=.F. This.Parent.TPTP5.Enabled=.F. This.Parent.JNSK.Enabled=.F. This.Parent.JSET.Enabled=.F. This.Parent.MCATATAN.Enabled=.F. This.Parent.NAMAAW.Enabled=.F. This.Parent.ALAMATAW.Enabled=.F. This.Parent.TGLLAHIR.Enabled=.F. This.Parent.TBFoto.Picture="" This.Parent.tNama.Enabled=.f. This.Parent.tAlamat.Enabled=.f. This.Parent.tKtp.Enabled=.f. This.Parent.tJOB.Enabled=.f. This.Parent.tKOTA.Enabled=.f. ENDPROC PROCEDURE proses.DblClick This.Parent.tNama.Enabled=.t. This.Parent.tAlamat.Enabled=.t. This.Parent.tKtp.Enabled=.t. This.Parent.tJOB.Enabled=.t. This.Parent.tKOTA.Enabled=.t. This.Parent.TTglTrs.Value=GASY_TGL This.Parent.TGLLAHIR.Enabled=.T. This.Parent.TTglTrs.Enabled=.T. This.Parent.tJmlSetoran.Enabled=.T. This.Parent.tPrsBunga.Enabled=.T. This.Parent.tJW.Enabled=.T. This.Parent.JSET.Enabled=.T. This.Parent.TPTP1.Init This.Parent.TPTP2.Init This.Parent.TPTP3.Init This.Parent.TPTP4.Init This.Parent.TPTP5.Init This.Parent.NAMAAW.Enabled=.T. This.Parent.ALAMATAW.Enabled=.T. This.Parent.MCATATAN.Enabled=.T. ENDPROC PROCEDURE proses.RightClick DATAFOTO=ALLTRIM(ALAMATNYA('ADF')) SELECT TP_MST This.Parent.tKode.Value=KODE This.Parent.tInduk.Value=INDUK IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG') This.Parent.TbFoto.Enabled=.T. This.Parent.TbFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG' ELSE This.Parent.TbFoto.Picture=DATAFOTO+'00000000.JPG' ENDIF This.Parent.tNama.Value=NAMA This.Parent.tAlamat.Value=ALAMAT This.Parent.tKtp.Value=KTP This.Parent.tJOB.Value=PEKERJAAN This.Parent.tKOTA.Value=KOTA This.Parent.TGLLAHIR.Value=TGL_LAHIR This.Parent.tTglTrs.Value=TGL_TRS This.Parent.tJW.Value=JNG_WAKTU This.Parent.tPRSBunga.Value=PRS_BUNGA This.Parent.tJmlSetoran.Value=JML_SETOR This.Parent.TPTP1.Value=SKT This.Parent.TPTP2.Value=KWT This.Parent.TPTP3.Value=KPT This.Parent.TPTP4.Value=GOL This.Parent.TPTP5.Value=KLA This.Parent.TTglJt.Value=GOMONTH(TGL_TRS,(JNG_WAKTU*12)) This.Parent.JSET.Value=JNS_SETOR This.Parent.NAMAAW.Value=NAMA_AW This.Parent.ALAMATAW.Value=ALAMAT_AW This.Parent.MCATATAN.Value=CATATAN This.Parent.JnSK.Value=STD_JURNAL ENDPROC PROCEDURE cmdKembali.Click RELEASE oGasyTP00 ENDPROC ENDDEFINE * *-- EndDefine: tp000 **************************************************

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

TP00 - 47