新增文章

文章标题分类内容

'【审批流插件】
'-----------------------------------------------------------------------------------------------------------------------------

'启动审核
'
'    2023-04-11 11:53:25.455 Show(oApprovalInterface)
'    2023-04-11 11:53:33.894 m_ApprovalInterface_CheckPrepare( False,False )
'    2023-04-11 11:53:33.894 m_ApprovalInterface_CheckPrepareExt( True,False,dctCheckInfo,False )
'    2023-04-11 11:53:33.894 m_ApprovalInterface_CheckOptionConfigured( dctConfig,False )
'    2023-04-11 11:53:34.19  m_ApprovalInterface_ReturnMixedPromptInfoExt(dctMixedCheckInfo,dctMixedPromptInfoExt)
'    2023-04-11 11:53:34.19  m_ApprovalInterface_CheckDone( 0,True )
'
'节点审核
'
'    2023-04-11 11:54:13.815 m_ApprovalInterface_CheckPrepare( False,False )
'    2023-04-11 11:54:13.815 m_ApprovalInterface_CheckPrepareExt( False,False,dctCheckInfo,False )
'    2023-04-11 11:54:13.815 m_ApprovalInterface_CheckOptionConfigured( dctConfig,False )
'    2023-04-11 11:54:13.830 m_ApprovalInterface_ReturnMixedPromptInfoExt(dctMixedCheckInfo,dctMixedPromptInfoExt)
'    2023-04-11 11:54:13.846 m_ApprovalInterface_CheckDone( 2000,True )
'    2023-04-11 11:54:14.938 Class_Terminate()
'    2023-04-11 11:54:15.32  Show(oApprovalInterface)
'
'驳回
'
'    2023-04-11 11:54:25.359 m_ApprovalInterface_UncheckPrepare( False,False )
'    2023-04-11 11:54:25.359 m_ApprovalInterface_UnCheckPrepareExt( False,dctCheckInfo,False )
'    2023-04-11 11:54:25.359 m_ApprovalInterface_UncheckOptionConfigred( dctConfig,False )
'    2023-04-11 11:54:25.374 m_ApprovalInterface_ReturnMixedPromptInfoExt(dctMixedCheckInfo,dctMixedPromptInfoExt)
'    2023-04-11 11:54:26.498 m_ApprovalInterface_UnCheckDone( -1,True )
'    2023-04-11 11:54:26.513 Class_Terminate()
'    2023-04-11 11:54:26.591 Show(oApprovalInterface)

'-----------------------------------------------------------------------------------------------------------------------------

Private WithEvents m_ApprovalInterface  As MixedApprovalEvents
 
 
Function aTime() As String
    
    aTime = Format(Now(), "yyyy-mm-dd hh:MM:ss") & "." & (Timer() * 1000 Mod 1000)  '时间格式 + 毫秒
End Function

Public Sub Show(ByVal oApprovalInterface As Object)
 
    Debug.Print aTime & " Show(oApprovalInterface)"
    Set m_ApprovalInterface = oApprovalInterface   '注意: 此方法必须存在, 请勿修改
End Sub

Private Sub Class_Terminate()
 
    Debug.Print aTime & " Class_Terminate()"
    Set m_ApprovalInterface = Nothing   '释放接口对象  '注意: 此方法必须存在, 请勿修改
End Sub

Private Sub m_ApprovalInterface_CheckPrepare(bShowConfigurationManager As Boolean, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_CheckPrepare( " & bShowConfigurationManager & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_CheckPrepareExt(ByVal bIsStart As Boolean, bShowExtinfo As Boolean, dctCheckInfo As KFO.IDictionary, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_CheckPrepareExt( " & bIsStart & "," & bShowExtinfo & ",dctCheckInfo," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_CheckOptionConfigured(dctConfig As KFO.IDictionary, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_CheckOptionConfigured( dctConfig" & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_ReturnMixedPromptInfoExt(ByVal dctMixedCheckInfo As KFO.IDictionary, dctMixedPromptInfoExt As KFO.IDictionary)

Debug.Print aTime & " m_ApprovalInterface_ReturnMixedPromptInfoExt(dctMixedCheckInfo,dctMixedPromptInfoExt)"
End Sub

Private Sub m_ApprovalInterface_CheckDone(ByVal lCheckNodeIndex As Long, ByVal bSucceed As Variant)

Debug.Print aTime & " m_ApprovalInterface_CheckDone( " & lCheckNodeIndex & "," & bSucceed & " )"
End Sub

Private Sub m_ApprovalInterface_UncheckPrepare(bShowConfigurationManager As Boolean, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_UncheckPrepare( " & bShowConfigurationManager & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_UnCheckPrepareExt(bShowExtinfo As Boolean, dctCheckInfo As KFO.IDictionary, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_UnCheckPrepareExt( " & bShowExtinfo & ",dctCheckInfo" & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_UncheckOptionConfigred(dctConfig As KFO.IDictionary, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_UncheckOptionConfigred( dctConfig" & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_UnCheckDone(ByVal lUnCheckNodeIndex As Long, ByVal bSucceed As Variant)

Debug.Print aTime & " m_ApprovalInterface_UnCheckDone( " & lUnCheckNodeIndex & "," & bSucceed & " )"
End Sub

Private Sub m_ApprovalInterface_AfterUnPassedCheck(ByVal dctCurrentNode As KFO.IDictionary, dctPrepareInfo As KFO.IDictionary, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_AfterUnPassedCheck( dctCurrentNode,dctPrepareInfo" & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_BeforeUnPassedCheck(ByVal dctCurrentNode As KFO.IDictionary, dctPrepareInfo As KFO.IDictionary, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_BeforeUnPassedCheck( dctCurrentNode,dctPrepareInfo" & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_MessageConfigred(MsgObj As Object, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_MessageConfigred( MsgObj" & "," & bCancel & " )"
End Sub

Private Sub m_ApprovalInterface_ReMixedCheck(ByVal lBillID As Long, ByVal dctError As KFO.IDictionary, dctBatchExtInfo As KFO.IDictionary, bReCheck As Boolean)

Debug.Print aTime & " m_ApprovalInterface_ReMixedCheck( " & lBillID & "dctError,dctBatchExtInfo," & bReCheck & " )"
End Sub

Private Sub m_ApprovalInterface_ReUnMixedCheck(ByVal lBillID As Long, ByVal dctError As KFO.IDictionary, dctBatchExtInfo As KFO.IDictionary, bReUnCheck As Boolean)

Debug.Print aTime & " m_ApprovalInterface_ReUnMixedCheck( " & lBillID & "dctError,dctBatchExtInfo" & bReUnCheck & " )"
End Sub

Private Sub m_ApprovalInterface_SubmitDone(ByVal lSubmitRouteIndex As Long, ByVal bSucceed As Variant)

Debug.Print aTime & " m_ApprovalInterface_SubmitDone( " & lSubmitRouteIndex & "," & bSucceed & " )"
End Sub

Private Sub m_ApprovalInterface_SubmitOptionConfigured(dctConfig As KFO.IDictionary, Cancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_SubmitOptionConfigured( dctConfig" & "," & Cancel & " )"
End Sub

Private Sub m_ApprovalInterface_SubmitPrepare(bShowConfigurationManager As Boolean, bCancel As Boolean)

Debug.Print aTime & " m_ApprovalInterface_SubmitPrepare( " & bShowConfigurationManager & "," & bCancel & " )"
End Sub