bas_planarrangements.bas

生产计划管理等信息 可以查询计划完成情况等

Attribute VB_Name = "Bas_PlanArrangements"
'预先估算的模块

Public Sub LoadDayPlan(Lv As ListView, Bumen As String, BanZu As String, DayDate As Date)
    Dim objLI As ListItem
    Lv.ListItems.Clear
    Dim i
    i = 1
    SQL = "Select * from 生产计划 where 部门名称='" & Bumen & "' and 班组名称='" & BanZu & "' and DateDiff('d',生产日期,'" & DayDate & "')=0"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
      For i = 1 To rs.RecordCount
        Set objLI = Lv.ListItems.Add(, "Row" & i, rs.Fields("计划单号").Value)
            objLI.SubItems(1) = rs.Fields("批次号").Value
            objLI.SubItems(2) = rs.Fields("子批次号").Value
            objLI.SubItems(3) = GetMeterType(Trim(rs.Fields("计划单号").Value) & Trim(rs.Fields("批次号").Value))
            objLI.SubItems(4) = rs.Fields("完成数量").Value
            objLI.SubItems(5) = GetCustomer(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))   '用户
            objLI.SubItems(6) = GetGuiGe(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))  '规格
        rs.MoveNext
      Next i
    End If
End Sub

'==========================================================================================

Public Function AssertIsBase(Bumen As String, BanZu As String, Mtype As String) As Boolean
'判断是否为基准
    SQL = "Select * from 每日产能 where 部门名称='" & Bumen & "' and 班组名称='" & BanZu & "' and 表计类型='" & Mtype & "' and 基准=TRUE"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
       AssertIsBase = True
    Else
       AssertIsBase = False
    End If
End Function

Public Function GetMeterCapacity(Bumen As String, BanZu As String, Mtype As String) As Variant
'得到每小时的产能数量
    SQL = "Select * from 每日产能 where 部门名称='" & Bumen & "' and 班组名称='" & BanZu & "' and 表计类型='" & Mtype & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
       GetMeterCapacity = Val(rs.Fields("小时产能").Value)
    Else
       GetMeterCapacity = 0
    End If
End Function

Public Function GetBaseNum(Bumen As String, BanZu As String) As Variant
'获取基准表的小时生产数量
    SQL = "Select * from 每日产能 where 部门名称='" & Bumen & "' and 班组名称='" & BanZu & "' and  基准=TRUE"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rs.EOF Then
       GetBaseNum = Val(rs.Fields("小时产能").Value)
    Else
       GetBaseNum = 0
    End If
End Function