lFlowParam := TLoadFlowParam.Create;
lTaskParam := TLoadTaskParam.Create;
lTasks := TTasks.Create;
try
//根据ProductID,找到对应的流程Guid值
DoGetFlowGUIDs(lDataSet.FieldByName('Inst_ID').AsString, lFlowParam.GUIDs);
lTaskParam.States := [TTaskState.tsStarted, TTaskState.tsProcessing, TTaskState.tsWaiting];
//流程模型的BizURL
lFlowParam.ProcURLs.Add('Biz:\DMISXT\SBTYLC.Proc') ;
//过滤用户
lContextCurrent := TContextCurrent.Create(Context);
lOrgUnit := lContextCurrent.PersonMember;
ADept := lOrgUnit.Parent.Parent.ID;
ARole := lOrgUnit.Parent.ID;
APerson := lOrgUnit.ID;
lOrgURL := TOrgURL.Create(ADept, ARole, APerson); //部门ID,岗位ID,人员ID
lTaskParam.Receivers.Add(lOrgURL);
//以给定的条件查询任务(这里给定的条件由lFlowParam给出,根据流程Guid值查询,lTaskParam条件是按照任务状态,只查询出需要处理的任务)
Flow.FlowEngine.GetTasks(lFlowParam, lTaskParam, lTasks);
该怎么填加呢?
代码里没有传任务参数的地方,只有传一个流程的
该如何区分呢? |