📄
字号:
Bln_BillChange = False
'调入数据初始化模块(Fixed)
Lab_Djclzt.Caption = Xtcdcs
Call Sjcsh(Trim(Lab_Djclzt.Caption))
End Sub
Private Sub Form_Unload(Cancel As Integer) '窗体卸载
'是否保存已修改单据
Dim YAnswer As Integer
If Lab_OperStatus.Caption = "2" Or Lab_OperStatus.Caption = "3" Then
Tsxx = "单据尚未保存,是否退出?"
YAnswer = Xtxxts(Tsxx, 2, 2)
If YAnswer <> 1 Then
Cancel = 1
Exit Sub
End If
End If
'卸载打印页面窗体
Unload Dyymctbl
'判断单据是否发生变化,并返回相应标识
If Bln_BillChange Then
Xtfhcs = "1"
Else
Xtfhcs = "0"
End If
End Sub
Private Sub Sjcsh(Str_Pzclzt As String) '数据初始化模块(根据实际情况)
Dim Sqlstr As String '查询单据列表条件
'[>>根据实际情况初始化
Select Case Str_Pzclzt
Case "1" '填制单据
'调入用户查询结果动态集(默认显示用户当前操作业务日期的单据)
Sqlstr = "SELECT InventoryMainId From Kf_InventoryMain Where BillDate='" & Xtrq & "' ORDER BY InventoryMainId "
Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
'新增单据
Call Sub_AddBill
Case "2" '查询单据(单据列表)
'填充查询单据标识
Lab_BillId.Caption = XT_BillID
Str_QueryCondi = Xtcdcsfz
Call Sub_ShowBill
Call Sub_OperStatus("10")
'调入用户查询结果动态集
Sqlstr = "SELECT DISTINCT InventoryMainId From KF_V_PDD a " & Str_QueryCondi & " ORDER BY InventoryMainId"
Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
Rec_Query.Find "InventoryMainId=" & S2N(Lab_BillId.Caption)
Case "3" '明细帐联查单据
'设置工具条显示
With Tlb_Action
.Buttons("xz").Enabled = False '新增
.Buttons("xg").Enabled = False '修改
.Buttons("sc").Enabled = False '删除
.Buttons("fgh0").Enabled = False '分隔行
.Buttons("zh").Enabled = False '增行
.Buttons("sh").Enabled = False '删行
.Buttons("fgh1").Enabled = False '分隔行
.Buttons("bc").Enabled = False '保存
.Buttons("fq").Enabled = False '放弃
.Buttons("shsh").Enabled = False '审核
.Buttons("shqs").Enabled = False '弃审
.Buttons("fgh2").Enabled = False '分隔行
.Buttons("first").Enabled = False '首张
.Buttons("prev").Enabled = False '上张
.Buttons("next").Enabled = False '下张
.Buttons("last").Enabled = False '末张
.Buttons("fgh5").Enabled = False '分割行
End With
Call Sub_ShowBill
'设置操作状态为浏览
Lab_OperStatus.Caption = "1"
'录入文本框
For jsqte = Max_Text_Index To 0 Step -1
LrText(jsqte).Enabled = False
Next jsqte
End Select
'<<]
End Sub
Private Sub Sub_ShowBill() '根据当前单据ID显示整张单据内容
'过程默认参数为当前窗体中单据ID:Lab_BillID
Dim Sqlstr As String '临时使用字符串
Dim RecTemp As New ADODB.Recordset '临时使用动态集
Dim jsqte As Long '临时计数器
'禁止网格刷新动作,为加快网格显示速度(Fixed)
WglrGrid.Redraw = False
'本张单据查询字符串
Sqlstr = "SELECT KF_V_PDD.* from KF_V_PDD Where InventoryMainId=" & S2N(Lab_BillId.Caption) & " Order By KF_V_PDD.InventorySubId"
Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
With RecTemp
WglrGrid.Rows = WglrGrid.FixedRows
If .EOF Then
WglrGrid.Redraw = True
Tlb_Action.Buttons("zb").Enabled = False
Tlb_Action.Buttons("jh").Enabled = False
Label1.Visible = False
Exit Sub
Else
'[>>显示单据头
TextChangeLock = True '文本框加锁
PriceMode = Trim(.Fields("PriceMode"))
If .Fields("ishqgl") Then
WglrGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False
Else
WglrGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
End If
PriceMode = Trim(.Fields("PriceMode"))
If Trim(.Fields("PriceMode")) = "计划价法" Then
WglrGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False
WglrGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False
Else
WglrGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = True
WglrGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = True
End If
If conForbid = 1 Then
If Not IsNull(.Fields("FreezeFlag")) Then
Label1.Visible = CBool(.Fields("FreezeFlag"))
If Not CBool(.Fields("actstate")) Then
Tlb_Action.Buttons("jh").Enabled = Not CBool(.Fields("actstate"))
Else
Tlb_Action.Buttons("jh").Enabled = Not Label1.Visible
End If
End If
Else
Label1.Visible = CBool(.Fields("actstate"))
Tlb_Action.Buttons("jh").Enabled = Not CBool(.Fields("actstate"))
End If
LrText(0).Text = Trim(.Fields("BillNum")) '订单号
If IsDate(.Fields("BillDate")) Then
LrText(2).Text = Format(.Fields("BillDate"), "yyyy-mm-dd") '制单日期
End If
LrText(3).Tag = Trim(.Fields("DeptCode") & "") '客户编码
LrText(3).Text = Trim(.Fields("DeptName") & "") '客户名称
LrText(1).Tag = Trim(.Fields("WhCode") & "")
LrText(1).Text = Trim(.Fields("WhName") & "") '备注
LrText(4).Tag = Trim(.Fields("InClass") & "")
LrText(4).Text = Trim(.Fields("InClassName") & "") '入库类别
LrText(5).Tag = Trim(.Fields("OutClass") & "")
LrText(5).Text = Trim(.Fields("OutClassName") & "") '出库类别
LrText(6).Tag = Trim(.Fields("PersonCode") & "")
LrText(6).Text = Trim(.Fields("PersonName") & "") '人员
LrText(7).Text = Trim(.Fields("remark") & "")
LrText(9).Text = Trim(.Fields("maker") & "") '制单人
LrText(8).Text = Trim(.Fields("ChalkitupMan") & "") '审核人
TextChangeLock = False '文本框解锁
'<<]
End If
jsqte = WglrGrid.FixedRows
Do While Not .EOF
WglrGrid.AddItem ""
'[>>显示单据分录
WglrGrid.TextMatrix(jsqte, 0) = "*"
WglrGrid.TextMatrix(jsqte, 2) = .Fields("ispcgl")
WglrGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "") '物料编码
WglrGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("MName") & "") '物料名称
WglrGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Model") & "") '物料规格
WglrGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")
If Not IsNull(.Fields("MAreaName")) Then
WglrGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = .Fields("MAreaName") '货区
WglrGrid.TextMatrix(jsqte, 1) = .Fields("MArea")
End If
WglrGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("batchnum") & "") '批号
If .Fields("AccQuan") <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("AccQuan") '帐面数量
End If
If .Fields("QuanInve") <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = .Fields("QuanInve") '盘点数量
End If
If S2N(.Fields("QuanInve")) - S2N(.Fields("AccQuan")) <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = S2N(.Fields("QuanInve")) - S2N(.Fields("AccQuan")) '盈亏数量
End If
If .Fields("price") <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = .Fields("price") '价格
End If
If .Fields("PlanPrice") <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = .Fields("PlanPrice") '计划价格
End If
If .Fields("PlanMoney") <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = .Fields("PlanMoney") '计划金额
End If
If .Fields("EMoney") <> 0 Then
WglrGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = .Fields("EMoney") '金额
End If
WglrGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("Cause") & "") '原因
WglrGrid.RowHeight(jsqte) = Sjhgd
.MoveNext
jsqte = jsqte + 1
Loop
End With
'调整网格(Fixed)
Call Sub_AdjustGrid
Call Cshhjwg
'计算合计数据(Fixed)
For jsqte = Qslz To WglrGrid.Cols - 1
Call Sjhj(jsqte)
Next jsqte
'将网格刷新解禁(Fixed)
WglrGrid.Redraw = True
End Sub
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button) '用户点击工具条
'屏蔽文本框,下拉组合框有效性判断
Valilock = True
'屏蔽网格失去焦点产生的有效性判断
Changelock = True
Select Case Button.Key
Case "yl" '预 览
If Fun_Drfrmyxxpd Then
If PriceMode = "计划价法" Then
BillGridPrint WglrGrid, LrText, GridStr(), Szzls, GridCode, TextGroupCode, XtReportCode, False, "plan"
Else
BillGridPrint WglrGrid, LrText, GridStr(), Szzls, GridCode, TextGroupCode, XtReportCode, False, "default"
End If
End If
Case "dy" '打 印
If Fun_Drfrmyxxpd Then
Dim Yhanswer As Integer '打印提示
'用户确认是否打印单据
Tsxx = "请确认是否打印当前单据?"
Yhanswer = Xtxxts(Tsxx, 2, 2)
If Yhanswer = 2 Then
Exit Sub
End If
If PriceMode = "计划价法" Then
BillGridPrint WglrGrid, LrText, GridStr(), Szzls, GridCode, TextGroupCode, XtReportCode, True, "plan"
Else
BillGridPrint WglrGrid, LrText, GridStr(), Szzls, GridCode, TextGroupCode, XtReportCode, True, "default"
End If
End If
Case "xz" '新 增
Call Sub_AddBill
Case "xg" '修 改
Call Sub_EditBill
Case "sc" '删 除
Call Sub_DeleteBill
Case "zh" '增 行
Call zjlrfl
Case "sh" '删 行
Call Scdqfl
Case "bc" '保 存
If Fun_Drfrmyxxpd Then
Call Sub_SaveBill
End If
Case "fq" '放 弃
Call Sub_AbandonBill
Case "pk" '盘库
Call Sub_PK
Case "zb" '制表
Call Sub_PDZB(True)
If Fun_Drfrmyxxpd Then
Call bbyl(True)
End If
Call Sub_PDZB(False)
Case "jh" '激活
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -