backgoods.frm

即时通讯

    MSHFlexGrid1.ColAlignment(5) = 8
    MSHFlexGrid1.ColAlignment(6) = 8
    MSHFlexGrid1.ColAlignment(0) = 2
    MSHFlexGrid1.ColAlignment(8) = 2
    
End Sub

Private Sub deletegoods_Click()
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1)) = "" Then
        MainForm.g_msgText = "请选择一条记录!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
    If MSHFlexGrid1.Rows <= 2 Then
        MainForm.g_msgText = "请先添加一条记录!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
    Else
        MSHFlexGrid1.RemoveItem MSHFlexGrid1.row
'            MSHFlexGrid1.Rows = MSHFlexGrid1.Rows - 1
    End If
End Sub

Public Sub Drbmhelp(bzlx As Integer, Scdwnr As String)                    '调入编码参照窗体
    
    '函数参数:帮助类型(0-通用型 1-日期型 2-特殊型),帮助编码,首次定位内容
    
    On Error GoTo ErrHandle
    XT_calendar.Xtfhcs = ""
    Select Case bzlx
        Case 1
            XT_calendar.xtcdcs = Date
            XT_calendar.show 1      '显示日历窗体
           
    End Select
    
ErrHandle:

End Sub
'*******************************************************
'*    模 块 名 称 :检查文本框内容的有效性
'*    最后修改时间:2005/08/31
'*    备        注:
'*******************************************************
Private Function Check() As Boolean
    Check = True
    If Len(Trim(deliverydate.text)) = 0 Then
        MainForm.g_msgText = "退货日期不能为空!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        deliverydate.SetFocus
        Check = False
        Exit Function
    End If
    
    If Not IsDate(Trim(deliverydate.text)) Then
        MainForm.g_msgText = "退货日期格式有错!"
        HMsgBox MainForm.g_msgText, 0, 1
        deliverydate.SetFocus
        Check = False
        Exit Function
    End If
    
    If Len(Trim(suppliername.text)) = 0 Then
        MainForm.g_msgText = "供应商名称不能为空!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        'suppliername.SetFocus
        Check = False
        Exit Function
    End If
    If Len(Trim(store.text)) = 0 Then
        MainForm.g_msgText = "仓库位不能为空！"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Check = False
        Exit Function
    End If
    If CDate(deliverydate.text) < Date Then
        MainForm.g_msgText = "退货日期比记录时间小!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        deliverydate.SetFocus
        Check = False
        Exit Function
    End If
    If Trim(MSHFlexGrid1.TextMatrix(1, 8)) = "" Then
        MainForm.g_msgText = "请输入一条记录!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Check = False
        Exit Function
    End If
        If Len(Trim(inputman.text)) = 0 Then
        MainForm.g_msgText = "制单人不能为空！"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Check = False
        Exit Function
        If Len(Trim(counterman.text)) = 0 Then
        MainForm.g_msgText = "业务员不能为空！"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Check = False
        Exit Function
        End If
    End If
    Dim o As Integer
    For o = 1 To MSHFlexGrid1.Rows - 1
        If Trim(MSHFlexGrid1.TextMatrix(o, 8)) <> "" Then
            Dim rt As Boolean
            rt = m_goodsDAO.goods_showone1(m_recordset, Trim(MSHFlexGrid1.TextMatrix(o, 8)), Trim(store.Tag))
            If CDbl(Trim(MSHFlexGrid1.TextMatrix(o, 3))) > CDbl(Trim(m_recordset.Fields("quantity"))) Then
                MainForm.g_msgText = "您输入的退货数量太大，" & Trim(MSHFlexGrid1.TextMatrix(o, 1)) & "商品的库存总量是!!" & Trim(m_recordset.Fields("quantity")) & "或者您可以选择其他的库位"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
'                Text2.text = ""
'                Text2.SetFocus
                 Check = False
                 m_recordset.Close
                Exit Function
            End If
            If CDbl(Trim(MSHFlexGrid1.TextMatrix(o, 3))) = CDbl(Trim(m_recordset.Fields("quantity"))) Then
                MainForm.g_msgText = Trim(MSHFlexGrid1.TextMatrix(o, 1)) & "您真的要全部退货吗？"
                Dim f As String
                f = HMsgBox(MainForm.g_msgText, 2, 1)
                If f = 1 Then
                Else
'                    Text2.text = ""
'                    Text2.SetFocus
                    Check = False
                    m_recordset.Close
                    Exit Function
                End If
            End If
            m_recordset.Close

            If Trim(MSHFlexGrid1.TextMatrix(o, 3)) = "" Then
                MainForm.g_msgText = "数量不能为空！"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Check = False
                Exit Function
            End If
            If CDbl(Trim(MSHFlexGrid1.TextMatrix(o, 3))) = 0 Then
                MainForm.g_msgText = "数量不能为零！"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Check = False
                Exit Function
            End If
            If Replace(Trim(MSHFlexGrid1.TextMatrix(o, 4)), "￥", "") = "" Then
                MainForm.g_msgText = "单价不能为空！"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Check = False
                Exit Function
            End If
            If CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(o, 4)), "￥", "")) = 0 Then
                MainForm.g_msgText = "单价不能为零！"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Check = False
                Exit Function
            End If
        End If
    Next o
End Function
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then                            '如果是鼠标右键按下时
    PopupMenu mnufile, 0, X, 3500    '弹出右键菜单
  End If
End Sub


'*******************************************************
'*    模 块 名 称 :检查保存退货内容的有效性
'*    最后修改时间:2005/09/09
'*    备        注:
'*******************************************************
Private Function judge_position() As Boolean
        judge_position = True
        Dim judge As Boolean
        Dim currentrow3 As Integer
            For currentrow3 = 1 To MSHFlexGrid1.Rows - 2
                If backgoodslistform.backgoods_type = 1 Then
                    judge = m_stockstoreDAO.judge_position(k_recordset, Trim(store.Tag), Trim(MSHFlexGrid1.TextMatrix(currentrow3, 8)), "0")
                ElseIf backgoodslistform.backgoods_type = 0 Then
                    judge = m_stockstoreDAO.judge_position(k_recordset, Trim(backgoodslistform.s_num), Trim(MSHFlexGrid1.TextMatrix(currentrow3, 8)), "0")
                End If
                If Not judge Then
                    MsgBox "仓库里没有该商品的库位，请选择添加其他商品？", vbOKOnly, "选择供应商提示"
                    judge_position = False
                Else
                    If CDbl(Trim(k_recordset.Fields("quantity"))) = 0 Then
                            MsgBox "库存里没有该商品或者该商品的库存？" & Trim(k_recordset.Fields("quantity")) & "是第" & currentrow3 & "行" & "商品名称是" & Trim(MSHFlexGrid1.TextMatrix(currentrow3, 1)) & "你所填的该条记录将被删除", vbOKOnly, "选择供应商提示"
                            MSHFlexGrid1.RemoveItem currentrow3
                            Text2.text = ""
                            judge_position = False
                            Command1.Visible = False
                            k_recordset.Close
                            Exit For
                    End If
                    If CDbl(MSHFlexGrid1.TextMatrix(currentrow3, 3)) > CDbl(Trim(k_recordset.Fields("quantity"))) Then
                            MsgBox "你所填的商品数量太大最多只能填？" & Trim(k_recordset.Fields("quantity")) & "是第" & currentrow3 & "行" & "商品名称是" & Trim(MSHFlexGrid1.TextMatrix(currentrow3, 1)), vbOKOnly, "选择供应商提示"
                            Text2.text = Trim(k_recordset.Fields("quantity"))
                            judge_position = False
                            k_recordset.Close
                            Exit For
                    End If
                    k_recordset.Close
                End If
            Next currentrow3
End Function

'*******************************************************
'*    模 块 名 称 :判断是否真的要提交所填内容
'*    最后修改时间:2005/09/09
'*    备        注:
'*******************************************************
Private Function judge_position1() As Boolean
        judge_position1 = True
        Dim i As String
        i = MsgBox("你真的要添加退货订单吗？", vbOKCancel + vbInformation, "添加退货订单提示")
        If i = vbOK Then
           judge_position1 = True
        Else
           judge_position1 = False
           Exit Function
        End If
End Function
'*******************************************************
'*    模 块 名 称 : 显示采购订单-供应商记录
'*    最后修改时间:
'*    备        注:
'*******************************************************
Private Sub suppliershow()
    With backgoodslistform
        storenotenum.Tag = Trim(.MSHFlexGrid1.TextMatrix(.backname, 0))
        counterman.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 1))
        inputman.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 2))
        storenotenum.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 3))
        Text1.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 4))
        storedate.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 5))
        deliverydate.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 6))
        superinrtendent.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 7))
        phone.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 8))
        memo.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 9))
        store.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 10))
        suppliername.text = Trim(.MSHFlexGrid1.TextMatrix(.backname, 11))
    End With
End Sub

'*******************************************************
'*    模 块 名 称 : 显示采购订单-商品记录
'*    最后修改时间:
'*    备        注:
'*******************************************************
Private Sub goodsshow()
        Dim ret As Boolean
        Dim i As Integer
        ret = m_backgoodsDAO.backgoodsdetail_showone(m_recordset, Trim(backgoodslistform.backgoodsid))
        MSHFlexGrid1.clear
        MSHFlexGrid1.Rows = 2
        Call showform
        With m_recordset
            i = 1
            Do While Not .EOF
               If i > MSHFlexGrid1.Rows - 1 Then
                   MSHFlexGrid1.AddItem ""
               End If
               '[>>自定义填充内容
               MSHFlexGrid1.TextMatrix(i, 0) = Trim(.Fields("backgoodsdetailid"))         '取一个采购订单明细的编号
               Dim ret1 As Boolean
                    ret1 = m_goodsDAO.name_goods(g_recordset, Trim(.Fields("goodsid")))
               MSHFlexGrid1.TextMatrix(i, 1) = Trim(g_recordset.Fields("name"))
                    g_recordset.Close
               MSHFlexGrid1.TextMatrix(i, 2) = Trim(.Fields("unit"))
               MSHFlexGrid1.TextMatrix(i, 3) = Trim(.Fields("num"))
               MSHFlexGrid1.TextMatrix(i, 4) = "￥" & CDbl(Trim(.Fields("price")))
               MSHFlexGrid1.TextMatrix(i, 5) = "￥" & CDbl(Trim(.Fields("money")))
               MSHFlexGrid1.TextMatrix(i, 6) = Trim(.Fields("finishnum"))
               MSHFlexGrid1.TextMatrix(i, 7) = Trim(.Fields("memo"))
               MSHFlexGrid1.TextMatrix(i, 8) = Trim(.Fields("goodsid"))
               '<<]
        
               '动态集指针加1,同时将计数器加1(Fixed)
               .MoveNext
               i = i + 1
           Loop
      End With
            m_recordset.Close                               ' 关闭数据集
End Sub

Private Sub form_enabled()
    storenotenum.Enabled = False
    suppliername.Enabled = False
    storedate.Enabled = False
    phone.Enabled = False
    deliverydate.Enabled = False
    memo.Enabled = False
    store.Enabled = False
    counterman.Enabled = False
    inputman.Enabled = False
    superinrtendent.Enabled = False
    MSHFlexGrid1.Enabled = False
    Text1.Enabled = False
    Label2.Enabled = False
    Label5.Enabled = False
    Label11.Enabled = False
    Label13.Enabled = False
    Label8.Enabled = False
    Tlb_Action.Buttons("xz").Enabled = False
    Tlb_Action.Buttons("bc").Enabled = False
    Tlb_Action.Buttons("close").Enabled = False
    Command3.Enabled = False
    Command2.Enabled = False
    Command4.Enabled = False
    Command5.Enabled = False
    Command6.Enabled = False
End Sub
'*******************************************************
'*    模 块 名 称 : 显示采购订单-商品记录
'*    最后修改时间:
'*    备        注:
'*******************************************************
Private Sub PrintData(backgoodsid As String)
    PrintCrystalReport "采购退货", "'" & backgoodsid & "'"
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"))                             '商品名称
        If Trim(g_recordset.Fields("bigunit")) = "" Then
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2) = Trim(g_recordset.Fields("smallUnit"))                         '大单位
        Else
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2) = Trim(g_recordset.Fields("bigunit"))
        End If
        MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4) = "￥" & CDbl(getprice)                '预设进价
        MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8) = Trim(MainForm.g_application.m_queryResultId)
        MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6) = 0
        MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3) = 0
        Dim retg As Boolean
            retg = m_stockorderDAO.judge_stockorderdetail(m_recordset, Trim(suppliername.text), Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8)))
        If retg Then
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4) = "￥" & Trim(m_recordset.Fields("单价"))
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6) = 0
        End If
    End If
    m_recordset.Close
    g_recordset.Close
End Sub