ActiveDelphi

[marcosrp]

Pessoal, boa tarde,

Estou com o seguinte problema, qdo tento efetuar a seguinte inserção na tabela tbServNF, ocorre que o programa ao ler a linha 'tbServNF.Append' ele chama o evento BeforePost que verifica se o campo código=0 e que no caso ainda é, pois até este momento não atribuiu o código e aborta a inserção. O estranho é que não era para chamar o evento BeforePost aí e sim qdo ler 'tbServNF.Post'. Alguem já viu isso? Utilizo Delphi5,banco ADS.

tbServNF.Append;
tbServNFCODIGO.Value := tbServico.FieldByName('CODIGO').AsInteger;
tbServNFDESCRICAO.Value := tbServico.FieldByName('DESCRICAO').AsString;
tbServNFUNITARIO.Value := tbServico.FieldByName('UNITARIO').AsFloat;
tbServNFQUANTIDADE.Value := tbServico.FieldByName('QUANTIDADE').AsFloat;
tbServNF.Post;

procedure TfmNotaFiscal.tbServNFBeforePost(DataSet: TDataSet);
begin
if DataSet.FieldByName('CODIGO').AsInteger = 0 then
begin
DataSet.Cancel;
abort;
end;
end;

Grato pela atenção.

Marcos

[Sufolk]

Olá Marcos,

os componentes de acesso, geralmente quando ele está com status de inserção e é chamado uma nova inserção ele tenta postar o registro anterior que está aguardando uma ação.
Experimente a cargo de teste adicionar esse codigo antes do Append:

[danielbuona]

olá!

Você não programou nada no afterinsert???
_________________
Daniel Buona - danielbuona@hotmail.com
www.aflsistemas.com.br/blog

[marcosrp]

Sufolk, bom dia,

Agradeço a dica. Resolveu meu problema.
Fiz:
tbServNF.Close;
tbServNF.Open;
tbServNF.Append;

Grato.

Marcos

[marcosrp]

Daniel, bom dia,

Não, não programei nada no AfterInsert. E já resolvi a problema com a dica do Sufolk.

Grato pela atenção.

Marcos