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