Problema ao Inserir 2º registro em ClientDataset

Delphi

03/12/2004

Uso Firebird 1.5 e delphi 6



Estou inserindo em um ClientDataset os seguintes campos:

datamodule1.ClientDetalhe.append;
            datamodule1.ClientDetalhe.FieldByName(´cod_produto´).AsString:=datamodule1.SQLDataSet1.fieldbyname(´cod_barras´).AsString;
      datamodule1.ClientDetalhe.FieldByName(´perc_icms´).Asfloat:=datamodule1.SQLDataSet1.fieldbyname(´perc_icms´).Asfloat;
      datamodule1.ClientDetalhe.FieldByName(´desc_produto´).Asstring:=datamodule1.SQLDataSet1.fieldbyname(´descricao´).Asstring;
      datamodule1.ClientDetalhe.FieldByName(´qtd_produto´).Asinteger:=quant_item;
      datamodule1.ClientDetalhe.FieldByName(´preco_unit´).Asfloat:=preco_venda;
      datamodule1.ClientDetalhe.FieldByName(´valor_total´).AsFloat:=preco_venda*quant_item;
      datamodule1.ClientDetalhe.FieldByName(´descto´).AsFloat:=0.00;
      datamodule1.ClientDetalhe.FieldByName(´num_item_no_cupom´).AsInteger:=Num_sequencia_item_vendido;
      datamodule1.ClientDetalhe.FieldByName(´num_resumo´).AsInteger:=G_numero_resumo;


O primeiro item é inserido normal mas quando tento inserir o registro seguinte me aparece a seguinte menssagem:

At beginning of table.


Eu gostaria de inserir tudo o q fosse necessário no clientdataset e só depois usar o ApplyUpdates.

Obs.: Se a cada registro inserido eu gravo na tabela ele funciona normalmente, mas assim não é como eu quero.


Obrigado


Gameiro

Gameiro

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

03/12/2004

você executa o datamodule1.ClientDetalhe.Post após o preenchimento de cada registro?


GOSTEI 0
POSTAR