bos_applyinfo.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_ApplyInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'''''''''''''''''''''''''''''''''''''''''''''''
''采购申请单
''建立日期：2005-07-28
''建立人：倪树祥
'''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface  As BillEvent
Attribute m_BillInterface.VB_VarHelpID = -1
'定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_ListInterface  As ListEvents
Attribute m_ListInterface.VB_VarHelpID = -1

Public Sub Show(ByVal oBosInterface As Object)
    'BillEvent 接口实现
    '注意: 此方法必须存在, 请勿修改
    Select Case VBA.TypeName(oBosInterface)
        Case "BillEvent"
            Set m_BillInterface = oBosInterface
        Case "ListEvents"
            Set m_ListInterface = oBosInterface
    End Select
End Sub

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

'Private Sub m_BillInterface_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)
''多级审核后指定下一级次的审核人
'    Dim strSql As String
'    Dim iNextLevel As Integer
'   ' If (lCheckLevel = 0) Then Exit Sub
'
'    '最大审核级次，不需要指定下一级次的审核人
'    If (lCheckLevel = lCheckMaxLevel) Then
'        strSql = "exec Cg_SP_AddCheckerAssigned 't_EP_PB_PurchaseApply'," & m_BillInterface.CurBillID & ",0,0," & lCheckLevel & "," & m_BillInterface.K3Lib.User.UserID & ",0," & lCheckMaxLevel
'        m_BillInterface.K3Lib.UpdateData strSql
'        m_BillInterface.RefreshBill
'        Exit Sub
'    End If
'
'    '得到一级次的审核人，如果下一级次=0，说明是直接转移到结束，否则需要指定下一级次的审核人
'    iNextLevel = m_BillInterface.MultiCheckMgr.nextlevel
'    If iNextLevel = 0 Then
'        strSql = "exec Cg_SP_AddCheckerAssigned 't_EP_PB_PurchaseApply'," & m_BillInterface.CurBillID & ",0,0," & lCheckLevel & "," & m_BillInterface.K3Lib.User.UserID & ",0," & lCheckMaxLevel
'        m_BillInterface.K3Lib.UpdateData strSql
'        m_BillInterface.RefreshBill
'        Exit Sub
'    End If
'
'    strSql = "exec Cg_Sp_getChecker '110001287'," & m_BillInterface.K3Lib.User.UserID & "," & iNextLevel
'
'    Set frmChecker.rsChecker = m_BillInterface.K3Lib.GetData(strSql)
'    If frmChecker.rsChecker.EOF Then
'        MsgBox "请设置人员分组！", vbCritical + vbOKOnly, "金蝶提示"
'        Exit Sub
'    End If
'    '显示选择界面
'    frmChecker.IsMustAssigned = True
'    frmChecker.Show vbModal
'
'    '如果选择了审核人，则把审核人加入到审核人列表中，否则保留原来的审核人（不做任何的变化）
'    If lngFUserID > 0 Then
'        strSql = "exec Cg_SP_AddCheckerAssigned 't_EP_PB_PurchaseApply'," & m_BillInterface.CurBillID & "," & iNextLevel & "," & lngFUserID & "," & lCheckLevel & "," & m_BillInterface.K3Lib.User.UserID & ",0," & lCheckMaxLevel
'        m_BillInterface.K3Lib.UpdateData strSql
'        m_BillInterface.RefreshBill
'    Else
'        Success = False
'    End If
'End Sub

'Private Sub m_BillInterface_AfterSave(bCancel As Boolean)
'    Dim strSql As String
'    '保存时，需要设置跳转标志
'    strSql = "exec IC_SP_SetApplyInfoJumpFlag  " & m_BillInterface.CurBillID
'    m_BillInterface.K3Lib.UpdateData strSql
'
'End Sub

'Private Sub m_BillInterface_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)
'    Dim strSql As String
'
'  '  If lCheckLevel > 0 Then
'        strSql = " exec Cg_SP_AddCheckerAssigned 't_EP_PB_PurchaseApply'," & m_BillInterface.CurBillID & ",0,0," & lCheckLevel & ",0,-1," & lCheckMaxLevel
'        m_BillInterface.K3Lib.UpdateData strSql
'   ' End If
'End Sub

'Private Sub m_BillInterface_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)
''判断是否是当前单据当前级次的审核人
'    Dim lngCurrCheckerID As Long
'    Select Case lCheckLevel
'        Case 1
'            lngCurrCheckerID = m_BillInterface.GetFieldValue("FFirCheckerAssi")
'        Case 2
'            lngCurrCheckerID = m_BillInterface.GetFieldValue("FSecCheckerAssi")
'        Case 3
'            lngCurrCheckerID = m_BillInterface.GetFieldValue("FThiCheckerAssi")
'        Case 4
'            lngCurrCheckerID = m_BillInterface.GetFieldValue("FFouCheckerAssi")
'        Case 5
'            lngCurrCheckerID = m_BillInterface.GetFieldValue("FFivCheckerAssi")
'        Case 6
'            lngCurrCheckerID = m_BillInterface.GetFieldValue("FSixCheckerAssi")
'    End Select
'
'    If lngCurrCheckerID <> m_BillInterface.K3Lib.User.UserID Then
'        MsgBox "您不是当前单据指定的本级次审核人！", vbCritical + vbOKOnly, "金蝶提示"
'        Cancel = True
'    End If
'
'End Sub
 

'Private Sub m_BillInterface_beforesave(bCancel As Boolean)
'    Dim strSql As String
'    Dim iNextLevel As Integer
'    Dim iCurrBillID As Long
'    Dim lngBiller As Long
'    Dim lngCurrUser As Long
'    Dim lngCurrChecker As Long
'
'    iNextLevel = m_BillInterface.MultiCheckMgr.nextlevel
'    iCurrBillID = m_BillInterface.CurBillID
'    If iCurrBillID = 0 Then '新增单据
'        bCancel = False
'        Exit Sub
'    End If
'
'    lngBiller = m_BillInterface.GetFieldValue("FBiller")
'    lngCurrUser = m_BillInterface.K3Lib.User.UserID
'
'    If iNextLevel <= 0 Then '新增单据，且未启动审核
'        If lngBiller <> lngCurrUser Then
'            MsgBox "您不是当前单据的制单人，无权修改单据！", vbInformation + vbOKOnly, "金蝶提示"
'            bCancel = True
'            Exit Sub
'        Else
'            bCancel = False
'            Exit Sub
'        End If
'    End If
'
'    Select Case iNextLevel
'        Case 1
'            lngCurrChecker = m_BillInterface.GetFieldValue("FFirCheckerAssi")
'        Case 2
'            lngCurrChecker = m_BillInterface.GetFieldValue("FSecCheckerAssi")
'        Case 3
'            lngCurrChecker = m_BillInterface.GetFieldValue("FThiCheckerAssi")
'        Case 4
'            lngCurrChecker = m_BillInterface.GetFieldValue("FFouCheckerAssi")
'        Case 5
'            lngCurrChecker = m_BillInterface.GetFieldValue("FFivCheckerAssi")
'        Case 6
'            lngCurrChecker = m_BillInterface.GetFieldValue("FSixCheckerAssi")
'    End Select
'    If lngCurrChecker <> lngCurrUser Then
'        MsgBox "您不是当前单据的当前审核人，无权修改单据！", vbInformation + vbOKOnly, "金蝶提示"
'        bCancel = True
'        Exit Sub
'    End If
'
'    bCancel = False
'
'End Sub