关于流程流转的问题

lotus

在流程图中间可以设置当前环节向下环节发送的执行规则吗？要如何传入参数（部门编号），并使用参数达到向下环节流转时能指定到我传入的参数对应的部门

lotus

流程图中的执行者要怎么增加和使用？谢谢

lotus

在组织机构为上下级的情况  如果上级的一个部门要发送流程给下级单位进行处理时，怎么通过传入下级单位的编号判断流程的发送？

lotus

执行者规则怎么使用？

dynasty0628

用代码更改流程的执行者

lotus

能举个例子吗？谢谢

zfang

楼主，可以拿：代码*执行者
在论坛里搜索一下
http://bbs.justep.com/search.php ... ortorder=descending

dynasty0628

分享我自己建的公共函数库中的几个相关函数。

static procedure TFlowRelated.ModifyExecutorRangeByPersonList(Command:TFlowOutCommand;ANextProcUnit:string;APersonList:Tstrings;AAssignMode:TTaskAssignMode;AExecutorAmount:TTaskExecutorAmount);
var
  lFlowTask:TFlowTask;
  i:integer;
  lPersonList,lURLList:TStringList;
  lRange, deptID, PosID, PsnId: string;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
  if lFlowTask <> nil then
  begin
    lPersonList:=TStringList.Create;
    lURLList:=TStringList.Create;
    try
      lFlowTask.ExecutorAmount:= AExecutorAmount; //TTaskExecutorAmount.teaMulti;
      lFlowTask.ExecutorKinds := [TTaskExecutorKind.ekPersonMember]; //执行者类型   人员成员
      lFlowTask.AssignMode := AAssignMode;// TTaskAssignMode.amSingleness;
      case  AAssignMode of
        TTaskAssignMode.amSingleness:
        begin
          lFlowTask.ExecuteMode := TTaskExecuteMode.emExclusive;
        end;
        TTaskAssignMode.amTogether:
        begin
          lFlowTask.ExecuteMode := TTaskExecuteMode.emSimultaneous ;  //任务执行方式  同时执行
        end;
      end;
      lFlowTask.AllowExecutors.Clear;
      lFlowTask.Executors.Clear;
      for i := 0 to  APersonList.Count -1 do
      begin
          lPersonList.Clear;
          TPerson.GetPersonURLsByID(ApersonList.Strings,lPersonList);
          if  lPersonList.Count > 0 then
          begin
             TPerson.AnalysisURL(lPersonList.Strings[0],DeptID,PosID,PsnID);
             if lRange = '' then
                lRange:= ' OrgKey('''+  DeptID + ''',''' + PosID + ''',''' + PsnID+ ''') '
             else
                lRange:= lRange + ' or OrgKey('''+  DeptID + ''',''' + PosID + ''',''' + PsnID+ ''') '
          end;
      end;
      lFlowTask.AllowExecutorRange:= lRange;
      lFlowTask.ReLoadAllowExecutors;
      lFlowTask.ReLoadExecutors;
    finally
      lPersonList.Free;
      lURLList.Free;
    end;
  end;
end;

static procedure TPerson.GetPersonURLsByID(ID: string; var URLs: TStringList);
//根据一个ID获取所有的URL
var
  lExpr: string;
begin
  lExpr:= 'OrgCondition(''' + ID + '.psm'','''','''')';
  OrgSys.OrgSystem.GetBizURLsByOrgExpr(lExpr,URLs);
end;

static procedure TPerson.AnalysisURL(URL: string; var DeptID, PositionID, PersonID: string);
var
  lOrgUnit: TOrgUnit;
  lBizUrl: TBizUrl;
begin
    lBizUrl:= TBizUrl.Create;
  try
    if IsValidUrl(URL) then
    begin
          lBizUrl.URL:= URL;
          lOrgUnit:= OrgSys.OrgSystem.GetUnit(lBizUrl);
           case TBizObjectKind(lOrgUnit.OrgKind) of
           TBizObjectKind.boDept:  //选中部门
             begin
               DeptID:= lOrgUnit.ID;
               PositionID:= '';
               PersonID:= '';
             end;
           TBizObjectKind.boPositionMember:  //选中岗位
             begin
               DeptID:= lOrgUnit.Parent.ID;
               PositionID:= lOrgUnit.ID;
               PersonID:= '';
             end;
           TBizObjectKind.boPersonMember:  //选中人员
             begin
               DeptID:= lOrgUnit.Parent.Parent.ID;
               PositionID:= lOrgUnit.Parent.ID;
               PersonID:= lOrgUnit.ID;
             end;
           TBizObjectKind.boOrgan:
             begin
               DeptID:= '';
               PositionID:= '';
               PersonID:= '';
             end;
          end; //case
   end;
  finally
    lBizUrl.Free;
  end;
end;

dynasty0628

static function TPerson.IsValidUrl(URL: string): Boolean;  //判断一个URL是否有效
var
lOrg: TOrgTree;
begin
  lOrg:= TOrgTree.Create(Business.System.BizServer.ServerID);
  try
    if lOrg.FindNodeByFileName(URL) <> nil then
      result:= True else result:= False;
  finally
     lOrg.Free;
  end;
end;

lotus

procedure TFWTSCLZCT.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
  lOrgURL:String;

begin
  Inherited;

     lFlowTask := Command.FlowTasks.FindFlowTask(FlowBroker1.FlowControl.CurrentTask.ProcUnitID);
// 我使用这句的时候 lFlowTask 为空对象。
     lFlowTask := Command.FlowTasks[1];
//使用这句的时候报数组越界
     if lFlowTask <> nil then
      begin
       dialogs.ShowMessage('1111111');
       { lFlowTask.Executors.Clear;   //删除缺省执行者
         lOrgURL := TOrgURL.Create('XSB','XSY',ZXX' ); //部门、岗位、人员创建组织单元
         lFlowTask.Executors.Add(lOrgURL);//添加执行者
       }
       end;


end;