PDA

Ver la Versión Completa : pasar un valor string de mi aplicacion a un titulo de un reporte en RAVE


ctronx
07-01-2005, 16:57:25
Saludos, uso Delphi 7 y el RAVE que viene en el y necesito poder pasar un valor string de mi aplicacion a un titulo de un reporte en RAVE, si alguien me puede ayudar se los agradecesco de antemano.

Loviedo
07-01-2005, 18:46:49
Esto a mi me funciona. Espero te ayude.

uses RVClass, RVProj, RVCsStd;
procedure TDM.Imprimedocumento1;
var
NDRStream: TMemoryStream;
MyPage: TRavePage;
MyText1,MyText2: TRaveText;
begin
NDRStream := TMemoryStream.Create;
try
RvProject1.Engine := RvNDRWriter1;
RvProject1.open;
With RvProject1.ProjMan do
begin
MyPage := FindRaveComponent('Presupuesto1.Page1',nil) as TRavePage;
MyText1 := FindRaveComponent('Text7',MyPage) as TRaveText;
MyText1.Text := mFecha(TableAux1['fecha']);
end;
RvProject1.SelectReport('Presupuesto1',true);
RvProject1.SaveToStream(NDRStream);
RvNDRWriter1.Stream:=NDRStream;
RvProject1.Execute;
RvRenderPrinter1.Render(NDRStream);
RvProject1.close;
finally
NDRStream.Free;
end;
end;

Saludos.;)

ctronx
08-01-2005, 21:01:57
Muchas gracias, voy a probar tu sugerencia a ver si me sale.

javiermorales
10-01-2005, 14:03:30
Si solo quieres pasar un valor string para un título, te recomiendo mirar este hilo:
http://www.clubdelphi.com/foros/showthread.php?t=17429

Un saludo.