stockorder.frm

即时通讯

    
           '动态集指针加1,同时将计数器加1(Fixed)
           .MoveNext
           i = i + 1
       Loop
    End With
    m_recordset.Close                               ' 关闭数据集
'    MSHFlexGrid1.AddItem ""
End Sub

Private Sub suppliershow()            '显示采购订单-供应商记录
    Dim ret As Boolean
    ret = m_stockorderDAO.stockorderdetail1_show(m_recordset, Trim(stockorderlistsupplier.stockorderid))
    With m_recordset
        stockorderid.caption = Trim(.Fields("stockorderid"))
        counterman.text = Trim(.Fields("counterman"))
        inputman.text = Trim(.Fields("inputman"))
        notenum.text = Trim(.Fields("notenum"))
        Text1.text = Trim(order_suppliername)
        Text1.Tag = Trim(order_suppliername)
        inputdate.text = Trim(.Fields("inputdate"))
        deliverydate.text = Trim(.Fields("deliverydate"))
        deliverydate.Tag = Trim(.Fields("deliverydate"))
        superinrtendent.text = Trim(.Fields("superinrtendent"))
        phone.text = Trim(.Fields("phone"))
        memo.text = Trim(.Fields("memo"))
        shhe.text = Trim(shhename)
        suppliername.text = Trim(.Fields("supplierid"))
    End With
    m_recordset.Close
End Sub
Private Sub savestockorderdetail0()             ' 采购订单修改成功
    Dim ret As Boolean
    Dim ret2 As Boolean
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans
'    On Error GoTo EXITSUB
    If shhe.text = "已审核" Then
        ret2 = m_stockorderDAO.stockordermodify(m_recordset, Trim(s_stockorderid), _
        Trim(counterman.text), Trim(inputman.text), Trim(notenum.text), Trim(suppliername.text), _
        CDate(inputdate.text), CDate(deliverydate.text), Trim(superinrtendent.text), Trim(phone.text), _
        Trim(memo.text), 0)
    ElseIf shhe.text = "未审核" Then
        ret2 = m_stockorderDAO.stockordermodify(m_recordset, Trim(s_stockorderid), _
        Trim(counterman.text), Trim(inputman.text), Trim(notenum.text), Trim(suppliername.text), _
        CDate(inputdate.text), CDate(deliverydate.text), Trim(superinrtendent.text), Trim(phone.text), _
        Trim(memo.text), 1)
    End If
    For currentrow = 1 To MSHFlexGrid1.Rows - 1
          If Trim(MSHFlexGrid1.TextMatrix(currentrow, 0)) <> "" And Trim(MSHFlexGrid1.TextMatrix(currentrow, 8)) <> "" Then
            ret = m_stockorderDAO.stockorderdetailmodify(m_recordset, _
                Trim(MSHFlexGrid1.TextMatrix(currentrow, 0)), _
                Trim(s_stockorderid), _
                Trim(MSHFlexGrid1.TextMatrix(currentrow, 8)), _
                Trim(MSHFlexGrid1.TextMatrix(currentrow, 2)), _
                CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow, 3))), _
            CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(currentrow, 4)), "￥", "")), _
            CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(currentrow, 5)), "￥", "")), _
               CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow, 6))), _
                Trim(MSHFlexGrid1.TextMatrix(currentrow, 7)))
          ElseIf Trim(MSHFlexGrid1.TextMatrix(currentrow, 0)) = "" And MSHFlexGrid1.TextMatrix(currentrow, 8) <> "" Then
            ret = m_stockorderDAO.addstockorderdetail(m_recordset, Trim(s_stockorderid), _
            Trim(MSHFlexGrid1.TextMatrix(currentrow, 8)), _
            Trim(MSHFlexGrid1.TextMatrix(currentrow, 2)), _
            CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow, 3))), _
            CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(currentrow, 4)), "￥", "")), _
            CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(currentrow, 5)), "￥", "")), _
            CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow, 6))), _
            Trim(MSHFlexGrid1.TextMatrix(currentrow, 7)))
          End If
          If MSHFlexGrid1.TextMatrix(currentrow, 0) = "" And MSHFlexGrid1.TextMatrix(currentrow, 8) = "" Then
