Blackpearl 流程啟動後如何更新 DataFiled & Folio

基本上在Workspace是沒有提供介面供修改,也不應該提供

只好透過API去修改囉

Dim conn As SourceCode.Workflow.Client.Connection = New SourceCode.Workflow.Client.Connection()
conn.Open("K2Server")
conn.ImpersonateUser(Me.txtUserID.Text.Trim())
Dim ps As SourceCode.Workflow.Client.ProcessInstance = conn.OpenProcessInstance("ProcInstID")
ps.Folio = "xxx"
ps.DataFields.Item("DataFieldName").Value = "xxx"
ps.Update()
conn.Close()