muestra de datos

[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

[[duilioisola]]

¿Has verificado que las condiciones son correctas?
¿Por donde pasa cuando haces debug?
¿Has probado los resultados mostrándolos, por ejemplo?
¿Has probado que no de una excepción y esté capturada en otro sitio del código?

Código Delphi [-]
  if Trim(sCodigo_Holding) <> '' then
  begin
    ShowMessage('sCodigo_Holding = ' + sCodigo_Holding);
    With dmAyuda_Emp_Holding.FDQuery4 do
    begin
     // dmAyuda_Emp_Holding.ClientDataSet4.Active := False;
      Close;
      ParamByName('Codigo_Holding').AsString := sCodigo_Holding;
      Open;
      ShowMessage('Registros del Query = ' + IntToStr(RecordCount));

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

[jerryacuna]

duilioisola, buenos días, si he hecho el debug y lo curioso es que antes de hacer el active
dmAyuda_Emp_Holding.FDQuery4.recordcount = 6
dmAyuda_Emp_Holding.ClientDataSet4.Active := True; (es aquí donde debería mostrar datos)

dejando el dmAyuda_Emp_Holding.ClientDataSet4.recordcount = 0
dmAyuda_Emp_Holding.FDQuery4.recordcount = 0

pierdo también los registros de QRY, he revisado los datos y todo esta bien hasta cunado activo el clientedataset

saludos cordiales

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración


Recuerda poner los tags al código fuente, ejemplo:



Gracias

[[duilioisola]]

Asegúrate de que el ClientDataSet no esté filtrado.
Por ejemplo

Código Delphi [-]
with ClientDataSet do
begin
   Filtered := False;
   Filter = 'ID = 123';
   Filtered := True;
end;