📄 +
字号:
Dim Shsfts As Boolean '删除记录行是否提示
Dim Szzls As Integer '网格信息数组最大下标值(网格列数-1)
Private Sub Form_KeyPress(KeyAscii As Integer) '控制焦点转移和限制录入字符"'"
Select Case KeyAscii
Case 39 '屏蔽字符"'"
KeyAscii = 0
End Select
End Sub
Private Sub Form_Load() '窗 体 装 入
Dim RecTemp As New ADODB.Recordset '临时使用动态集
'核算科目
Str_Ccode = Xtcdcs
'期初录入年度
Int_OriYear = Xtyear
'初始化各种锁值
changelock = False '网格行列改变控制锁
Gdtlock = False '滚动条滚动控制
Yxxpdlock = True '字段有效性判断锁
Hyxxpdlock = True '行有效性判断锁
Wbkbhlock = False '文本框内容改变锁
'报表主标题及报表编码
ReportTitle = "辅助核算期初录入"
XtReportCode = "c_qcyelrass0"
Load Dyymctbl
'调 入 网 格
GridCode = "c_qcyelrass0" '网格属性编码
Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Pmbcsjhs = GridInf(3)
Fzxwghs = GridInf(4)
Sfblbzkd = GridInf(5)
Shsfts = GridInf(6)
Sfxshjwg = GridInf(7)
Szzls = WglrGrid.Cols - 1
SqlStr = "Select Cwzz_AccCode.*,Cwzz_ItemClass.ItemClassName FROM Cwzz_AccCode LEFT OUTER JOIN Cwzz_ItemClass ON " & _
" Cwzz_AccCode.ItemClassCode = Cwzz_ItemClass.ItemClassCode Where Ccode='" & Str_Ccode & "'"
Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
With RecTemp
If Not .EOF Then
Str_Yefx = Trim(.Fields("BalanceOri")) '余额方向
Str_ItemClassCode = Trim(.Fields("ItemClassCode") & "") '项目类别
If Trim(.Fields("ItemClassName") & "") <> "" Then
Lab_ItemFlag.Visible = True
Lab_ItemClassName.Visible = True
Lab_ItemClassName.Caption = Trim(.Fields("ItemClassName") & "")
End If
If Not .Fields("QuantityFlag") Then
WglrGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = True
End If
If Not .Fields("ForeignFlag") Then
WglrGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = True
End If
If Not .Fields("ItemFlag") Then '非项目核算
WglrGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = True
End If
If Not .Fields("DeptFlag") Then '非部门核算
WglrGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = True
End If
If Not .Fields("PersonFlag") Then '非个人核算
WglrGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = True
End If
If Not .Fields("CusFlag") Then '非客户核算
WglrGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
End If
If Not .Fields("SupplierFlag") Then '非供应商核算
WglrGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = True
End If
If .Fields("ForeignFlag") Then
Bln_Foreign = True
Else
Bln_Foreign = False
End If
Lab_Ccode.Caption = Trim(.Fields("Ccode")) & " " & Trim(.Fields("Cname"))
End If
End With
'生成查询结果
Call Sub_Query
'设置状态为修改状态
Lab_OperStatus = "2"
End Sub
Private Sub Form_Unload(Cancel As Integer) '窗体卸载
'卸载打印页面窗体
Unload Dyymctbl
End Sub
Private Sub Sub_Query() '生成查询结果
Dim SqlStr As String '查询字符串
Dim RecTemp As New ADODB.Recordset '临时使用动态集
Dim Jsqte As Long '临时计数器
SqlStr = "SELECT Cwzz_AccSumAssi.*, gy_supplier.supplier_name,Gy_Customer.CusName, Gy_Department.DeptName," & _
" Gy_Person.PersonName , Cwzz_ViewItem.ItemName,Cwzz_ViewItem.Measure FROM Cwzz_AccSumAssi LEFT OUTER JOIN Cwzz_ViewItem ON " & _
" Cwzz_AccSumAssi.ItemClassCode =Cwzz_ViewItem.ItemClassCode AND Cwzz_AccSumAssi.ItemCode = Cwzz_ViewItem.ItemCode LEFT OUTER JOIN " & _
" gy_supplier ON Cwzz_AccSumAssi.Supplier_Code = gy_supplier.supplier_code LEFT OUTER JOIN Gy_Customer ON " & _
" Cwzz_AccSumAssi.CusCode = Gy_Customer.CusCode LEFT OUTER JOIN Gy_Department ON Cwzz_AccSumAssi.DeptCode = Gy_Department.DeptCode LEFT OUTER JOIN " & _
" Gy_Person ON Cwzz_AccSumAssi.PersonCode = Gy_Person.PersonCode WHERE Cwzz_AccSumAssi.Year = " & Int_OriYear & " And " & _
" Cwzz_AccSumAssi.Ccode='" & Str_Ccode & "' And Cwzz_AccSumAssi.Period = 1" & _
" Order By Cwzz_ViewItem.ItemName,Gy_Department.DeptName,Gy_Person.PersonName,Gy_Customer.CusName,gy_supplier.supplier_name"
Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
With RecTemp
WglrGrid.Clear 1
WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
Jsqte = WglrGrid.FixedRows
Do While Not .EOF
If Jsqte >= WglrGrid.Rows Then
WglrGrid.AddItem ""
End If
WglrGrid.TextMatrix(Jsqte, 0) = "*" '有效记录标识
WglrGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("I_id")) '记录唯一标识
WglrGrid.TextMatrix(Jsqte, 2) = Trim(.Fields("ItemCode") & "") '项目编码
WglrGrid.TextMatrix(Jsqte, 3) = Trim(.Fields("DeptCode") & "") '部门编码
WglrGrid.TextMatrix(Jsqte, 4) = Trim(.Fields("PersonCode") & "") '个人编码
WglrGrid.TextMatrix(Jsqte, 5) = Trim(.Fields("CusCode") & "") '客户编码
WglrGrid.TextMatrix(Jsqte, 6) = Trim(.Fields("Supplier_Code") & "") '供应商编码
WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("ItemName") & "") '项目名称
WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Measure") & "") '项目单位
WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "") '部门名称
WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "") '个人名称
WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("CusName") & "") '客户名称
WglrGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("Supplier_Name") & "") '供应商名称
If Val(.Fields("Ycye") & "") > 0 Then '余额方向
WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借"
Else
If Val(.Fields("Ycye") & "") < 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "贷"
Else
WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Str_Yefx
End If
End If
'1.金额
If Val(.Fields("Ycye") & "") <> 0 Then '年初余额
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(.Fields("Ycye") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = -Val(.Fields("Ycye") & "")
End If
End If
If Val(.Fields("Byjfljje") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Val(.Fields("Byjfljje") & "") '本年借方累计本币金额
End If
If Val(.Fields("Bydfljje") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Val(.Fields("Bydfljje") & "") '本年贷方累计本币金额
End If
If Val(.Fields("Qmye") & "") <> 0 Then
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Val(.Fields("Qmye") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = -Val(.Fields("Qmye") & "")
End If
End If
If Val(.Fields("Ycsl") & "") <> 0 Then '年初数量
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Val(.Fields("Ycsl") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = -Val(.Fields("Ycsl") & "")
End If
End If
If Val(.Fields("Byjfljsl") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Val(.Fields("Byjfljsl") & "") '本年借方累计数量
End If
If Val(.Fields("Bydfljsl") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Val(.Fields("Bydfljsl") & "") '本年贷方累计数量
End If
If Val(.Fields("Qmsl") & "") <> 0 Then '期末数量
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Val(.Fields("Qmsl") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Val(.Fields("Qmsl") & "")
End If
End If
If Val(.Fields("Ycwb") & "") <> 0 Then '年初外币
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Val(.Fields("Ycwb") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = -Val(.Fields("Ycwb") & "")
End If
End If
If Val(.Fields("Byjfljwb") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Val(.Fields("Byjfljwb") & "") '本年借方累计原币金额
End If
If Val(.Fields("Bydfljwb") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Val(.Fields("Bydfljwb") & "") '本年贷方累计原币金额
End If
If Val(.Fields("Qmwb") & "") <> 0 Then '期初外币
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Val(.Fields("Qmwb") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = -Val(.Fields("Qmwb") & "")
End If
End If
If Val(.Fields("YcItemSl") & "") <> 0 Then '年初项目数量
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Val(.Fields("YcItemSl") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = -Val(.Fields("YcItemSl") & "")
End If
End If
If Val(.Fields("ItemByljjfsl") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Val(.Fields("ItemByljjfsl") & "") '本年借方累计项目数量
End If
If Val(.Fields("ItemByljdfsl") & "") <> 0 Then
WglrGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = Val(.Fields("ItemByljdfsl") & "") '本年贷方累计项目数量
End If
If Val(.Fields("QmItemSl") & "") <> 0 Then '期初项目数量
If WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = "借" Then
WglrGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = Val(.Fields("QmItemSl") & "")
Else
WglrGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = -Val(.Fields("QmItemSl") & "")
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -