clone cursor e campos lookup

Question

estou com a seguinte situa��o:Um clientdataset com dados, nele eu criei um campo lookup pra buscar a descricao em outro clientdataset.at� a� tranquilo.ent�o tive a necessidade de varrer este client se...

Davicarrano · Answer

up...

Fabianosales · Answer

Experimente usar a fun��o abaixo. Mas alguns tipos de dados menos comuns (ftGraphic, por exemplo) eu n�o tratei, blz?

procedure TForm2.CloneClientDataSet(var Orig, Dest: TClientDataSet);
var
  i: integer;
  c: TClass;
  f: TField;
begin
  Dest.CloneCursor(Orig, False);
  Dest.Close;
  Dest.Fields.Clear;
  for i:=0 to Orig.Fields.Count-1 do
    begin
      c := Orig.Fields[i].ClassType;
      case Orig.Fields[i].DataType of
          ftString     : f := TStringField(c.NewInstance).Create(Self);
          ftInteger    : f := TIntegerField(c.NewInstance).Create(Self);
          ftFloat      : f := TFloatField(c.NewInstance).Create(Self);
          ftTime       : f := TTimeField(c.NewInstance).Create(Self);
          ftTimeStamp,
          ftDateTime   : f := TDateTimeField(c.NewInstance).Create(Self);
          ftDate       : f := TDateField(c.NewInstance).Create(Self);
          ftWideString : f := TWideStringField(c.NewInstance).Create(Self);
          ftMemo       : f := TMemoField(c.NewInstance).Create(Self);
          ftWideMemo   : f := TWideMemoField(c.NewInstance).Create(Self);
          ftSmallint   : f := TSmallintField(c.NewInstance).Create(Self);
          ftVariant    : f := TVariantField(c.NewInstance).Create(Self);
          ftBlob       : f := TBlobField(c.NewInstance).Create(Self);
          ftBCD        : f := TBCDField(c.NewInstance).Create(Self);
          ftBoolean    : f := TBooleanField(c.NewInstance).Create(Self);
          ftBytes      : f := TBytesField(c.NewInstance).Create(Self);
        end;
      f.FieldKind := Orig.Fields[i].FieldKind;
      f.FieldName := Orig.Fields[i].FieldName;
      f.Name:= Dest.Name + f.FieldName;
      //
      f.DisplayLabel      := Orig.Fields[i].DisplayLabel;
      f.DisplayWidth      := Orig.Fields[i].DisplayWidth;
      f.KeyFields         := Orig.Fields[i].KeyFields;
      f.LookupDataSet     := Orig.Fields[i].LookupDataSet;
      f.LookupKeyFields   := Orig.Fields[i].LookupKeyFields;
      f.LookupResultField := Orig.Fields[i].LookupResultField;
      //
      f.DataSet := Dest;
      Dest.FieldDefs.Add(f.Name, f.DataType);
    end;
end;

Para us�-la:

  CloneClientDataSet(ClientDataSet1, ClientDataSet2);
  ClientDataSet2.Open;

Evo�...

Davicarrano · Answer

fabiano, valeu demais cara.... o c�digo q vc me passou n�o funcionou mas me deu uma id�ia pra eu chegar numa solu��o.... o c�digo n�o funcionou pq logo apos eu clonar o cursor, se eu fechar(close) o client q recebeu o clone, funciona, mas ao abr�-lo novamente ele perde o data package... mas eu aproveitei a id�ia de limpar todos os fields, ou melhor, o fieldDefs, e coloquei o clone depois q os fields forem criados novamente.... ahhh, e ainda otimizei uma parte do c�digo pra n�o precisar comparar todos os tipos de dados, ja q eu tenho a classe do field que eu quero criar, eu usei refer�ncia de Classe... ficou assim:

type
TClassRefField = class of TField;

.....
......
procedure TForm2.ClonarDadosTo(Origem,Destino: TClientDataSet);
var i:integer;
SizeCampo:integer;
f:TField;
c:TClass;
begin
Destino.FieldDefs.Clear;
for i:=0 to Origem.Fields.Count-1 do
begin
//essa linha � pra desprezar o TdataSetField
if Origem.Fields[i].DataType = ftDataSet then continue;

c := Origem.Fields[i].ClassType;

f := TClassRefField(C).Create(Self);

f.FieldKind := Origem.Fields[i].FieldKind;
f.FieldName := Origem.Fields[i].FieldName;
f.Name:= Destino.Name + f.FieldName;
//
f.DisplayLabel := Origem.Fields[i].DisplayLabel;
f.DisplayWidth := Origem.Fields[i].DisplayWidth;
f.KeyFields := Origem.Fields[i].KeyFields;
f.LookupDataSet := Origem.Fields[i].LookupDataSet;
f.LookupKeyFields := Origem.Fields[i].LookupKeyFields;
f.LookupResultField := Origem.Fields[i].LookupResultField;
//
f.DataSet := Destino;
Destino.FieldDefs.Add(f.Name, f.DataType);
end;

Destino.CloneCursor(Origem,false,false);
end;

ficou blz... a uni�o faz a for�a ne cara... eu num tinha conseguido sem sua id�ia... valeu demais

Fabianosales · Answer

Puxa. O lance do �TClassRefField = class of TField� simplificou bastante o c�digo. Show de bola. :wink:
J� o lance da perda do datapacket me passou despercebido porque o teste que eu fiz s� verificava se a lista de campos batia com a origiem e o destino. :oops:
Valeu Davi.

Evo�...