Problemas con Rave

[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;

[rruffino]

Compañero, gracias por tu respuesta, lo pude hacer andar. Ahora te pregunto, ¿hay forma de ocultar algunos DataText y/o poder cambiarles el campo al cual hace referencia???
Muchas gracias

[rruffino]

Socio, otra cosilla que no puedo, como te comente pude asignarle texto al Rave pero no puedo asignarle formato, por ejemplo necesito pasarlo en formato moneda , probe con el FormatCurr pero tira error. Gracias nuevamente y espero ansioso por respuestas

[Loviedo]

El componente 'Datatext' tiene la propiedad 'Displayformat'. Tambien puedes dar formato en el campo del Table,Query...

El componente 'Text' es una cadena.

Mira estos hilos

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

Saludos.