PDA

Ver la Versión Completa : Problemas con Rave


rruffino
28-06-2005, 22:13:36
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
29-06-2005, 02:26:31
Mira este hilo

[Thread]21029[/Tread]

Saludos.

Loviedo
29-06-2005, 02:28:15
Perdón no estoy muy acostumbrado a las etiquetas.

Mira este hilo

21029

Saludos.

rruffino
29-06-2005, 18:17:08
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
29-06-2005, 18:48:34
A mi me funciona perfectamente. Lo uso con frecuencia. A lo mejor el error es otro.

Saludos.

Loviedo
29-06-2005, 18:55:02
Esto es lo último que he utilizado.
No olvides incluir las unidades RVClass, RVProj, RVCsStd en Uses.


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
30-06-2005, 15:04:43
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
30-06-2005, 15:25:21
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
30-06-2005, 19:15:31
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

22303
22464

Saludos.

Loviedo
30-06-2005, 19:52:18
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
01-07-2005, 17:22:24
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;)

Loviedo
01-07-2005, 18:25:45
Ojo al redondeo.


procedure TForm1.Button1Click(Sender: TObject);
var
mvar: currency;
begin
mvar := 10.2526;
Edit1.Text := format('%*.*f',[6,3,mvar]);
end;

saludos.