Commit as vezes nao grava.

Delphi

20/03/2007

Ola estou com o seguinte problema,
ao fechar uma venda faço um while no clientdataset e chamo a procedure de baixa de estoque, mas essa as vezes nao grava o valor no banco. Uso componentes da paleta Interbase.
A função sempre retorna true, mas nen sempre grava o novo estoque no banco de dados.
Codigo: 


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;


Obrigado, espero que possam me ajudar...


Daniel.felgar

Daniel.felgar

Curtidas 0

Respostas

Diegus

Diegus

20/03/2007

Quando vc grava da alguma mensagem de erro?

Se não, faça o seguinte:

No evento onReconcileError do CDS,

Coloca ShowMessage(e.message);

e vê se aparece algum erro...

talvez está dando erro mas o CDS não está te mostrando...

Será q ajuda?

Att.


GOSTEI 0
POSTAR