cooperatefinishlist.frm

即时通讯

Private m_cooperatefinishDAO As CooperateFinishDAO
Public rowname As String
Private m_queryType As String
Dim ret As Boolean
Private m_idList As String                      ' 在执行查询时查询到的ID列表字符串


Private Sub showform()

    MSHFlexGrid1.TextMatrix(0, 0) = "收工编号"
    MSHFlexGrid1.TextMatrix(0, 1) = "外协生产编号"
    MSHFlexGrid1.TextMatrix(0, 2) = "外协单号"
    MSHFlexGrid1.TextMatrix(0, 3) = "外协商"
    MSHFlexGrid1.TextMatrix(0, 4) = "物料"
    MSHFlexGrid1.TextMatrix(0, 5) = "报损件数"
    MSHFlexGrid1.TextMatrix(0, 6) = "返工件数"
    MSHFlexGrid1.TextMatrix(0, 7) = "完工件数"
    MSHFlexGrid1.TextMatrix(0, 8) = "加工费"
    MSHFlexGrid1.TextMatrix(0, 9) = "检验时间"
    MSHFlexGrid1.TextMatrix(0, 10) = "备注"
    MSHFlexGrid1.TextMatrix(0, 11) = "库位"
    MSHFlexGrid1.TextMatrix(0, 12) = "商品编号"
    MSHFlexGrid1.TextMatrix(0, 13) = "商品类型"
    MSHFlexGrid1.TextMatrix(0, 14) = "索赔数量"
    
    
    
                                            '设置列对齐方式  7-右对齐 5-居中对齐 2-左对齐
    MSHFlexGrid1.ColAlignment(0) = 2
    MSHFlexGrid1.ColAlignment(1) = 2
    MSHFlexGrid1.ColAlignment(2) = 2
    MSHFlexGrid1.ColAlignment(3) = 2
    MSHFlexGrid1.ColAlignment(4) = 2
    MSHFlexGrid1.ColAlignment(5) = 8
    MSHFlexGrid1.ColAlignment(6) = 8
    MSHFlexGrid1.ColAlignment(7) = 8
    MSHFlexGrid1.ColAlignment(8) = 8
    MSHFlexGrid1.ColAlignment(9) = 2
    MSHFlexGrid1.ColAlignment(10) = 2
    MSHFlexGrid1.ColAlignment(11) = 2
    MSHFlexGrid1.ColAlignment(12) = 2
    MSHFlexGrid1.ColAlignment(13) = 8
    MSHFlexGrid1.ColAlignment(14) = 8
    
    MSHFlexGrid1.ColWidth(0) = 5
    MSHFlexGrid1.ColWidth(1) = 5
    MSHFlexGrid1.ColWidth(2) = 2000
    MSHFlexGrid1.ColWidth(10) = 5
    MSHFlexGrid1.ColWidth(11) = 5
    MSHFlexGrid1.ColWidth(12) = 5
End Sub

Private Sub Combo1_Click()
    If Combo1 = "全部" Then
        m_queryType = "8"
        RefreshFinishList
    End If
    If Combo1 = "已检验" Then
        m_queryType = "0"
        RefreshFinishList
    End If
    If Combo1 = "已核检" Then
        m_queryType = "1"
        RefreshFinishList
    End If
    If Combo1 = "已入库" Then
        m_queryType = "2"
        RefreshFinishList
    End If
End Sub

Private Sub Form_Load()
   SetToCenter Me

    Set m_recordset = New ADODB.Recordset
    Set m_cooperatefinishDAO = New CooperateFinishDAO
    Combo1.clear
    Combo1.AddItem "全部"
    Combo1.AddItem "已检验"
    Combo1.AddItem "已核检"
    Combo1.AddItem "已入库"
    Combo1.ListIndex = 0
    RefreshFinishList
End Sub

Private Sub Form_Resize()
        MSHFlexGrid1.Height = Me.Height - 1400
        MSHFlexGrid1.Width = Me.Width - 350
    
'    Image1.Stretch = False
    
    If (MSHFlexGrid1.Height > MSHFlexGrid1.Height - 300) Or (MSHFlexGrid1.Width > MSHFlexGrid1.Width - 200) Then
        MSHFlexGrid1.Height = MSHFlexGrid1.Height + 400
        MSHFlexGrid1.Width = MSHFlexGrid1.Width + 200
'
'        Image1.Stretch = True
    End If
End Sub

Private Sub MSHFlexGrid1_DblClick()
    ' 预览
    CooperateFinish.m_cooperateType = 2
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        rowname = MSHFlexGrid1.RowSel
        CooperateFinish.m_cooperateFinishId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        CooperateFinish.m_cooperateId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1))
        CooperateFinish.show 1
    Else
        MainForm.g_msgText = "对不起您的操作有误，请重试！!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
