📄
字号:
Caption = "本会计期间凭证:全部记帐"
ForeColor = &H00000000&
Height = 255
Left = 1680
TabIndex = 6
Top = 1440
Width = 2475
End
Begin VB.Label lab_Report
BackStyle = 0 'Transparent
Caption = " 结 帐 报 告"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 3075
TabIndex = 5
Top = 630
Width = 2040
End
End
Begin VSFlex8Ctl.VSFlexGrid CzxsGrid
Height = 5715
Left = -74910
TabIndex = 64
Top = 420
Width = 8415
_cx = 5080
_cy = 5080
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = 8421504
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 5000
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = 1
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
AccessibleName = ""
AccessibleDescription= ""
AccessibleValue = ""
AccessibleRole = 24
End
End
End
Attribute VB_Name = "YM_FrmYmjz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'********************************************************************
'* 模 块 名 称 :月末结帐
'* 功 能 描 述 :
'* 程序员姓名 :张建忠
'* 最后修改人 :奚俊峰
'* 最后修改时间:2001/12/12
'* 备 注:
'********************************************************************
Dim Ztxxrec As New ADODB.Recordset '帐套信息动态集
Dim Dqkjyear As Integer '当前会计年度
Dim Dqkjmm As Integer '当前会计期间
Dim Int_Year As Integer '试算平衡年度
Dim Int_Period As Integer
Dim Int_SS_OK As Integer
Private Int_CheckYear As Integer '核对帐目会计年度
Private Int_CheckPeriod As Integer '核对帐目会计期间
Private Int_DZ_OK As Integer '对帐是否正确
Dim ReportTitle As String '报表主标题
Dim Int_ErrorContinue As Integer '不平衡或对帐不正确是否继续
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim Sfxshjwg As Boolean '是否显示合计网格
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Szzls As Integer '数组总列数(网格列数-1)
Const str_Info = "百利/ERP5.0-财务总帐"
Private Sub cmdCancel1_Click()
Unload Me
End Sub
Private Sub cmdCancel2_Click()
Unload Me
End Sub
Private Sub cmdCancel3_Click()
Unload Me
End Sub
'对帐过程处理
Private Sub cmdDuiZhang_Click()
Lab_Ccode.Visible = True
lab_DZ_Res.Visible = False
Label4.Visible = True
Sub_AccCheck
If Int_DZ_OK = 1 Then
lab_DZ.Caption = "对帐结果:正确"
lab_DZ_Res.Caption = "对帐结果:正确"
lab_DZ_Res.ForeColor = vbBlue
lab_DZ.ForeColor = vbBlue
Else
If Int_ErrorContinue = 0 Then
cmdNext3.Enabled = False
End If
lab_DZ.Caption = "对帐结果:错误"
lab_DZ_Res.Caption = "对帐结果:错误"
lab_DZ_Res.ForeColor = vbRed
lab_DZ.ForeColor = vbRed
End If
Lab_Ccode.Visible = False
lab_DZ_Res.Visible = True
Label4.Visible = False
End Sub
'月末结帐过程处理
Private Sub cmdExecute_Click()
If Fun_JzCheck Then
Tsxx = "月末结帐完毕!"
lab_Continue.Caption = Lab_jzyf.Caption & "完毕!"
cmdExecute.Enabled = False
Call Xtxxts(Tsxx, 0, 4)
Unload Me
End If
End Sub
Private Sub cmdNext1_Click()
cmdNext2.Default = True
StTab.TabEnabled(0) = False
StTab.TabEnabled(1) = True
StTab.TabEnabled(2) = False
StTab.TabEnabled(3) = False
StTab.Tab = 1
cmdPingHeng_Click
End Sub
Private Sub cmdNext2_Click()
cmdNext3.Default = True
StTab.TabEnabled(0) = False
StTab.TabEnabled(1) = False
StTab.TabEnabled(2) = True
StTab.TabEnabled(3) = False
StTab.Tab = 2
Timer1.Enabled = True
End Sub
Private Sub cmdNext3_Click()
cmdExecute.Default = True
StTab.TabEnabled(0) = False
StTab.TabEnabled(1) = False
StTab.TabEnabled(2) = False
StTab.TabEnabled(3) = True
StTab.Tab = 3
If Int_ErrorContinue = 1 Then
If Int_SS_OK = 0 Or Int_DZ_OK = 0 Then
lab_Continue.Caption = "建议试算平衡并且对帐正确后结帐,确实要继续执行吗?"
Else
lab_Continue.Caption = "可以正常结帐,确认是否继续执行?"
End If
Else
If Int_SS_OK = 0 Or Int_DZ_OK = 0 Then
lab_Continue.Caption = "试算不平衡或对帐错误不能结帐!"
cmdExecute.Enabled = False
Else
lab_Continue.Caption = "可以正常结帐,确认是否继续执行?"
End If
End If
End Sub
'试算平衡处理过程
Private Sub cmdPingHeng_Click()
Sub_PingHeng
If Int_SS_OK = 0 Then
cmdNext2.Enabled = False
End If
End Sub
Private Sub cmdPrev2_Click()
StTab.TabEnabled(0) = True
StTab.TabEnabled(1) = False
StTab.TabEnabled(2) = False
StTab.TabEnabled(3) = False
StTab.Tab = 0
End Sub
Private Sub cmdPrev3_Click()
StTab.TabEnabled(0) = False
StTab.TabEnabled(1) = True
StTab.TabEnabled(2) = False
StTab.TabEnabled(3) = False
StTab.Tab = 1
End Sub
Private Sub cmdPrev4_Click()
StTab.TabEnabled(0) = False
StTab.TabEnabled(1) = False
StTab.TabEnabled(2) = True
StTab.TabEnabled(3) = False
StTab.Tab = 2
End Sub
Private Sub Form_Load()
Dim int_BookFlag As Integer '月末结帐标志
cmdNext1.Default = True
StTab.TabEnabled(0) = True
StTab.TabEnabled(1) = False
StTab.TabEnabled(2) = False
StTab.TabEnabled(3) = False
StTab.Tab = 0
cmdPingHeng.Visible = False
cmdDuiZhang.Visible = False
Int_ErrorContinue = 1
'取出当前的会计期间
Set Ztxxrec = Cw_DataEnvi.DataConnect.Execute("Select top 1 * From gy_kjrlb Where Cwzzjzbz=0 Order by kjyear,period")
With Ztxxrec
If Not .EOF Then
Dqkjyear = .Fields("kjyear")
Dqkjmm = .Fields("period")
int_BookFlag = IIf(IsNull(.Fields("Cwzzjzbz")), 0, .Fields("Cwzzjzbz"))
End If
End With
Int_Year = Dqkjyear
Int_Period = Dqkjmm
Int_CheckYear = Dqkjyear
Int_CheckPeriod = Dqkjmm
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -