desculpe a demora .. mais era isso mesmo .. eu esqueci a linha que limpa .
.rs.rs.rs
So tirei o EmptyDataSet e resolvi o problema ..
]
----- Original Message -----
From: Edelson Regis de Lima
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 12, 2009 11:29 AM
Subject: Re: [delphi-br] Ajuda CdsTemp
Acho que voce está limpando o seu cdsTemp nessa linha aqui:
cdsTemp.EmptyDataSet;
Edelson.
2009/6/12 Filippe Maymone <filippe_i...@globo.com>
>
>
> Bom dia Galera,
>
> Estou com um problema, não sei o que eu estou fazendo de errado.
> Meu Porgrama faz a seguinte função.
> Tenho 2 Dbgrid.
> Dbgrid1 esta pegando os registro da minha tabela de Pedidos.
> Dbgrid2 esta conectado a um CDsTemp.
>
> O que eu quero é quando eu clicar no Produtos da Dbgrid1 ele insere no
> CdsTemp e ja vai aparecendo no meu Dbgrid2. Assim o usuarios vai
> selecionando os produtos do pedido.
> Do jeito que estou fazendo eu dou um dblClick no item do DBGrid1 e esta
> indo
> para o DBgrid2. Porem quando clico no 2 item do Dbgrid1 ele substitui o que
> esta no CdsTemp. Sempre ficando apenas um no Dbgrid2..
>
> Segue o codigo:
>
> procedure TfrmApontPedido.DBGrid1DblClick(Sender: TObject);
> begin
> cdsTemp.EmptyDataSet;
> //while cdsTemp.Eof do
> begin
> if (cdsTemp.FieldByName('CodProduto').AsString <>
> dmApontPTK.cdsPedidoCodproduto.Value) Then
> begin //Insert
> cdsTemp.Active := true;
> cdsTemp.Insert;
> cdsTemp.FieldByName('VndPedido').AsInteger :=
> dmApontPTK.cdsPedidoVndpedido.Value;
> cdsTemp.FieldByName('Complemento').AsString :=
> dmApontPTK.cdsPedidoComplemento.Value;
> cdsTemp.FieldByName('DataPedido').AsDateTime :=
> dmApontPTK.cdsPedidoDatapedido.AsDateTime;
> cdsTemp.FieldByName('DataEntrega').AsDateTime :=
> dmApontPTK.cdsPedidoDataEntrega.AsDateTime;
> cdsTemp.FieldByName('CodNatOpe').AsInteger :=
> dmApontPTK.cdsPedidoCodNatOpe.Value;
> cdsTemp.FieldByName('Situacao').AsInteger :=
> dmApontPTK.cdsPedidoSituacao.Value;
> cdsTemp.FieldByName('CodTipoProd').AsInteger :=
> dmApontPTK.cdsPedidoCodTipoProd.Value;
> cdsTemp.FieldByName('CodMarca').AsString :=
> dmApontPTK.cdsPedidoCodMarca.Value;
> cdsTemp.FieldByName('CodProduto').AsString :=
> dmApontPTK.cdsPedidoCodProduto.Value;
> cdsTemp.FieldByName('CodTamanho').AsString :=
> dmApontPTK.cdsPedidoCodTamanho.Value;
> cdsTemp.FieldByName('PrecoVenda').AsInteger :=
> dmApontPTK.cdsPedidoPrecoVenda.AsInteger;
> cdsTemp.FieldByName('QtdePedida').AsInteger :=
> dmApontPTK.cdsPedidoQtdePedida.AsInteger;
> cdsTemp.FieldByName('QtdeEntregue').AsInteger :=
> dmApontPTK.cdsPedidoQtdeEntregue.AsInteger;
> cdsTemp.FieldByName('Qtdecancelada').AsInteger :=
> dmApontPTK.cdsPedidoQtdecancelada.AsInteger;
> cdsTemp.FieldByName('Usuario').AsString :=
> dmApontPTK.cdsPedidoUsuario.Value;
> cdsTemp.FieldByName('DtRec').AsDateTime :=
> dmApontPTK.cdsPedidoDtRec.AsDateTime;
> cdsTemp.post;
> end;
> end;
>
> end;
>
> Se Alguem puder dar um Help ...
>
> Abraços,
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
