actualizar vcl crystal reports

[DavidSG4]

Código Delphi [-]
if SubReports.count>0 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;