Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Reporte FastReport desde TEdits (https://www.clubdelphi.com/foros/showthread.php?t=86774)

wilcg 01-10-2014 07:14:29

Reporte FastReport desde TEdits
 
Hola amigos del foro, quiero su ayuda. Necesito hacer un reporte con FastReport con los datos que ingreso en los TEdit que hay en un form. Es posible hacer, si alguien me da una orientación o un ejemplo. GRACIAS.

Neftali [Germán.Estévez] 01-10-2014 10:32:07

No das muchos detalles, pero lo más sencillo es que revises los ejemplos que vienen con FastReports.
No he trabajado mucho, pero para que vayas haciendo pruebas, yo diría que puedes colocar campos en el report y asignarles una "variable", algo así como [CAMPO1], [CAMPO2],...

En el formulario de elphi, donde está tu componente de Report, en el evento OnGetValue (creo recordar) lo único que debes hacer es asignar valor a esas variables que has definido en el listado; Algo así como:

Código Delphi [-]
  ..
  If UpperCase(ParName)='CAMPO1' Then begin
    ParValue := edit1.Text;
  end
  else if UpperCase(ParName) = 'CAMPO2' Then begin
    ParValue := edit2.Text;
  end;
  ...

No te lo tomes al pie de la letra, es orientativo, pero te puede servir para empezar a revisar cosas y a hacer algunas pruebas...

wilcg 02-10-2014 03:05:49

Neftali, gracias por tu aporte me ayudo muchisimo. Y quedo asi por si alguien lo necesite.

No he creado variables pero, a las etiquetas lo he escrito asi.
Código Delphi [-]
[campo1]
[campo2]
........
y en el evento OnGetValue.
Código Delphi [-]
procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
  if CompareText(VarName, 'campo1') = 0 then begin
    Value := Edit1.Text;
  end
  else if CompareText(VarName, 'campo2') = 0 then begin
    Value := Edit2.Text;
  end
  else if CompareText(VarName, 'campo3') = 0 then begin
    Value := Edit3.Text;
  end;
end;

Neftali [Germán.Estévez] 02-10-2014 10:08:37

Sí, a eso me refería.
Realmente cuando dije "variables", estaba mal dicho, ya que las variables son otra cosa.


La franja horaria es GMT +2. Ahora son las 22:10:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi