bos_listevent_plugins.cls

ERP合同变更ERP合同变更ERP合同变更ERP合同变更

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_ListEvent_PlugIns"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Description = "This is ListEvents Interface Class, made by K3BOSPLUGINSWIZAED"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'--------------------------------------------------------------------------------------------------------------
'
'
'--------------------------------------------------------------------------------------------------------------
'定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_ListInterface  As ListEvents
Attribute m_ListInterface.VB_VarHelpID = -1

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_AfterBusinessCheck(ByVal Success As Boolean)
 
    'TODO: 请在此处添加代码响应事件 AfterBusinessCheck
  'TODO: 请在此处添加代码响应事件 FinishMultiCheck
'    Dim strFID As String    '单据内码
'    Dim vctSelect As KFO.Vector
'    Dim rs As ADODB.Recordset
'    With m_ListInterface
'        '得到所选单据的内码
'        strFID = GetSelectBillIDFilter(vctSelectBill, "FID")
'
'
'        strSQL = "update PORequestEntry SET FEntrySelfP0125=c.FDecimal3,FEntrySelfP0126=c.FDecimal,FSupplyID=c.FBase4 " & _
'                            "from (select a.FID,a.FEntryID_SRC,a.FID_SRC,b.FDecimal3,b.FDecimal,b.FBase4 " & _
'                            "from t_Bos200000003Entry2 a inner join t_Bos200000003Entry3 b " & _
'                            "on a.FID=b.FID " & _
'                            "where b.FCheckBox=1 and a.FID in(" & strFID & "))c " & _
'                            "Where PORequestEntry.FInterID = c.FID_SRC And PORequestEntry.FEntryID = c.FEntryID_SRC"
'        Debug.Print strSQL
'        On Error GoTo ErrHand
'        .K3Lib.UpdateData (strSQL)
'        Exit Sub
'    End With
'ErrHand:
'    Msg Err.Description, vbCritical
'    Success = False
End Sub

Private Sub m_ListInterface_AfterCopyBillCreateData(ByVal srcInterID As Long, ByVal dctData As KFO.IDictionary)
 
    'TODO: 请在此处添加代码响应事件 AfterCopyBillCreateData
 

End Sub

Private Sub m_ListInterface_AfterDeleteBill(ByVal bSuccess As Boolean, ByVal lBillInterID As Long, ByVal sBillNo As String, ByVal sErrorMessage As String, bCancelErrorMessage As Boolean)
 
    'TODO: 请在此处添加代码响应事件 AfterDeleteBill
 

End Sub

Private Sub m_ListInterface_AfterMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
 
    'TODO: 请在此处添加代码响应事件 AfterMultiCheck
 

End Sub

Private Sub m_ListInterface_AfterSelList(ByVal RsId As ADODB.Recordset, VectList As KFO.IVector)
 
    'TODO: 请在此处添加代码响应事件 AfterSelList
 

End Sub

Private Sub m_ListInterface_AfterUnBusinessCheck(ByVal Success As Boolean)
 
    'TODO: 请在此处添加代码响应事件 AfterUnBusinessCheck
 

End Sub

Private Sub m_ListInterface_AfterUnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
 
    'TODO: 请在此处添加代码响应事件 AfterUnMultiCheck
 

End Sub

Private Sub m_ListInterface_BeforeMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal lLastCheckFrom As Long, ByVal lLastCheckTo As Long, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 BeforeMultiCheck
    '假如用户没有选择单据，则不允许审核单据。
'    Set vctSelectBill = m_ListInterface.GetSelectedBillInfo
'    If vctSelectBill Is Nothing Then Cancel = True
End Sub

Private Sub m_ListInterface_BeforeSendMessage(ByVal ActionCode As String, dctMessage As KFO.IDictionary, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 BeforeSendMessage
 

End Sub

Private Sub m_ListInterface_BeforRefreshToolBar(bShowCaption As Boolean)
 
    'TODO: 请在此处添加代码响应事件 BeforRefreshToolBar
 

End Sub

Private Sub m_ListInterface_BusinessCheck(Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 BusinessCheck
 

End Sub

Private Sub m_ListInterface_ListFillRow(ByVal lRow As Long, ByVal RowData As Object, ByVal HeadDict As KFO.IDictionary, CellData As String, BackColor As Long, ContinueRaise As Boolean)
 
    'TODO: 请在此处添加代码响应事件 ListFillRow
 

End Sub

Private Sub m_ListInterface_ListRowSelected(ByVal lRow As Long)
 
    'TODO: 请在此处添加代码响应事件 ListRowSelected
'    Set vctSelectBill = m_ListInterface.GetSelectedBillInfo()
'    strFID = GetSelectBillIDFilter(vctSelectBill, "FID")
End Sub

Private Sub m_ListInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 MenuBarClick
    

End Sub

Private Sub m_ListInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)
 
    'TODO: 请在此处添加代码响应事件 MenuBarInitialize
    With m_ListInterface
    
'        oMenuBar.BOSTools("mnuEditDelete").Visible = False
    
    End With

End Sub

Private Sub m_ListInterface_MultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, bSendCheckMessage As Boolean, bSendAcceptMessage As Boolean, sMessageTitle As String, sMessage As String, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 MultiCheck
 

End Sub

Private Sub m_ListInterface_StartMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, bSendMessage As Boolean, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 StartMultiCheck
 

End Sub

Private Sub m_ListInterface_UnBusinessCheck(Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 UnBusinessCheck
 

End Sub

Private Sub m_ListInterface_UnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckStatus As Long, ByVal lLastCheckFrom As Long, ByVal lLastCheckTo As Long, bSendMessage As Boolean, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 UnMultiCheck
 

End Sub

'此函数得到所选记录的单据内码的字符串，字符串以","作为间隔符主要是为了在查询SQL中方便使用
Public Function GetSelectBillIDFilter(ByVal vectSelect As KFO.Vector, ByVal strInterIDName As String) As String
    Dim i As Long
    Dim strFilter As String
    For i = vectSelect.LBound To vectSelect.UBound
        If vectSelect(i)(strInterIDName) > 0 Then
           strFilter = strFilter & IIf(i <> 1, ",", "") & CStr(vectSelect(i)(strInterIDName))
        End If
    Next
    GetSelectBillIDFilter = strFilter
End Function