Attribute VB_Name = "ModPublicFunction"
''結(jié)果集對(duì)象
Public rs As ADODB.Recordset
Public Rs1 As ADODB.Recordset

Public Vector_SelectBill As KFO.Vector  '用于存儲(chǔ)選單信息

''用于存儲(chǔ)選單臨時(shí)數(shù)據(jù)，默認(rèn)值為50
Public SelBill(1 To 50, 1 To 3) As String

''存儲(chǔ)單據(jù)體行數(shù)
Public BillEntryRows As Long


Public lTareOrGross As Long             '判斷過(guò)皮還是過(guò)毛   1為皮 2 為毛 用于保存XML如果過(guò)毛就保存毛重監(jiān)磅員，編號(hào)信息。反之相反
Public g_lngFID As Long                 '選擇調(diào)撥通知單的FID
Public g_lngFEntryID As Long            '選擇調(diào)撥通知單的FentryID
Public g_strBillNo_SRC As String        '選擇調(diào)撥通知單的源單編號(hào)

Public lngFID As Long                   '結(jié)算標(biāo)準(zhǔn)內(nèi)碼
Public lngFEntryID As Long              '結(jié)算標(biāo)準(zhǔn)分錄內(nèi)碼


Public strMar As String
Public dblQty As Double
Public sign As Boolean
Public lngRow As Long

Public Balance_Select As Boolean        '用于判斷調(diào)拔通知單是否由檢斤來(lái)選單的標(biāo)志
Public QM_Select As Boolean             '用于判斷由檢斤是否由物理檢驗(yàn)單來(lái)選單的標(biāo)志

Public BillNumber As String             '用于保存所選所票據(jù)號(hào)
Public lngFUserID As Long               '用戶ID，nsx專用
Public g_StrUserName As String

''取多級(jí)審核的狀態(tài)
Public Function GetCheckLevel(Lev As Long) As Long
Select Case Lev
       Case 0
            GetCheckLevel = 0
       Case 1
            GetCheckLevel = 1
       Case 2
            GetCheckLevel = 3
       Case 3
            GetCheckLevel = 7
       Case 4
            GetCheckLevel = 15
       Case 5
            GetCheckLevel = 31
       Case 6
            GetCheckLevel = 63
End Select
End Function