Modificacion de informe Rave

[Julià T.]

prueba el siguiente código, con lo que podras ver donde falla

Código Delphi [-]
begin
  RvProject1.Open;
  With RvProject1.ProjMan do
  begin
    MyPage := FindRaveComponent('ImpresionVentaEsc.Page1',nil) as TRavePage;
    if MyPage <>nil then
    begin
      MyText := FindRaveComponent('Text3',MyPage) as TRaveText;
      if MyText<>nil then
      begin
       MyText.Text := 'Some Text';
       MyText.Color := clGreen;
      end
      else Showmessage('no esxite el campo de texto Text3');
    end
    else Showmessage('no esxite el report ImpresionVentaEsc o la página Page1');

  end; { with }
  try
   RvProject1.ExecuteReport('ImpresionVentaEsc');
  except
   Showmessage('no esxite el report ImpresionVentaEsc');
  end;
  RvProject1.Close;
end;

El componente bitmap del rave tiene una propiedad que se llama FileLink donde puedes utilizar el nombre del fichero 'C:\...'

[PTW]

El mensaje que sale es que no existe "ImpresionVentaEsc o Page1", osea, k el valor de MyPage=NIL

He revisado que exista el nombre del fichero (por si ,por descuido, estaba mal escrito), y esta correcto. Esta ubicado en la misma carpeta donde esta mi aplicacion en Delphi

He visto que el componente Page1, esta dentro de un Report1. he hecho un:

with RVProject1.Projman do

MyReport := FindRaveComponents('ImpresionVentaEsc.Report1,nil) as TRaveReport
if Myreport<>nil then
.....
.....
else showMessage('No existe Report1)

y me dice que "No existe Report1"

¿donde puede estar fallando?

Te agradezco enormemente el interes que estas poniendo en intentar ayuudarme. Muchas gracias

[javiermorales]

Prueba a poner tu reporte en c:\

[PTW]

Bueno, al fin y despues de mucho pelearme, he logrado que arranque. Os muestor el codigo, para las dudas

var
MyPage:TRavePage;
MyText:TRaVeText;
MyReport:TRaveReport;
MyProject:TRaveProjectManager;
MyBitMap:TRaveJPEGImage;
begin
RVProject1.Open;
MyProject := RVProject1.Projman;
if MyProject<>nil then
begin
MyReport:=RVProject1.Projman.FindRaveCOmponent('Report1',nil) as TRaveReport;
if MyReport<>nil then
begin
MyPage:= RVProject1.Projman.FindRaveComponent('Page1',MyReport) As
TRavePage;
if MyPage<>nil then
begin
MyBitMap := RVProject1.Projman.FindRaveComponent('Foto',MyPage) As
TRaveJPEGImage;
if MyBitMap<>nil then
begin
MyBitMap.image.LoadFromFile('c:\cancelada\datos\fotos\tina.jpg');
RVProject1.Execute;
RVProject1.Close;
end
else Showmessage('no existe Text')
end
else Showmessage('no existe Pagina')
end
else Showmessage('no existe Reporte')
end
else Showmessage('no existe Projecto')
end;
end;

Creo que el fallo era que si ponia "ImpresionVentaEsc.Page1" decia que no lo encontraba. En cambio si ponia "page1" no daba problemas.

Quizas al estar definido en la propiedad ProjectFile del componente RVProject el informe ImpresionVenta Esc.rav, ya no hace falta ponerlo en el procedimiento FindRaveComponent

Muchas gracias a todos por vuestra ayuda (y en especial a Juliá T.)

[PTW]

RVProject1.Open;
MyProject := RVProject1.Projman;
if MyProject<>nil then begin

MyReport:=RVProject1.Projman.FindRaveCOmponent('Report1',nil) as TRaveReport;
if MyReport<>nil then begin

MyPage:= RVProject1.Projman.FindRaveComponent('Page1',MyReport) As TRavePage;
if MyPage<>nil then begin

MyBitMap := RVProject1.Projman.FindRaveComponent('Foto',MyPage) As TRaveJPEGImage;
if MyBitMap<>nil then begin

MyBitMap.image.LoadFromFile('c:\datos\fotos\foto.jpg');
RVProject1.Execute;
RVProject1.Close;

end

end

end

end

[Julià T.]

Hola PWT:

Ahora que funciona y ya saber por que, tan solo te hace falta que prestes más atención al texto que te contestan (como en la repuesta número 5), que utilizes los tags "code" o "delphi" y que cierres el report si no lo necesitas, tal como indica el codigo siguiente:

Código Delphi [-]
RVProject1.Open;
MyProject := RVProject1.Projman;
if MyProject<>nil then begin
  MyReport:=RVProject1.Projman.FindRaveCOmponent('Report1',nil) as TRaveReport;
  if MyReport<>nil then begin
    MyPage:= RVProject1.Projman.FindRaveComponent('Page1',MyReport) As TRavePage;
    if MyPage<>nil then begin
      MyBitMap := RVProject1.Projman.FindRaveComponent('Foto',MyPage) As TRaveJPEGImage;
      if MyBitMap<>nil then begin
        MyBitMap.image.LoadFromFile('c:\datos\fotos\foto.jpg');
        RVProject1.Execute;
      end
    end
  end
end
RVProject1.Close;

[Alexander]

Hola a todos,

He tratado de cambiar las propiedades de los componentes del reporte pero no he podido, He visto los ejemplos que estos hilos muestran, pero no me funciona tampoco ya que no reconoce TRaveJPEGImage, debo instalar algun componente adicional?.

Básicamente lo que quiero es cambiar la posicion de un rectangulo y si es visible o no, he podido cambiar el texto sin pasarle parámetros:

Código Delphi [-]
   RvProject.Open;
   MyPage := RvProject.Projman.FindRaveComponent('Report1.Page1',nil) as TRavePage;
   MyText := RvProject.ProjMan.FindRaveComponent('TextT1',MyPage) as TRaveText;
   MyText.Text := 'Se puede cambiar el texto';
   RvProject.Execute;

Como puedo cambiar las propiedades del Rectangulo?

Gracias.

Alexander