?? 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 '運輸協(xié)議
.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原為采購訂單復(fù)選運輸協(xié)議后收料倉庫不清空的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 '用于設(shè)置單據(jù)編號
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設(shè)置為不必錄(因為薄板磅)所以這里控制車號必錄
If Len(m_BillInterface.GetFieldValue("fcarno")) = 0 Then
MsgBox "請錄入車號", vbInformation, "國豐提示"
bCancel = True
Exit Sub
End If
'車號檢查 由于060222zj在BOS中將Fcarno設(shè)置為不必錄(因為薄板磅)所以這里控制車號必錄
'磅秤編號檢查
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 "請錄入皮重監(jiān)磅員", 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 "請錄入毛重監(jiān)磅員", vbInformation, "金蝶提示"
bCancel = True
Exit Sub
End If
'*****************************************************************************************************
'五種檢斤類型只允許通過選單來進行
Select Case .GetFieldValue("FBillType")
Case 1 ' 銷售出庫
If Len(.GetFieldValue("FBillNo_SRC")) = 0 Then '使發(fā)料，收料必須通過選單來進行。
MsgBox "檢斤類型為發(fā)料檢斤時，" & vbCrLf & _
"請選擇發(fā)貨通知單", vbCritical, "錯誤"
bCancel = True
Exit Sub
End If
If CDbl(.GetFieldValue("FNetWeight")) <> 0 Then
If Len(.GetFieldValue("FSendStorage")) = 0 Then
MsgBox "請輸入發(fā)料倉庫", 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 "請輸入供應(yīng)商", vbInformation, "金蝶提示"
bCancel = True
Exit Sub
End If
Case 3 '調(diào)撥檢斤
If Len(.GetFieldValue("FBillNo_SRC")) = 0 Then
MsgBox "檢斤類型為調(diào)撥檢斤時，" & vbCrLf & _
"請選擇調(diào)撥通知單", vbCritical, "錯誤"
bCancel = True
Exit Sub
End If
If Len(.GetFieldValue("FRecStorage")) = 0 Or Len(.GetFieldValue("FSendStorage")) = 0 Then
MsgBox "請輸入收料倉庫 和 發(fā)料倉庫", vbInformation, "金蝶提示"
bCancel = True
Exit Sub
End If
Case 4 '委外（入）
If Len(.GetFieldValue("FRecStorage")) = 0 Or Len(.GetFieldValue("FSupplier")) = 0 Then
MsgBox "請輸入收料倉庫和供應(yīng)商", 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 "請輸入收料部門 和 發(fā)料倉庫", vbInformation, "金蝶提示"
bCancel = True
Exit Sub
End If
End If
Case 6 '成品入庫
If Len(.GetFieldValue("FSendDept")) = 0 Or Len(.GetFieldValue("FRecStorage")) = 0 Then
MsgBox "請輸入收料倉庫 和 發(fā)料部門", vbInformation, "金蝶提示"
bCancel = True
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -