📄 reportlabarugi.frm
字号:
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 3
Left = 6975
TabIndex = 19
Top = 8175
Width = 2040
End
Begin VB.Label lblTotal
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 2
Left = 6975
TabIndex = 16
Top = 5475
Width = 2040
End
Begin VB.Label lblTotal
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 1
Left = 6975
TabIndex = 14
Top = 5100
Width = 2040
End
Begin VB.Label lblTotal
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 0
Left = 6975
TabIndex = 11
Top = 2400
Width = 2040
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&Taksiran Pajak Tangguhan:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 5
Left = 75
TabIndex = 22
Top = 8925
Width = 2910
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Laba Rugi &Sebelum Pajak:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 4
Left = 75
TabIndex = 20
Top = 8550
Width = 2790
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Pendapatan (Biaya) &Lain-lain:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 75
TabIndex = 17
Top = 5850
Width = 3270
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&Operasi Laba Rugi:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 2
Left = 75
TabIndex = 15
Top = 5475
Width = 2025
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&Biaya Umum dan Administrasi:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = 75
TabIndex = 12
Top = 2775
Width = 3345
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Pen&dapatan:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 75
TabIndex = 9
Top = 75
Width = 1380
End
End
End
Begin Irfan.IrfanHeader ihdForm
Align = 1 'Align Top
Height = 825
Left = 0
Top = 0
Width = 9750
_ExtentX = 17198
_ExtentY = 1455
Text = "Cash Flow"
End
Begin MSComCtl2.DTPicker dtPeriode
Height = 315
Index = 0
Left = 1125
TabIndex = 4
Top = 1050
Width = 1365
_ExtentX = 2408
_ExtentY = 556
_Version = 393216
CustomFormat = "dd-MM-yyyy"
Format = 19791875
CurrentDate = 38982
End
Begin MSComCtl2.DTPicker dtPeriode
Height = 315
Index = 1
Left = 3525
TabIndex = 6
Top = 1050
Width = 1365
_ExtentX = 2408
_ExtentY = 556
_Version = 393216
CustomFormat = "dd-MM-yyyy"
Format = 19791875
CurrentDate = 38982
End
Begin VB.Label lblLaba
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00F0E0D5&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 7500
TabIndex = 0
Top = 6525
Width = 2040
End
Begin VB.Label lblForm
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Sa&mpai:"
Height = 195
Index = 1
Left = 2625
TabIndex = 5
Top = 1095
Width = 720
End
Begin VB.Label lblForm
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Pe&riode:"
Height = 195
Index = 0
Left = 225
TabIndex = 3
Top = 1095
Width = 720
End
End
Attribute VB_Name = "frmReportLabaRugi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private lx As MSComctlLib.ListItem
Private Sub btnClose_Click()
Call Unload(Me)
End Sub
Private Sub btnPrint_Click()
Call ShowReport("Laba Rugi", "Laba Rugi")
End Sub
Private Sub btnView_Click()
btnView.Enabled = False
Dim i As Integer
For i = 0 To 3
Call FillLabaRugiSubItemTotal(lvReport(i), CStr(Format(dtPeriode(0).Value, DATEFORMAT)), CStr(Format(dtPeriode(1).Value, DATEFORMAT)))
Next i
Call CountSubTotal(lvReport(0), lblTotal(0))
Call CountSubTotal(lvReport(1), lblTotal(1))
' #################################################################################
Dim n As Currency, g(1) As Currency
n = 0
g(0) = 0: g(1) = 0
For i = 1 To lvReport(2).ListItems.Count
If (lvReport(2).ListItems(i).ListSubItems(1).Tag = "Value00") Then
g(0) = g(0) + CCur(lvReport(2).ListItems(i).ListSubItems(1).Text)
End If
Next i
For i = 1 To lvReport(2).ListItems.Count
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -