【结贴】获取执行者人员名单**

lotus

请问如图，如何获得执行者人员名单，我在做了一个通知规则，希望能够发完这个通知之后获取这个执行者名单保存到一个字段中，请问如何实现？

gaihl

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

lotus

我不是说要代码指定执行者啊，我做的执行者可以在这个面板中选，不过点击确定以后要获得选定之后的这些人员名单！

gaihl

在AfterFlowOut事件中，流转之后，会触发这个事件

lotus

我在afterflowout事件中写了如下代码来获取人员名称，执行到红色部分就报错：Access violation at address 024F1506 in module 'CLRModel.bpl'. Read of address 0000004C，是为什么，该怎么解决？
procedure THYJLZCT.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  i:integer;
  lperson:Business.Model.Org.TPerson;
  s:string;
  lname:string;
  lsTemp:string;
begin
   lname:='';
   for i:=0 to Command.FlowTasks.FindFlowTask('FJ_1_HYJL').Executors.Count-1 do
   begin
        s:=Command.FlowTasks.FindFlowTask('FJ_1_HYJL').Executors.Items.PersonID;
        lPerson:= org.OrgSys.OrgSystem.GetPerson(s);
        lsTemp:= lPerson.DisplayName;
        if i=0 then lname:=lsTemp
        else lname:=lname+'，'+lsTemp;
   end;

          // l:= Command.FlowTasks.FindFlowTask('YWGN5').Executors.Items.
//end;
    DataSetBroker1.DataSet.edit;
    DataSetBroker1.DataSet.FieldByName('HYCJR').AsString := lname;
    DataSetBroker1.DataSet.Post;
    DataSetBroker1.DataSet.ApplyUpdates;
end;

gaihl

lFlowTask : TFlowTask;
  ProcUnit : TProcUnit;
begin
   lname:='';
   ProcUnit := FlowBroker.FlowControl.CurrentProcUnit.SuccedentUnits[0];
lFlowTask := command.FlowTasks.GetFlowTask(ProcUnit);       //下一环节任务

lName := lFlowTask.Executors.Items.DeptID //变量i指第i个执行者

shangxy

楼主在flowbroker的afternotify事件中添加如下代码试试：
procedure TYWLC1.ProcUnitRKAfterNotify(Sender: TObject; Command: TFlowNotifyCommand);
var i,j :integer;
begin
  for i:=0 to command.FlowTasks.Count-1 do
  begin
   for j:=0 to command.FlowTasks.Executors.count-1 do
   begin
     Dialogs.ShowMessage(command.FlowTasks.Executors[j].PersonID);
   end;
  end;
end;

lotus

谢谢，但是这里你给出的代码是人员ID，如何求得姓名呢，是需要到表里面去查，还是直接可以用代码转换呢？如果是代码的话，能否给出？

gaihl

http://bbs.justep.com/forumdisplay.php?s=&forumid=26
请到 组织机构 中查看，有很多实例代码

lotus

好了 可以结贴了 谢谢