modpulickfunction.bas

金蝶地磅称重插件

Attribute VB_Name = "ModPublicFunction"
''结果集对象
Public rs As ADODB.Recordset
Public Rs1 As ADODB.Recordset

Public Vector_SelectBill As KFO.Vector  '用于存储选单信息

''用于存储选单临时数据，默认值为50
Public SelBill(1 To 50, 1 To 3) As String

''存储单据体行数
Public BillEntryRows As Long


Public lTareOrGross As Long             '判断过皮还是过毛   1为皮 2 为毛 用于保存XML如果过毛就保存毛重监磅员，编号信息。反之相反
Public g_lngFID As Long                 '选择调拨通知单的FID
Public g_lngFEntryID As Long            '选择调拨通知单的FentryID
Public g_strBillNo_SRC As String        '选择调拨通知单的源单编号

Public lngFID As Long                   '结算标准内码
Public lngFEntryID As Long              '结算标准分录内码


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

Public Balance_Select As Boolean        '用于判断调拔通知单是否由检斤来选单的标志
Public QM_Select As Boolean             '用于判断由检斤是否由物理检验单来选单的标志

Public BillNumber As String             '用于保存所选所票据号
Public lngFUserID As Long               '用户ID，nsx专用
Public g_StrUserName As String

''取多级审核的状态
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