Fórum Commit as vezes nao grava. #339050

function TdmMov.AtuEstoque(classEstoque: TEstoque): Boolean;
begin
  trEstoque.StartTransaction;
  with spManutEstoque do
  begin
    Close;
    StoredProcName := ´ESTOQUE_IU´;
    ParamByName(´pcodloja´).value := classEstoque.codloja;
    ParamByName(´pcodproduto´).value := classEstoque.codproduto;
    ParamByName(´PETOTAL´).value := classEstoque.etotal;
    try
      spManutEstoque.ExecProc;
      trEstoque.Commit;
      result := True;
    except
      trEstoque.Rollback;
      result := False;
    end;
  end;
end;