[jerryacuna]

buenas todos, me encargaron migrar un sistema de Delphi 2 al 5XE, hay cosas que no me resultan, en el siguiente código muestro los datos obtenidos por un QRY general obtengo 6 registros pero no los puedo mostrar en un clientedataset

Código Delphi [-]
 with dmAyuda_Emp_Holding.QRY_General do
  begin
    SQL.Clear;
    SQL.Add('SELECT Codigo_Holding'
           +'  FROM QS_SYS_DEF_HOLDING'
           +' WHERE Codigo_Empresa = :Codigo_Empresa'
           );
    ParamByName('Codigo_Empresa').AsString := trim(sEmpresa);

    Open;
    if FieldByName('Codigo_Holding').IsNull then
       sCodigo_holding := ''
    else
       sCodigo_Holding := FieldByName('Codigo_Holding').AsString;
    Close;
  end;

  if Trim(sCodigo_Holding) <> '' then
  begin
    With dmAyuda_Emp_Holding.FDQuery4 do
    begin
     // dmAyuda_Emp_Holding.ClientDataSet4.Active := False;
      Close;
      ParamByName('Codigo_Holding').AsString := sCodigo_Holding;
      Open;

       dmAyuda_Emp_Holding.ClientDataSet4.Active := True;  (es aquí donde debería mostrar datos)

el QRY es la selección de dos tablas
el dataset esta relacionado con un TDATASETPROVIDER y este ultimo al QRY
adjunto select del QRY

Código SQL [-]
SELECT b.Codigo_Identidad
      ,b.Razon_Social_Pat
  FROM QS_SYS_DEF_HOLDING a
      ,QS_SYS_IDENTIDAD b
  WHERE a.Codigo_Holding = :Codigo_Holding
   AND a.Codigo_Empresa = b.Codigo_Identidad

muchas gracias de antemano