bos_balancebill.cls

金蝶地磅称重插件

    MsgBox err.Description, vbCritical, "提示："
    
End Sub
Private Sub EnableToolBarProcess(ByVal lngType As Long) 'lngType=1 发料检斤流程,2 收料检斤流程 3 调拨流程 4 毛皮可用,复磅不可用
    On Error GoTo err
    
    With m_BillInterface
    Select Case lngType
            Case 1
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And CDbl(.GetFieldValue("FTareWeight")) = 0 Then        '如果在选单之前已经过毛重
                            EnableToolBar "mnuGetTareWeight", True                         '则设置皮重可用，否则按照正常
                            EnableToolBar "mnuGetGrossWeight", False                        '流程走
                         End If
                        If CDbl(.GetFieldValue("FTareWeight")) <> 0 And CDbl(.GetFieldValue("FGrossWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", True
                        End If
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And _
                              CDbl(.GetFieldValue("FTareWeight")) <> 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", False
                         
                        End If
                          If CDbl(.GetFieldValue("FGrossWeight")) = 0 And _
                              CDbl(.GetFieldValue("FTareWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", True
                            EnableToolBar "mnuGetGrossWeight", False
                            
                        End If
            Case 2
                         If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And CDbl(.GetFieldValue("FTareWeight")) = 0 Then        '如果在选单之前已经过毛重
                            EnableToolBar "mnuGetTareWeight", True                         '则设置皮重可用，否则按照正常
                            EnableToolBar "mnuGetGrossWeight", False                        '流程走
                          
                         End If
                         If CDbl(.GetFieldValue("FTareWeight")) <> 0 And CDbl(.GetFieldValue("FGrossWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", True
                           
                        End If
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And _
                              CDbl(.GetFieldValue("FTareWeight")) <> 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", False
                           
                        End If
                          If CDbl(.GetFieldValue("FGrossWeight")) = 0 And _
                              CDbl(.GetFieldValue("FTareWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", True
                           
                        End If
            Case 3
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And CDbl(.GetFieldValue("FTareWeight")) = 0 Then         '如果在选单之前已经过毛重
                            EnableToolBar "mnuGetTareWeight", True                         '则设置皮重可用，否则按照正常
                            EnableToolBar "mnuGetGrossWeight", False
                           
                        End If
                        If CDbl(.GetFieldValue("FTareWeight")) <> 0 And CDbl(.GetFieldValue("FGrossWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", True
                            
                        End If
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And _
                            CDbl(.GetFieldValue("FTareWeight")) <> 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", False
                           
                           
                        End If
                        If CDbl(.GetFieldValue("FGrossWeight")) = 0 And _
                            CDbl(.GetFieldValue("FTareWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", True
                            EnableToolBar "mnuGetGrossWeight", True
                            
                        End If
          
            Case 4
                        
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And CDbl(.GetFieldValue("FTareWeight")) = 0 Then         '如果在选单之前已经过毛重
                            EnableToolBar "mnuGetTareWeight", True                         '则设置皮重可用，否则按照正常
                            EnableToolBar "mnuGetGrossWeight", False
                           
                        End If
                        If CDbl(.GetFieldValue("FTareWeight")) <> 0 And CDbl(.GetFieldValue("FGrossWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", True
                           
                        End If
                        If CDbl(.GetFieldValue("FGrossWeight")) <> 0 And _
                            CDbl(.GetFieldValue("FTareWeight")) <> 0 Then
                            EnableToolBar "mnuGetTareWeight", False
                            EnableToolBar "mnuGetGrossWeight", False
                           
                        End If
                        If CDbl(.GetFieldValue("FGrossWeight")) = 0 And _
                            CDbl(.GetFieldValue("FTareWeight")) = 0 Then
                            EnableToolBar "mnuGetTareWeight", True
                            EnableToolBar "mnuGetGrossWeight", True
                          
                        End If
            Case Else
    End Select
    End With
    
    Exit Sub
err:
    
    MsgBox err.Description, vbCritical, "提示："
    
End Sub

Private Sub EableOrDisableField(ByVal lmode As Long)   '对不同的单据类型，设置不同的字段可用                                                                           '不可用
     On Error GoTo err
     
     Dim oBOSFields As K3ClassEvents.BOSFields
     Dim lCount As Long
     
     Set oBOSFields = m_BillInterface.BillHeads(1).BOSFields
     With oBOSFields
      Select Case lmode
            Case 1        '销售出库
                .Item("FCustomer").FieldLock = True
                .Item("FSupplier").FieldLock = True
                .Item("FSendDept").FieldLock = True
                .Item("FRecDept").FieldLock = True
                .Item("FNetWeight_For").FieldLock = True
                .Item("FShipName").FieldLock = True
                .Item("FRecStorage").FieldLock = True
                .Item("FTranser").FieldLock = True
              
                m_BillInterface.SetFieldValue "FTranser", ""
                m_BillInterface.SetFieldValue "FSupplier", ""
                m_BillInterface.SetFieldValue "FRecDept", ""
                m_BillInterface.SetFieldValue "FNetWeight_For", ""
                m_BillInterface.SetFieldValue "FShipName", ""
                m_BillInterface.SetFieldValue "FRecStorage", ""
                If Len(.Item("FSendStorage").Text) <> 0 Then
                    .Item("FSendStorage").FieldLock = True
                Else
                    .Item("FSendStorage").FieldLock = False
                End If
            Case 2         ' 外购入库
              .Item("FCustomer").FieldLock = True
              .Item("FSupplier").FieldLock = True
              .Item("FSendDept").FieldLock = True
              .Item("FRecDept").FieldLock = True
              .Item("FNetWeight_For").FieldLock = False
              .Item("FShipName").FieldLock = True
              .Item("FTranser").FieldLock = True
              .Item("FSendStorage").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 "FSendDept", ""
              m_BillInterface.SetFieldValue "FShipName", ""
              m_BillInterface.SetFieldValue "FTranser", ""
              m_BillInterface.SetFieldValue "Fsendstorage", ""
              
              
'             ====================1123张健修改,选采购订单时将收料仓库项放开==========================
'              If Len(.Item("FRecStorage").Text) <> 0 Then
'                  .Item("FRecStorage").FieldLock = True
'              Else
'                  .Item("FRecStorage").FieldLock = False
'              End If
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&张健修改********************************************************

            Case 3          '调拨检斤
                .Item("FCustomer").FieldLock = True
                .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 = 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中将皮重时间和毛重时间放开所以须在插件中锁定
                m_BillInterface.SetFieldValue "FCustomer", ""
                m_BillInterface.SetFieldValue "FSupplier", ""
                m_BillInterface.SetFieldValue "FSendDept", ""
                m_BillInterface.SetFieldValue "FRecDept", ""
                m_BillInterface.SetFieldValue "FNetWeight_For", ""
                m_BillInterface.SetFieldValue "FShipName", ""
                m_BillInterface.SetFieldValue "FTranser", ""
            Case 4           '委外检斤（入）
                .Item("FCustomer").FieldLock = True
                .Item("FSupplier").FieldLock = False
                .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 "FCustomer", ""
                m_BillInterface.SetFieldValue "FSendDept", ""
                m_BillInterface.SetFieldValue "FRecDept", ""
                m_BillInterface.SetFieldValue "FNetWeight_For", ""
                m_BillInterface.SetFieldValue "FShipName", ""
                m_BillInterface.SetFieldValue "FTranser", ""
                m_BillInterface.SetFieldValue "FSendStorage", ""
            Case 5          '工艺检斤
                .Item("FCustomer").FieldLock = True
                .Item("FSupplier").FieldLock = True
                .Item("FSendDept").FieldLock = True
                .Item("FRecDept").FieldLock = False
                .Item("FNetWeight_For").FieldLock = True
                .Item("FShipName").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 "FSupplier", ""
                m_BillInterface.SetFieldValue "FSendDept", ""
                m_BillInterface.SetFieldValue "FNetWeight_For", ""
                m_BillInterface.SetFieldValue "FShipName", ""
                m_BillInterface.SetFieldValue "FTranser", ""
                m_BillInterface.SetFieldValue "FRecStorage", ""
            Case 6         '成品入库
                .Item("FCustomer").FieldLock = True
                .Item("FSupplier").FieldLock = True
                .Item("FSendDept").FieldLock = False
                .Item("FRecDept").FieldLock = True
                .Item("FNetWeight_For").FieldLock = True
                .Item("FShipName").FieldLock = True