[分享]流程揭密2－流程中的控制**

alang

流程的控制是通过流程以及各个环节上定义的规则、流程以及环节上定义的流程事件、流程代理上定义的流程事件来控制的。
流程中的各种规则在《用户手册》中有说明，这里主要是写流程的各种事件。

关于流程各种事件的说明，请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=730

alang

在过程模型上（简单的说就是流程图上）可以定义流程事件
在环节的功能窗体上，可以放流程代理（TFlowBroker），定义流程事件
这两者的事件都会触发，区别在于：
过程模型上定义的事件总是会触发，而定义在环节上的事件只有在这个环节触发的事件才可以执行。

比如：一个简单的流程，有三个环节，ABC
开始 -> A -> B -> C -> 结束

如果在A功能的FlowBroker上定义OnFlowFinish事件，在C环节流转结束整个流程时候，不会触发A功能上定义的OnFlowFinish事件；但是如果在C环节定义了这个事件就会触发。

alang

一个标准的流转动作，会顺序触发以下事件：

• 根据流转规则，判断是否可以流转
• 触发BeforeFlowOut 事件
• 启动非立即事务
• 根据流程定义查找允许的下一个环节，如果有条件环节、条件分支环节，触发OnCalcProcCondition 事件
• 根据流程下一个环节的执行规则，创建流程任务FlowTask
• 触发OnCreateFlowOutFlowTasks事件
• 如果没有屏蔽流转对话框，弹出流转对话框，用户选择任务和执行者等，点击确定；如果取消，则退出执行下面的过程
• 触发BeforeNotify 事件
• 触发OnCreateNotifyFlowTasks  事件
• 触发AfterNotify 事件
• 触发AfterFlowOut 事件
• 提交事务
  [/list=1]
  在任何一个事件处理程序中，如果出错，
  比如
  或者 f := f/0;
  或者 SysUtils.Abort;
  或者 raise Exception.Create('');
  都会造成流转不成功
  
  造成流转不成功的还有在任何一个事件处理程序中，包括AterFlowOut中
    Command.Accept := False

alang

一般在BeforeFlowOut事件中，判断是否可以流转
Command.Accept为真，可以流转，
Command.Accept为假，就不允许流转

在OnCreateFlowOutFlowTasks事件中，对任务主题、限制事件，执行者等做修改，这个修改会出现在流转对话框中。
如果 Command.UserConfirm为真 就弹出流转对话框，为假就不弹出流转对话框了
如果在业务数据已经指定了执行者，可以在这个事件中对   Command.FlowTasks.FindFlowTask('下个环节ID').Executors 赋值

在AfterFlowOut 事件中修改业务数据的状态，或者在业务数据表中记录执行者等

alang

在BeforeFlowOut OnCreateFlowOutFlowTasks AfterFlowOut 事件中，参数Command 是TFlowOutCommand类的

TFlowOutCommand = class(TFlowTaskGraphCommand)
TFlowTaskGraphCommand = class(TFlowTaskCommand)
TFlowTaskCommand = class(TFlowActionCommand)
public
  constructor create(AID: Shortint; AFlowControl: TFlowControl);
  procedure Destroy; override;
  //待选择的流程任务，流转对话框中，所有可选的环节
  property AllowFlowTasks: TFlowTasks; readonly;
  //已经选中的流程任务，流转对话框中，默认选中的环节
  property FlowTasks: TFlowTasks; readonly;
  property ShowUnPassPath: Boolean;
  //UserConfirm和UserModify一样，都是是否弹出选择对话框来供用户选择
  property UserConfirm: Boolean;
  property UserModify: Boolean;
end;

AllowFlowTasks和FlowTasks只有在Or或者Xor时候才会不一致。
UserModify是兼容性保留的，建议用UserConfirm

alang

TFlowTask 的属性和方法
  //允许的执行者表达式
  property AllowExecutorRange: string;
  //OrgURL方式的允许的执行者
  property AllowExecutors: Business.Model.Org.TOrgURLs;
  //选中的执行者表达式
  property ExecutorRange: string;
  //OrgURL方式的选中的执行者
  property Executors: Business.Model.Org.TOrgURLs;

alang

允许的执行者

alang

3

alang

4

alang

在流程事件中，修改数据集只需要提交，不需要做事务控制，因为流程中所有的业务数据和流程控制数据都自动放在一个事务中了。参考 http://wiki.justep.cn/%E4%BA%8B% ... 73a56db2280784acbff
例如：在流转以后修改状态字段
procedure TMainForm.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  DataSetBroker1.DataSet.Edit;
  DataSetBroker1.DataSet.FieldByName('PRODUCTTYPE').AsString := '1';
  DataSetBroker1.DataSet.Post;
  DataSetBroker1.DataSet.ApplyUpdates;
end;