【结】添加执行者

yellowspring

已知人员ID，怎样把流转的执行者改为这个人？

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=1207

yellowspring

但是现在只知道人员ID,部门，岗位都不知道，怎么办？

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=2465

yellowspring

lPersonMembers := TList.Create;
   try
      if DataSetBroker_GZP.DataSet.Active = false then
      begin
         DataSetBroker_GZP.DataSet.Active := true;
      end;
      strGZFZRID := DataSetBroker_GZP.DataSet.FieldByName('GZFZRID').AsString;
      OrgSys.OrgSystem.GetPersonMembers(strGZFZRID, lPersonMembers); //人员ID为zxx
      if lPersonMembers.count >0 then
      begin
          lFlowTask := Command.FlowTasks.FindFlowTask('SSGZP');//根据任务环节查找任务
          if lFlowTask <> nil then
              lFlowTask.Executors.Clear;   //删除缺省执行者
          else
              exit;
          for I := 0 to lPersonMembers.count - 1 do
          begin
             lPersonMember := TOrgUnit(lPersonMembers.Items[I]);
             //ls := '岗位名称：' + lPersonMember.Parent.DisplayName + '  部门名称:' +
             //lPersonMember.Parent.Parent.DisplayName + '  机构名称:' +
             //lPersonMember.Parent.Parent.Parent.DisplayName;
             //MemoResult.Lines.Add(ls);
             lOrgURL := TOrgURL.Create(lPersonMember.Parent.Parent.ID,lPersonMember.Parent.ID,strGZFZRID ); //部门、岗位、人员创建组织单元
             lFlowTask.Executors.Add(lOrgURL);//添加执行者
          end;
      end;
   finally
     lPersonMembers.Free;
   end;

为什么我FindFlowTask为空呢？确实有这个环节啊

shangxy

lFlowTask := Command.FlowTasks.FindFlowTask('SSGZP');
FindFlowTask里面的参数是将要流转到的活动环节的id，如果这里为空，那就是说默认没有流转到这个环节或者流转到其他环节去了，在这个环节上没有产生流程任务。

yellowspring

搞定，谢谢。