Code Program

	ADMIN - REFRESH
GASY Script

LEDGER - 68

PUBLIC ofakbbt SET CLASSLIB TO c:\users\hp\vfp8\prg\progasy.vcx ADDITIVE ofakbbt=NEWOBJECT("fakbbt") ofakbbt.Show RETURN ************************************************** *-- Form: fakbbt (c:\users\hp\vfp8\libs\ledger.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 12/22/24 08:34:01 PM * DEFINE CLASS fakbbt AS form Top = 0 Left = 0 Height = 450 Width = 750 ShowWindow = 1 DoCreate = .T. AutoCenter = .F. BorderStyle = 3 Caption = "Buku Besar" ControlBox = .T. FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Icon = "..\bmps\checkmrk.ico" TitleBar = 1 WindowType = 0 WindowState = 0 BackColor = RGB(144,176,168) Name = "FAKBBT" xoffset = .F. yoffset = .F. ijenis = .F. ADD OBJECT sld00 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 5, ; Top = 33, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD00" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Saldo Debet", ; Height = 15, ; Left = 459, ; Top = 14, ; Width = 73, ; TabIndex = 6, ; Name = "Label1" ADD OBJECT dbl01 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 7, ; Top = 59, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL01" ADD OBJECT kbl01 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 8, ; Top = 59, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL01" ADD OBJECT sld01 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 9, ; Top = 59, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD01" ADD OBJECT dbl02 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 10, ; Top = 84, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL02" ADD OBJECT kbl02 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 11, ; Top = 84, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL02" ADD OBJECT sld02 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 12, ; Top = 84, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD02" ADD OBJECT dbl03 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 13, ; Top = 109, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL03" ADD OBJECT kbl03 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 14, ; Top = 109, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL03" ADD OBJECT sld03 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 15, ; Top = 109, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD03" ADD OBJECT dbl04 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 16, ; Top = 134, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL04" ADD OBJECT kbl04 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 17, ; Top = 134, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL04" ADD OBJECT sld04 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 18, ; Top = 134, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD04" ADD OBJECT dbl05 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 19, ; Top = 160, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL05" ADD OBJECT kbl05 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 20, ; Top = 160, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL05" ADD OBJECT sld05 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 21, ; Top = 160, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD05" ADD OBJECT dbl06 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 22, ; Top = 185, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL06" ADD OBJECT kbl06 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 23, ; Top = 185, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL06" ADD OBJECT sld06 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 24, ; Top = 185, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD06" ADD OBJECT dbl07 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 25, ; Top = 210, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL07" ADD OBJECT kbl07 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 26, ; Top = 210, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL07" ADD OBJECT sld07 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 27, ; Top = 210, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD07" ADD OBJECT dbl08 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 28, ; Top = 235, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL08" ADD OBJECT kbl08 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 29, ; Top = 235, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL08" ADD OBJECT sld08 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 30, ; Top = 235, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD08" ADD OBJECT dbl09 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 31, ; Top = 260, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL09" ADD OBJECT kbl09 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 32, ; Top = 260, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL09" ADD OBJECT sld09 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 33, ; Top = 260, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD09" ADD OBJECT dbl10 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 34, ; Top = 286, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL10" ADD OBJECT kbl10 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 35, ; Top = 286, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL10" ADD OBJECT sld10 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 36, ; Top = 286, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD10" ADD OBJECT dbl11 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 37, ; Top = 312, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL11" ADD OBJECT kbl11 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 38, ; Top = 312, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL11" ADD OBJECT sld11 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 39, ; Top = 312, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD11" ADD OBJECT dbl12 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 40, ; Top = 337, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "DBL12" ADD OBJECT kbl12 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 41, ; Top = 337, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "KBL12" ADD OBJECT sld12 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 387, ; TabIndex = 42, ; Top = 337, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLD12" ADD OBJECT ttdb AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 91, ; TabIndex = 43, ; Top = 363, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "TTDB" ADD OBJECT ttkb AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 239, ; TabIndex = 44, ; Top = 363, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "TTKB" ADD OBJECT label17 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Total Mutasi", ; Height = 15, ; Left = 9, ; Top = 367, ; Width = 73, ; TabIndex = 45, ; Name = "Label17" ADD OBJECT label10 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Mutasi Kredit", ; Height = 15, ; Left = 307, ; Top = 40, ; Width = 77, ; TabIndex = 48, ; Name = "Label10" ADD OBJECT label11 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Mutasi Debet", ; Height = 15, ; Left = 158, ; Top = 40, ; Width = 78, ; TabIndex = 49, ; Name = "Label11" ADD OBJECT xnoper AS textbox WITH ; Height = 25, ; Left = 8, ; MaxLength = 10, ; SelectOnEntry = .T., ; TabIndex = 1, ; Top = 8, ; Width = 79, ; Name = "xNoper" ADD OBJECT xnaper AS textbox WITH ; Height = 25, ; Left = 91, ; TabIndex = 50, ; Top = 8, ; Width = 293, ; Style = 1, ; Name = "xNaper" ADD OBJECT check1 AS checkbox WITH ; Top = 59, ; Left = 9, ; Height = 15, ; Width = 52, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Januari", ; TabIndex = 51, ; Name = "Check1" ADD OBJECT check2 AS checkbox WITH ; Top = 86, ; Left = 9, ; Height = 15, ; Width = 56, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Februari", ; TabIndex = 52, ; Name = "Check2" ADD OBJECT check3 AS checkbox WITH ; Top = 111, ; Left = 9, ; Height = 15, ; Width = 45, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Maret", ; TabIndex = 53, ; Name = "Check3" ADD OBJECT check4 AS checkbox WITH ; Top = 137, ; Left = 9, ; Height = 15, ; Width = 38, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "April", ; TabIndex = 54, ; Name = "Check4" ADD OBJECT check5 AS checkbox WITH ; Top = 163, ; Left = 9, ; Height = 15, ; Width = 35, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Mei", ; TabIndex = 55, ; Name = "Check5" ADD OBJECT check6 AS checkbox WITH ; Top = 189, ; Left = 9, ; Height = 15, ; Width = 37, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Juni", ; TabIndex = 56, ; Name = "Check6" ADD OBJECT check7 AS checkbox WITH ; Top = 215, ; Left = 9, ; Height = 15, ; Width = 33, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Juli", ; TabIndex = 57, ; Name = "Check7" ADD OBJECT check8 AS checkbox WITH ; Top = 240, ; Left = 9, ; Height = 15, ; Width = 56, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Agustus", ; TabIndex = 58, ; Name = "Check8" ADD OBJECT check9 AS checkbox WITH ; Top = 265, ; Left = 9, ; Height = 15, ; Width = 69, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "September", ; TabIndex = 59, ; Name = "Check9" ADD OBJECT check10 AS checkbox WITH ; Top = 291, ; Left = 9, ; Height = 15, ; Width = 56, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Oktober", ; TabIndex = 60, ; Name = "Check10" ADD OBJECT check11 AS checkbox WITH ; Top = 317, ; Left = 9, ; Height = 15, ; Width = 70, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nopermber", ; TabIndex = 61, ; Name = "Check11" ADD OBJECT check12 AS checkbox WITH ; Top = 341, ; Left = 9, ; Height = 15, ; Width = 66, ; FontName = "MS Sans Serif", ; FontSize = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Desember", ; TabIndex = 62, ; Name = "Check12" ADD OBJECT sldkr00 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 5, ; Top = 33, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR00" ADD OBJECT sldkr01 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 9, ; Top = 59, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR01" ADD OBJECT sldkr02 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 12, ; Top = 84, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR02" ADD OBJECT sldkr03 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 15, ; Top = 109, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR03" ADD OBJECT sldkr04 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 18, ; Top = 134, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR04" ADD OBJECT sldkr05 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 21, ; Top = 160, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR05" ADD OBJECT sldkr06 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 24, ; Top = 185, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR06" ADD OBJECT sldkr07 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 27, ; Top = 210, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR07" ADD OBJECT sldkr08 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 30, ; Top = 235, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR08" ADD OBJECT sldkr09 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 33, ; Top = 260, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR09" ADD OBJECT sldkr10 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 36, ; Top = 286, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR10" ADD OBJECT sldkr11 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 39, ; Top = 312, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR11" ADD OBJECT sldkr12 AS textbox WITH ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 11, ; Alignment = 1, ; Value = 0, ; Enabled = .T., ; Format = "999,999,999,999.99", ; Height = 26, ; InputMask = "999,999,999,999.99", ; Left = 533, ; TabIndex = 42, ; Top = 337, ; Width = 145, ; Style = 1, ; DisabledBackColor = RGB(255,255,255), ; Name = "SLDKR12" ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; BackStyle = 0, ; Caption = "Saldo Kredit", ; Height = 15, ; Left = 606, ; Top = 14, ; Width = 72, ; TabIndex = 6, ; Name = "Label3" ADD OBJECT line1 AS line WITH ; Height = 0, ; Left = 1, ; Top = 390, ; Width = 748, ; BorderColor = RGB(128,128,128), ; Name = "Line1" ADD OBJECT _rekord1 AS _rekord WITH ; AutoSize = .T., ; BackStyle = 0, ; Height = 240, ; Left = 693, ; Top = 28, ; Width = 44, ; Visible = .T., ; Name = "_rekord1", ; AWAL.Top = 71, ; AWAL.Left = 5, ; AWAL.Name = "AWAL", ; MUNDUR.Top = 104, ; MUNDUR.Left = 5, ; MUNDUR.Name = "MUNDUR", ; MAJU.Top = 137, ; MAJU.Left = 5, ; MAJU.Name = "MAJU", ; AKHIR.Top = 170, ; AKHIR.Left = 5, ; AKHIR.Name = "AKHIR", ; CARI.Top = 38, ; CARI.Left = 5, ; CARI.Name = "CARI", ; CKON.Comment = "PBBT", ; CKON.Top = 5, ; CKON.Left = 5, ; CKON.ToolTipText = "View daftar kondisi/prosedur, PBBT", ; CKON.Name = "CKON", ; CETAK.Comment = "ABT", ; CETAK.Top = 203, ; CETAK.Left = 5, ; CETAK.Height = 32, ; CETAK.Width = 34, ; CETAK.Name = "CETAK" ADD OBJECT kembali AS commandbutton WITH ; AutoSize = .F., ; Top = 404, ; Left = 649, ; Height = 27, ; Width = 88, ; Caption = "E\<XIT", ; ToolTipText = "Kembali", ; Name = "KEMBALI" ADD OBJECT cmdharian AS commandbutton WITH ; Top = 404, ; Left = 387, ; Height = 27, ; Width = 84, ; Caption = "\<Harian", ; ToolTipText = "View buku besar harian", ; Name = "cmdHarian" ADD OBJECT cmdbulanan AS commandbutton WITH ; Top = 404, ; Left = 471, ; Height = 27, ; Width = 87, ; Caption = "\<Bulanan", ; ToolTipText = "View buku besar bulanan", ; Name = "cmdBulanan" ADD OBJECT label4 AS label WITH ; AutoSize = .T., ; FontBold = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Bulan", ; Height = 15, ; Left = 8, ; Top = 40, ; Width = 35, ; TabIndex = 46, ; Name = "Label4" ADD OBJECT line2 AS line WITH ; Height = 0, ; Left = 1, ; Top = 33, ; Width = 748, ; BorderColor = RGB(128,128,128), ; Name = "Line2" ADD OBJECT cgeneral AS checkbox WITH ; Top = 367, ; Left = 574, ; Height = 17, ; Width = 104, ; AutoSize = .T., ; Alignment = 1, ; BackStyle = 0, ; Caption = "\<General Ledger", ; Name = "cGeneral" ADD OBJECT cmdperiodik AS commandbutton WITH ; AutoSize = .F., ; Top = 404, ; Left = 9, ; Height = 27, ; Width = 84, ; Caption = "\<Proses", ; ToolTipText = "Proses buku besar kumulatif bulanan", ; Name = "cmdPeriodik" ADD OBJECT cdetail AS optiongroup WITH ; AutoSize = .T., ; ButtonCount = 2, ; BackStyle = 0, ; BorderStyle = 0, ; Value = 0, ; Height = 27, ; Left = 454, ; Top = 363, ; Width = 111, ; Name = "cDetail", ; Option1.BackStyle = 0, ; Option1.Caption = "\<Rinci", ; Option1.Value = 0, ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Style = 0, ; Option1.ToolTipText = "Rinci per bukti transaksi", ; Option1.Top = 5, ; Option1.Width = 46, ; Option1.AutoSize = .T., ; Option1.Name = "Option1", ; Option2.BackStyle = 0, ; Option2.Caption = "\<Rekap", ; Option2.Height = 17, ; Option2.Left = 52, ; Option2.Style = 0, ; Option2.ToolTipText = "Rekap per tanggal transaksi", ; Option2.Top = 5, ; Option2.Width = 54, ; Option2.AutoSize = .T., ; Option2.Name = "Option2" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Detail Ledger", ; Height = 15, ; Left = 388, ; Top = 368, ; Width = 65, ; TabIndex = 46, ; Name = "Label2" ADD OBJECT command1 AS commandbutton WITH ; AutoSize = .F., ; Top = 404, ; Left = 558, ; Height = 27, ; Width = 91, ; Caption = "\<Refresh", ; ToolTipText = "View mutasi rekening yang dipilih", ; Name = "Command1" ADD OBJECT postingulang AS commandbutton WITH ; Top = 404, ; Left = 93, ; Height = 27, ; Width = 217, ; Caption = "\<Posting Ulang Transaksi", ; Enabled = .T., ; DisabledForeColor = RGB(64,0,128), ; Name = "PostingUlang" ADD OBJECT cetak AS commandbutton WITH ; AutoSize = .F., ; Top = 404, ; Left = 311, ; Height = 27, ; Width = 76, ; Caption = "\<Cetak", ; Name = "Cetak" ADD OBJECT command2 AS commandbutton WITH ; Top = 271, ; Left = 696, ; Height = 41, ; Width = 38, ; Picture = "..\bmps\graph07.ico", ; Caption = "", ; Name = "Command2" PROCEDURE mutasisaldo LOCAL mJmldb, mJmlKr, mSaldoDb, mSaldoKr, Angka, Angkanya STORE 0 TO mJmldb, mJmlKr, mSaldoDb, mSaldoKr, Angka, Angkanya FOR Angka=1 TO 12 mChek='Thisform.Check'+ALLTRIM(STR(Angka,2))+'.Value' IF &mChek=1 Angkanya=Angka ENDIF ENDFOR IF USED('AK_MST') SELECT AK_MST SET ORDER TO 1 THIS.IJenis=AK_MST.JENIS IF AK_MST.JENIS$"ABS" Thisform.SLD00.Value=IIF(DBBLA-KRBLA>0,DBBLA-KRBLA,0) Thisform.SLDKR00.Value=IIF(DBBLA-KRBLA<0,KRBLA-DBBLA,0) ELSE Thisform.SLD00.Value=IIF(DBBLA-KRBLA<0,0,DBBLA-KRBLA) Thisform.SLDKR00.Value=IIF(KRBLA-DBBLA>0,KRBLA-DBBLA,0) ENDIF FOR Nom=1 TO 12 mNolkan='Thisform.Sld'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=0 mNolkan='Thisform.SldKR'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=0 mNolkan='Thisform.Dbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=0 mNolkan='Thisform.Kbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=0 mChek='Thisform.Check'+ALLTRIM(STR(Nom,2))+'.Value' IF &mChek=1 mNolkan='Thisform.Sld'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=0 mNolkan='Thisform.SldKR'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=0 mDb='DBBLI'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2) mNolkan='Thisform.Dbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=&mDB mJmlDb=mJmlDb+&mDb mKr='KRBLI'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2) mNolkan='Thisform.Kbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' &mNolkan=&mKr mJmlKr=mJmlKr+&mKr ENDIF mSaldoDb='Thisform.SLD'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' mSaldoKr='Thisform.SLDKR'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value' IF AK_MST.JENIS$"ABS" mSaldo=AK_SALDO(AK_MST.Jenis,MIN(Nom,Angkanya)) &mSaldoDb=IIF(mSaldo>0,mSaldo,0) &mSaldoKr=IIF(mSaldo<0,ABS(mSaldo),0) ELSE mSaldo=AK_SALDO(AK_MST.Jenis,MIN(Nom,Angkanya)) &mSaldoDb=IIF(mSaldo<0,ABS(mSaldo),0) &mSaldoKr=IIF(mSaldo>0,mSaldo,0) ENDIF ENDFOR Thisform.TTDB.Value=mJmldb Thisform.TTKB.Value=mJmlkr IF TYPE('Thisform.AkUmum')=='O' Thisform.RemoveObject('AkUmum') ENDIF IF TYPE('Thisform.AkRinci')=='O' Thisform.RemoveObject('AkRinci') ENDIF IF Thisform.cGeneral.Value=1 Thisform.Umum ENDIF IF Thisform.cDetail.Option1.Value=1 Thisform.Rincian ENDIF IF Thisform.cDetail.Option2.Value=1 Thisform.Rekapan ENDIF ENDIF ENDPROC PROCEDURE cheker PARAMETERS mCekNilai,mPosisi LOCAL Nom, mNilai, mNilai1, mNilai2 FOR Nom=1 TO mPosisi-1 mNilai1='This.Check'+ALLTRIM(STR(Nom,2))+'.Value' mNilai2='This.Check'+ALLTRIM(STR(Nom+1,2))+'.Value' IF &mNilai1=1 &mNilai2=1 ENDIF ENDFOR FOR Nom=1 TO 11 mNilai='This.Check'+ALLTRIM(STR(Nom+1,2))+'.Value' IF Nom>=mPosisi &mNilai=0 ENDIF ENDFOR mNilai='This.Check'+ALLTRIM(STR(mPosisi,2))+'.Value' &mNilai=mCekNilai ENDPROC PROCEDURE rincian IF USED('BUKUBB') CREATE CURSOR BBDETAIL (TANGGAL D(8), KJ C(2), BUKTI C(6),; URUT N(3),URAIAN C(50), DEBET N(15,2),; KREDIT N(15,2),SALDO N(15,2)) SELECT BUKUBB SET ORDER TO 1 SEEK ALLTRIM(Thisform.xNoper.Value) IF FOUND() DO WHILE ALLTRIM(NOPER)==ALLTRIM(Thisform.xNoper.Value) SELECT BBDETAIL APPEND BLANK REPLACE TANGGAL WITH BUKUBB.TANGGAL,; KJ WITH BUKUBB.KJ,; Bukti WITH BUKUBB.Bukti,; Urut WITH BUKUBB.Urut,; Uraian WITH BUKUBB.Uraian,; Debet WITH IIF(BUKUBB.D_K='D',BUKUBB.Nilai,0),; Kredit WITH IIF(BUKUBB.D_K='K',BUKUBB.Nilai,0) SELECT BUKUBB SKIP ENDDO ENDIF IF USED('BBDETAIL') SELECT BBDETAIL GO TOP IF !EOF() SELECT AK_MST mJenis=Jenis mSaldoAwal=AK_SALDO(AK_MST.Jenis,MONTH(BBDETAIL.Tanggal)-1) SELECT BBDETAIL GO TOP DO WHILE NOT EOF() mSaldoAwal=mSaldoAwal+IIF(mJenis$'ABS',Debet-Kredit,Kredit-Debet) REPLACE Saldo WITH mSaldoAwal SKIP ENDDO GO Top IF TYPE('Thisform.Akrinci')=='O' Thisform.RemoveObject('Akrinci') ENDIF Thisform.NewObject('Akrinci','_detail','Progasy.Vcx') Thisform.Akrinci.Left=8 Thisform.Akrinci.Top=33 Thisform.Akrinci.RecordSource="BBDETAIL" Thisform.Akrinci.RecordSourceType= 1 Thisform.Akrinci.Visible=.T. ELSE IF TYPE('Thisform.Akrinci')=='O' Thisform.RemoveObject('Akrinci') ENDIF ENDIF ENDIF ENDIF ENDPROC PROCEDURE rekapan IF USED('BUKUBB') CREATE CURSOR BB_REKAP (TANGGAL D(8), DEBET N(15,2),; KREDIT N(15,2),SALDODB N(15,2), SALDOKR N(15,2)) SELECT BUKUBB SET ORDER TO 1 SEEK ALLTRIM(Thisform.xNoper.Value) IF FOUND() DO WHILE ALLTRIM(NOPER)==ALLTRIM(Thisform.xNoper.Value) SELECT BB_REKAP LOCATE FOR TANGGAL==BUKUBB.TANGGAL IF !FOUND() APPEND BLANK REPLACE TANGGAL WITH BUKUBB.TANGGAL ENDIF REPLACE Debet WITH Debet+IIF(BUKUBB.D_K='D',BUKUBB.Nilai,0),; Kredit WITH Kredit+IIF(BUKUBB.D_K='K',BUKUBB.Nilai,0) SELECT BUKUBB SKIP ENDDO ENDIF IF USED('BB_REKAP') SELECT BB_REKAP GO TOP IF !EOF() SELECT AK_MST mJenis=Jenis mSaldoAwal=AK_SALDO(AK_MST.Jenis,MONTH(BB_REKAP.Tanggal)-1) SELECT BB_REKAP GO TOP DO WHILE NOT EOF() mSaldoAwal=mSaldoAwal+IIF(mJenis$'ABS',Debet-Kredit,Kredit-Debet) IF mJenis$'ABS' REPLACE Saldodb WITH MAX(mSaldoAwal,0), SALDOKR WITH ABS(MIN(mSALDOAWAL,0)) ELSE REPLACE Saldodb WITH ABS(MIN(mSaldoAwal,0)), SALDOKR WITH MAX(mSALDOAWAL,0) ENDIF SKIP ENDDO GO Top IF TYPE('Thisform.Akrinci')=='O' Thisform.RemoveObject('Akrinci') ENDIF Thisform.NewObject('Akrinci','_rekapan','Progasy.Vcx') Thisform.Akrinci.Left=8 Thisform.Akrinci.Top=33 Thisform.Akrinci.RecordSource="BB_REKAP" Thisform.Akrinci.RecordSourceType= 1 Thisform.Akrinci.Visible=.T. ELSE IF TYPE('Thisform.Akrinci')=='O' Thisform.RemoveObject('Akrinci') ENDIF ENDIF ENDIF ENDIF ENDPROC PROCEDURE umum LOCAL mSifat, mKontrol, mTglAwal mSifat=Ak_MST.Sifat mKontrol=Ak_MST.Noper IF mSifat=='G' SELECT * From Ak_Mst WHERE Umum==mKontrol INTO CURSOR BB_UMUM1 SELECT BB_UMUM1 GO Top IF EOF() RETURN ENDIF IF USED('BUKUBB') CREATE CURSOR BB_UMUM (NOPER C(10), NAPER C(30), DEBET N(15,2),; KREDIT N(15,2),SALDO N(15,2), TANGGAL D(8), JENIS C(1)) SELECT BB_UMUM1 GO TOP DO WHILE !EOF() SELECT BUKUBB GO Top mTglAwal=Tanggal SET ORDER TO 1 SEEK ALLTRIM(BB_UMUM1.NOPER) IF !FOUND() SELECT BB_UMUM APPEND BLANK REPLACE NOPER WITH BB_UMUM1.NOPER, NAPER WITH BB_UMUM1.NAPER,; TANGGAL WITH mTglAwal, JENIS WITH BB_UMUM1.JENIS ELSE DO WHILE ALLTRIM(NOPER)==ALLTRIM(BB_UMUM1.NOPER) SELECT BB_UMUM LOCATE FOR ALLTRIM(NOPER)==ALLTRIM(BB_UMUM1.NOPER) IF !FOUND() APPEND BLANK REPLACE NOPER WITH BB_UMUM1.NOPER,; NAPER WITH BB_UMUM1.NAPER, TANGGAL WITH BUKUBB.TANGGAL,; JENIS WITH BB_UMUM1.JENIS ENDIF REPLACE Debet WITH Debet+IIF(BUKUBB.D_K='D',BUKUBB.Nilai,0),; Kredit WITH Kredit+IIF(BUKUBB.D_K='K',BUKUBB.Nilai,0) SELECT BUKUBB SKIP ENDDO ENDIF SELECT BB_UMUM1 SKIP ENDDO IF USED('BB_UMUM') SELECT BB_UMUM GO TOP IF !EOF() GO TOP DO WHILE NOT EOF() SELECT AK_MST SEEK BB_UMUM.NOPER ORDER 1 mJenis=Jenis mSaldoAwal=AK_SALDO(mJenis,MONTH(BB_UMUM.Tanggal)-1) SELECT BB_UMUM mSaldoAwal=mSaldoAwal+IIF(mJenis$'ABS',Debet-Kredit,Kredit-Debet) REPLACE Saldo WITH mSaldoAwal SKIP ENDDO GO Top IF TYPE('Thisform.AkUmum')=='O' Thisform.RemoveObject('AkUmum') ENDIF Thisform.NewObject('AkUmum','_general','Progasy.Vcx') Thisform.AkUmum.Left=8 Thisform.AkUmum.Top=33 Thisform.AkUmum.RecordSource="BB_UMUM" Thisform.AkUmum.RecordSourceType= 1 Thisform.AkUmum.Visible=.T. ELSE IF TYPE('Thisform.AkUmum')=='O' Thisform.RemoveObject('AkUmum') ENDIF ENDIF ENDIF ENDIF ENDIF SELECT AK_MST SEEK mKONTROL ORDER 1 ENDPROC PROCEDURE Init Thisform.Caption='Buku Besar Tahun '+Left(Dtos(GASY_TGL),4) Thisform.Closable= .T. ENDPROC PROCEDURE Load LOCAL AlamatAk *!* DO FORM Libs\Tglproses WITH 'Tanggal Buku Besar' TO mTgl *!* IF EMPTY(mTgl) *!* RETURN TO Master *!* ENDIF MTGL=DATE() AlamatAk=ALLTRIM(Alamatnya('AAK')) IF !EMPTY(ALAMATAK) TUTUP('AK_MST') CREATE CURSOR AK_MST (NOPER C(10),; NAPER C(30),JENIS C(1),SIFAT C(1),LEPEL N(1),UMUM C(10),Kode C(30),; DBBLA N(15,2),KRBLA N(15,2),DBBLI01 N(15,2),KRBLI01 N(15,2),; DBBLI02 N(15,2),KRBLI02 N(15,2),DBBLI03 N(15,2),KRBLI03 N(15,2),; DBBLI04 N(15,2),KRBLI04 N(15,2),DBBLI05 N(15,2),KRBLI05 N(15,2),; DBBLI06 N(15,2),KRBLI06 N(15,2),DBBLI07 N(15,2),KRBLI07 N(15,2),; DBBLI08 N(15,2),KRBLI08 N(15,2),DBBLI09 N(15,2),KRBLI09 N(15,2),; DBBLI10 N(15,2),KRBLI10 N(15,2),DBBLI11 N(15,2),KRBLI11 N(15,2),; DBBLI12 N(15,2),KRBLI12 N(15,2),DBHRI N(15,2),KRHRI N(15,2)) INDEX ON NOPER TO AK_MST SELECT AK_MST APPEND FROM ALAMATAK+'AKM_'+STR(YEAR(mTgl),4) ENDIF IF !USED('AK_MST') RETURN TO Master ENDIF Gasy_Tgl=mTgl ENDPROC PROCEDURE DragDrop LPARAMETERS oSource, nXCoord, nYCoord oSource.Left = nXCoord - Thisform.XOffset oSource.Top = nYCoord - Thisform.YOffset ENDPROC PROCEDURE xnoper.InteractiveChange SELECT AK_MST SEEK This.Value ORDER 1 Thisform.xNaper.Value=AK_MST.Naper Thisform.Mutasisaldo ENDPROC PROCEDURE xnoper.DblClick This.Value="" ENDPROC PROCEDURE xnoper.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=-4 This.RightClick ENDIF ENDPROC PROCEDURE xnoper.GotFocus IF TYPE('Thisform.BukuBesar')='O' Thisform.RemoveObject('BukuBesar') ENDIF ENDPROC PROCEDURE xnoper.Init IF USED('Ak_MST') SELECT AK_MST GO Top Thisform.xNoper.Value=AK_MST.Noper Thisform.xNaper.Value=AK_MST.Naper Thisform.Mutasisaldo ENDIF ENDPROC PROCEDURE xnoper.LostFocus IF USED('AK_MST') SELECT AK_MST SEEK This.Value ORDER 1 Thisform.xNaper.Value=AK_MST.Naper Thisform.Mutasisaldo ENDIF ENDPROC PROCEDURE xnoper.RightClick IF !EMPTY(This.Value) SELECT NOPER,NAPER FROM AK_MST WHERE LEFT(This.Value,1)==LEFT(NOPER,1) ORDER BY NOPER INTO CURSOR AKLIHAT ELSE SELECT NOPER,NAPER FROM AK_MST ORDER BY NOPER INTO CURSOR AKLIHAT ENDIF This.Value=gLookUp('DAFTAR REKENING',This.Value,'AKLIHAT',60,1) SELECT AK_MST SEEK This.Value ORDER 1 This.Parent.xNaper.Value=AK_MST.Naper This.Parent.Mutasisaldo ENDPROC PROCEDURE check1.Click Thisform.Cheker(This.Value,1) ENDPROC PROCEDURE check2.Click Thisform.Cheker(This.Value,2) ENDPROC PROCEDURE check3.InteractiveChange Thisform.Cheker(This.Value,3) ENDPROC PROCEDURE check4.InteractiveChange Thisform.Cheker(This.Value,4) ENDPROC PROCEDURE check5.InteractiveChange Thisform.Cheker(This.Value,5) ENDPROC PROCEDURE check6.InteractiveChange Thisform.Cheker(This.Value,6) ENDPROC PROCEDURE check7.InteractiveChange Thisform.Cheker(This.Value,7) ENDPROC PROCEDURE check8.InteractiveChange Thisform.Cheker(This.Value,8) ENDPROC PROCEDURE check9.InteractiveChange Thisform.Cheker(This.Value,9) ENDPROC PROCEDURE check10.InteractiveChange Thisform.Cheker(This.Value,10) ENDPROC PROCEDURE check11.InteractiveChange Thisform.Cheker(This.Value,11) ENDPROC PROCEDURE check12.InteractiveChange Thisform.Cheker(This.Value,12) ENDPROC PROCEDURE _rekord1.AWAL.Click IF USED('AK_MSt') SELECT AK_MST GO Top Thisform.xNoper.Value=Ak_MSt.Noper Thisform.xNaper.Value=Ak_MSt.Naper Thisform.Mutasisaldo ENDIF ENDPROC PROCEDURE _rekord1.MUNDUR.Click IF USED('AK_MSt') SELECT AK_MST SKIP IIF(!BOF(),-1,1) Thisform.xNoper.Value=Ak_MSt.Noper Thisform.xNaper.Value=Ak_MSt.Naper Thisform.Mutasisaldo ENDIF ENDPROC PROCEDURE _rekord1.MAJU.Click IF USED('AK_MSt') SELECT AK_MST SKIP IIF(!EOF(),1,-1) Thisform.xNoper.Value=Ak_MSt.Noper Thisform.xNaper.Value=Ak_MSt.Naper Thisform.Mutasisaldo ENDIF ENDPROC PROCEDURE _rekord1.AKHIR.Click IF USED('AK_MSt') SELECT AK_MST GO Bottom Thisform.xNoper.Value=Ak_MSt.Noper Thisform.xNaper.Value=Ak_MSt.Naper Thisform.Mutasisaldo ENDIF ENDPROC PROCEDURE _rekord1.CARI.Click IF !USED('AKMASTER') SELECT NOPER,NAPER FROM AK_MST ORDER BY NOPER INTO CURSOR AKMASTER ENDIF IF USED('AKMASTER') SELECT AKMASTER GO TOP IF !EOF() IF TYPE('Thisform.Rekening')<>'O' Thisform.NewObject('Rekening','ViewNasabah','Progasy.Vcx') Thisform.Rekening.Visible=.t. ENDIF Thisform.Rekening.Jenisnya.Caption='Daftar Rekening Akuntansi' Thisform.Rekening.Kembalinya.Value='Thisform.xNoper' Thisform.Rekening.List1.RowSource='AKMASTER.NOPER,NAPER' Thisform.Rekening.List1.RowSourceType= 2 Thisform.Rekening.List1.Visible=.T. Thisform.Rekening.List1.Setfocus ENDIF ENDIF ENDPROC PROCEDURE kembali.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE kembali.Click Thisform.Release ENDPROC PROCEDURE cmdharian.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE cmdharian.Click IF TYPE('Thisform.BukuBesarHarian')<>'O' Thisform.NewObject('BukuBesarHarian','_bbharian','Progasy.Vcx') Thisform.BukuBesarHarian.Visible=.t. ENDIF Thisform.BukuBesarHarian.Setfocus ENDPROC PROCEDURE cmdbulanan.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE cmdbulanan.Click IF TYPE('Thisform.BukuBesar')<>'O' Thisform.NewObject('BukuBesar','_Ledger','Progasy.Vcx') Thisform.BukuBesar.Visible=.t. ENDIF Thisform.BukuBesar.Setfocus ENDPROC PROCEDURE cgeneral.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE cmdperiodik.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE cmdperiodik.Click LOCAL Alamatak, mTgl, Nom, mNilai, mNilainya mNilainya=0 FOR Nom=1 TO 12 mNilai='Thisform.Check'+ALLTRIM(STR(Nom,2))+'.Value' mNilainya=mNilainya+&mNilai ENDFOR IF mNilainya=0 Pesan('Tentukan bulan transaksi') RETURN ENDIF AlamatAk=ALLTRIM(Alamatnya('AAK')) IF EMPTY(AlamatAk) RETURN ENDIF mTgl=Gasy_Tgl CREATE CURSOR BukuBB (KJ C(2),TANGGAL D(8),BUKTI C(6),; URUT N(3),NOPER C(10),URAIAN C(30),NILAI N(15,2),; D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5)) INDEX ON NOPER+DTOS(TANGGAL)+BUKTI+STR(URUT,3) TO BukuBB Nom=1 FOR Nom=1 TO 12 mChek='Thisform.check'+ALLTRIM(STR(Nom,2))+".Value" mFileDbf=ALAMATAK+"BB_"+SUBSTR('ABCDEFGHIJKL',Nom,1)+STR(YEAR(mTGL),4) IF &mChek=1 SELECT BukuBB APPEND from (mFileDbf) ENDIF ENDFOR ENDPROC PROCEDURE cdetail.Option1.RightClick This.Value=0 This.Parent.Value=0 ENDPROC PROCEDURE cdetail.Option2.RightClick This.Value=0 This.Parent.Value=0 ENDPROC PROCEDURE label2.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE label2.Click Sihelp(This.Caption) ENDPROC PROCEDURE command1.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE command1.Click This.Parent.Mutasisaldo ENDPROC PROCEDURE postingulang.Init This.Visible=Dadi(16) ENDPROC PROCEDURE postingulang.RightClick Sihelp(This.Caption) ENDPROC PROCEDURE postingulang.Click Local MDBB, MKRB, MKR, MDB, MTGLL, MNOPER, MTGLL, LEV, ; loTherm, lnPercent, nRekord1, nRekord2, AlamatAk, mNilainya AlamatAk=ALLTRIM(Alamatnya('AAK')) IF EMPTY(AlamatAK) RETURN ENDIF mNilainya=0 FOR Nom=1 TO 12 mNilai='Thisform.Check'+ALLTRIM(STR(Nom,2))+'.Value' mNilainya=mNilainya+&mNilai ENDFOR IF mNilainya=0 Pesan('Tentukan bulan transaksi') RETURN ENDIF CLOSE TABLES all IF !BUKADBF(.T.,'AK_MST',ALAMATAK,'',GASY_TGL) RETURN ENDIF mTgl=Gasy_Tgl Nom=1 FOR Nom=1 TO 12 CREATE CURSOR AK_BBB (KJ C(2),TANGGAL D(8),BUKTI C(6),; URUT N(3),NOPER C(10),URAIAN C(30),NILAI N(15,2),; D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5)) mChek='Thisform.check'+ALLTRIM(STR(Nom,2))+".Value" mFileDbf=ALAMATAK+"BB_"+SUBSTR('ABCDEFGHIJKL',Nom,1)+STR(YEAR(mTGL),4) mDB="DBBLI"+RIGHT('00'+ALLTRIM(STR(NOM,2)),2) mKR="KRBLI"+RIGHT('00'+ALLTRIM(STR(NOM,2)),2) IF &mChek=1 SELECT AK_BBB APPEND from (mFileDbf) If Used("AK_MST") And Used("AK_BBB") nRekord1=RECCOUNT('AK_BBB') This.Enabled=.F. nRekord2=0 Select AK_MST Set Order To 1 Go TOP Do WHILE !EOF() nRekord2=nRekord2+1 Tunggu('1. Bulan: '+STR(Nom,2)+' Nomer Rekening: '+Noper,nRekord2/nRekord1*100) REPL &MDB WITH 0, &MKR WITH 0 SKIP ENDDO nRekord2=0 Select AK_BBB Go TOP Do WHILE !EOF() nRekord2=nRekord2+1 Tunggu('2. Bulan: '+STR(Nom,2)+' Nomer Rekening: '+Noper,nRekord2/nRekord1*100) mNOPER=NOPER mD_K=D_K mDBB=IIF(D_K=="D",NILAI,0) mKRB=IIF(D_K=="K",NILAI,0) SELE AK_MST Set Order To 1 SEEK mNOPER IF !FOUND() And MDBB+MKRB>0 APPEND BLANK REPL NOPER WITH mNOPER Endif REPL &MDB WITH &MDB+mDBB, &MKR WITH &MKR+mKRB LEV=LEPEL-1 DO WHILE LEV>=0 UMU=UMUM SEEK UMU If Found() IF mD_K="D" REPL &MDB WITH &MDB+mDbb ELSE REPL &MKR WITH &MKR+mKrb Endif Endif LEV=LEPEL-1 IF LEV=0 EXIT Endif ENDDO Select AK_BBB Skip Enddo ENDIF ENDIF ENDFOR Select AK_MST SET ORDER TO 1 FLUSH CLOSE TABLES all This.Caption='\<Proses Posting Sudah Selesai' CREATE CURSOR AK_MST (NOPER C(10),; NAPER C(30),JENIS C(1),SIFAT C(1),LEPEL N(1),UMUM C(10),Kode C(30),; DBBLA N(15,2),KRBLA N(15,2),DBBLI01 N(15,2),KRBLI01 N(15,2),; DBBLI02 N(15,2),KRBLI02 N(15,2),DBBLI03 N(15,2),KRBLI03 N(15,2),; DBBLI04 N(15,2),KRBLI04 N(15,2),DBBLI05 N(15,2),KRBLI05 N(15,2),; DBBLI06 N(15,2),KRBLI06 N(15,2),DBBLI07 N(15,2),KRBLI07 N(15,2),; DBBLI08 N(15,2),KRBLI08 N(15,2),DBBLI09 N(15,2),KRBLI09 N(15,2),; DBBLI10 N(15,2),KRBLI10 N(15,2),DBBLI11 N(15,2),KRBLI11 N(15,2),; DBBLI12 N(15,2),KRBLI12 N(15,2),DBHRI N(15,2),KRHRI N(15,2)) INDEX ON NOPER TO AK_MST SELECT AK_MST APPEND FROM ALAMATAK+'AKM_'+STR(YEAR(Gasy_Tgl),4) Tunggu('Proses sudah selesai',100,0) ENDPROC PROCEDURE cetak.Click IF FILE(AlamatDl+'Proses\Prscakbt.Fxp') DO (AlamatDl+'Proses\Prscakbt') ELSE Pesan('Invalid prosedur '+AlamatDl+'Proses\Prscakbt') ENDIF ENDPROC PROCEDURE command2.Click DO FORM LIBS\OLEGRAPH WITH THISFORM ENDPROC ENDDEFINE * *-- EndDefine: fakbbt **************************************************

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

LEDGER - 68