【结贴】关于中止流程的问题

lxs202 · 发表于 2010-5-26 12:57:39

procedure THGZGHJL_form.ToolButton5Click(Sender: TObject);
var
  ds:Tdataset;
  lform:ZLGLXX_info.TQXYY_form;
  qx_yy:string;
begin
if  Business.Forms.jsDialogs.ConfirmBox('确认要中止吗?','提示信息',2) then
begin

   {
   lform:=ZLGLXX_info.TQXYY_form.Create(context);
   try
   if lform.ShowModal=Business.Forms.Controls.mrOk then
      qx_yy:=lform.Memo1.Text
   else
      exit;
   finally
   lform.Free;
   end;
   }
   ds:=ZLGLXX_info.TZLGLXX_info(InfoBrokerZLGLXX_INFO.info).DataSetHGZHFLCSJJ;
   ds.Edit;
   ds.FieldByName('qx_flag').AsInteger:=1;
   ds.FieldByName('qx_user').AsString:=SystemUtils.TContextUtils.GetOperator(self.Context).DisplayName; //操作者用户名
   ds.FieldByName('qx_dt').AsDateTime:=business.Data.SysSrv.SysService.Time;
   ds.FieldByName('qx_yy').AsString:=qx_YY;
   ds.Post;
   ToolButton1Click(nil);
   FlowAction_zz.Execute;//中止流程
end;
end;

不加被注释提的代码流程可以正常中止，反之流程不能中止

zfang · 发表于 2010-5-26 13:35:14

那你看一下，是否执行到了注释代码中的exit了。

lxs202 · 发表于 2010-5-26 13:40:53

没有

lxs202 · 发表于 2010-5-26 13:42:00

这句都执行了的 FlowAction_zz.Execute;//中止流程

zfang · 发表于 2010-5-26 13:45:30

你把注释代码放开，把else exit部分注释，再跑一下看看。
因为你1楼描述的加上那段代码和不加上那段代码结果不一样，那个代码的含义只是弹出一个窗口，然后填写点东西返回一个信息而已，对吧。另外，不能终止时也没报错吧？

lxs202 · 发表于 2010-5-26 14:43:13

刚刚又测了下。有新发现。
就是把一楼的注释放开，打个断点然后用F8执行，流程可以中止。取消断点就不能中止。

zfang · 发表于 2010-5-26 14:45:13

？不会这么神奇吧。

lxs202 · 发表于 2010-5-26 14:50:22

但事实就是这样的

lxs202 · 发表于 2010-5-26 14:51:34

就好象是DocView没有得到焦点

zfang · 发表于 2010-5-26 15:29:25

qq远程看一下吧，被搞晕了。
657944664

		自动登录	找回密码
密码			立即注册