📄 frmyh_yetjbqc.frm
字号:
Height = 300
Left = 1710
MaxLength = 20
TabIndex = 17
Text = "0.00"
Top = 360
Width = 2000
End
Begin VB.Label Label8
Caption = "调整前余额："
Height = 300
Left = 330
TabIndex = 9
Top = 390
Width = 1125
End
End
Begin VB.Frame Frame6
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1500
Left = 90
TabIndex = 5
Top = 2400
Width = 4100
Begin VB.TextBox txtYhyf
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Height = 300
Left = 1710
Locked = -1 'True
TabIndex = 25
Text = "0.00"
Top = 960
Width = 2000
End
Begin VB.TextBox txtYhys
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Height = 300
Left = 1710
Locked = -1 'True
TabIndex = 24
Text = "0.00"
Top = 360
Width = 2000
End
Begin VB.Label Label12
Caption = "减：银行已付 单位未付"
Height = 375
Left = 330
TabIndex = 13
Top = 930
Width = 1095
End
Begin VB.Label Label11
Caption = "加：银行已收 单位未收"
Height = 375
Left = 330
TabIndex = 12
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame8
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1100
Left = 90
TabIndex = 7
Top = 3780
Width = 4100
Begin VB.TextBox txtDwtzhye
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Height = 300
Left = 1710
Locked = -1 'True
TabIndex = 27
Text = "0.00"
Top = 450
Width = 2000
End
Begin VB.Label Label14
Caption = "调整后余额："
Height = 300
Left = 330
TabIndex = 21
Top = 480
Width = 1335
End
End
Begin VB.Label lblKmmc
AutoSize = -1 'True
Caption = "科目："
Height = 180
Left = 120
TabIndex = 14
Top = 690
Width = 540
End
Begin VB.Label lblBeginRq
AutoSize = -1 'True
Caption = "启用日期："
Height = 180
Left = 6000
TabIndex = 1
Top = 690
Width = 900
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuPrint
Caption = "打印"
Shortcut = ^P
End
Begin VB.Menu mnuPreview
Caption = "预览(&V)"
End
Begin VB.Menu mnuLine1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
End
End
Attribute VB_Name = "frmYH_Yetjbqc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'2001.01.22 肖兆芹修改
Option Explicit
'以下一段常量用于窗体frm_print的CELL打印
'-------------------------------------------------------------
'Cell单元格对齐方式: 33 = 左对齐, 34 = 右对齐, 36 = 居中对齐;
Const ROWS_PAGE = 30 '每页行数
Const COL_START = 1 '开始列
Const COL_ITEM_YH = 1 '银行方项目
Const COL_MONEY_YH = 2 '银行方的金额
Const COL_ITEM_DW = 3 '单位方项目
Const COL_MONEY_DW = 4 '单位方的金额
Const COL_END = 4
Const ROW_TITLE = 1 '标题
Const ROW_BLANK = 2
Const ROW_SUBJNAME = 3 '页眉
Const ROW_HEAD1 = 4 '页标头行
Const ROW_GRID_START = 5 '表格开始行
''''Const CRB_LINE = vbBlack '表格线颜色
'缺省列宽
Const ColWidth = "180,150,180,150"
Dim sEnterName As String '单位名称
Dim frmP As frmPrint '通用打印窗体(CELL)
'-------------------------------------------------------------
Dim rstTemp As ADODB.Recordset
Dim sSQL As String
Dim rSt As ADODB.Recordset
Dim adoCmd As ADODB.Command
Dim rstDwf As ADODB.Recordset '单位方记录集
Dim rstYhf As ADODB.Recordset '银行方记录集
Dim SubSysBeginYear As String '账务子系统启用年份
Dim SubSysBeginMonth As String '账务子系统启用月份
Dim sQyrq As String '银行对账启用日期
Dim sJzrq As String '银行对账截止日期
Dim IsExistQyrq As Boolean '是否存在银行对账启用日期
Dim IsTheSameYear As Boolean '是否银行对账启用日期和注册年份相同
Dim IsExistYhtzqye As Boolean '是否存在期初银行调整余额
Dim IsExistDwtzqye As Boolean '是否存在期初单位调整前余额
Private Sub form_load()
IsExistQyrq = False
IsTheSameYear = False
Set rSt = New ADODB.Recordset
rSt.CursorLocation = adUseClient
sSQL = "SELECT * FROM tSYS_SubSysUsed WHERE AccountID = '" & glo.sAccountID & _
"' AND SubSysID = '" & gloSys.sSubSysId & "'"
rSt.Open sSQL, gloSys.cnnSYS, adOpenStatic, adLockReadOnly
'================================2002.9.5 yao revise===================================================
' SubSysBeginYear = rSt.Fields("BeginYear").Value
' SubSysBeginMonth = rSt.Fields("BeginMonth").Value
If Not rSt.EOF Then
SubSysBeginYear = rSt.Fields("BeginYear").value
SubSysBeginMonth = rSt.Fields("BeginMonth").value
End If
'======================================================================================================
Set adoCmd = New ADODB.Command
adoCmd.ActiveConnection = glo.cnnMain
lblKmmc.Caption = "科目：" & frmYH_Yhkmxz.Kmmc & "(" & frmYH_Yhkmxz.Kmdm & ")"
'从银行对账启用日期表中取得银行对账启用日期
'如果银行对账已经启用, 则
'如果银行对账启用日期等于当前注册年份,
'则dtpqyrq值等于银行对账启用日期,且标签为"启用日期"
'否则dtpqyrq值等于"当前注册年份-01-01",且标签为"期初日期"并且不可修改
'否则dtpqyrq值等于当前注册日期
Set rSt = New ADODB.Recordset
rSt.CursorLocation = adUseClient
sSQL = "SELECT * FROM tZW_Yhdzqyrq WHERE kmdm = '" & frmYH_Yhkmxz.Kmdm & "'"
rSt.Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
With rSt
If .RecordCount = 0 Then
IsExistQyrq = False
Else
IsExistQyrq = True
If Year(.Fields("qyrq").value) = CInt(glo.sOperateYear) Then
IsTheSameYear = True
sQyrq = Format(.Fields("qyrq").value, "yyyy-mm-dd")
lblBeginRq.Caption = "启用日期："
Else
sQyrq = glo.sOperateYear & "-01-01"
lblBeginRq.Caption = "期初日期："
dtpQyrq.Enabled = False
End If
sJzrq = Format(.Fields("jzrq").value, "yyyy-mm-dd")
dtpQyrq.value = CDate(sQyrq)
End If
End With
If Not IsExistQyrq Then
IsTheSameYear = True
sQyrq = Year(glo.sOperateDate) & "-" & Format(Month(glo.sOperateDate), "00") & "-01"
dtpQyrq.value = CDate(sQyrq)
End If
IsExistYhtzqye = False
IsExistDwtzqye = False
Call FillText
'得到当前账套的单位名称
sEnterName = GetDWMC
If sEnterName = "" Then
MsgBox "缺少单位名称！", vbInformation
Exit Sub
End If
Set frmP = New frmPrint
With frmP.CllR
'''' .DoLogin "南京伊康公司", 233, "E4FD90FF080193035CFEC3FE8605"
.SetCols COL_END + 2, 0
.SetRows ROW_GRID_START + ROWS_PAGE, 0
End With
End Sub
'填充初始余额调节表文本框内容
Private Sub FillText()
txtYhtzqye.Tag = 0
txtYhys.Tag = 0
txtYhyf.Tag = 0
txtDwtzqye.Tag = 0
txtDwys.Tag = 0
txtDwyf.Tag = 0
'计算银行方调整前余额、银行已收且单位未收、银行已付且单位未付；
Set rstYhf = New ADODB.Recordset
rstYhf.CursorLocation = adUseClient
Select Case g_FLAT
Case "SQL"
sSQL = "SELECT fx,je,qcbz FROM tZW_Yhdzd" & glo.sOperateYear & _
" WHERE kmdm = '" & frmYH_Yhkmxz.Kmdm & _
"' AND (qcbz = 0 OR (qcbz = 1 AND rq < '" & _
Format(dtpQyrq.value, "yyyy-mm-dd") & "'))"
Case "ORACLE"
sSQL = "SELECT fx,je,qcbz FROM tZW_Yhdzd" & glo.sOperateYear & _
" WHERE kmdm = '" & frmYH_Yhkmxz.Kmdm & _
"' AND (qcbz = 0 OR (qcbz = 1 AND rq < TO_DATE('" & _
Format(dtpQyrq.value, "yyyy-mm-dd") & "','YYYY-MM-DD')))"
End Select
rstYhf.Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
With rstYhf
If .RecordCount <> 0 Then
.MoveFirst
Do Until .EOF
If .Fields("qcbz").value = 0 Then
txtYhtzqye.Tag = .Fields("je").value & ""
IsExistYhtzqye = True
ElseIf .Fields("fx").value = "贷" Then
txtYhys.Tag = Val(txtYhys.Tag) + .Fields("je").value
Else
txtYhyf.Tag = Val(txtYhyf.Tag) + .Fields("je").value
End If
.MoveNext
Loop
End If
End With
'计算单位方调整前余额、单位已收且银行未收、单位已付且银行未付；
Set rstDwf = New ADODB.Recordset
rstDwf.CursorLocation = adUseClient
Select Case g_FLAT
Case "SQL"
sSQL = "SELECT kjqj,fx,je FROM tZW_pzsj" & glo.sOperateYear & _
" WHERE kmdm = '" & frmYH_Yhkmxz.Kmdm & _
"' AND ( kjqj = 20 OR (kjqj = 21 AND pzrq < '" & _
Format(dtpQyrq.value, "yyyy-mm-dd") & "'))"
Case "ORACLE"
sSQL = "SELECT kjqj,fx,je FROM tZW_pzsj" & glo.sOperateYear & _
" WHERE kmdm = '" & frmYH_Yhkmxz.Kmdm & _
"' AND ( kjqj = 20 OR (kjqj = 21 AND pzrq < TO_DATE('" & _
Format(dtpQyrq.value, "yyyy-mm-dd") & "','YYYY-MM-DD')))"
End Select
rstDwf.Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
With rstDwf
If .RecordCount <> 0 Then
.MoveFirst
Do Until .EOF
If .Fields("kjqj").value = 20 Then
txtDwtzqye.Tag = .Fields("je").value
IsExistDwtzqye = True
ElseIf .Fields("fx").value = "借" Then
txtDwys.Tag = Val(txtDwys.Tag) + .Fields("je").value
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -