Buen dia, estoy tratando de hacer un append de un TClientDataSet con otro, pero puede ser que estos 2 dataset tengan registros iguales. El problema es que esto me genera un error de Key violation al intentar hacer el append, pero necesito tener los 2 registros aunque sean duplicados. Me gustaria agregarle un campo al dataset e indicarle que es parte de la Primary key, pero no se como hacerlo.
Este es el codigo que utilizo para crear el TClientDataSet:
//Esta funcion recibe como parametro ,la query y un boolean, y devuelve un TClientDataSet
function fxQueryToCDS(pqQuery : TFXQuery; pbFreeQuery : Boolean = true) : TClientDataSet;
var
dspCDS : TDataSetProvider;
begin
dspCDS := TDataSetProvider.Create(nil);
Result := TClientDataSet.Create(nil);
dspCDS.DataSet := pqQuery;
try
Result.Data := dspCDS.data;
finally
FreeAndNil(dspCDS);
if pbFreeQuery then
FreeAndNil(pqQuery);
end;
Result.Open;
end;
Esta es una parte del codigo, es en la cual me da el Key violation:
cdsConsulta1Principal := fxQueryToCDS(query1);
cdsConsulta1Sucursal := fxQueryToCDS(query2);
cdsConsulta1Principal.AppendData(cdsConsulta1Sucursal.Data, False);//aca da key violation si hay registros iguales.
cdsConsulta1Principal.MergeChangeLog;
Si o si necesito hacer hacer el append de los registros, aunque esten duplicados, porque los datos vienen de 2 bases de datos distintas, pero no se me ocurre como.