bos_toutinfo.cls

金蝶地磅称重插件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BOS_Toutinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
 '**********************************************************************
 '2005-12-15 张健
 '委外加工出库通知单的叙事薄
 '功能：取出委外加工出库通知单的存源单编号,以用于m_interfacebill的aftersel事件调用
 '**********************************************************************

Option Explicit

'定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_ListInterface  As ListEvents
Attribute m_ListInterface.VB_VarHelpID = -1
 
Dim UserID As Long

Public Sub Show(ByVal oListInterface As Object)
 
    'ListEvents 接口实现
    '注意: 此方法必须存在, 请勿修改
    Set m_ListInterface = oListInterface
 
End Sub

Private Sub Class_Terminate()
 
    '释放接口对象
    '注意: 此方法必须存在, 请勿修改
    Set m_ListInterface = Nothing
    
End Sub

Private Sub m_ListInterface_AfterSelList(ByVal RsId As ADODB.Recordset, VectList As KFO.IVector)
   Dim Dic_Select As KFO.Dictionary
    Dim rs11 As ADODB.Recordset
    Set Dic_Select = VectList.Item(1)
    g_lngFID = Dic_Select.GetValue("FID")
    g_lngFEntryID = Dic_Select.GetValue("FEntryID")
    
    Set rs11 = m_ListInterface.K3Lib.GetData("Select FBillNO from t_outinfo where FID=" & g_lngFID)
    g_strBillNo_SRC = rs11.Fields(0)
    Set Dic_Select = Nothing
    Set rs11 = Nothing
End Sub