【搞定】升级后的流程问题**

atiger

好，正在下载回复环节跟踪，一有结果马上跟贴反馈

atiger

已经再现问题，正在找方法看看是否可以绕开，有结果马上跟贴告知

lisb

把5楼的那句代码加上
再把你的代码中的dsbWSPLLD.DataSet.ApplyUpdates(False); 这一句去掉应该就可以了。

ccjava

理解如下：
需要将作为流程事务的数据集提交更新取消是吗？
其他业务用到的数据集的提交更新不需要取消吧（如流程提交后有其他表数据需要更新）

能具体描述下现在版本中流程对功能环节流转后，数据更新事务处理是怎样的，有资料吗？？

ccjava

测试还是没有成功，问题依旧啊？？

lisb

我这边测试没有问题了啊，你5楼的方法加的对吗，注意要在 TStandardStyleMainForm.Create 这个过程中加在begin后第一句，加完之后要编译，签入，刷新缓存。

ccjava

系统中：
constructor TStandardStyleMainForm.Create(AContext: TContext);
var
  I: Integer;
//  lAccess: TDocAccess;
begin
  Business.Model.Flow.Flow.FlowControlProviderTransaction := False;

  // TODO: ReadSetting ÔÚForm.CreateWndÖе÷Óã¬inherited¿ÉÄÜ»á´Ì¼¤µ½´°Ìå´´½¨£¬ÕâÀï·Åµ½Ç°Ãæ
  FConfig := TMainFormConfig.Create;

  inherited;

功能：
var
  lTransactionHandle : TTransactionhandle;
begin
  lTransactionHandle := DataSetBroker1.DataSet.Connection.Transaction.Start(False);
  try
    DataSetBroker1.DataSet.Edit;
    DataSetBroker1.DataSet.FieldByName('HJ1').AsString := '++»·½Ú1';
    //DataSetBroker1.DataSet.ApplyUpdates(False);
    if FlowBroker1.FlowControl.FlowOut(nil) then
      DataSetBroker1.DataSet.Connection.Transaction.Commit(lTransactionHandle)
    else
      DataSetBroker1.DataSet.Connection.Transaction.Rollback(lTransactionHandle);
  except
    On E : Exception do
    begin
      DataSetBroker1.DataSet.Connection.Transaction.Rollback(lTransactionHandle);
      Dialogs.ShowMessage(E.Message + 'ÇëÔٴγ¢ÊÔ');
    end;
  end;
都编译了，但还是报错？？？

alang

楼主，问题搞定没有？

ccjava

没有，看了你们的文档，知道2800版本把流程中的更新都放入流程事务中了，现在都修改到流程的AfterFlowOut里面去处理更新了，这样正确否？请告知

lisb

楼主，这个问题已经确认了是新版本上改出来的问题，你的一楼的代码是没有问题的，我们会在后面的版本中把这个问题改掉，兼容你一楼的代码。现在在2800上你19楼的改法是正确的，在AfterFlowOut里的业务修改和流程流转会自动保证在一个事务里，你就不用再启动流程了。