碰到的错误 DWFActivityComplete
ErrorCode=3, Invalid access rights to complete Activity.
如果 已经执行过 DWFActivityClaim ,再次执行
然后到DWFActivityComplete 就会报错
如果DWFActivityClaim 没有被执行,直接执行DWFActivityComplete 也会报错
Function ActionCompleted(CoverDoc As NotesDocument,BinderDoc As NotesDocument,approver As String,decision As String,comment As String)
%REMDescription: 提交流程
Author: pgbiao
%END REM
On Error Goto erroHander
Dim ErrorMsg As String
Dim ErrorCode As Integer
Dim FailureList As Variant
Dim FailureText As String
Dim ImmediateRouting As Integer
Dim Errortext1 As String
Dim Success As Integer
BinderDoc.ApprovalChoiceOS =BinderDoc.ApprovalAlternativesOS(0)
BinderDoc.fx_DlgComment=comment
BinderDoc.fx_Comment= comment
BinderDoc.fx_AppChoice=decision
Call BinderDoc.ComputeWithForm( True, False )
BinderDoc.fx_AictivityUser= approver
Call BinderDoc.Save (True, False)
CoverDoc.ApprovalChoiceOS = decision
CoverDoc.fx_AictivityUser= approver
CoverDoc.fx_DlgComment= comment
Call CoverDoc.Save(True,False)
If BinderDoc.ActivityOwnerOS(0)="" Or CoverDoc.ActivityOwnerOS(0)=""Then
success = DWFActivityClaim(BinderDoc,approver, Errorcode, Errortext1)
End If
Call AddFlowLog(CoverDoc,BinderDoc,approver,decision,comment)
ImmediateRouting = True
success = DWFActivityComplete (BinderDoc.FolderIDOS(0) , ImmediateRouting,approver, FailureList, ErrorMsg, ErrorCode)
ActionCompleted=success
Exit Function
erroHander:
Msgbox "會簽審批:AddLog,line:" & Cstr(Erl) & ",error:" & Error
End Function