End Sub

Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim cfForm As CooperateFinish        ' 定义完工单变量
    
    Select Case Button.Key
            Case "sx"
                RefreshFinishList
            Case "xz"                    ' 新增
                Set cfForm = New CooperateFinish     ' 新增完工单对象
                
                If m_cooperateId <> "" Then
                    cfForm.m_cooperateId = m_cooperateId
                    cfForm.m_cooperateType = 0
                    cfForm.show 1
                Else
                    cfForm.m_cooperateType = 1
                    cfForm.show 1
                End If
                
                Set cfForm = Nothing                ' 设变量为空
                RefreshFinishList
            Case "yl"           ' 检验处理
            
                ret = yhqxpd(MainForm.g_application.m_userId, PARTCHECKMETHOD_JY)
                If Not ret Then
                    MainForm.g_msgText = "该功能您无权操作！"
                    HMsgBox MainForm.g_msgText, 0, 1
                    Exit Sub
                End If
                
                CooperateFinish.m_cooperateType = 2
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
                    rowname = MSHFlexGrid1.RowSel
                    CooperateFinish.m_cooperateFinishId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                    CooperateFinish.m_cooperateId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1))
                    CooperateFinish.show 1
                Else
                    MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                    Call HMsgBox(MainForm.g_msgText, 0, 1)
                    Exit Sub
                End If
                RefreshFinishList
            Case "hj"          ' 核检处理
            
                ret = yhqxpd(MainForm.g_application.m_userId, PARTCHECKMETHOD_HJ)
                If Not ret Then
                    MainForm.g_msgText = "该功能您无权操作！"
                    HMsgBox MainForm.g_msgText, 0, 1
                    Exit Sub
                End If
                CooperateFinish.m_cooperateType = 3
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
                    rowname = MSHFlexGrid1.RowSel
                    CooperateFinish.m_cooperateFinishId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                    CooperateFinish.m_cooperateId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1))
                    CooperateFinish.show 1
                Else
                    MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                    Call HMsgBox(MainForm.g_msgText, 0, 1)
                    Exit Sub
                End If
                RefreshFinishList
            Case "rk"        ' 入库处理
                ret = yhqxpd(MainForm.g_application.m_userId, PARTCHECKMETHOD_RK)
                If Not ret Then
                    MainForm.g_msgText = "该功能您无权操作！"
                    HMsgBox MainForm.g_msgText, 0, 1
                    Exit Sub
                End If
                
                CooperateFinish.m_cooperateType = 4
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
                    rowname = MSHFlexGrid1.RowSel
                    CooperateFinish.m_cooperateFinishId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                    CooperateFinish.m_cooperateId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1))
                    CooperateFinish.show 1
                Else
                    MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                    Call HMsgBox(MainForm.g_msgText, 0, 1)
                    Exit Sub
                End If
                RefreshFinishList
            Case "cx"
                Call cxjl
            Case "fgd"        ' 调用与此收工单对应的返工单资料，查看
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" And _
                    Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6)) <> "" Then
                    If CDbl(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6)) > 0 Then
                        CooperateRedo.m_finishid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                        CooperateRedo.show 1
                    End If
                Else
                    MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                    Call HMsgBox(MainForm.g_msgText, 0, 1)
                    Exit Sub
                End If
                
            Case "tc"
                Unload Me
    End Select
End Sub


Public Function RefreshFinishList()
    If m_operateType = 0 Then
        ret = m_cooperatefinishDAO.cooperatefinish_showserial(m_recordset, Trim(m_queryType))
        MSHFlexGrid1.clear
        MSHFlexGrid1.Rows = 2         ' 清空该控件的内容
        Call showform
        GetRecordToList m_recordset
        m_recordset.Close
    ElseIf m_operateType = 1 Then
        ret = m_cooperatefinishDAO.cooperatefinish_show(m_recordset, Trim(m_cooperateId), Trim(m_queryType))
        MSHFlexGrid1.clear
        MSHFlexGrid1.Rows = 2         ' 清空该控件的内容
        Call showform
        GetRecordToList m_recordset
        m_recordset.Close
    End If
End Function


Private Sub cxjl()
    QueryFom.m_currentQuery = QUERY_COOPERATEFINISH
    QueryFom.m_operateType = 1
    QueryFom.show 1
    ' 如果此原料已有BOM记录，则调出些条BOM的信息
    m_idList = MainForm.g_application.m_queryResultId
    RefreshQueryList

End Sub
Private Sub RefreshQueryList()
    
    ' 显示查询到的结果
    On Error GoTo EXITFUN
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    InsertQueryIdList m_idList                             ' 把要显示的记录ID列表插入临时表
    ret = m_cooperatefinishDAO.cooperatefinish_showidList(m_recordset)     ' 查找记录
    
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 提交事务
    
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2         ' 清空该控件的内容
    Call showform
    If ret Then
        GetRecordToList m_recordset
    End If
    Text1.text = Trim(m_recordset.RecordCount)
    m_recordset.Close
    Exit Sub
    
EXITFUN:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans  ' 回滚事务
End Sub
'**************************************
'*    功 能 描 述 :从数据集中取出记录在列表中显示
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub GetRecordToList(recSet As ADODB.Recordset)
    Dim currentrow1 As Integer
    
     With m_recordset
        currentrow1 = 1                                                         ' 赋初值
         Do While Not .EOF
            If currentrow1 > MSHFlexGrid1.Rows - 1 Then
                MSHFlexGrid1.AddItem ""
            End If
            '[>>自定义填充内容
            MSHFlexGrid1.TextMatrix(currentrow1, 0) = Trim(.Fields("finishid") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 1) = Trim(.Fields("cooperateid") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 2) = Trim(.Fields("processno") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 3) = Trim(.Fields("supplierName") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 4) = Trim(.Fields("bomName") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 5) = Trim(.Fields("losspartnum") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 6) = Trim(.Fields("backpartnum") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 7) = Trim(.Fields("finishpartnum") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 8) = "￥" & Trim(.Fields("processfee") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 9) = Trim(.Fields("finishdate") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 10) = Trim(.Fields("memo") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 11) = Trim(.Fields("warehouseName") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 12) = Trim(.Fields("goodsid") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 13) = Trim(.Fields("goodstype") & " ")
            MSHFlexGrid1.TextMatrix(currentrow1, 14) = Trim(.Fields("counterclaim") & " ")
            '<<]
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow1 = currentrow1 + 1
        Loop
    End With
    Text1.text = Trim(m_recordset.RecordCount)
End Sub