【搞定】关于流程事件的问题**

bearnet

我想限制执行人的范围, 根据人员的部门和岗位来限定,但是发现如果用FlowBroker1BeforeFlowOut, 就是找不到指定的环节,而如果用FlowBroker1CreateFlowOutFlowTasks事件,就能找到, 我觉得很奇怪,是不是与环境有关呢?
代码如下
procedure TQB_ZPZX.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var //lDeptID: string;
     lFlowTask:TFlowTask;
     lexecrange:string;
     lperson: string;
begin
    lFlowTask:=command.FlowTasks.FindFlowTask('QB_ZX') ;
    // lexecrange:='';
    // ldeptID:='';
    if lflowTask<>nil then  //这个事件下,lflowtask是找到了.
      begin
         //  ldeptID:=datasetbroker1.dataset.fieldbyname('ZXBM').asstring; //取得字段内容,为执行部门id串
          lflowtask.ProcUnit.ID :='QB_ZX';
          lFlowTask.Executors.Clear;
            //OrgChildren(OrgKey('lDept', 'JL', '') , '', False, False)
          lperson:=
          lexecrange:='OrgChildren(OrgKey('''+datasetbroker1.dataset.fieldbyname('ZXBM').asstring+''',''YHBMZH'',''''),'''',false,false)';
         lFlowTask.AllowExecutorRange:=lexecrange;
         lFlowTask.ExecutorRange:=lexecrange;

      end;
end;

procedure TQB_ZPZX.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);

var
     lFlowTask:TFlowTask;
     lexecrange:string;
begin
     lFlowTask:=command.AllowFlowTasks.FindFlowTask('QB_ZX'); //FindFlowTask('QB_ZX') ;
     if lflowTask<>nil then    //在这个事件下,lflowtask是空的
      begin
         //  ldeptID:=datasetbroker1.dataset.fieldbyname('ZXBM').asstring; //取得字段内容,为执行部门id串
          lflowtask.ProcUnit.ID :='QB_ZX';
          lFlowTask.Executors.Clear;
            //OrgChildren(OrgKey('lDept', 'JL', '') , '', False, False)
          lexecrange:='OrgChildren(OrgKey('''+datasetbroker1.dataset.fieldbyname('ZXBM').asstring+''',''YHBMZH'',''''),'''',false,false)';
         lFlowTask.AllowExecutorRange:=lexecrange;
         lFlowTask.ExecutorRange:=lexecrange;

      end;
end;

bearnet

再补充一下, 其中datasetbroker1.dataset.fieldbyname('ZXBM').asstring 中的ZXBM是临时字段

alang

请看
http://bbs.justep.com/forum.php?mod=viewthread&tid=730

• 根据流转规则，判断是否可以流转
• 触发BeforeFlowOut事件
• 根据流程定义查找允许的下一个环节，如果有条件环节、条件分支环节，触发OnCalcProcCondition事件
• 根据流程下一个环节的执行规则，创建流程任务FlowTask
• 触发OnCreateFlowOutFlowTasks事件
• 如果没有屏蔽流转对话框，弹出流转对话框，用户选择任务和执行者等，点击确定；如果取消，则退出执行下面的过程
• 触发AfterFlowOut事件
  [/list=1]
  
  
  在BeforeFlwoOut事件中，还计算下一个环节是谁，当然就找不到了

bearnet

我可是按照http://bbs.justep.com/forum.php?mod=viewthread&tid=4085 这个帖子的内容做的啊

alang

不好意思，那个帖子有问题，已经修改了，多谢bearnet

bearnet

procedure TQB_ZPZX.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var //lDeptID: string;
     lFlowTask:TFlowTask;
     lexecrange:string;
     lperson: string;
begin
    lFlowTask:=command.FlowTasks.FindFlowTask('QB_ZX') ;
    // lexecrange:='';
    // ldeptID:='';
    if lflowTask<>nil then
      begin
         //  ldeptID:=datasetbroker1.dataset.fieldbyname('ZXBM').asstring; //取得字段内容,为执行部门id串
          lflowtask.ProcUnit.ID :='QB_ZX';
          lFlowTask.Executors.Clear;
            //OrgChildren(OrgKey('lDept', 'JL', '') , '', False, False)
         // lperson:=
          lexecrange:='OrgChildren(OrgKey('''+datasetbroker1.dataset.fieldbyname('ZXBM').asstring+''',''YHBMZH'',''''),'''',True,false)';
         lFlowTask.AllowExecutorRange:=lexecrange;
      //   lflowtask.ExecutorKinds :=[TTaskExecutorKind.ekPersonMember];
         lFlowTask.ExecutorRange:=lexecrange;


      end;
end;

alang

就差一句话，把
lFlowTask.Executors.Clear; 注释掉

bearnet

的确好了,谢谢alang的鼎力相助,结贴吧.

kitchan

发错了 不好意思