Problemas con Rave

[rruffino]

Hola foro, buenas tardes, tengo un par de problemas con Rave, uno de ellos es que necesito generar dos tipos de facturas distintos, practicamente iguales, pero no se como hacer para ocultar y cambiar los campos a la tabla que deben acceder los datatext. Por ahora lo he solucionado generando dos projectos rave distintos. Otro problema que tengo es que necesito asignarle a un componenet de texto del rave un valor que calculo previamente y no guardo en ninguna tabla. Utilizo delphi 7 y la version del rave que viene con él. Utilizo Rave para generar el informe y pasarlo a formato pdf.
Desde ya muchas gracias y espero comentarios.
___________________________________________________
PD: José no te enojes, solo que no quiero fastidiarte

[Loviedo]

Mira este hilo

[thread]21029[/Tread]

Saludos.

[Loviedo]

Perdón no estoy muy acostumbrado a las etiquetas.

Mira este hilo

https://www.clubdelphi.com/foros/showthread.php?t=21029

Saludos.

[rruffino]

Amigo, sabes que he intentado ocn el codigo del hilo y lo que me larga es un bonito error de violacion de la aplicacion, por lo que no me funciona. Te agradezco si me ayudas a resolverlo
Román

[Loviedo]

A mi me funciona perfectamente. Lo uso con frecuencia. A lo mejor el error es otro.

Saludos.

[Loviedo]

Esto es lo último que he utilizado.
No olvides incluir las unidades RVClass, RVProj, RVCsStd en Uses.

Código Delphi [-]
procedure TDM.VerDocumento1(numero:integer;Texto1:string);
var
  MyPage: TRavePage;
  MyText1: TRaveText;
begin
  RvProject1.Engine := Rvwriter1;
  RvProject1.open;
  if Numero = 1 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Gastos1.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Gastos1',true);
    end
  else if Numero = 2 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Gastos2.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Gastos2',true);
    end
  else if Numero = 3 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Propietarios1.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Propietarios1',true);
    end
  else if Numero = 4 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Propietarios2.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Propietarios2',true);
    end
  else if Numero = 5 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Estado1.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Estado1',true);
    end;
  Fprevio := TFprevio.Create(Application);
  try
    Fprevio.ShowModal;
  finally
    Fprevio.Free;
  end;
  RvProject1.close;
end;