起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 130|回复: 3

【搞定】阜阳:升级2827后错误**

[复制链接]
发表于 2007-9-28 14:14:56 | 显示全部楼层 |阅读模式
功能:检修-》缺陷管理-->延期审批 功能
在flowfnAfterFlowOut事件中,InfoBroker1.Info.DataSetByID('QXYQXW').ApplyUpdates;语句报错,
现象为:流转确定后,弹出“正在提交”信息窗体,无法向下流转。
procedure TYQSPForm.flowfnAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  InfoBroker1.Info.DataSetByID('DSFN').Edit;
  InfoBroker1.Info.DataSetByID('QXYQXW').Edit;
  InfoBroker1.Info.DataSetByID('DSFN').FieldByName('C8').AsString := '0';
  InfoBroker1.Info.DataSetByID('QXYQXW').FieldByName('N1').AsBoolean := True;
  //挂起
  if InfoBroker1.Info.DataSetByID('QXYQXW').FieldByName('N2').AsBoolean then
    InfoBroker1.Info.DataSetByID('DSFN').FieldByName('fnstate').AsString := '挂起'
  else
  begin
    if InfoBroker1.Info.DataSetByID('QXYQXW').FieldByName('C2').AsBoolean then
      InfoBroker1.Info.DataSetByID('DSFN').FieldByName('fncptm').AsDateTime :=
          InfoBroker1.Info.DataSetByID('QXYQXW').FieldByName('AgrD').AsDateTime;
  end;

  InfoBroker1.Info.DataSetByID('DSFN').ApplyUpdates;
  InfoBroker1.Info.DataSetByID('QXYQXW').ApplyUpdates;到此步有问题

end;
回复

使用道具 举报

 楼主| 发表于 2007-9-28 14:32:28 | 显示全部楼层
加update(false)后正常了
回复 支持 反对

使用道具 举报

发表于 2007-9-28 14:32:38 | 显示全部楼层
已经电话沟通了,正在等楼主的反馈
回复 支持 反对

使用道具 举报

发表于 2007-9-28 14:56:08 | 显示全部楼层
ok,结。
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-28 07:37 , Processed in 0.037001 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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