PROCEDURE SANDIMUTASI PUBLIC oGasySandi oGasySandi=CREATEOBJECT("standarjurnal") oGasySandi.Show ENDPROC DEFINE CLASS standarjurnal AS form Caption="Setup Sandi Transasi dan Standar Jurnal" AutoCenter=.T. MAXHeight = 442 MAXWidth = 685 MINHeight = 442 MINWidth = 685 MaxButton= .F. MinButton= .F. Icon = "Gasy.ico" WindowType = 1 DESKTOP=.T. BackColor = RGB(144,176,168) SHOWTIPS=.T. ADD OBJECT cJurnal AS Checkbox WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "", ; Left = 19, ; Top = 69 ADD OBJECT label10 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Sandi Mutasi", ; Left = 56, ; Top = 48 ADD OBJECT vsandi AS textbox WITH ; Format ="!!!!!!!!!",; Height = 23, ; Left = 55, ; MaxLength = 9, ; SelectOnEntry = .T., ; Top = 69, ; Width = 88,; TOOLTIPTEXT="KLIK KANAN UNTUK MENAMPILKAN, ATAU KETIK =" ADD OBJECT label19 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Keterangan", ; Left = 146, ; Top = 48 ADD OBJECT vnamasandi AS textbox WITH ; Height = 23, ; Left = 146, ; MaxLength = 50, ; Top = 69, ; Width = 232 ADD OBJECT label24 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Kode Jurnal", ; Left = 384, ; Top = 48 ADD OBJECT ccjurnal AS textbox WITH ; Height = 23, ; Left = 379, ; MaxLength = 30, ; SelectOnEntry = .T., ; Top = 69, ; Width = 66 ADD OBJECT label20 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "DK", ; Left = 455, ; Top = 48 ADD OBJECT dk AS textbox WITH ; Height = 23, ; Left = 449, ; MaxLength = 2, ; SelectOnEntry = .T., ; Top = 69, ; Width = 35 ADD OBJECT label21 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "SD", ; Left = 492, ; Top = 48 ADD OBJECT sandilama AS textbox WITH ; Height = 23, ; Left = 486, ; MaxLength = 1, ; SelectOnEntry = .T., ; Top = 69, ; Width = 28 ADD OBJECT label23 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Prosedur", ; Left = 538, ; Top = 48 ADD OBJECT ccpros AS textbox WITH ; Height = 23, ; Left = 516, ; MaxLength = 8, ; SelectOnEntry = .T., ; Top = 69, ; Width = 67 ADD OBJECT label22 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Catatan", ; Left = 614, ; Top = 48 ADD OBJECT vcatatan AS textbox WITH ; Height = 23, ; Left = 584, ; MaxLength = 30, ; SelectOnEntry = .T., ; Top = 69, ; Width = 95 ADD OBJECT cmdrekamstd AS commandbutton WITH ; Top = 114, ; Left = 486, ; Height = 27, ; Width = 84, ; FontName = "MS Sans Serif", ; Caption = "\<Simpan" ADD OBJECT cmdhapusstd AS commandbutton WITH ; Top = 114, ; Left = 571, ; Height = 27, ; Width = 84, ; FontName = "MS Sans Serif", ; Caption = "\<Hapus" ADD OBJECT lxKodeJurnal AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Kode Jurnal", ; Left = 56, ; Top = 120 ADD OBJECT kodejurnal AS textbox WITH ; Height = 23, ; Left = 145, ; MaxLength = 9, ; SelectOnEntry = .T., ; Top = 117, ; Width = 88 add object std_0 as std_jurnal_ with ; top=150 add object std_1 as std_jurnal_ with ; NOMER_.VALUE='1',; top=173 add object std_2 as std_jurnal_ with ; NOMER_.VALUE='2',; top=196 add object std_3 as std_jurnal_ with ; NOMER_.VALUE='3',; top=219 add object std_4 as std_jurnal_ with ; NOMER_.VALUE='4',; top=239 add object std_5 as std_jurnal_ with ; NOMER_.VALUE='5',; top=262 add object std_6 as std_jurnal_ with ; NOMER_.VALUE='6',; top=285 add object std_7 as std_jurnal_ with ; NOMER_.VALUE='7',; top=308 add object std_8 as std_jurnal_ with ; NOMER_.VALUE='8',; top=331 add object std_9 as std_jurnal_ with ; NOMER_.VALUE='9',; top=354 ADD OBJECT cmdrekam AS commandbutton WITH ; Top = 402, ; Left = 23, ; Height = 27, ; Width = 84, ; FontName = "MS Sans Serif", ; Caption = "\<Simpan" ADD OBJECT cmdhapus AS commandbutton WITH ; Top = 402, ; Left = 107, ; Height = 27, ; Width = 84, ; FontName = "MS Sans Serif", ; Caption = "\<Hapus" ADD OBJECT cmdcetak AS commandbutton WITH ; Top = 402, ; Left = 191, ; Height = 27, ; Width = 84, ; FontName = "MS Sans Serif", ; Caption = "\<Cetak" ADD OBJECT cmdkembali AS commandbutton WITH ; Top = 402, ; Left = 572, ; Height = 27, ; Width = 84, ; FontName = "MS Sans Serif", ; Caption = "E\<xit" procedure std_0.init this.nomer_.value='No.' this.Noper_.Value='No.Rekening' this.Noper_.style=1 this.Noper_.MAXLENGTH=14 this.Naper_.Value='Nama Rekening' this.Naper_.style=1 this.Kode_.Value='Kode' this.Kode_.style=1 this.D_K_.Value='D/K' this.D_K_.style=1 this.D_K_.MAXLENGTH=3 this.Keterangan_.Value='Keterangan' this.Keterangan_.style=1 endproc PROCEDURE cmdkembali.Click RELEASE oGasySandi ENDPROC PROCEDURE cmdRekam.click FOR nom=1 TO 9 mNoper="This.Parent.STD_"+STR(Nom,1)+".Noper_.Value" mDk="This.Parent.STD_"+STR(Nom,1)+".D_K_.Value" mCatatan="This.Parent.STD_"+STR(Nom,1)+".KETERANGAN_.Value" mKode="This.Parent.STD_"+STR(Nom,1)+".KODE_.Value" StdRekam(This.Parent.KodeJurnal.Value,STR(Nom,1),&mNoper,&mDk,&mKode,&mCatatan) ENDFOR This.Parent.KodeJurnal.Setfocus ENDPROC PROCEDURE cmdHapus.click FOR nom=1 TO 9 StdHapus(This.Parent.KodeJurnal.Value,STR(Nom,1)) ENDFOR This.Parent.KodeJurnal.Setfocus ENDPROC PROCEDURE kodejurnal.KOSONGKAN FOR nom=1 TO 9 mSTD="This.Parent.STD_"+STR(Nom,1) &mSTD..Noper_.Value="" &mSTD..D_K_.Value="" &mSTD..NAPER_.Value="" &mSTD..KODE_.Value="" &mSTD..KETERANGAN_.Value="" ENDFOR ENDPROC PROCEDURE kodejurnal.VALID IF EMPTY(THIS.VALUE) THIS.KOSONGKAN RETURN ENDIF FOR nom=1 TO 9 IF stdcari(This.Value,STR(Nom,1)) mSTD="This.Parent.STD_"+STR(Nom,1) &mSTD..Noper_.VALUE=NOPER &mSTD..Naper_.VALUE=Naper &mSTD..KODE_.VALUE=C_N &mSTD..D_K_.VALUE=D_K &mSTD..KETERANGAN_.VALUE=Blanko ENDIF ENDFOR ENDPROC PROCEDURE vSandi.Rightclick THIS.TAG=ALLTRIM(UPPER(THIS.VALUE)) IF AK_STD() IF EMPTY(THIS.TAG) SELECT AK_STD.KODE,KETERANGAN FROM AK_STD ORDER BY KODE INTO CURSOR SANDIMTS ELSE SELECT AK_STD.KODE,KETERANGAN FROM AK_STD ; WHERE OCCURS(THIS.TAG,UPPER(KODE))>0 ; OR OCCURS(THIS.TAG,UPPER(KETERANGAN))>0 ; ORDER BY KODE INTO CURSOR SANDIMTS ENDIF SELECT SANDIMTS This.Value=gLookup('SANDI MUTASI TRANSAKSI',This.Value,"SANDIMTS",80) Tutup("SandiMts") ENDIF ENDPROC PROCEDURE vSandi.Dblclick This.Value="" ENDPROC PROCEDURE vSandi.VALID IF !AK_STD() RETURN ENDIF IF EMPTY(THIS.VALUE) RETURN ENDIF IF LEFT(THIS.VALUE,1)='=' THIS.VALUE=SUBSTR(THIS.VALUE,2) THIS.RIGHTCLICK RETURN 0 ENDIF IF !EMPTY(This.Value) This.Parent.cmdRekamStd.Enabled=.t. SELECT AK_STD LOCATE FOR KODE==ALLTRIM(This.Value) IF FOUND() This.Parent.cmdHapusStd.Enabled=.t. This.Parent.vNamaSandi.Value=Keterangan This.Parent.ccJurnal.Value=Naper This.Parent.DK.Value=D_K This.Parent.SandiLama.Value=SDT This.Parent.ccPros.Value=Prosedur This.Parent.vCatatan.Value=ALLTRIM(Catatan) This.Parent.cJurnal.Value=VAL(LEFT(KPRO,1)) ENDIF ENDIF RETURN 1 ENDPROC PROCEDURE cmdHapusStd.click IF !AK_STD() RETURN ENDIF This.ENABLED=.F. SELECT AK_STD LOCATE FOR KODE==ALLTRIM(This.Parent.vSandi.Value) IF FOUND() IF Kunci_Fi(10) DELETE UNLOCK FLUSH ENDIF ENDIF ENDPROC PROCEDURE cmdRekamStd.RIGHTclick TUTUP('AK_STD') IF !AK_STD(.T.) RETURN ENDIF SELE AK_STD MODI STRU ENDPROC PROCEDURE cmdRekamStd.click IF !AK_STD() RETURN ENDIF This.ENABLED=.F. SELECT AK_STD LOCATE FOR KODE==ALLTRIM(This.Parent.vSandi.Value) IF !FOUND() IF Kunci_Fi(10) APPEND BLANK REPLACE Kode WITH This.Parent.vSandi.Value,; Keterangan WITH This.Parent.vNamaSandi.Value,; Naper WITH This.Parent.ccJurnal.Value,; D_K WITH This.Parent.DK.Value,; SDT WITH This.Parent.SandiLama.Value,; Prosedur WITH This.Parent.ccPros.Value,; Catatan WITH LEFT(This.Parent.vCatatan.Value,3),; KPRO WITH STR(This.Parent.cJurnal.Value,1) FLUSH UNLOCK ENDIF ELSE IF Kunci_RC(5) REPLACE Naper WITH This.Parent.ccJurnal.Value,; Keterangan WITH This.Parent.vNamaSandi.Value,; D_K WITH This.Parent.DK.Value,; SDT WITH This.Parent.SandiLama.Value,; Prosedur WITH This.Parent.ccPros.Value,; Catatan WITH LEFT(This.Parent.vCatatan.Value,3),; KPRO WITH STR(This.Parent.cJurnal.Value,1) FLUSH UNLOCK ENDIF ENDIF ENDPROC PROCEDURE cmdCetak.RightClick IF !AK_JCN(.F.) RETURN ENDIF SELECT AK_JCN PROCETAK(Alamatdl+'Laporan\ak_standarjurnal') ENDPROC PROCEDURE cmdCetak.Click IF !AK_STD() RETURN ENDIF SELECT AK_STD PROCETAK(Alamatdl+'Laporan\ak_sanditransaksi') ENDPROC PROCEDURE KODEJURNAL.GOTFOCUS IF OCCURS('-',THIS.PARENT.CCJURNAL.VALUE)=1 THIS.TOOLTIPTEXT=STREXTRACT(THIS.PARENT.CCJURNAL.VALUE,'-','') ENDIF IF OCCURS('-',THIS.PARENT.CCJURNAL.VALUE)=2 THIS.TOOLTIPTEXT=STREXTRACT(THIS.PARENT.CCJURNAL.VALUE,'-','-') ENDIF THIS.VALUE=THIS.TOOLTIPTEXT ENDPROC PROCEDURE KODEJURNAL.DBLCLICK THIS.VALUE='' THIS.KOSONGKAN ENDPROC ENDDEFINE * *-- EndDefine: standarjurnal ************************************************** PROCEDURE STDCARI LPARAMETERS Kode1,Kode2 SELECT AK_JCN SET ORDER TO 1 SEEK KODE1+KODE2 RETURN FOUND() ENDPROC PROCEDURE STDHAPUS LPARAMETERS Kode1,Kode2 SELECT AK_JCN SET ORDER TO 1 SEEK KODE1+KODE2 *LOCATE FOR KODE==KODE1 AND URUT==KODE2 IF FOUND() IF KUNCI_RC(5) DELETE FLUSH UNLOCK ENDIF ENDIF ENDPROC PROCEDURE STDREKAM LPARAMETERS Kode1,Kode2,Kode3,Kode4,Kode5,Kode6 IF !EMPTY(Kode3) SELECT AK_MST SEEK KODE3 ORDER 1 IF FOUND() MKODE4=NAPER SELECT AK_JCN SET ORDER TO 1 SEEK KODE1+KODE2 IF !FOUND() IF KUNCI_FI(5) APPEND BLANK REPLACE KODE WITH KODE1, URUT WITH KODE2, NOPER WITH KODE3,; NAPER WITH MKODE4, D_K WITH KODE4, C_N WITH KODE5, BLANKO WITH Kode6 UNLOCK ENDIF ELSE IF KUNCI_RC(5) REPLACE NOPER WITH KODE3,; NAPER WITH MKODE4, D_K WITH KODE4, C_N WITH KODE5, BLANKO WITH Kode6 UNLOCK ENDIF ENDIF ENDIF ENDIF ENDPROC DEFINE CLASS STD_JURNAL_ AS CONTAINER BACKSTYLE=0 BORDERWIDTH=0 HEIGHT=25 WIDTH=750 ADD OBJECT nomer_ AS TEXTBOX WITH ; VALUE = "1", ; ALIGNMENT=2,; WIDTH=30,; HEIGHT=23,; Left = 10,; STYLE=1 ADD OBJECT noper_ AS textbox WITH ; Height = 23, ; Left = 40, ; MaxLength = 10, ; SelectOnEntry = .T., ; Top = 0, ; Width = 90,; TOOLTIPTEXT="KLIK KANAN UNTUK MENAMPILKAN AKUN, ATAU KETIK =" ADD OBJECT naper_ AS textbox WITH ; Height = 23, ; Left = 130, ; MaxLength = 100, ; SelectOnEntry = .T., ; Top = 0, ; Width = 300,; style=1 ADD OBJECT kode_ AS textbox WITH ; Height = 23, ; Left = 430, ; MaxLength = 10, ; SelectOnEntry = .T., ; Top = 0, ; Width = 70,; style=0 ADD OBJECT d_k_ AS textbox WITH ; Height = 23, ; Left = 500, ; MaxLength = 1, ; SelectOnEntry = .T., ; Top = 0, ; Width = 30,; AlignMent=2,; style=0,; inputmask='!',; format='!' ADD OBJECT keterangan_ AS textbox WITH ; Height = 23, ; Left = 530, ; MaxLength = 50, ; SelectOnEntry = .T., ; Top = 0, ; Width = 150,; style=0 PROCEDURE d_k_.Valid IF EMPTY(This.Value) This.Value="D" ENDIF IF This.Value$"DK" RETURN 1 ENDIF ENDPROC PROCEDURE noper_.RightClick this.tag=upper(alltrim(this.value)) if !DBF_AK_MST() return endif IF USED('Ak_Mst') if empty(this.tag) Sele NOPER,NAPER FROM AK_MST ; ORDER BY NOPER ; INTO CURSOR DAFTARAK else Sele NOPER,NAPER FROM AK_MST ; WHERE occurs(this.tag,upper(noper))>0 ; or occurs(this.tag,upper(naper))>0 ; ORDER BY NOPER ; INTO CURSOR DAFTARAK endif This.Value=gLookup('Daftar Rekening Transaksi',This.Value,"DAFTARAK",80) ENDIF ENDPROC PROCEDURE noper_.valid if empty(this.value) this.parent.naper_.value='' return endif if !DBF_AK_MST() return endif if !used('ak_mst') return endif IF LEFT(THIS.VALUE,1)=='=' THIS.VALUE=SUBSTR(THIS.VALUE,2) THIS.RIGHTCLICK RETURN 0 ENDIF SELECT AK_MST SEEK This.Value ORDER 1 IF FOUND() This.Parent.Naper_.Value=AK_MST.NAPER return 1 ELSE This.Value="" this.parent.naper_.value='' return 0 ENDIF ENDPROC ENDDEFINE