【结贴】真不知道啥是对的了，哎！**

gaihl

表达式能预览出结果, 在执行时,就不会出现错误.

cdz0451

测试

cdz0451

按照人员设定

cdz0451

测试结果
   lFlowTask := Command.FlowTasks.FindFlowTask('SBJ');   //下一个流程环节的ID
   if(lFlowTask <> nil)then
   begin
      lFlowTask.Executors.Clear();

      oRes := TOrgURL.Create('CSB', 'GLGW', 'LS');
      lFlowTask.Executors.Add(oRes);
   end;
通过测试

cdz0451

调整测试数据： 测试失败

cdz0451

调整测试数据
   if(lFlowTask <> nil)then
   begin
      lFlowTask.Executors.Clear();
      sDeptId := 'CSB';
      sUserId := 'LS';

      oRes := TOrgURL.Create(sDeptId, 'GLGW', sUserId);
      lFlowTask.Executors.Add(oRes);

测试通过。
测试结论没有岗位时出现错误

cdz0451

分析结论
昨天也不知道那位大哥说的，没有岗位也好使！难道是骗人，这里没有岗位测试失败。
矛盾：昨天的那位大哥说的，没有岗位测试通过了，现在就不行了。
哎，真不知道啥是对的了

cdz0451

结贴吧
浪费时间，该功能不做了！连卖包子的老太太都知道TMD上帝是顾客！这世界变了。

kcyjy

Leader := InfoBroker1.Info.DataSetByID('QualityFeedback').FieldByName('Leader').AsString;
        lPersonMembers := TList.Create;
        try
          OrgSys.OrgSystem.GetPersonMembers(Leader,lPersonMembers);
        for j:=0 to lPersonMembers.Count - 1 do
        begin
          lPersonMember := TOrgUnit(lPersonMembers.Items[j]);
          if lPersonMember.Parent.Parent.ID= InfoBroker1.Info.DataSetByID('QualityFeedback').FieldByName('org').AsString then
          begin
          Position := lPersonMember.Parent.ID;
          LeaderDept := lPersonMember.Parent.Parent.ID;
          Break;
          end;
        end;
        finally
          lPersonMembers.Free;
        end;
        OrgURL1 := TOrgURL.Create(LeaderDept,Position,Leader);
        OrgURL2 := TOrgURL.Create(LeaderDept,Position,Leader);
        FlowTask1.Executors.Add(OrgURL1);
        FlowTask1.AllowExecutors.ADD(OrgURL2);
包子同志，刚刚我也碰到这个问题看看我的方法