规则

use "linkeyworkflow_engine3.0"
Sub Initialize
    On Error Goto errormsg
    
    
            
        dim enginedb as notesdatabase
        set enginedb=opendb("linkey_workflow_engine.nsf")　／／打开流程
         Dim paramid As String
        Dim agent As NotesAgent
        Dim ParamDoc As NotesDocument
        
        
        Dim  sql as string,fldLst as new lcfieldList
            dim doc  as notesdocument
            dim leader as string   
            leader="jardan"
            
            Set ParamDoc = New NotesDocument(enginedb)
        WF_Document.WF_OrUNID=WF_Document.WF_DocUNID(0)　／／右边的是父表单的域赋值给左边子表单的域
        WF_Document.WF_DocUNID=WF_Document.WF_DocUNID(0)
        WF_Document.UserName=WF_Document.Name(0)
        WF_Document.PGroup=WF_Document.ProjectGroup(0)
        WF_Document.PM=WF_Document.ProjectManager(0)
        
        WF_Document.MondayArrange=WF_Document.MondayManager(0)
        WF_Document.TuesdayArrange=WF_Document.TuesdayManager(0)
        WF_Document.WednesdayArrange=WF_Document.WednesdayManager(0)
        WF_Document.ThursdayArrange=WF_Document.ThursdayManager(0)
        WF_Document.FridayArrange=WF_Document.FridayManager(0)
        
        WF_Document.Monday=WF_Document.MondayDate(0)
        WF_Document.Tuesday=WF_Document.TuesdayDate(0)
        WF_Document.Wednesday=WF_Document.WednesdayDate(0)
                WF_Document.Thursday=WF_Document.ThursdayDate(0)
                WF_Document.Friday=WF_Document.FridayDate(0)

        WF_Document.WF_ProcessUNID="93AD9051A157760848257C87003715E7"
        call rdb.saveDocument(WF_Document,"BPM_MainData")
        
        
                  
                
        
        ParamDoc.Param_ProcessUNID="93AD9051A157760848257C87003715E7"／／流程ＩＤ
        ParamDoc.Param_UserName=leader
        ParamDoc.Param_StartNodeId="Node2"
        ParamDoc.Param_NextNodeId="Node3"
        'ParamDoc.Param_OrUNID=WF_Document.WF_DocUNID(0)
        ParamDoc.Param_DocUNID=WF_Document.WF_DocUNID(0)
        ParamDoc.Param_NextUserList=leader
        'ParamDoc.Param_Remark="请审批" '启动流程的意见
        ParamDoc.Param_Action="GoToNextNode"'动作
        Call ParamDoc.Save(True, False)
        paramid =ParamDoc.Noteid
        Set agent =enginedb.GetAgent("WF_StartNodeAPI")
        Call agent.Run(paramid)


Print "Content-Type:text/json; charset=UTF-8"
     Print |{lianxitel:"test"}|

    Exit Sub
errormsg:
    Msgbox "Rule Error:" & Str(Erl) & "  "
End Sub