【结】流程完成,和终止**

xhsoft

在流程完成事件中写了,一段代码
现在如果在某一环节终止了,也同样会执行那段代码
现在不想在终止的时候执行,怎么实现

Akon

那个事件，写下吧

xhsoft

procedure TDZQC.FlowBroker1AfterFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin

gaihl

用流程的状态试试是否可以区分开(fsAborted, fsFinished)
if Command.FlowControl.Flow.State = TFlowState.fsFinished then

xhsoft

procedure TDZQC.FlowBroker1AfterFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
if Command.FlowControl.Flow.State = TFlowState.fsFinished then
begin
   dsb_dzqc.DataSet.Open;
   dsb_dzqc.DataSet.Edit;
   dsb_dzqc.DataSet.FieldByName('zt').AsString := '入档';
   dsb_dzqc.DataSet.ApplyUpdates;
end;
end;

这样写是不是只有完成的时候,才=\入档
终止,不会=入档
对吗

shangxy

恩，应该是，你使用断点跟踪一下吧

atiger

这个你测试一下就知道了，你先做好测试看看，终止是否会触发你写的事件

xhsoft

结果:
终止后,也执行代码

shangxy

知道了，点击中止按钮的时候是任务中止了，不是流程中止了，这个时候流程的状态是完成状态，所有在5楼的代码中判断一下如果是任务的状态是TTaskState.tsFinished就对字段赋值就可以了

xhsoft

[警告] 循环引用: "Biz:\WJGLXT\DZWJ\DZWJ1\DZWJQC.FUNC"-->"Biz:\WJGLXT\DZWJ\DZWJ1\DZWJXX.INFO"-->"Biz:\WJGLXT\DZWJ\DZWJ1\DZWJXX.INFO"
[错误]Biz:\WJGLXT\DZWJ\DZWJ1\DZWJQC.FUNC.DIR\DZQC.FORM.PAS(36, 48): Undeclared identifier "ttsFinished"