【结】流程中止问题**

xhsoft

No.20  
if Command.FlowControl.Flow.Tasks[0].State =TTaskState.tsFinished then
begin
   dsb_dzqc.DataSet.Open;
   dsb_dzqc.DataSet.Edit;
   dsb_dzqc.DataSet.FieldByName('zt').AsString := '入档';
   dsb_dzqc.DataSet.ApplyUpdates;
end;

终止时,也执行以上代码


. . . . . . . . . . . . . . . . . .
为了更好的生活,奋斗!!




向版主反映这个帖子 | IP: 已记录


2008-08-28 11:54         



jiahaiming

[Justep Admin]


来自:
金钱:5252
发帖数: 8534
注册日期: 2006-04-25


No.21  
你把上面的代码，写在：
流程最后一个环节的AFTERFLOWOUT中。
中止的时候没有执行,上面的代码,流程完成的时候同样也没有执行,

xhsoft

procedure TDZQCChild.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  Inherited;
  if Command.FlowControl.Flow.Tasks[0].State =TTaskState.tsFinished then
begin
   dsb_dzqc.DataSet.Open;
   dsb_dzqc.DataSet.Edit;
   dsb_dzqc.DataSet.FieldByName('zt').AsString := '入档';
   dsb_dzqc.DataSet.ApplyUpdates;
end;

end;

xhsoft

dign

xhsoft

DDDDDDDDDDDDDDDDDDDDDDDD

xhsoft

在
procedure TDZQC.FlowBroker1AfterFlowAbort(Sender: TObject; Command: TFlowAbortCommand);
begin
  dialogs.ShowMessage('123');
end;
点终止后,为什么没有执行

Akon

你点的是那个终止,是主界面上终止按钮吗?

xhsoft

是的

Akon

那个是任务终止,你在FlowBroker1AfterTaskAbort就会有响应了

xhsoft

搞定