actualizar vcl crystal reports

[DavidSG4]

Buenos dias señores y gracias por vuestra ayuda por anticipado.

tengo un problema y es que he actualizado a la vcl 9 de crystal y no soy capaz de compilar mi aplicacion ya que en la version anterior del ucrpe32 estan presentes subreports.retrieve. aunque lo he solucionado con un count > 0... no se si estara bien.

otro problema es que recorro los subreports asi:

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;
y el compilador me dice que no es compatible tcrpesubreports y tcrpesubreportsimtems

alguien me podria decir alguna solucion desde ya mil gracias.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?, gracias por tu colaboración :)

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

http://www.clubdelphi.com/images/UtilizarTAGs.png

Gracias :)

[DavidSG4]

Hola si que intente hacerlo así (como tu dices) pero como trabajo en una maquina virtual no me permite hacer lo que me pides

Saludos

[DavidSG4]

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;

[Casimiro Notevi]

^\||/
.................

[DavidSG4]

Joer no entiendo nada de esto supuestamente la vcl tendria que valer para las anteriores versiones y aportar mas cosas...

por favor alguna idea

Graicias