单据保存时出现的错误**

wqh

在库存管理中做出入库单据，进行保存的时候出现的情况：
   原来我们保存的时候没有检查物料的库存。进行保存没有任何问题。
  现在我们加上了检查物料的库存，就是在保存前查询物料的库存数量是否满足。这样后容易出现如下的提示：
   我查询库存用的Select语句。麻烦帮我分析下原因。谢谢。

wqh

我们的版本是 2800 数据库是 Oracle10g.

wqh

保存代码如下；

if not TINFO_LBJDB(InfoBroker.Info).CheckOut_KC_Input(FOperstatus) then exit;  //检查库存是否满足条件
  
with DS.Connection.Transaction do
    begin
      lTransactionHandle := Start(False);    //启动事务 Start
      try
        DS.ApplyUpdates;
        DetailDS.ApplyUpdates;
        if not TINFO_LBJDB(InfoBroker.Info).updateStockKC_SAVE(FOperstatus) then raise exception.Create('更新库存信息失败');
        Commit(lTransactionHandle);   //  提交事务
      except
        Rollback(lTransactionHandle);  //回滚事务
        raise;
      end;

    end;

wqh

检查库存的过程代码： CheckOut_KC_Input
   

DataSetSC_DETAIL_DS.DisableControls;
  try
    DataSetSC_DETAIL_DS.First ;
    while not DataSetSC_DETAIL_DS.Eof do
    begin
      if WSL.TWSL.IsKC_UpZero then   //检查库存
      begin
        kcDS.Data:=WSL.TWSL.GetSingleStockOutQty(
                     DataSetSC_MAIN_DS.Connection,
                     bill_id,
                     DataSetSC_DETAIL_DS.FieldByName('material_id').asString,
                     DataSetSC_MAIN_DS.FieldByName('src_store_id').AsString,
                     DataSetSC_DETAIL_DS.FieldByName('provider_id').asString);

        if kcDS.IsEmpty   then raise exception.Create('内部错误：获得物料库存信息失败！');
        if kcDS.RecordCount<>1 then raise exception.Create('内部错误：物料库存信息不唯一！');

        if  kcDS.FieldByName('curstock').AsFloat <DataSetSC_DETAIL_DS.FieldByName('qty').AsFloat then
        begin
          jsDialogs.ShowError('库存数量不足！ 当前物料号： '+DataSetSC_DETAIL_DS.FieldByName('CODE').asString+' 当前可用库存：'+SysUtils.FloatToStr(kcDS.FieldByName('curstock').AsFloat ),'系统提示');
          exit;
        end;
        if DataSetSC_DETAIL_DS.FieldByName('src_stock_id').AsString<>kcDS.FieldByName('id').AsString then
        begin
          DataSetSC_DETAIL_DS.Edit;
          DataSetSC_DETAIL_DS.FieldByName('src_stock_id').AsString :=kcDS.FieldByName('id').AsString ;
          DataSetSC_DETAIL_DS.Post ;
        end;
DataSetSC_DETAIL_DS.Next ;
    end;
    ReSult:=true;
  finally
    DataSetSC_DETAIL_DS.EnableControls;
    kcDS.Free;
  end;

lixy

注释掉这句还报错吗？

if not TINFO_LBJDB(InfoBroker.Info).CheckOut_KC_Input(FOperstatus) then exit;  //检查库存是否满足条件

lixy

感觉这个 GetSingleStockOutQty和updateStockKC_SAVE使用了同样的数据链接了。
不要用GetSingleStockOutQty，自己用一个单独的数据集做查询用。

wqh

注释掉就没有那个问题了。

wqh

但是 调用GetSingleStockOutQty 时候并没有开始事务啊。

lixy

不要用GetSingleStockOutQty，自己用一个单独的数据集做查询用。可能那个函数和这个有关联。

wqh

这个函数是我自己写的。除了数据库连接是同一个外，没有其他特别的地方。