【搞定】如何代码控制流程的流转**

iamzf

比如一个流程：A－B－C
有一种特殊情况是某个岗位下面的人员，就直接由流程A转到C，而无需经过流程B。
取岗位或者限定部门之类的都没任何问题，我现在的问题是如何将A的下一流程点的功能指定到C，我用Command.FlowTasks.FindFlowTask('C')有问题，FlowBroker1.FlowControl.CurrentProcUnit.GetSuccedentUnits好像也有问题，还请帮忙看看！

lisb

改一下你的流程图，A下边就分出来两个支，然后在A环节的执行规则中来判断具体要走哪个分支。

iamzf

最初由 lisb 发布
[B]改一下你的流程图，A下边就分出来两个支，然后在A环节的执行规则中来判断具体要走哪个分支。 [/B]

我知道这样改可以实现，但是这牵涉到几乎所有的流程，所以不想在表中增加字段来做判断条件，影响太大了一点。
比如所有的流程都有提交和审核两个点，如果提交人和审核人是同一个，那么提交完了之后再给自己审核，没有任何意义啊！
所以想通过代码来控制流转，不需要更改表结构，也简单一点。

iamzf

没人回答么？很紧急的问题啊！！
自己顶一下，别沉了！！！

lisb

流程可以这样画，条件分支的条件可以用一个参数来做判断，不用改表结构。

iamzf

最初由 lisb 发布
[B]流程可以这样画，条件分支的条件可以用一个参数来做判断，不用改表结构。 [/B]

我建了一个业务参数，按照你的图示来改流程。
我在A的OnCreateFlowOut事件里来设置业务参数的值，代码如下：
procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
    lParam: TBizParam;
    lBizURL: TBizURL;
    lContextCurrent: Business.Model.TContextCurrent;
    postid:string;
    lOrgURL: TOrgURL;
begin
     lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
     postid:=lContextCurrent.PersonMember.Parent.id;
     lBizURL := TBizURL.Create;
     lBizURL.URL := 'Biz:\NRJBYWKJ\CCCSZ.ParamGroup';
     lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL.URL, 'GW');
     lParam.Value := '0';
     if postid='JL' then lParam.Value := '1';
end;

但是好像对业务参数的赋值不成功，不知道问题在那里，还请帮忙看看。

iamzf

没人搭理？？

yancm

lBizURL.URL := 'Biz:\NRJBYWKJ\CCCSZ.ParamGroup';
lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL.URL, 'GW');

改成：
lBizURL.URL := 'Biz:\NRJBYWKJ\CCCSZ.ParamGroup/GW.Param';
lParam := lContextCurrent.GetParam(lBizURL);

dawson

8楼,两段代码是等价的!

yancm

汗，应该是一样的，没注意。

什么叫好像没成功。
那你跟踪一下，看在事件结束时是否赋值成功？
或者在后面重新获取参数取值看看能否取到