ActiveDelphi

[porter]

ola pessoal, pelo debugador percebi que esse beforepost esta sendo executando no Append e no Post do clientdataset, nao estou entendendo o que ha de errado, ele so deve ser executado no Post somente, estou usando o Delphi 7, firebird com clientdataset e a rotina abaixo tem a funcao de fazer um contador e gravar no campo ID.
obrigado.

[joemil]

por acaso, antes do append, vc ta dando um post?

qdo vc da um append, e o registro ainda nao foi gravado, o post é executado automaticamente
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[porter]

Estou fazendo conforme descrito abaixo.
a rotina abaixo é executada para desmembrar um valor, por exemplo se for desmembrar 10000 em duas vezes essa rotina vai gerar dois registros de 5000, só nao estou entendendo porque o beforepost executa no append e no post, a cada registro tem que executar apenas no post.

procedure TFrmLancMovto.Grava(Sender: TObject);
begin
dm.cds.Append;
dm.cds.FieldByName('ID').Asinteger := codigo_da_empresa
dm.cds.Post;
if dm.cds.ApplyUpdates(0) <> 0 then
dm.cds.CancelUpdates;
end;

[porter]

antes do append, coloquei essas duas linhas e deu certo, mas fiquei sem entender porque.

dm.cds.close;
dm.cds.open;

[Batera]

Fala, porter!

Dê uma olhada nesse tópico:

http://www.activedelphi.com.br/forum/viewtopic.php?t=42856&sid=c69b0b85216e6aa5cb137803bd32cfd8

[porter]

obrigado Joemil e Batera, li o post e entendi o motivo do problema, valeu.

[joemil]