'                    MsgBox "您已经修改成功", vbOKOnly, "提示"
          End If
'                k_ret = m_BomSupplierRelationDAO.SetMaterialSupplierPrice(Trim(MSHFlexGrid1.TextMatrix(currentrow, 8)), Trim(suppliername.text), _
                                        CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow, 4))))
         m_stockorderDAO.Deletedetail1 m_recordset, Trim(goods_id_s(currentrow))
    Next currentrow
'    MSHFlexGrid1.RemoveItem currentrow
    'm_recordset.Close
'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans
'    Exit Sub
'EXITSUB:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans
End Sub
Private Sub form_enabled()
    notenum.Enabled = False
    suppliername.Enabled = False
    inputdate.Enabled = False
    Text1.Enabled = False
    phone.Enabled = False
    memo.Enabled = False
    counterman.Enabled = False
    inputman.Enabled = False
    shhe.Enabled = False
    superinrtendent.Enabled = False
    MSHFlexGrid1.Enabled = False
    Label2.Enabled = False
    Label5.Enabled = False
    Label8.Enabled = False
    Label11.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command5.Enabled = False
    deliverydate.Enabled = False
    Tlb_Action.Buttons("bc").Enabled = False
    Label2.Enabled = False
End Sub
Private Sub form_enabled1()
    notenum.Enabled = True
    suppliername.Enabled = True
    inputdate.Enabled = True
    Label2.Enabled = False
    Text1.Enabled = True
    phone.Enabled = True
    memo.Enabled = True
    counterman.Enabled = True
    inputman.Enabled = True
    shhe.Enabled = True
    superinrtendent.Enabled = True
    MSHFlexGrid1.Enabled = True
    Label2.Enabled = True
    Label5.Enabled = True
    Label8.Enabled = True
    Label11.Enabled = True
    Tlb_Action.Buttons("bc").Enabled = True
End Sub

Private Sub PrintData(stockorderid As String)
    PrintCrystalReport "采购订单", "'" & stockorderid & "'"
End Sub

'*******************************************************
'*    模 块 名 称 :审核内容
'*    最后修改时间:2005/09/10
'*    备        注:
'*******************************************************
Private Sub shhe1()
        Dim ret5 As Boolean
        ret5 = m_stockorderDAO.update_shhe(h_recordset, Trim(stockorderid.caption))
            If Not ret5 Then
              MsgBox "审核成功！！", vbOKOnly + vbInformation, "审核"
            End If
        Tlb_Action.Buttons("shsh").Enabled = False
        Tlb_Action.Buttons("shqs").Enabled = True
        shhe.text = "已审核"
End Sub

'*******************************************************
'*    模 块 名 称 :取消审核内容
'*    最后修改时间:2005/09/10
'*    备        注:
'*******************************************************

Private Sub qsh()
    Dim ret6 As Boolean
    ret6 = m_stockorderDAO.update_qsh(h_recordset, Trim(stockorderid.caption))
        If Not ret6 Then
          MsgBox "取消审核成功！！", vbOKOnly + vbInformation, "审核"
        End If
    Tlb_Action.Buttons("shqs").Enabled = False
    Tlb_Action.Buttons("shsh").Enabled = True
    shhe.text = "未审核"
End Sub
'*******************************************************
'*    模 块 名 称 :选择商品--新增
'*******************************************************
Private Sub new_goods()
        If stockorderlistsupplier.type_g = 1 Then
            If Trim(suppliername.text) = "" Then
               MainForm.g_msgText = "请选择一个供应商的名称!!"
               Call HMsgBox(MainForm.g_msgText, 0, 1)
               Exit Sub
            End If
                SupplierBomListForm.m_supplierid = Trim(suppliername.text)
                SupplierBomListForm.m_operatorType = "0"
                SupplierBomListForm.show vbModal
            '*******************************************************
            '*    模 块 名 称 :判断商品编号是否存在
            '*******************************************************
            If Trim(MainForm.g_application.m_queryResultId) = "" Then
                Exit Sub
            Else
            '*******************************************************
            '*    模 块 名 称 :判断商品是否存在
            '*******************************************************
                 If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1)) <> "" Then
                    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                        If Trim(MSHFlexGrid1.row) = m_row Then
                            getgoods
                            Exit Sub
                        End If
                    Else
                    '*******************************************************
                    '*    模 块 名 称 :判断商品是否存在
                    '*******************************************************
                        Dim Y As Integer
                        For Y = 1 To MSHFlexGrid1.Rows - 2
                            If Trim(MSHFlexGrid1.TextMatrix(Y, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                                MainForm.g_msgText = "对不起该商品已经存在,请选择添加其他的商品！!"
                                Call HMsgBox(MainForm.g_msgText, 0, 1)
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1) = ""                            '商品名称
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2) = ""                         '大单位
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4) = ""                '预设进价
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8) = ""
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6) = 0
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3) = 0
                                MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 5) = 0
'                                            MSHFlexGrid1.RemoveItem m_row
                                Exit Sub
                            End If
                        Next Y
                    End If
                Else
                    Dim z As Integer
                    For z = 1 To MSHFlexGrid1.Rows - 1
                        If Trim(MSHFlexGrid1.TextMatrix(z, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                            MainForm.g_msgText = "对不起该商品已经存在,请选择添加其他的商品！!"
                            Call HMsgBox(MainForm.g_msgText, 0, 1)
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1) = ""                            '商品名称
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2) = ""                         '大单位
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4) = ""                '预设进价
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8) = ""
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6) = 0
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3) = 0
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 5) = 0
                            Exit Sub
                        End If
                    Next z
                End If
            End If
                
    End If
    getgoods
    MSHFlexGrid1.AddItem ""
End Sub
'*******************************************************
'*    模 块 名 称 :选择商品--修改
'*******************************************************
Private Sub modify_goods()
        If stockorderlistsupplier.type_g = 0 Then
            If Trim(suppliername.text) = "" Then
               MainForm.g_msgText = "请选择一个供应商的名称!!"
               Call HMsgBox(MainForm.g_msgText, 0, 1)
               Exit Sub
            End If
                SupplierBomListForm.m_supplierid = Trim(suppliername.text)
                SupplierBomListForm.m_operatorType = "0"
                SupplierBomListForm.show vbModal
            '*******************************************************
            '*    模 块 名 称 :判断商品编号是否存在
            '*******************************************************
            If Trim(MainForm.g_application.m_queryResultId) = "" Then
                    Exit Sub
            Else
            '*******************************************************
            '*    模 块 名 称 :判断商品是否存在
            '*******************************************************
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1)) <> "" Then
                    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                        If Trim(MSHFlexGrid1.row) = m_row Then
                            getgoods
                            Exit Sub
                        End If
                    Else
                    '*******************************************************
                    '*    模 块 名 称 :判断商品是否存在
                    '*******************************************************
                        Dim Y As Integer
                        For Y = 1 To MSHFlexGrid1.Rows - 1
                            If Trim(MSHFlexGrid1.TextMatrix(Y, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                                MainForm.g_msgText = "对不起该商品已经存在,请选择添加其他的商品！!"
                                Call HMsgBox(MainForm.g_msgText, 0, 1)
                                Exit Sub
                            End If
                        Next Y
                    End If
                Else
                    Dim z As Integer
                    For z = 1 To MSHFlexGrid1.Rows - 1
                        If Trim(MSHFlexGrid1.TextMatrix(z, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                            MainForm.g_msgText = "对不起该商品已经存在,请选择添加其他的商品！!"
                            Call HMsgBox(MainForm.g_msgText, 0, 1)
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1) = ""                            '商品名称
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2) = ""                         '大单位
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4) = ""                '预设进价
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8) = ""
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6) = 0
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3) = 0
                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 5) = 0
                            Exit Sub
                        End If
                    Next z
                End If
                
    End If
    getgoods
    MSHFlexGrid1.AddItem ""
    End If
End Sub
Private Sub getgoods()
    Dim ret0 As Boolean
    ret0 = m_goodsDAO.name_goods(g_recordset, Trim(MainForm.g_application.m_queryResultId))
    Dim getprice As Double
    getprice = m_BomSupplierRelationDAO.GetMaterialPriceFromSupplier(Trim(MainForm.g_application.m_queryResultId), Trim(suppliername.text))
    If ret0 Then
             MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1) = Trim(g_recordset.Fields("name"))                             '商品名称
             MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2)