📄 设备检修_月度检修计划显示.frm
字号:
If Trim(.LrText(1).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " And a.PlanDate<= ' " & Trim(.LrText(1).Text) & "'"
End If
Case 3 '订单号(Like)
If Trim(.LrText(2).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " And a.RepairMainCode like '" & Trim(.LrText(2).Text) & "%'"
End If
Case 4 '客户
If Trim(.LrText(3).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " and a.WorkShop = '" & Trim(.LrText(3).Tag) & "'"
End If
Case 5 '存货编码
If Trim(.LrText(4).Text) <> "" Then
Str_QueryCondi = Str_QueryCondi & " and a.DEVID = '" & Trim(.LrText(4).Text) & "'"
End If
Case 6
Str_QueryCondi = Str_QueryCondi & " and a.RepairType = '" & Trim(.Combo1.Text) & "'"
Case 7 '审核状态
If Not .Opt_Check(0).Value Then
If .Opt_Check(1).Value Then
Str_QueryCondi = Str_QueryCondi & " and a.Checker='' "
Else
Str_QueryCondi = Str_QueryCondi & " and a.Checker<>'' "
End If
End If
End Select
Next jsqte
End With
Else
'1-"刷新"查询
If Str_QueryCondi = "" Then
Str_QueryCondi = " where 1=2 "
End If
End If
Sqlstr = "select * from Dev_V_RepairPlan a" & _
Str_QueryCondi & " Order By a.PlanDate,a.RepairMainCode,a.RepairSubId"
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("RepairMainID") '计划主表ID(主要用来查询定位用)
CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("RepairMainCode") & "") '计划单号
CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "") '计划部门
CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("PlanDate"), "yyyy-mm-dd") '计划日期
CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("RepairType") & "") '计划类型
CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("RepairSubID") & "") '子表ID
CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("DEVID") & "") '设备编号
CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("DName") & "") '设备名称
CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Model") & "") '规格型号
CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("RprPosition") & "") '维修部位
If .Fields("CheckFile") = True Then '是否方案
CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = True
Else
CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = False
End If
CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Format(.Fields("PlanBeginDate"), "yyyy-mm-dd") '计划开始日期
CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = Format(.Fields("PlanEndDate"), "yyyy-mm-dd") '计划结束日期
CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Format(.Fields("RealBeginDate"), "yyyy-mm-dd") '实际开始日期
CxbbGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Format(.Fields("RealEndDate"), "yyyy-mm-dd") '实际结束日期
CxbbGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = Val(.Fields("PlanMoney") & "") '计划资金
CxbbGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = Val(.Fields("RealMoney") & "") '实用资金
CxbbGrid.TextMatrix(jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("StateName") & "") '维修后状态
CxbbGrid.TextMatrix(jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("Maker") & "") '制表人
CxbbGrid.TextMatrix(jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Checker") & "") '审核人
CxbbGrid.TextMatrix(jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("Authorizer") & "") '批准人
CxbbGrid.TextMatrix(jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("Remark") & "") '备注
If .Fields("ScenarioFlag") = True Then '方案完成标志
CxbbGrid.TextMatrix(jsqte, Sydz("022", GridStr(), Szzls)) = True
Else
CxbbGrid.TextMatrix(jsqte, Sydz("022", GridStr(), Szzls)) = False
End If
If .Fields("FileFlag") = True Then
CxbbGrid.TextMatrix(jsqte, Sydz("023", GridStr(), Szzls)) = True '记录完成标志
Else
CxbbGrid.TextMatrix(jsqte, Sydz("023", GridStr(), Szzls)) = False
End If
'<<]
'设置数据行高度(Fixed)
CxbbGrid.RowHeight(jsqte) = Sjhgd
'动态集指针加1,同时将计数器加1(Fixed)
.MoveNext
jsqte = jsqte + 1
Loop
End With
']以上为用户自定义部分
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 RepairMainID From Dev_RepairMain Where RepairMainID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
With RecTemp
If .EOF Then
Tsxx = "此检修计划已被其他用户删除!"
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
Else
'调入单据处理窗体
With Dev_MonthRepairPlanEditForm
'填充查询单据标识
XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
Xtcdcsfz = Str_QueryCondi
'设置单据处理为列表查询(修改)状态
Xtcdcs = "2"
.Show 1
End With
If Xtfhcs = "1" Then
Tsxx = "检修计划发生变化,是否刷新检修计划列表?"
Yhanswer = Xtxxts(Tsxx, 2, 2)
If Yhanswer = 1 Then
Xt_Wait.Show
Xt_Wait.Refresh
'加快显示速度
CxbbGrid.Redraw = False
'生成查询结果
Call Sub_Query(1)
CxbbGrid.Redraw = True
Xt_Wait.Hide
End If
End If
End If
End With
End Sub
Private Sub Sub_AddBill() '新增单据
With Dev_MonthRepairPlanEditForm
'设置单据处理为填制单据状态
Xtcdcs = "1"
.Show 1
End With
If Xtfhcs = "1" Then
Tsxx = "检修计划发生变化,是否刷新检修计划列表?"
Yhanswer = Xtxxts(Tsxx, 2, 2)
If Yhanswer = 1 Then
Xt_Wait.Show
Xt_Wait.Refresh
'加快显示速度
CxbbGrid.Redraw = False
'生成查询结果
Call Sub_Query(1)
CxbbGrid.Redraw = True
Xt_Wait.Hide
End If
End If
End Sub
Private Sub Sub_DeleteBill() '删除选中当前销售订单
Dim YAnswer As Integer
Dim Lng_BillID As Long '单据标识
'非数据行退出
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
Tsxx = "请确认是否删除当前检修计划?"
Yhanswer = Xtxxts(Tsxx, 2, 2)
If Yhanswer = 1 Then
'1.判断当前销售订单是否允许删除
If Not Fun_AllowDelete Then
Exit Sub
End If
'2.删除单据所有内容
Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
On Error GoTo Swcwcl
Cw_DataEnvi.DataConnect.BeginTrans
Cw_DataEnvi.DataConnect.Execute ("Delete XS_OrderBillMain Where RepairMainID=" & Lng_BillID) '删除单据主表内容
Cw_DataEnvi.DataConnect.Execute ("Delete XS_OrderBillSub Where RepairMainID=" & Lng_BillID) '删除单据子表内容
Cw_DataEnvi.DataConnect.CommitTrans
'删除网格中单据数据
jsqte = CxbbGrid.FixedRows
Do While jsqte <= CxbbGrid.Rows - 1
If Val(CxbbGrid.TextMatrix(jsqte, 0)) = Lng_BillID Then
CxbbGrid.RemoveItem (jsqte)
Else
jsqte = jsqte + 1
End If
Loop
Else
Exit Sub
End If
Exit Sub
Swcwcl:
Cw_DataEnvi.DataConnect.RollbackTrans
Tsxx = "删除检修计划过程中出现未知错误,程序自动恢复删除前状态!"
Call Xtxxts(Tsxx, 0, 1)
Exit Sub
End Sub
Private Function Fun_AllowDelete() As Boolean '判断当前单据是否允许删除
Dim RecTemp As New ADODB.Recordset '临时使用动态集
Dim Sqlstr As String '查询字符串
Dim Lng_BillID As Long '单据ID
Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
Sqlstr = "Select Checker From Dev_RepairMain Where RepairMainID=" & Lng_BillID
Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
With RecTemp
If Not .EOF Then
If Trim(.Fields("Checker") & "") <> "" Then
Tsxx = "该检修计划已审核确认,不能删除!"
Call Xtxxts(Tsxx, 0, 4)
Exit Function
End If
End If
End With
Fun_AllowDelete = True
End Function
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 + -