[请求]在一个事务中多次更新同一记录的问题**

liso

回复太慢了，我很急！请帮忙解决一下问题！

liso

我这个问题到底有没有处理，请给点回应吧。实在受不了了！！！

liso

数据库作为附件上传了
代码是在财务结算目录下的开票管理功能
里面的数据导航条中的保存按钮

liso

附件上传不了 要不给个QQ号

liso

现在数据库上传到ftp上了 链接如下
http://61.152.94.76/download/biyundataback.rar
请下载

liso

问一下，目前的情况怎么样？

alang

数据库恢复了，那个开票功能也运行了，不知道该怎么填数据
代码太长了，一时很难看完

目前看下下面这个函数在出错时候没有把错误报处理，怀疑跟这个有关，你增加红色的代码看看
static function TDBCOMMAND.OpenSqlex(FSql:string;FQuery:TQuery):TQuery;
begin
  FQuery.CommandText:=FSql;
  try
    FQuery.Open;
    Result:=FQuery;
  except
    Result:=nil;
    FQuery.Free;
    raise;
  end;
end;

alang

另外，跟编程习惯有关了，跟这个错误无关
               If lf_inv_available_valuta < lf_old_inv_fee Then
               begin
                 Business.Forms.Dialogs.ShowMessage('恢复结算单开票金额时出错：编号为' + ls_old_billid + '的结算单的已开票金额，不够扣减2。');
                 lQueryex.Connection.Transaction.Rollback(H);
                 SysUtils.Abort;
               end;
你可以写成
               If lf_inv_available_valuta < lf_old_inv_fee Then
                 raise Exception.Create('恢复结算单开票金额时出错：编号为' + ls_old_billid + '的结算单的已开票金额，不够扣减2。');

提交一个错误，自动就会停止后面代码的运行，执行Except里面的代码来回滚事务

alang

另外，出现错误的时候，看看tomcat的黑窗口上有没有其他的错误显示

liso

添加数据是这样：在发票头里面，客户要选普睿司曼电缆（上海）有限公司
然后点击 明细表中的结算单字段上的按钮，会弹出一个选择窗口，选择其中一条记录，按添加按钮就可以添加了，然后点确认返回主界面就可以保存了。
函数中加raise我先试一下再回帖，谢谢！