Code Program

	ADMIN - REFRESH
GASY Script

TB00 - 81

Procedure TB00 PUBLIC oGasyTB00 TUTUP('TB_MST','TB_SLD','GASYKLAS') IF !TB_MST(.F.) RETURN ENDIF IF !TB_SLD(.F.,DATE()) RETURN ENDIF IF !GASYKLAS() RETURN ENDIF oGasyTB00=CREATEOBJECT("oTb00") oGasyTB00.Show endproc DEFINE CLASS otb00 AS form AutoCenter=.T. Height = 338 Width = 552 MinHeight = 338 MinWidth = 552 Caption="Register Nasabah Tabungan" MaxButton= .F. MinButton= .F. BorderStyle=1 Icon = _screen.icon BackColor = RGB(144,176,168) ADD OBJECT tbinduk AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 263, ; MaxLength = 8, ; SelectOnEntry = .T., ; TabIndex = 2, ; Top = 69, ; Width = 99, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "TbInduk" ADD OBJECT linduk AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "No. Induk:", ; Height = 15, ; Left = 207, ; Top = 75, ; Width = 52, ; TabIndex = 24, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "lInduk" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Blokir", ; Height = 15, ; Left = 233, ; Top = 195, ; Width = 28, ; TabIndex = 29, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label1" ADD OBJECT cblokir AS optiongroup WITH ; ButtonCount = 2, ; BackStyle = 0, ; Value = 2, ; Height = 28, ; Left = 265, ; Top = 189, ; Width = 95, ; TabIndex = 9, ; Name = "cBlokir", ; Option1.BackStyle = 0, ; Option1.Caption = "\<Ya", ; Option1.Value = 0, ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Style = 0, ; Option1.Top = 5, ; Option1.Width = 32, ; Option1.AutoSize = .T., ; Option1.Name = "Option1", ; Option2.BackStyle = 0, ; Option2.Caption = "\<Tidak", ; Option2.Value = 1, ; Option2.Height = 17, ; Option2.Left = 40, ; Option2.Style = 0, ; Option2.Top = 5, ; Option2.Width = 48, ; Option2.AutoSize = .F., ; Option2.Name = "Option2" ADD OBJECT ttanggal AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 1, ; Value = {}, ; Enabled = .F., ; Height = 25, ; Left = 79, ; TabIndex = 6, ; Top = 167, ; Width = 94, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tTanggal" ADD OBJECT label5 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Tanggal", ; Height = 15, ; Left = 24, ; Top = 171, ; Width = 41, ; TabIndex = 23, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label5" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "% p.a", ; Height = 15, ; Left = 178, ; Top = 197, ; Width = 28, ; TabIndex = 21, ; Name = "Label2" ADD OBJECT lkode AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Kode", ; Height = 15, ; Left = 24, ; Top = 73, ; Width = 27, ; TabIndex = 25, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "lKODE" ADD OBJECT nbaru AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Height = 25, ; Left = 79, ; MaxLength = 9, ; SelectOnEntry = .T., ; TabIndex = 1, ; ToolTipText = "Ketik Kode Nasabah Baru", ; Top = 70, ; Width = 94, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "nBaru" ADD OBJECT tktp AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 79, ; MaxLength = 30, ; SelectOnEntry = .T., ; TabIndex = 5, ; Top = 142, ; Width = 283, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tKtp" ADD OBJECT label22 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Identitas", ; Height = 15, ; Left = 24, ; Top = 144, ; Width = 42, ; TabIndex = 30, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label22" 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 = 116, ; SelectOnEntry = .T., ; TabIndex = 8, ; ToolTipText = "Isi suku bunga, jika tidak menggunakan suku bunga umum (TABEL)", ; Top = 193, ; Width = 57, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tPrsBunga" ADD OBJECT label14 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Bunga", ; Height = 15, ; Left = 24, ; Top = 195, ; Width = 33, ; TabIndex = 28, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label14" ADD OBJECT label27 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Klasifikasi", ; Height = 15, ; Left = 24, ; Top = 221, ; Width = 48, ; TabIndex = 27, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label27" ADD OBJECT talamat AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 79, ; MaxLength = 30, ; TabIndex = 4, ; Top = 118, ; Width = 283, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tAlamat" ADD OBJECT tnama AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Enabled = .F., ; Height = 25, ; Left = 79, ; MaxLength = 30, ; TabIndex = 3, ; Top = 93, ; Width = 283, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; Name = "tNama" ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Alamat", ; Height = 15, ; Left = 24, ; Top = 121, ; Width = 34, ; TabIndex = 26, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label4" ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Nama", ; Height = 15, ; Left = 24, ; Top = 96, ; Width = 30, ; TabIndex = 22, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label3" ADD OBJECT tbunga AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 79, ; MaxLength = 1, ; SelectOnEntry = .T., ; TabIndex = 7, ; Top = 192, ; Width = 36, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "tBunga" ADD OBJECT tgroup AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 79, ; SelectOnEntry = .T., ; TabIndex = 10, ; Top = 218, ; Width = 57, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "tGroup" ADD OBJECT tgol AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 139, ; SelectOnEntry = .T., ; TabIndex = 11, ; Top = 218, ; Width = 57, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "tGol" ADD OBJECT tjob AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 199, ; SelectOnEntry = .T., ; TabIndex = 12, ; Top = 218, ; Width = 57, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "tJob" ADD OBJECT tkpt AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 2, ; Enabled = .F., ; Height = 25, ; Left = 259, ; SelectOnEntry = .T., ; TabIndex = 13, ; Top = 218, ; Width = 57, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "tKPT" ADD OBJECT jnsk AS textbox WITH ; FontName = "MS Sans Serif", ; FontSize = 10, ; Alignment = 0, ; Enabled = .F., ; Height = 25, ; Left = 318, ; MaxLength = 2, ; SelectOnEntry = .T., ; TabIndex = 14, ; Top = 218, ; Width = 42, ; DisabledBackColor = RGB(128,128,128), ; DisabledForeColor = RGB(255,255,255), ; ZOrderSet = 26, ; Name = "JNSK" ADD OBJECT shape1 AS shape WITH ; Top = 70, ; Left = 369, ; Height = 172, ; Width = 160, ; SpecialEffect = 0, ; BorderColor = RGB(255,255,255), ; Name = "Shape1" ADD OBJECT tbfoto AS image WITH ; Stretch = 2, ; BorderStyle = 1, ; Height = 148, ; Left = 380, ; Top = 83, ; Width = 140, ; Name = "tbFoto" ADD OBJECT proses AS image WITH ; Height = 17, ; Left = 182, ; Top = 173, ; Visible = .F., ; Width = 24, ; Name = "Proses" ADD OBJECT rekam AS commandbutton WITH ; Top = 273, ; Left = 276, ; Height = 27, ; Width = 84, ; Caption = "\<Rekam", ; Name = "Rekam" ADD OBJECT hapus AS commandbutton WITH ; Top = 273, ; Left = 361, ; Height = 27, ; Width = 84, ; Caption = "\<Hapus", ; Name = "Hapus" ADD OBJECT cmdkembali AS commandbutton WITH ; Top = 273, ; Left = 446, ; Height = 27, ; Width = 84, ; Caption = "\<Kembali", ; Name = "cmdKembali" PROCEDURE Init This.Rekam.Visible=Dadi(28) This.Hapus.Visible=Dadi(29) This.Rekam.Enabled=.F. This.Hapus.Enabled=.F. ENDPROC PROCEDURE tbinduk.LostFocus IF !EMPTY(This.Value) This.Value=RIGHT('00000000'+ALLTRIM(This.Value),8) IF DN_MST(.F.) SELECT DN_MST SET ORDER TO 1 SEEK This.Value IF FOUND() This.Parent.tNama.Value=NAMA This.Parent.tAlamat.Value=ALAMAT This.Parent.tKtp.Value=KTP ENDIF This.Parent.Shape1.Click ENDIF ENDIF ENDPROC PROCEDURE nbaru.Valid IF LASTKEY()=5 OR EMPTY(This.Value) RETURN -1 ENDIF IF ALLTRIM(This.Value)="+" SELECT TB_MST SET ORDER TO 1 GO BOTTOM This.Value=RIGHT('000000000'+ALLTRIM(STR(VAL(KODE)+1,9)),9) ELSE This.Value=RIGHT('000000000'+ALLTRIM(This.Value),9) ENDIF SELECT TB_MST SET ORDER TO 1 SEEK This.Value IF !FOUND() This.Parent.Rekam.Enabled=DADI(51) This.Parent.Proses.RightClick RETURN 1 ELSE This.Parent.Proses.Click This.Parent.Shape1.Click This.Parent.Proses.RightClick This.Parent.Rekam.Enabled=Dadi(52) Select TB_SLD Set Order To 1 Seek This.Parent.nBaru.Value If Found() IF TBS_LALU+TBS_KINI-TBT_KINI+TBS_HARI-TBT_HARI=0 This.Parent.Hapus.Enabled=Dadi(53) ENDIF ENDIF RETURN 1 ENDIF ENDPROC PROCEDURE tbunga.Init IF GASYKLAS() SELECT GASYKLAS LOCATE FOR KLP=='TMB' This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() ENDIF ENDPROC PROCEDURE tbunga.RightClick This.Value=DAFTAR(This.ToolTipText,"TMB",This.Value) ENDPROC PROCEDURE tbunga.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TMB",This.Value) ENDPROC PROCEDURE tgroup.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TWT",This.Value) ENDPROC PROCEDURE tgroup.RightClick This.Value=DAFTAR(This.ToolTipText,"TWT",This.Value) ENDPROC PROCEDURE tgroup.Init IF GASYKLAS() SELECT GASYKLAS SEEK "TWT" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDIF ENDPROC PROCEDURE tgol.Init IF GASYKLAS() SELECT GASYKLAS SEEK 'TGP' ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDIF ENDPROC PROCEDURE tgol.RightClick This.Value=DAFTAR(This.ToolTipText,"TGP",This.Value) ENDPROC PROCEDURE tgol.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TGP",This.Value) ENDPROC PROCEDURE tjob.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TPN",This.Value) ENDPROC PROCEDURE tjob.RightClick This.Value=DAFTAR(This.ToolTipText,"TPN",This.Value) ENDPROC PROCEDURE tjob.Init IF GASYKLAS() SELECT GASYKLAS SEEK 'TPN' ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDIF ENDPROC PROCEDURE tkpt.Init IF GASYKLAS() SELECT GASYKLAS SEEK 'TPT' ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() This.Format=REPLICATE("X",LEBAR) This.InputMask=REPLICATE("X",LEBAR) ENDIF ENDPROC PROCEDURE tkpt.RightClick This.Value=DAFTAR(This.ToolTipText,"TPT",This.Value) ENDPROC PROCEDURE tkpt.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TPT",This.Value) ENDPROC PROCEDURE jnsk.Valid IF LASTKEY()=5 RETURN -1 ENDIF RETURN CKLAS("TJT",This.Value) ENDPROC PROCEDURE jnsk.RightClick This.Value=DAFTAR(This.ToolTipText,"TJT",This.Value) ENDPROC PROCEDURE jnsk.Init IF GASYKLAS() SELECT GASYKLAS SEEK "TJT" ORDER 1 This.ToolTipText=ALLTRIM(NAMAKLP) This.Enabled=FOUND() ENDIF ENDPROC PROCEDURE shape1.Click LOCAL DATAFOTO DATAFOTO=ALAMATNYA('ADF') IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.TbInduk.Value),8)+'.JPG') This.Parent.TBFoto.Visible=.T. This.Parent.TBFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.TbInduk.Value),8)+'.JPG' ELSE This.Parent.TBFoto.Picture=DATAFOTO+'00000000.JPG' ENDIF ENDPROC PROCEDURE proses.Click This.Parent.TbInduk.Value=INDUK This.Parent.tTanggal.Value=TGL_TRS This.Parent.tNama.Value=NAMA This.Parent.tAlamat.Value=ALAMAT This.Parent.tKtp.Value=KTP This.Parent.tBunga.Value=YES_BUNGA This.Parent.tPrsBunga.Value=PRS_BUNGA This.Parent.tGroup.Value=WLY This.Parent.tGol.Value=GOL This.Parent.tJob.Value=JOB This.Parent.tKPT.Value=KPT This.Parent.JnsK.Value=STD_JURNAL This.Parent.cBlokir.Value=IIF(BLOKIR="B",1,2) ENDPROC PROCEDURE proses.Init This.Parent.TbInduk.Enabled=.F. This.Parent.tTanggal.Enabled=.F. This.Parent.tNama.Enabled=.F. This.Parent.tAlamat.Enabled=.F. This.Parent.tKtp.Enabled=.F. This.Parent.tBunga.Enabled=.F. This.Parent.tPrsBunga.Enabled=.F. This.Parent.tGroup.Enabled=.F. This.Parent.tGol.Enabled=.F. This.Parent.tJob.Enabled=.F. This.Parent.tKPT.Enabled=.F. This.Parent.cBlokir.Enabled=.F. This.Parent.nBaru.Value="" This.Parent.TbInduk.Value="" This.Parent.tNama.Value="" This.Parent.tAlamat.Value="" This.Parent.tKtp.Value="" This.Parent.tBunga.Value="" This.Parent.tTanggal.Value=Gasy_Tgl This.Parent.tPrsBunga.Value=0 This.Parent.tGroup.Value="" This.Parent.tGol.Value="" This.Parent.tJob.Value="" This.Parent.tKPT.Value="" This.Parent.cBlokir.Value=2 This.Parent.TbFoto.Picture="" This.Parent.JNSK.Enabled=.F. This.Parent.nBaru.SetFocus ENDPROC PROCEDURE proses.RightClick This.Parent.TbInduk.Enabled=.T. This.Parent.tTanggal.Enabled=.T. This.Parent.tNama.Enabled=.T. This.Parent.tAlamat.Enabled=.T. This.Parent.tKtp.Enabled=.T. This.Parent.tBunga.Init This.Parent.tPrsBunga.Enabled=.T. This.Parent.tGroup.Init This.Parent.tGol.Init This.Parent.tJob.Init This.Parent.tKPT.Init This.Parent.cBlokir.Enabled=.T. This.Parent.JnSK.Init ENDPROC PROCEDURE rekam.Click IF !EMPTY(This.Parent.nBaru.Value) SELECT TB_MST SET ORDER TO 1 SEEK This.Parent.nBaru.Value IF !FOUND() IF KUNCI_FI(10) APPEND BLANK REPLACE KODE WITH This.Parent.nBaru.Value ENDIF ENDIF REPLACE NAMA WITH This.Parent.tNama.Value,; ALAMAT WITH This.Parent.tAlamat.Value,; INDUK WITH This.Parent.TbInduk.Value,; WLY WITH This.Parent.tGroup.Value,; GRP With MSERI,; TGL_TRS WITH This.Parent.tTanggal.Value,; GOL WITH This.Parent.tGol.Value,; JOB WITH This.Parent.tJob.Value,; KPT WITH This.Parent.tKpt.Value,; KTP WITH This.Parent.tKtp.Value,; YES_BUNGA WITH This.Parent.tBunga.Value,; PRS_BUNGA WITH This.Parent.tPrsBunga.Value,; BLOKIR WITH IIF(This.Parent.cBlokir.Value=1,'B',''),; STD_JURNAL WITH This.Parent.JnSK.Value FLUSH UNLOCK SELECT TB_SLD SEEK This.Parent.nBaru.Value IF FOUND() IF KUNCI_RC(5) REPLACE GRP WITH This.Parent.tGroup.Value FLUSH UNLOCK ENDIF ENDIF This.Parent.Proses.Init This.Parent.nBaru.Enabled= .T. This.Parent.nBaru.SetFocus ENDIF ENDPROC PROCEDURE hapus.Click IF !EMPTY(This.Parent.nBaru.Value) SELECT TB_MST SET ORDER TO 1 SEEK This.Parent.nBaru.Value IF FOUND() IF KUNCI_RC(10) DELETE FLUSH UNLOCK ENDIF This.Parent.Proses.Init ENDIF ENDIF ENDPROC PROCEDURE cmdKembali.Click RELEASE oGasyTB00 ENDPROC ENDDEFINE * *-- EndDefine: tb000 **************************************************

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

TB00 - 81