起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 390|回复: 20

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

[复制链接]
发表于 2007-5-29 13:21:55 | 显示全部楼层 |阅读模式
原版本2611,用发布工具将开发代码导出
安装新版本2800(包括开发和服务),用导入工具将代码导入
在流程代码中用到事务的都报错,错误提示如下图:
处理代码:
lTransactionHandle := dsbWSPLLD.DataSet.Connection.Transaction.Start(False);
    try
      // 数据处理  dsbWSPLLD.DataSet.ApplyUpdates(False);
      if FlowBroker1.FlowControl.FlowOut(nil) then
      begin              dsbWSPLLD.DataSet.Connection.Transaction.Commit(lTransactionHandle);      
      end;
     except
      on E : Exception do
      begin            dsbWSPLLD.DataSet.Connection.Transaction.Rollback(lTransactionHandle);      
        jsDialogs.MsgBox(0, 'µÝ½»[Êý¾Ý±£´æ]ÊÂÎñʱ·¢Éú´íÎ󣬲Ù×÷ÒѾ­±»È¡Ïû¡£' + E.Message, '´íÎóÌáʾ', 0);
      end;
    end;
原来在2611中正常,为何出现此现象???

Error.jpg

18.64 KB, 下载次数: 150

回复

使用道具 举报

发表于 2007-5-29 16:07:22 | 显示全部楼层
你跟踪了?是哪句报出来这个错误

你自己操作了 TFlow表了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-29 16:33:10 | 显示全部楼层
dsbWSPLLD.DataSet.Connection.Transaction.Commit(lTransactionHandle);
这句报错了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-29 16:37:43 | 显示全部楼层
我并未操作Tflow表啊,我的dsbWSPLLD是业务数据表,非系统的TFLOW数据表
回复 支持 反对

使用道具 举报

发表于 2007-5-30 11:24:17 | 显示全部楼层
由于新版本的流程控制了事务,升级后需要将一个开关变量关上。
具体如下:
在“业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体”
[Biz:\SYSTEM\COMPACTSTYLE\FORMLIBRARY.LIBRARY\STANDARDSTYLEMAINFORM.FORM]
的下面方法里增加后面那一句。
constructor TStandardStyleMainForm.Create(AContext: TContext);
begin
  Business.Model.Flow.Flow.FlowControlProviderTransaction := false;


注意:可能需要重新编译一下相应的功能。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 13:46:09 | 显示全部楼层
测试先....
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 15:22:21 | 显示全部楼层
错误依旧
步骤如下,按上面方法添加代码,编译标准风格主窗体,再编译功能业务信息,重启服务,测试
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 17:45:03 | 显示全部楼层
响应时间太长了。。能否快些
回复 支持 反对

使用道具 举报

发表于 2007-5-30 17:56:41 | 显示全部楼层
这样吧,你做个简单的例子,或者把原始的资源包上传上来,我们恢复环境来跟踪一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-31 15:42:00 | 显示全部楼层
小例子,帮忙测试下,我这边测试不成功

2007-5-31(CS).rar

1.04 MB, 下载次数: 32

回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-11 12:53 , Processed in 0.042087 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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