bos_balancebill.cls

金蝶地磅称重插件

                .Item("FTranser").FieldLock = True
                .Item("FSendStorage").FieldLock = True
                .Item("FRecStorage").FieldLock = False
'                           '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
'                m_BillInterface.BillEntrys(1).BOSFields("Ftarebalancetime").FieldLock = True
'                m_BillInterface.BillEntrys(1).BOSFields("Fgrossbalancetime").FieldLock = True
'                '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
                m_BillInterface.SetFieldValue "FCustomer", ""
                m_BillInterface.SetFieldValue "FSupplier", ""
                m_BillInterface.SetFieldValue "FRecDept", ""
                m_BillInterface.SetFieldValue "FNetWeight_For", ""
                m_BillInterface.SetFieldValue "FShipName", ""
                m_BillInterface.SetFieldValue "FTranser", ""
                m_BillInterface.SetFieldValue "FSendStorage", ""
               Case 7          '运输协议
                    .Item("FCustomer").FieldLock = True
                    .Item("FSupplier").FieldLock = True
                    .Item("FSendDept").FieldLock = True
                    .Item("FRecDept").FieldLock = True
                    .Item("FNetWeight_For").FieldLock = False
                    .Item("FSendStorage").FieldLock = False
'                             '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
'                m_BillInterface.BillEntrys(1).BOSFields("Ftarebalancetime").FieldLock = True
'                m_BillInterface.BillEntrys(1).BOSFields("Fgrossbalancetime").FieldLock = True
'                '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
                    m_BillInterface.SetFieldValue "FCustomer", ""
                    m_BillInterface.SetFieldValue "FSendDept", ""
                   '########################20060302zjmodify:注释掉这一语句###########################
                   ' m_BillInterface.SetFieldValue "FSendStorage", ""
                   '########################20060302zjmodify:注释掉这一语句###########################
                     '#####################张健修改1121原为采购订单复选运输协议后收料仓库不清空的bug################################
                    m_BillInterface.SetFieldValue "fRecDept", ""
                   '#####################张健修改1121################################
                    If Len(.Item("FShipName").Text) <> 0 Then
                        .Item("FShipName").FieldLock = True
                    Else
                       .Item("FShipName").FieldLock = False
                    End If
                    If Len(.Item("FTranser").Text) <> 0 Then
                        .Item("FTranser").FieldLock = True
                    Else
                        .Item("FTranser").FieldLock = False
                    End If
                   If Len(.Item("FRecStorage").Text) <> 0 Then
                       .Item("FRecStorage").FieldLock = True
                   Else
                       .Item("FRecStorage").FieldLock = False
                   End If
                 Case 8            '委外检斤（出）
                    .Item("FCustomer").FieldLock = True
                    .Item("FSupplier").FieldLock = False
                    .Item("FSendDept").FieldLock = True
                    .Item("FRecDept").FieldLock = True
                    .Item("FShipName").FieldLock = True
                    .Item("FNetWeight_For").FieldLock = True
                    .Item("FTranser").FieldLock = True
                    .Item("FSendStorage").FieldLock = False
                    .Item("FRecStorage").FieldLock = True
'                              '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
'                m_BillInterface.BillEntrys(1).BOSFields("Ftarebalancetime").FieldLock = True
'                m_BillInterface.BillEntrys(1).BOSFields("Fgrossbalancetime").FieldLock = True
'                '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
                    m_BillInterface.SetFieldValue "FCustomer", ""
                    m_BillInterface.SetFieldValue "FRecDept", ""
                    m_BillInterface.SetFieldValue "FSendDept", ""
                    m_BillInterface.SetFieldValue "FNetWeight_For", ""
                    m_BillInterface.SetFieldValue "FShipName", ""
                    m_BillInterface.SetFieldValue "FTranser", ""
                    m_BillInterface.SetFieldValue "FRecStorage", ""
                 Case 9          '其它检斤
                    .Item("FCustomer").FieldLock = False
                    .Item("FSupplier").FieldLock = False
                    .Item("FSendDept").FieldLock = False
                    .Item("FRecDept").FieldLock = False
                    .Item("FNetWeight_For").FieldLock = False
                    .Item("FShipName").FieldLock = False
                    .Item("FTranser").FieldLock = False
                    .Item("FSendStorage").FieldLock = False
                    .Item("FRecStorage").FieldLock = False
'                            '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
'                m_BillInterface.BillEntrys(1).BOSFields("Ftarebalancetime").FieldLock = True
'                m_BillInterface.BillEntrys(1).BOSFields("Fgrossbalancetime").FieldLock = True
'                '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
                    
                Case -1           '销售退货
                    .Item("FCustomer").FieldLock = False
                    .Item("FSupplier").FieldLock = True
                    .Item("FSendDept").FieldLock = True
                    .Item("FRecDept").FieldLock = True
                    .Item("FNetWeight_For").FieldLock = True
                    .Item("FShipName").FieldLock = True
                    .Item("FTranser").FieldLock = True
                    .Item("FSendStorage").FieldLock = True
                    .Item("FRecStorage").FieldLock = False
'                             '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
'                m_BillInterface.BillEntrys(1).BOSFields("Ftarebalancetime").FieldLock = True
'                m_BillInterface.BillEntrys(1).BOSFields("Fgrossbalancetime").FieldLock = True
'                '060317zjmodify   由于在BOS中将皮重时间和毛重时间放开所以须在插件中锁定
                    m_BillInterface.SetFieldValue "FSupplier", ""
                    m_BillInterface.SetFieldValue "FRecDept", ""
                    m_BillInterface.SetFieldValue "FSendDept", ""
                    m_BillInterface.SetFieldValue "FNetWeight_For", ""
                    m_BillInterface.SetFieldValue "FShipName", ""
                    m_BillInterface.SetFieldValue "FTranser", ""
                    m_BillInterface.SetFieldValue "FSendStorage", ""
               Case Else
            End Select
     End With
     
     Exit Sub
err:
    
    MsgBox err.Description, vbCritical, "提示："
    
End Sub


Private Sub m_BillInterface_beforesave(bCancel As Boolean)              '保存之前检查车号录入是否完整，
    Dim strtime As String   '用于设置单据编号
    Dim strSql, strsqlzj As String
    Dim rs, rzj    As ADODB.Recordset
    
    On Error GoTo err
    
    If Not CheckCarNo Then
        bCancel = True
        Exit Sub
    End If
    If TareWeightMsg = 1 Then
        bCancel = True
        Exit Sub
    End If
    '****************************************************************************************************
   '车号检查 由于060222zj在BOS中将Fcarno设置为不必录(因为薄板磅)所以这里控制车号必录
    If Len(m_BillInterface.GetFieldValue("fcarno")) = 0 Then
        MsgBox "请录入车号", vbInformation, "国丰提示"
        bCancel = True
        Exit Sub
    End If
    '车号检查 由于060222zj在BOS中将Fcarno设置为不必录(因为薄板磅)所以这里控制车号必录
    '磅秤编号检查
    With m_BillInterface
        If Len(.GetFieldValue("FTareOP")) <> 0 And Len(.GetFieldValue("FTareBalanceNO")) = 0 Then
            MsgBox "请录入皮重磅秤编号", vbInformation, "金蝶提示"
            bCancel = True
            Exit Sub
        End If
        If Len(.GetFieldValue("FTareOP")) <> 0 And Len(.GetFieldValue("FTareChecker")) = 0 Then
            MsgBox "请录入皮重监磅员", vbInformation, "金蝶提示"
            bCancel = True
            Exit Sub
        End If
        If Len(.GetFieldValue("FGrossOP")) <> 0 And Len(.GetFieldValue("FGrossBalanceNO")) = 0 Then
            MsgBox "请录入毛重磅秤编号", vbInformation, "金蝶提示"
            bCancel = True
            Exit Sub
        End If
        If Len(.GetFieldValue("FGrossOP")) <> 0 And Len(.GetFieldValue("FGrossChecker")) = 0 Then
            MsgBox "请录入毛重监磅员", vbInformation, "金蝶提示"
            bCancel = True
            Exit Sub
        End If
    '*****************************************************************************************************
    '五种检斤类型只允许通过选单来进行
        Select Case .GetFieldValue("FBillType")
            Case 1         '  销售出库
                
                If Len(.GetFieldValue("FBillNo_SRC")) = 0 Then          '使发料，收料必须通过选单来进行。
                    MsgBox "检斤类型为发料检斤时，" & vbCrLf & _
                    "请选择发货通知单", vbCritical, "错误"
                    bCancel = True
                    Exit Sub
                End If
                If CDbl(.GetFieldValue("FNetWeight")) <> 0 Then
                    If Len(.GetFieldValue("FSendStorage")) = 0 Then
                        MsgBox "请输入发料仓库", vbInformation, "金蝶提示"
                        bCancel = True
                        Exit Sub
                    End If
                End If
                If Len(.GetFieldValue("FCustomer")) = 0 Then
                    MsgBox "请输入客户", vbInformation, "金蝶提示"
                    bCancel = True
                    Exit Sub
                End If
            Case 2               '外购入库
                 If Len(.GetFieldValue("FBillNo_SRC")) = 0 Then
                    MsgBox "检斤类型为收料检斤时，" & vbCrLf & _
                    "请选择采购订单", vbCritical, "错误"
                    bCancel = True
                    Exit Sub
                End If
                If CDbl(.GetFieldValue("FNetWeight")) <> 0 Then
                    If Len(.GetFieldValue("FRecStorage")) = 0 Then
                        MsgBox "请输入收料仓库", vbInformation, "金蝶提示"
                        bCancel = True
                        Exit Sub
                    End If
                End If
                If Len(.GetFieldValue("FSupplier")) = 0 Then
                    MsgBox "请输入供应商", vbInformation, "金蝶提示"
                    bCancel = True
                    Exit Sub
                End If
                
            Case 3              '调拨检斤
                If Len(.GetFieldValue("FBillNo_SRC")) = 0 Then
                    MsgBox "检斤类型为调拨检斤时，" & vbCrLf & _
                    "请选择调拨通知单", vbCritical, "错误"
                    bCancel = True
                    Exit Sub
                End If
                 If Len(.GetFieldValue("FRecStorage")) = 0 Or Len(.GetFieldValue("FSendStorage")) = 0 Then
                    MsgBox "请输入收料仓库 和 发料仓库", vbInformation, "金蝶提示"
                    bCancel = True
                    Exit Sub
                End If
            Case 4         '委外（入）
                If Len(.GetFieldValue("FRecStorage")) = 0 Or Len(.GetFieldValue("FSupplier")) = 0 Then
                    MsgBox "请输入收料仓库和供应商", vbInformation, "金蝶提示"
                    bCancel = True
                    Exit Sub
                End If
            Case 5           '工艺检斤
                If CDbl(.GetFieldValue("FNetWeight")) <> 0 Then
                    If Len(.GetFieldValue("FRecDept")) = 0 Or Len(.GetFieldValue("FSendStorage")) = 0 Then
                        MsgBox "请输入收料部门 和 发料仓库", vbInformation, "金蝶提示"
                        bCancel = True
                        Exit Sub
                    End If
                End If
            Case 6         '成品入库
                If Len(.GetFieldValue("FSendDept")) = 0 Or Len(.GetFieldValue("FRecStorage")) = 0 Then
                    MsgBox "请输入收料仓库 和 发料部门", vbInformation, "金蝶提示"
                    bCancel = True