Ver Mensaje Individual
  #1  
Antiguo 14-05-2013
DavidSG4 DavidSG4 is offline
Miembro
 
Registrado: oct 2007
Posts: 92
Reputación: 17
DavidSG4 Va por buen camino
vcl crystal reports 8.5

creo que antes me equivoque de subforo...

Muy buenas
tengo el siguiente problema he actualizado ucrpe32 de crystal 7.5 a 8.5 y tengo este codigo para poder mostrar las tablas temporales el caso que me dan algunos errores por ejemplo retrieve no esta disponible en subreports.retrieve de ucrpe32 de vcl 8.5

la linea que pone ''ElSubReport := SubReports[j];'' me da el error como que no son tipos compatibles

alguien me puede ayudar con alguna alternativa o que me explique que funcion sustituye a retrieve en ucrpe32 de vcl 8.5

muuuchas gracias ayudenmeeee please..

Código Delphi [-]
if SubReports.Retrieve then
  begin
    NumeroReports := SubReports.Count;
    // Hay que tener en cuenta que los subreports contienen el principal report en la posición 0
    for j:= 0 to NumeroReports -1 do
    begin
      ElSubReport := SubReports[j];
      if ElSubReport.Tables.Retrieve then
      begin
        for i:= 0 to ElSubReport.Tables.Count -1 do
        begin
          //ElSubReport.Tables[i].Name := MDEstandar.NombreTabla(Crpe1.Tables[i].Name);
          NombreTabla := ElSubReport.Tables[i].Name;
          if (DefinicionCrystal.FicherosTemporales.IndexOf(NombreTabla) <> -1) then
          begin
            ElSubReport.Tables[i].Name := DataModule.GetNombreRealTablaTemporal(NombreTabla);
            ElSubReport.Tables[i].Path := DataModule.GetPathTablaTemporal(NombreTabla);
          end else begin
            if (MDEstandar.EsTablaGeneral(NombreTabla)) then
            begin
              ElSubReport.Tables[i].Path := MDEstandar.DirectorioBaseDatosGlobal;
            end else begin
              ElSubReport.Tables[i].Path := MDEstandar.DirectorioBaseDatosEmpresa;
            end;
          end;
        end;
      end;
    end;
    // Volver a dejar activo el SubReport de 0, es decir el main report.
    SubReports[0];
  end;
Responder Con Cita