Problemas con Rave

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

[Loviedo]

Lo que no entiendo es lo de ocultar Datatext. Si no quieres que aparezca no lo pongas.
Puedes crear un Project con varios Report y colocar en cada uno los Datatext que te apetezca. luego lo lo elige con RvProject1.SelectReport('Report1',true);

Saludos.

[rruffino]

Amigo loviedo, te comento qe puse distintos reportes y he soluiconado el tema de usar dos projectos Rave distintos, con lo cual eso esta solucionado. El tema de poder asignar un valor monetario a un Text lo solucione con la llamada a CurrToStr(), pero me pasa varios decimales que no necesito ponerlos , pero al menos lo puedo hacer. Estoy buscando la forma de "truncar" la parte decimal para que solo muestre 3 numeros decimales. Pero lo importante es que va queriendo funcionar
Saludos, y muchas gracias
Román