Cambiar orden de páginas con Rave Reports

[M. FM.]

Bueno, he decidido olvidarme de los eventos del report y ahora estoy intentando definir el orden de las páginas desde Delphi. El nuevo problema que tengo es un "Access violation".

He probado con dos formas distintas.
La primera:

if RvPageList = nil then
   RvPageList := TRaveComponentList.Create;

RvPageList.Add(RvProject.FindComponent('MiReport.Page1') as TRavePage);
if m_Segunda = '1' then
RvPageList.Add(RvProject.FindComponent('MiReport.Page2') as TRavePage);

RvProject.ProjMan.ActiveReport.PageList := RvPageList;
RvProject.Execute;
RvProject.Close;

Este código me da un error al ejecutar el report.

La segunda:

RvProject.SelectReport('MiReport', true);
RvPage1 := RvProject.FindComponent('Page1') as TRavePage;
RvPage2 := RvProject.FindComponent('Page2') as TRavePage;
 if m_Segunda = '1' then
    RvPage1.GotoPage := RvPage2;
RvProject.Execute;
RvProject.Close;

De este modo, el error lo tengo en el GotoPage: Exception class EAccessViolation with message 'Access violation at address 0065166F in module 'Ventas.exe'. Write of address 000000A0'.

He probado tanto definiendo los GotoPage en Rave también como sin definirlos, y el resultado es el mismo.

¿Alguna idea?

Gracias,
M.

[M. FM.]

Bueno, por fin lo he conseguido. Pongo la solución por si alguien se ha visto en el mismo caso, es el segundo código que había probado pero accediendo al Project Manager en lugar de al Report directamente:

with RvProject.ProjMan do
begin
    RvPage1 := FindRaveComponent('MiReport.Page1', nil) as TRavePage;
    RvPage2 := FindRaveComponent('MiReport.Page2', nil) as TRavePage;

    if m_Segunda = '1' then
      RvPage1.GotoPage := RvPage2;
 end;

RvProject.ExecuteReport('MiReport');
RvProject.Close;

No sé ni la de días que llevo con esto. Espero que si a alguien le pasa igual esto pueda servirle de ayuda.

Saludos,
M.

[mjjj]

Hola M. FM... tengo exactamente el mismo problema que tuviste tu. Me tira el mismo error en el gotopage... pero no entiendo como fue que resolviste el problema...

las variables page1 y page2 son Travepage???

No se como solucionarlo... a no ser que tengo un problema en el rave report.. en el archivo... pero lo tengo de la siguiente manera... un archivo llamado 'informe.rav', en el cual existe un reporte llamado orden y dentro de este reporte existen 2 paginas.....

esto esta bien??


alguna idea de como solucionar esto??


gracias por tu tiempo

saludos

[saturno7]

Hola, mjjj:

Intentaré explicarte lo poco que sé a ver si entre los dos lo sacamos.

Para empezar, tienes que sustituir en el código delphi MiReport por el nombre de tu informe en Rave Reports (en tu caso sería orden):

Código Delphi [-]
RvPage1 := FindRaveComponent('MiReport.Page1', nil) as TRavePage;

Se convertiría en:

Código Delphi [-]
RvPage1 := FindRaveComponent('orden.Page1', nil) as TRavePage;

Además, Page1 y Page2 son los nombres que le has puesto a las páginas de tu informe también en Rave Reports. Es decir, que tanto el informe como sus páginas deben existir para que el código en delphi los encuentre.

Mira a ver si con eso solucionas algo, y si no, vuelve a escribir y lo seguimos mirando.

Saludos