PUBLIC oGasyRekening IF !AK_MST(.F.,GASY_TGL) RETURN ENDIF oGasyRekening=CREATEOBJECT("sAkmst") oGasyRekening.Show DEFINE CLASS sakmst AS form Caption="Setup Rekening Akuntansi" DESKTOP=.F. Height = 312 Width = 432 MaxButton= .F. MinButton= .F. AUTOCENTER=.T. Icon = "gasy.ico" WINDOWTYPE=1 BackColor = RGB(144,176,168) ADD OBJECT lkode AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Kode", ; Left = 31, ; Top = 54 ADD OBJECT mnoper AS textbox WITH ; Height = 23, ; Left = 72, ; MaxLength = 10, ; Top = 48, ; Width = 88 ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nama", ; Left = 31, ; Top = 80 ADD OBJECT mnaper AS textbox WITH ; Height = 23, ; Left = 72, ; MaxLength = 30, ; Top = 74, ; Width = 316 ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Jenis", ; Left = 31, ; Top = 106 ADD OBJECT mjenis AS combobox WITH ; ColumnCount = 2, ; ColumnWidths = "0", ; RowSourceType = 1, ; RowSource = "A,Aktiva,H,Hutang,M,Modal,P,Pendapatan,B,Biaya,S,Sementara/Administratif", ; Height = 24, ; Left = 72, ; Top = 100, ; Width = 40, ; Format = "!", ; InputMask = "!" ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Sifat", ; Left = 31, ; Top = 132 ADD OBJECT msifat AS combobox WITH ; ColumnCount = 2, ; ColumnWidths = "0", ; RowSourceType = 1, ; RowSource = "G,General,D,Detail", ; Height = 24, ; Left = 72, ; Top = 127, ; Width = 40, ; Format = "!", ; InputMask = "!" ADD OBJECT label5 AS label WITH ; AutoSize = .T.,; BackStyle = 0, ; Caption = "Level", ; Left = 31, ; Top = 158 ADD OBJECT mLEVEL AS combobox WITH ; ColumnCount = 1, ; RowSourceType = 1, ; RowSource = "0,1,2,3,4,5,6,7,8,9",; Height = 24, ; Left = 72, ; Top = 153, ; Width = 41, ; Format = "!", ; InputMask = "!" ADD OBJECT lkontrol AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Induk", ; Left = 31, ; Top = 185 ADD OBJECT mkontrol AS textbox WITH ; Height = 23, ; Left = 72, ; MaxLength = 10, ; Top = 181, ; Width = 88 ADD OBJECT mnamakontrol AS textbox WITH ; Height = 23, ; Left = 163, ; MaxLength = 30, ; Top = 182, ; Width = 225,; STYLE=1 ADD OBJECT label6 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Sandi", ; Left = 31, ; Top = 210 ADD OBJECT msandi AS textbox WITH ; Height = 23, ; Left = 72, ; MaxLength = 30, ; Top = 207, ; Width = 316 ADD OBJECT rekam AS commandbutton WITH ; AutoSize = .T., ; Top = 256, ; Left = 72, ; Caption = "\<Simpan" ADD OBJECT zbaru1 AS commandbutton WITH ; AUTOSIZE=.T.,; Top = 256, ; Caption = '\<Baru' ADD OBJECT zexit1 AS commandbutton WITH ; Top = 256, ; Left = 337, ; Height = 23, ; Width = 51, ; Caption= 'E\<xit',; CANCEL=.T. PROCEDURE INIT THIS.ZBARU1.LEFT=THIS.REKAM.LEFT+THIS.REKAM.WIDTH ENDPROC PROCEDURE LOAD THIS.MINHeight = 312 THIS.MINWidth = 432 ENDPROC PROCEDURE rekam.Click IF EMPTY(THIS.PARENT.MNOPER.VALUE) THIS.PARENT.MNOPER.SETFOCUS RETURN ENDIF IF !EMPTY(This.Parent.MNoper.Value) IF AK_MST(.F.,GASY_TGL) SELECT AK_MST SEEK This.Parent.MNoper.Value ORDER 1 IF !FOUND() IF KUNCI_FI(10) APPEND BLANK ENDIF ENDIF REPLACE NOPER WITH This.Parent.mNoPER.Value,; NAPER WITH This.Parent.mNaper.Value,; SIFAT WITH This.Parent.mSifat.Value,; JENIS WITH This.Parent.mJenis.Value,; LEPEL WITH VAL(This.Parent.mLevel.Value),; UMUM WITH This.Parent.mKontrol.Value,; Kode WITH This.Parent.mSandi.Value FLUSH UNLOCK This.Parent.mNoPER.Value="" This.Parent.mNaper.Value="" This.Parent.mNopER.SetFocus ENDIF ENDIF ENDPROC PROCEDURE mkontrol.Valid IF EMPTY(This.Value) RETURN ENDIF THIS.PARENT.MNAMAKONTROL.VALUE='' IF ALLTRIM(THIS.VALUE)==ALLTRIM(THIS.PARENT.MNOPER.VALUE) THIS.VALUE='' RETURN 0 ENDIF IF AK_MST(.F.,GASY_TGL) SELECT AK_MST SET ORDER TO 1 SEEK This.Value IF !FOUND() WAIT 'Nomer rekening tidak ada' WINDOW NOWAIT This.Value="" RETURN 0 ENDIF This.Parent.mNamaKontrol.Value=NAPER IF AK_MST.SIFAT=="D" WAIT 'Kontrol Rekening'+CHR(13)+; 'Nomer rekening bersifat detil tidak boleh sebagai kontrol' ; WINDOW NOWAIT RETURN 0 ENDIF RETURN 1 ENDIF ENDPROC PROCEDURE mkontrol.RightClick IF USED('Ak_Mst') Sele NOPER,NAPER ; FROM AK_MST ; where OCCURS(ALLTRIM(this.value),NOPER)>0 ; ORDER BY NOPER INTO CURSOR DAFTARAK This.Value=gLookup('Daftar Rekening Akuntansi',This.Value,"DAFTARAK",80) ENDIF ENDPROC PROCEDURE mjenis.Valid if empty(this.value) keyboard "{F4}" RETURN 0 ENDIF ENDPROC PROCEDURE msifat.Valid if empty(this.value) keyboard "{F4}" RETURN 0 ENDIF ENDPROC PROCEDURE mLEVEL.Valid if empty(this.value) keyboard "{F4}" RETURN 0 ENDIF ENDPROC PROCEDURE mnoper.Valid IF EMPTY(This.Value) RETURN ENDIF IF AK_MST(.F.,GASY_TGL) SELECT AK_MST SET ORDER TO 1 SEEK This.Value IF FOUND() This.Parent.mnaper.Value=naper This.Parent.mjenis.Value=JENIS This.Parent.MSIfat.Value=SIFAT This.Parent.MLEvel.Value=TRANS(LEPEL) This.Parent.MKontrol.Value=UMUM This.Parent.mSandi.Value=Kode ENDIF ENDIF ENDPROC PROCEDURE mnoper.RightClick IF USED('Ak_Mst') Sele NOPER,NAPER ; FROM AK_MST where ; OCCURS(ALLTRIM(this.value),NOPER)>0 ; ORDER BY NOPER ; INTO CURSOR DAFTARAK This.Value=gLookup('Daftar Rekening Akuntansi',This.Value,"DAFTARAK",80) ENDIF ENDPROC PROCEDURE zbaru1.Click This.Parent.MNoper.VALUE='' This.Parent.MNoper.Enabled=.T. This.Parent.mnoper.SetFocus ENDPROC PROCEDURE Zexit1.Click RELEASE oGasyRekening ENDPROC ENDDEFINE