3012版本AfterFlowOut

liubin

现做3个功能A-B-C  在A和B功能的AfterFlowOut事件中加入如下代码
procedure TMainForm.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lstr:string;
begin
  lstr := 'update AM_TEVECTIONMAIN set State = ''2'' where ID = '''+DataSetBroker.DataSet.FieldByName('ID').AsString+'''';
  SetCallBack(lstr,Command);
end;


static procedure SetCallBack(ASQLText: string; ACommand: TFlowOutCommand);
const
  cSystemConnectionString = 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
var
  i : Integer;
  lTask : TTask;
  lQuery:TQuery;
begin
  for i := 0 to ACommand.FlowControl.TaskCount - 1 do
  begin
    lTask := ACommand.FlowControl.TaskByIndex as TTask;
    if lTask.State = TTaskState.tsFinished then
    begin
      lQuery:= TQuery.Create(nil);
      try
        lQuery.Close;
        lQuery.ConnectionString:= cSystemConnectionString;
        lQuery.CommandText := 'update TTASK set ECField07 = :s where FGUID = '''+lTask.GUID+'''';
        lQuery.Params[0].AsString := ASQLText;
        try
          lQuery.Execute;
        except

        end;
      finally
        lQuery.Free;
      end;
    end;
  end;
end;

就在在流转之后向任务表的ECField07字段更新数据，现在发现A流转到B，正常更新，B流转C数据更新不上，2个环节执行的上面同样的代码

liubin

在线等结果

liubin

经测试：B流转C执行到lQuery.Execute;其实数据已经更新了到数据库中了
1.平台创建C的任务时后续操作回滚数据了？
2.A流转到B可以保存，B到C时不可以，为什么？

zfang

1楼代码调试跟踪了吗？
可以正确执行吗？
很明显1楼的代码有问题呀：

lQuery.CommandText := 'update TTASK set ECField07 = :s where FGUID = '''+lTask.GUID+'''';
        lQuery.Params[0].AsString := ASQLText;

ASQLText = 什么？好像是传入的那个lstr吧，那个lstr是什么？是一个update的 sql语句。

liubin

1楼代码没有问题，测试过了，3楼说了 ，2.A流转到B可以保存，B到C时不可以，为什么？

liubin

有结果了吗？

aboy

关注！

zfang

抱歉，没有模拟出来你1楼的问题。
请楼主把资源包发一下吧（如果涉及到的资源多，是否可以做一个简单的可以说明此问题的例子）