【结】流转问题:FlowBroker1BeforeFlowOut**

crystal

无法进入 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;

zfang

是否有流程环境，初始化运行的吗？

crystal

IE 打开的,但是 运行到里面应该出现 上面的 Dialogs.ShowMessage 吧, Message 都没有出现.流程下个节点是结束.

zfang

那你从studio中初始化运行看看呢。

crystal

一样..在事件里面设置了断点,也一样不会停止.好象是根本没有进入 BeforeFlowOut   里面

atiger

.流程下个节点是结束？
那你写到 BeforeFlowFinish 上看看

crystal

对,下个节点是结束.
写在 BeforeFlowFinish 上了.也是没有出现   Dialogs.ShowMessage('0');  根本没有执行进去事件里.还有什么可能性的错误?断点跟踪, 也没有停止过.

zfang

写到其他环节上看看呢？

crystal

其他环节上 可以执行.
审核是继承上一个环节的功能及窗体的.

zfang

那你把这个不行的功能的主窗体贴出来看