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;