【结贴】[请求]帮忙看一个错误!**

rzport_jqf

想通过代码改变流程的默认执行者, 代码如下:

procedure TNG.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
   arrStr1: TStrings;
   arrStr2: TStrings;
   tmpStr1: String;
   tmpStr2: String;
   strChr1: String;
   strChr2: String;
   v_i:     Integer;
   lFlowTask:TFlowTask;
   lOrgURL: TOrgURL;
begin
    //Dialogs.ShowMessage('2');
    arrStr1 := TStringList.Create ;
    tmpStr1 :=  DataSetBroker1.DataSet.FieldByName('zs').AsString;
    strChr1 :=';';
    jsCommon.SplitStrEx(strChr1,tmpStr1,arrStr1);

    for v_i:=0 to (arrStr1.Count-1) do
    begin
         //Dialogs.ShowMessage( arrStr1[v_i] );
         arrStr2 :=  TStringList.Create ;
         tmpStr2 :=  arrStr1[v_i];
         strChr2 := '';
         jsCommon.SplitStrEx(strChr2,tmpStr2,arrStr2);

         lFlowTask := Command.FlowTasks.FindFlowTask('NGBMSH');//根据任务环节查找任务
         if lFlowTask <> nil then
           begin
                 dialogs.ShowMessage('hi');
                 lOrgURL := TOrgURL.Create('msk','ms','scp' ); //部门、岗位、人员创建组织
                 lFlowTask.Executors.Add(lOrgURL);//添加执行者
                 lOrgURL.Free;

         end;

         arrStr2.free;
    end;

    arrStr1.Free;

end;

当执行到 lOrgURL := TOrgURL.Create('msk','ms','scp' );  的时候报错, 如下图:

lixy

不要TOrgURL.Create，也不要Free
调用这个对象 Org.OrgSys.OrgSystem 的
function GetUnit(ADeptID: string; APositionID: string; APersonID: string): TOrgUnit; overload;
方法

rzport_jqf

还是有错误,在这句:

lFlowTask.Executors.Add(Org.OrgSys.OrgSystem.GetUnit('msk','ms','scp' ));//添加执行者

rzport_jqf

我把代码拆开来, 是这个函数调用有问题:

Org.OrgSys.OrgSystem.GetUnit

rzport_jqf

能否给出一段完整的改变默认执行者的代码?

lixy

'msk','ms','scp' 这个人员成员可能有问题
我单独放一个按钮  Org.OrgSys.OrgSystem.GetUnit('ASUPPORT','ENGINEER','ry1');  
不报错

rzport_jqf

确认了下,人员应该没有问题.

上面的错误点确定后, 错误会定位到如下图:

lixy

单独放一个按钮  Org.OrgSys.OrgSystem.GetUnit('msk','ms','scp' );  

是否报错？？？？

rzport_jqf

单独没有问题.

if lFlowTask <> nil then
           begin
                 //dialogs.ShowMessage('hi');
                 lFlowTask.Executors.Clear; //删除缺省执行者
                 //lOrgURL := TOrgURL.Create('秘书科','科长','张亮' ); //部门、岗位、人员创建组织单元
                 //lOrgURL := TOrgURL.Create(arrStr2[0],arrStr2[1],arrStr2[2] ); //部门、岗位、人员创建组织
                 //lOrgURL := TOrgURL.Create('msk','ms','scp' ); //部门、岗位、人员创建组织
                // lFlowTask.Executors.Add(lOrgURL);//添加执行者
                 //lOrgURL.Free;
                 //lTasks1.Add(lFlowTask);
                 //FlowBroker1.FlowControl.FlowOut(lTasks1); \
                 lOrgUnit := Org.OrgSys.OrgSystem.GetUnit('msk','ms','scp' );
                 //Org.OrgSys.OrgSystem.GetUnit('msk','ms','scp' );
                 lFlowTask.Executors.Add(lOrgUnit);//添加执行者
         end;

是在这句报错:

lFlowTask.Executors.Add(lOrgUnit);//添加执行者

lixy

这样写就可以了
var
lFlowTask:TFlowTask;
begin
         lFlowTask := Command.FlowTasks.FindFlowTask('LCZJGN');//根据任务环节查找任务
         if lFlowTask <> nil then
           begin
                lFlowTask.Executors.Clear;
                 lFlowTask.Executors.Add('ASUPPORT','ENGINEER','zs');//添加执行者

         end;

end;