WORKFLOW:dimmy路由不到下一环节问题
代理的代码：
Sub Initialize
' ---------------------------------------------------------------------
' --- Please enter your own code in the function "CustomSubroutine" ---
' ---------------------------------------------------------------------
Dim objAAAgent As New AutomatedActivityAgentTemplate
Dim objBinder As WFBinder
Dim datNextProcessingDate As NotesDateTime
Dim nSuspend As Integer, nSuccess As Integer
Dim strErrorText As String
Set objBinder = objAAAgent.GetFirstActivity
Do While Not objBinder Is Nothing
nSuccess = CustomSubroutine(objBinder.GetDocuments,objBinder.GetCover, objBinder.GetMain, strErrorText, datNextProcessingDate, nSuspend)
Call objAAAgent.UpdateActivity( objBinder, nSuccess, strErrorText, datNextProcessingDate, nSuspend)
Set objBinder = objAAAgent.GetNextActivity( objBinder )
Loop
objAAAgent.Update
End Sub
为什么dimmy路由不到下一环节
我调试了下 大概objBinder = objAAAgent.GetFirstActivity 这个就为空值
Sub Initialize
' ---------------------------------------------------------------------
' --- Please enter your own code in the function "CustomSubroutine" ---
' ---------------------------------------------------------------------
Dim objAAAgent As New AutomatedActivityAgentTemplate
Dim objBinder As WFBinder
Dim datNextProcessingDate As NotesDateTime
Dim nSuspend As Integer, nSuccess As Integer
Dim strErrorText As String
Set objBinder = objAAAgent.GetFirstActivity
Do While Not objBinder Is Nothing
nSuccess = CustomSubroutine(objBinder.GetDocuments,objBinder.GetCover, objBinder.GetMain, strErrorText, datNextProcessingDate, nSuspend)
Call objAAAgent.UpdateActivity( objBinder, nSuccess, strErrorText, datNextProcessingDate, nSuspend)
Set objBinder = objAAAgent.GetNextActivity( objBinder )
Loop
objAAAgent.Update
End Sub
为什么dimmy路由不到下一环节
我调试了下 大概objBinder = objAAAgent.GetFirstActivity 这个就为空值
5同行回答
浏览1325
浏览1331
第一步就是自动活动是不可以的收起
浏览1352
回复 2# shufangjian
就是因为上面链接中的问题
下面贴个找出没有活页夹文档的代码，仅供大家参考：
Sub Click(Source As Button)
On Error Resume Next
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Set db=session.CurrentDatabase
Set dc=db.UnprocessedDocuments
Dim doc As NotesDocument
Dim binddoc As NotesDocument
If dc.count>0 Then
For i=1 To dc.count
Set doc=dc.GetNthDocument(i)
If doc.BinderDocIDOS(0)<>"" Then
For j=0 To Ubound(doc.BinderDocIDOS)
Set binddoc = Nothing
Set binddoc=db.GetDocumentByUNID(doc.BinderDocIDOS(j))
If binddoc Is Nothing Then
Print doc.INSTANCEOS(0)
Msgbox doc.INSTANCEOS(0)+"-"+doc.UniversalID
End If
Next
End If
Next
End If
End Sub收起
就是因为上面链接中的问题
下面贴个找出没有活页夹文档的代码，仅供大家参考：
Sub Click(Source As Button)
On Error Resume Next
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Set db=session.CurrentDatabase
Set dc=db.UnprocessedDocuments
Dim doc As NotesDocument
Dim binddoc As NotesDocument
If dc.count>0 Then
For i=1 To dc.count
Set doc=dc.GetNthDocument(i)
If doc.BinderDocIDOS(0)<>"" Then
For j=0 To Ubound(doc.BinderDocIDOS)
Set binddoc = Nothing
Set binddoc=db.GetDocumentByUNID(doc.BinderDocIDOS(j))
If binddoc Is Nothing Then
Print doc.INSTANCEOS(0)
Msgbox doc.INSTANCEOS(0)+"-"+doc.UniversalID
End If
Next
End If
Next
End If
End Sub收起
浏览1338
浏览1365