8 respuestas en este tema

[eduarcol]

Hola a todos

Quisiera saber como se copian dos TClientDataset, es decir hago unas operaciones en un cds y cuando termino quiero que otro quede igual.

tengo esto:

delphi

class function TfrCard.Iniciar(MontoPago: Double; var cdsListaPagos: TClientDataset): Boolean;
begin
   frCard := TfrCard.Create(Application);
 
     with frCard do
     begin
        nPago := Pago;
        lbPago.Caption := FormatFloat('#,##0.00', Pago);
        if ShowModal = mrOk then
        begin
           cdsListaPagos.Assign(cdsPagos);  //Aqui es que esta el problema
           Result := True;
        end
        else
           Result := False;
     end; //
end;
 

Ya lo he probado de dos formas distintas:

cdsListaPagos.Assign(cdsPagos);
cdsListaPagos := cdsPagos;

Pero obviamente no funciona.  Alguna luz sobre el tema? 

[felipe]

¿Y de dónde sale cdsPagos?, como para estar claros en eso.


Saludos!

[Rolphy Reyes]

Saludos.

Utiliza el método Clone.

En la Cara Oculta de Delphi 6 tiene un ejemplo sencillo.

[eduarcol]

¿Y de dónde sale cdsPagos?, como para estar claros en eso.


Saludos!

cdsPagos esta en el formulario frCard.

Saludos.

Utiliza el método Clone.

En la Cara Oculta de Delphi 6 tiene un ejemplo sencillo.

Gracias Rolphy, voy a leerlo

[seoane]

Pues a mi se me ocurre hacer lo siguiente:

delphi

procedure CopyClientDataset(Origen, Destino: TClientDataset);
var
  Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create;
  try
    Origen.SaveToStream(Stream);
    Stream.Position:= 0;
    Destino.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Por ejemplo, creo dos dataset, lleno uno con datos y lo copio en el otro:

delphi

var
  i: Integer;
  Origen, Destino: TClientDataset;
begin
  Origen:= TClientDataset.Create(nil);
  Destino:= TClientDataset.Create(nil);
  try
    with Origen do
    begin
      FieldDefs.Add('i', ftInteger, 0, FALSE);
      CreateDataset;
      for i:= 1 to 1000 do
      begin
        Insert;
        FieldValues['i']:= i;
        Post;
      end;
    end;
    CopyClientDataset(Origen,Destino);
    // Para comprobar que se copio bien
    Destino.SaveToFile('E:\2.txt',dfXML);
  finally
    Origen.Free;
    Destino.Free;
  end;
end;

¿Estoy matando moscas a cañonazos? 

[felipe]

Siguiendo el comentario de Rolphy encontré esto 

Enlace 1

Enlace 2


Saludos!

[eduarcol]

Pues a mi se me ocurre hacer lo siguiente:

delphi

procedure CopyClientDataset(Origen, Destino: TClientDataset);
var
  Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create;
  try
    Origen.SaveToStream(Stream);
    Stream.Position:= 0;
    Destino.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Por ejemplo, creo dos dataset, lleno uno con datos y lo copio en el otro:

delphi

var
  i: Integer;
  Origen, Destino: TClientDataset;
begin
  Origen:= TClientDataset.Create(nil);
  Destino:= TClientDataset.Create(nil);
  try
    with Origen do
    begin
      FieldDefs.Add('i', ftInteger, 0, FALSE);
      CreateDataset;
      for i:= 1 to 1000 do
      begin
        Insert;
        FieldValues['i']:= i;
        Post;
      end;
    end;
    CopyClientDataset(Origen,Destino);
    // Para comprobar que se copio bien
    Destino.SaveToFile('E:\2.txt',dfXML);
  finally
    Origen.Free;
    Destino.Free;
  end;
end;

¿Estoy matando moscas a cañonazos? 

Amigo esta es la solucion, ya que lo hice asi:

cdsListaPagos.CloneCursor(cdsPagos, False, False);

Copia los datos, pero no actualiza los campos aggregates.

Con tu codigo si se actualizan.

Siguiendo el comentario de Rolphy encontré esto 

Enlace 1

Enlace 2


Saludos!

Gracias Felipe este fin tengo material de lectura.

[egostar]

Entonces....... ¿ Ponemos este hilo como [RESUELTO] ?

Salud OS

[eduarcol]

No faltaba mas