【结贴】关于批处理中遇到的问题**

sgmx

能快点吗

shangxy

No.8  
procedure TMainForm.Button1Click(Sender: TObject);
var
  i: Integer;
  lTask: TTask;
  lTasks: TList;
begin
  //流转的任务列表
  lTasks := TList.Create;
  try
    for i:= FlowBroker1.FlowControl.TaskCount-1 downto 0 do
    begin
      lTask := FlowBroker1.FlowControl.TaskByIndex;
      lTasks.Clear;
      lTasks.Add(lTask);
      FlowBroker1.FlowControl.FlowOut(lTasks);
    end;
  finally
    lTasks.Free;
  end;
end;


楼主执行这段代码的时候会出现几次流转对话框呢？
如果有2挑任务出现2次就对了，然后在根据我那个连接中6楼的代码完成点击主界面的流转按钮来流转两条数据

然后在环节或者flowbroker的OnFlowOutFlowTasks事件中指定每个任务的处理人，就可以了，如果不想出现流转对话框也可以取消了。

sgmx

是出现两次，能不能说一下flowbroker的onCreateFlowOutFlowTasks的事件中怎么写啊，能不能直接一次就把问题给解决了，不要问一下说一下

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=19618
12楼的代码楼主参考一下

sgmx

你好，我在“项目立项申请”环节中设置了组织机构表达式为“取环节的执行者”，代码为
GetProcUnitExecutor('XMLXSQ')
请问我在代码中写成
if SysUtils.SameText(lFlowTask.ProcUnit.ID, 'XMLXSQ') then
    begin
       //lField := DataSetBrokerbmxmhz.DataSet.FieldByName('xmfzr');
       lFlowTask.Executors.Clear;
       lFlowTask.ExecutorMustBeFuncOwner := True;
       lFlowTask.AllowExecutorRange := Org.OrgExpr.OrgChildren(GetProcUnitExecutor('XMLXSQ'), '', True);
     end;
提示Undeclared identifier "GetProcUnitExecutor"，请问我这样写对吗？要怎样实现我的功能？

jiahaiming

lFlowTask.AllowExecutorRange := Org.OrgExpr.OrgChildren(GetProcUnitExecutor('XMLXSQ'), '', True);
改成
lFlowTask.AllowExecutorRange := 'GetProcUnitExecutor(''XMLXSQ'')';

shangxy

嘿嘿，如楼上我写错误了。

sgmx

我如贾工所说改了，出现如下图所示问题，流程提交出去了，可是没有接收者！
lFlowTask.Executors.Add('GetProcUnitExecutor(''XMLXSQ'')');   都试了也不行！

在执行过程中用ctrl+f7跟踪了一下，发现'GetProcUnitExecutor(''XMLXSQ'')'的显示值为
GetProcUnitExecutor('XMLXSQ')

jiahaiming

设置完表达式后，执行一下这个语句。
procedure ReLoadAllowExecutors;
procedure ReLoadExecutors;

sgmx

运行到上图所示的位置提示错误