起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 261|回复: 19

【结】流转问题:FlowBroker1BeforeFlowOut**

[复制链接]
发表于 2008-9-9 10:08:05 | 显示全部楼层 |阅读模式
无法进入 FlowBroker1BeforeFlowOut 执行代码.
我是想在向下前流转执行一段代码的.但是没有反应~
代码如下:


procedure TTSSH.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  i:integer;
begin
    i:=0;
    Dialogs.ShowMessage('0');//测试下是否执行这里,但是在运行根本没执行这里.
      DataSetBroker1.DataSet.First ;
      while not DataSetBroker1.DataSet.Eof do
      begin
        try
        Query1 :=TQuery.Create(Self);
        Query1.ConnectionString := 'DATABASEURL=Biz:\OABGZDHXT\BGZDHSJK.DATABASE';
        Query1.Close;
        Query1.CommandText := 'Update TSZB set JYSL=JYSL+'+DataSetBroker1.DataSet.FieldByName('JYSL').AsString+' where TSBH='''+ DataSetBroker1.DataSet.FieldByName('TSBH').AsString +'''';
        Query1.Execute;
        i:=1;
        except
          on e:Exception do
          Dialogs.ShowMessage(e.Message);
        end;
        DataSetBroker1.DataSet.Next;
      end;
    if i=1 then
     Dialogs.ShowMessage('库存量已经更改');

end;
回复

使用道具 举报

发表于 2008-9-9 10:10:16 | 显示全部楼层
是否有流程环境,初始化运行的吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 10:12:34 | 显示全部楼层
IE 打开的,但是 运行到里面应该出现 上面的 Dialogs.ShowMessage 吧, Message 都没有出现.流程下个节点是结束.
回复 支持 反对

使用道具 举报

发表于 2008-9-9 10:15:20 | 显示全部楼层
那你从studio中初始化运行看看呢。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 10:26:59 | 显示全部楼层
一样..在事件里面设置了断点,也一样不会停止.好象是根本没有进入 BeforeFlowOut   里面
回复 支持 反对

使用道具 举报

发表于 2008-9-9 10:37:58 | 显示全部楼层
.流程下个节点是结束?
那你写到 BeforeFlowFinish 上看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 10:47:48 | 显示全部楼层
对,下个节点是结束.
写在 BeforeFlowFinish 上了.也是没有出现   Dialogs.ShowMessage('0');  根本没有执行进去事件里.还有什么可能性的错误?断点跟踪, 也没有停止过.
回复 支持 反对

使用道具 举报

发表于 2008-9-9 11:05:46 | 显示全部楼层
写到其他环节上看看呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-9 11:15:44 | 显示全部楼层
其他环节上 可以执行.
审核是继承上一个环节的功能及窗体的.
回复 支持 反对

使用道具 举报

发表于 2008-9-9 11:28:51 | 显示全部楼层
那你把这个不行的功能的主窗体贴出来看
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-22 06:54 , Processed in 0.043549 second(s), 17 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表