Uso Firebird 1.5 e delphi 6Estou inserindo em um ClientDataset os seguintes campos:[code:1:6b864dd458]datamodule1.ClientDetalhe.append; datamodule1.ClientDetalhe.FieldByName(�cod_produto�)....

F�rum Problema ao Inserir 2� registro em ClientDataset #261050

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

Curtir t�pico

+ 0

Responder

Posts

03/12/2004

Emerson Nascimento

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

Responder

Gostei + 0