📄 i-
字号:
If Trim(.LrText(6).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " and a.suppliercode = '" & Trim(.LrText(6).Tag) & "'"
End If
Case 7 '客户
If Trim(.LrText(7).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " and a.cuscode = '" & Trim(.LrText(7).Tag) & "'"
End If
Case 8 '部门
If Trim(.LrText(8).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " and a.deptcode = '" & Trim(.LrText(8).Tag) & "'"
End If
Case 9 '查询单据日期范围(起始)
If Trim(.LrText(9).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " And a.BillDate>='" & Trim(.LrText(9).Text) & "'"
End If
Case 10 '查询单据日期范围(终止)
If Trim(.LrText(10).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " And a.BillDate<= '" & Trim(.LrText(10).Text) & "'"
End If
Case 11 '查询记帐日期范围(起始)
If Trim(.LrText(11).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " And a.ChalkDate>='" & Trim(.LrText(11).Text) & "'"
End If
Case 12 '查询记帐日期范围(终止)
If Trim(.LrText(12).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " And a.ChalkDate<= '" & Trim(.LrText(12).Text) & "'"
End If
Case 14 '月份（起始）
Str_QueryCondi = Str_QueryCondi & " And a.period>= '" & .Com_QsMon.ItemData(.Com_QsMon.ListIndex) & "'"
Case 15 '月份(终止)
Str_QueryCondi = Str_QueryCondi & " And a.period<= '" & .Com_JzMon.ItemData(.Com_JzMon.ListIndex) & "'"
Case 16 '记帐状态
Str_QueryCondi = Str_QueryCondi & " and (a.billcode in(1202,1203,1204,1205,1206,1212)) "
If Not .Opt_Check(0).Value Then
If .Opt_Check(1).Value Then
Str_QueryCondi = Str_QueryCondi & " and a.chalkitupman <>'' "
Else
Str_QueryCondi = Str_QueryCondi & " and a.chalkitupman ='' "
End If
End If
End Select
Next Jsqte
End With
If Not Zbfx_InOutCond.Opt_Check(1).Value Then '收发记录表查询
SqlStr = "SELECT * FROM Chhs_V_InOut a LEFT OUTER JOIN Gy_Whlimit ON a.Whcode=Gy_Whlimit.Whcode " & _
Trim(Str_QueryCondi) & "AND Gy_Whlimit.Czybm='" & Xtczybm & "' Order By a.whcode,a.BillDate,a.InoutMainId,a.InOutSubId"
Else '明细帐查询
SqlStr = "SELECT * FROM Chhs_V_List a LEFT OUTER JOIN Gy_Whlimit ON a.Whcode=Gy_Whlimit.Whcode " & _
Trim(Str_QueryCondi) & "AND Gy_Whlimit.Czybm='" & Xtczybm & "' Order By a.whcode,a.BillDate,a.InoutMainId,a.InOutSubId"
End If
Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
With Rec_Query
CxbbGrid.Rows = CxbbGrid.FixedRows
Jsqte = CxbbGrid.FixedRows
Do While Not .EOF
CxbbGrid.AddItem ""
'[>>自定义填充内容
CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InoutMainId") 'ID(主要用来查询定位用)
CxbbGrid.TextMatrix(Jsqte, 1) = .Fields("BillCode") '单据编码
CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "") '单据号
CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "") '仓库名称
CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd") '入库日期
If .Fields("inoutFlag") Then
CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "") '供应商
Else
CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("CusName") & "") '客户
End If
CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "") '部门
CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "") '收发类别
CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "") '业务员
CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "") '制单人
CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "") '记帐人
CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "") '存货编码
CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "") '存货名称
CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "") '规格型号
CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "") '主计量单位
CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "") '年度
CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("period") & "") '月份
CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = Trim(.Fields("billname") & "") '备注
CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Trim(.Fields("remark") & "") '备注
If Not Zbfx_InOutCond.Opt_Check(1).Value Then '收发记录表查询
CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ChhsChecker") & "") '审核人
If .Fields("inoutFlag") Then
If .Fields("FactReceiptQuan") <> 0 Then '数量
CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("FactReceiptQuan")
End If
If .Fields("PlanPrice") <> 0 Then '计划单价
CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("PlanPrice")
End If
If .Fields("PlanMoney") <> 0 Then '计划金额
CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("PlanMoney")
End If
If .Fields("Price") <> 0 Then '实际单价
CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("Price")
End If
If .Fields("Emoney") <> 0 Then '实际金额
CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("EMoney")
End If
Else
If .Fields("FactIssueQuan") <> 0 Then '数量
CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("FactIssueQuan")
End If
If .Fields("Price") <> 0 Then '实际单价
CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("Price")
End If
If .Fields("IssueMoney") <> 0 Then '实际金额
CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("IssueMoney")
End If
End If
Else '明细帐查询
CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Checker") & "") '审核人
If .Fields("inoutFlag") Then
If .Fields("InQuan") <> 0 Then '数量
CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("InQuan")
End If
If Trim(.Fields("pricemode")) = "计划价法" Then
If .Fields("InPrice") <> 0 Then '计划单价
CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("InPrice")
End If
If .Fields("InMoney") <> 0 Then '计划金额
CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("InMoney")
End If
End If
CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")
If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls))) <> 0 Then '实际单价
CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls))) / .Fields("InQuan")
End If
Else
If .Fields("OutQuan") <> 0 Then '数量
CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("OutQuan")
End If
If .Fields("OutPrice") <> 0 Then '实际单价
CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("OutPrice")
End If
If .Fields("OutMoney") <> 0 Then '实际金额
CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("OutMoney")
End If
End If
End If
'<<]
'设置数据行高度(Fixed)
CxbbGrid.RowHeight(Jsqte) = Sjhgd
'动态集指针加1,同时将计数器加1(Fixed)
.MoveNext
Jsqte = Jsqte + 1
Loop
End With
'输入合计
With CxbbGrid
If .Rows = .FixedRows Then Exit Sub
.SubtotalPosition = flexSTBelow
For Jsqte = Qslz To .Cols - 1
If GridBoolean(Jsqte, 4) Then
.Subtotal flexSTSum, -1, Jsqte, , &HF7F3EC, , , , , True
End If
Next
For Coljsq = Qslz To .Cols - 1
If Val(.TextMatrix(.Rows - 1, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
.TextMatrix(.Rows - 1, Coljsq) = ""
End If
Next
.TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = " 合计 "
.RowHeight(.Rows - 1) = Sjhgd
End With
']以上为用户自定义部分
Set Rec_Query = Nothing
End Sub
Private Sub CxbbGrid_DblClick() '用户双击网格调入相应单据
Dim Rectemp As New ADODB.Recordset '临时使用动态集
If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
'非数据行退出
If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
Exit Sub
End If
SqlStr = "SELECT InOutMainId From Gy_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
With Rectemp
If .EOF Then
Tsxx = "此单据已被其他用户删除!"
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
Else
'填充查询单据标识
XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
Xtcdcsfz = Str_QueryCondi
'设置单据处理为列表查询(修改)状态
Xtcdcs = "3"
'调入单据处理窗体
Select Case Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
Case "1202"
DJ_ProdInBill.Show 1
Case "1203"
DJ_OtherInBill.Show 1
Case "1204"
DJ_MateOutBill.Show 1
Case "1205"
DJ_SellOutBill.Show 1
Case "1206"
DJ_OtherOutBill.Show 1
Case "1212"
DJ_MateInBill.Show 1
End Select
End If
End With
End Sub
Private Sub bbyl(bbylte As Boolean) '报表打印预览
Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
Bbxbtgs = 1 '报 表 小 标 题 行 数
Bbbwhgs = 0 '报 表 表 尾 行 数
ReDim Bbxbt(1 To Bbxbtgs)
ReDim bbxbtzzxs(1 To Bbxbtgs)
If Bbbwhgs <> 0 Then
ReDim Bbbwh(1 To Bbbwhgs)
ReDim Bbbwhzzxs(1 To Bbbwhgs)
End If
Bbzbt = ReportTitle
Bbxbt(1) = ""
bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
Call Scyxsjb(CxbbGrid) '生成报表数据
Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
If Not bbylte Then
Unload DY_Tybbyldy
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -