Difference between revisions of "LazReport Tutorial/es"

From Free Pascal wiki
Jump to navigationJump to search
m
 
(34 intermediate revisions by 4 users not shown)
Line 1: Line 1:
 +
{{LazReport Tutorial}}
 +
 
== Descripción ==
 
== Descripción ==
  
Esta página comenzó como una traducción de un escrito en Portugés [[Tutorial de LazReport]] (el cual a su vez parece una traducción de un documento en Francés). Fué actualizado para Lazreport (en vez de para FastReport) para Lazarus (en lugar de para Delphi), utilizando T*Connection en lugar de una tabla de DBase.
+
Esta página comenzó como una traducción de un escrito en Portugés [[LazReport Tutorial/pt|Tutorial de LazReport]] (el cual a su vez parece una traducción de un documento en Francés). Fué actualizado para Lazreport (en vez de para FastReport) para Lazarus (en lugar de para Delphi), utilizando T*Connection en lugar de una tabla de DBase.
  
 
==Comenzando con LazReport==
 
==Comenzando con LazReport==
Line 19: Line 21:
 
* TSQLTransaction
 
* TSQLTransaction
 
* TSQLQuery:
 
* TSQLQuery:
 +
** Database := IBConnection1
 
** Active: true
 
** Active: true
 
** SQL: SELECT * FROM employee
 
** SQL: SELECT * FROM employee
Line 39: Line 42:
  
 
[[Image:lazreptut01b.png|center|950px]]
 
[[Image:lazreptut01b.png|center|950px]]
 +
 +
  
 
=== Estableciendo variables ===
 
=== Estableciendo variables ===
Line 51: Line 56:
  
 
Pulsa en el botón '''Variables''' en orden a definir algunas variables. Escribe el contenido de acuerdo a la siguiente imagen. "Demo Variables" representa una categoría y las otras entradas (campos xxx) representan variables. Para diferenciar ambas, las variables comienzan con un espacio.
 
Pulsa en el botón '''Variables''' en orden a definir algunas variables. Escribe el contenido de acuerdo a la siguiente imagen. "Demo Variables" representa una categoría y las otras entradas (campos xxx) representan variables. Para diferenciar ambas, las variables comienzan con un espacio.
 +
 +
'''Nota'''. La distinción entre variables y categorías de variables mediante la anteposición de un espacio, es única y exclusivamente en éste formulario ('''Variables List'''). En todo otro lugar (Diseñador de reportes,  código fuente  y scripts), la variable debe invocada sin espacios.
  
 
[[Image:lazreptutdefinevariables.png|center|700px]]
 
[[Image:lazreptutdefinevariables.png|center|700px]]
Line 83: Line 90:
  
 
Haz Click en el icono de banda, ve a la superficie del report y haz click en el para depositar el objeto banda.
 
Haz Click en el icono de banda, ve a la superficie del report y haz click en el para depositar el objeto banda.
 +
  
 
[[Image:lazreptutinsertnewband.png|center]]
 
[[Image:lazreptutinsertnewband.png|center]]
 +
  
 
Debes hacer click en el tipo de banda que necesitas crear. Selecciona '''Report title''' y haz click en OK.
 
Debes hacer click en el tipo de banda que necesitas crear. Selecciona '''Report title''' y haz click en OK.
Line 171: Line 180:
  
 
[[Image:lazreptutmasterdata.png | center]]
 
[[Image:lazreptutmasterdata.png | center]]
 +
  
 
Puedes utilizar todo tipo de operadores y funciones en los cálculos; ver [[LazReport Documentation#Documentation]] para una descripción.
 
Puedes utilizar todo tipo de operadores y funciones en los cálculos; ver [[LazReport Documentation#Documentation]] para una descripción.
Line 203: Line 213:
  
 
[[Image:lazreptutconditionalhighlight.png | center]]
 
[[Image:lazreptutconditionalhighlight.png | center]]
 +
  
 
==== Una imagen es mejor que ... ====
 
==== Una imagen es mejor que ... ====
  
 
Si no lo has hecho todavía, necesitaremos añadir un campo PHOTO a nuestro test de bases de datos; utilizando una sentencia SQL como esta (nota: desafortunadamente las distintas bases de datos utilizan sintaxis diferentes; BLOB puede ser CLOB,IMAGE,OLE...):
 
Si no lo has hecho todavía, necesitaremos añadir un campo PHOTO a nuestro test de bases de datos; utilizando una sentencia SQL como esta (nota: desafortunadamente las distintas bases de datos utilizan sintaxis diferentes; BLOB puede ser CLOB,IMAGE,OLE...):
<syntaxhighlight>
+
<source lang="sql">
 
ALTER TABLE EMPLOYEE ADD PHOTO BLOB;
 
ALTER TABLE EMPLOYEE ADD PHOTO BLOB;
</syntaxhighlight>
+
</source>
 
Ahora añadamos algún test de datos - este ejemplo utiliza ficheros jpg - dentro del campo PHOTO por media de tu herramienta de bases de datos favorita. Nota: este es el modo en que trabaja DBImage de Delphi: justamente blobs binarios con datos de imagen. Por defecto Lazarus DBImage es más flexible y almacena la extensión del fichero antes de los datos de la imagen, permitiendo utilizar diferentes formatos de fichero. En aras de la simplicidad utilizaremos la modalidad de Delphi.
 
Ahora añadamos algún test de datos - este ejemplo utiliza ficheros jpg - dentro del campo PHOTO por media de tu herramienta de bases de datos favorita. Nota: este es el modo en que trabaja DBImage de Delphi: justamente blobs binarios con datos de imagen. Por defecto Lazarus DBImage es más flexible y almacena la extensión del fichero antes de los datos de la imagen, permitiendo utilizar diferentes formatos de fichero. En aras de la simplicidad utilizaremos la modalidad de Delphi.
  
Line 215: Line 226:
  
 
Ahora debemos indicar al reporte que debe tratar todos los datos de imagen como ficheros binarios en formato jpg. Haz Click en ''frReport1'', ve al inspector de objetos, eventos, y comienza un procedimienton OnDBImageReader:
 
Ahora debemos indicar al reporte que debe tratar todos los datos de imagen como ficheros binarios en formato jpg. Haz Click en ''frReport1'', ve al inspector de objetos, eventos, y comienza un procedimienton OnDBImageReader:
<syntaxhighlight>
+
<source lang="delphi">
 
procedure TForm1.frReport1DBImageRead(Sender: TObject; S: TStream;
 
procedure TForm1.frReport1DBImageRead(Sender: TObject; S: TStream;
 
   var GraphExt: string);
 
   var GraphExt: string);
 
begin
 
begin
   // Force TDBImage to Delphi compatible behaviour: only accept a single file type, e.g. jpg
+
   // Fuerza TDBImage a ser compatible con las características de Delphi: únicamente admite un tipo de fichero, e.g. jpg
   // this means that the BLOBs in your database must be just jpg binary files without any other data
+
   // esto significa que los BLOBs de la base de datos deben ser ficheros binarios de formato jpg sin ningún otro dato.
 
   GraphExt:='jpg';
 
   GraphExt:='jpg';
 
end;
 
end;
</syntaxhighlight>
+
</source>
  
In File>Variables List, add the SQLQuery1.PHOTO field as variable Photo field, similarly to how you did this before. If you don't see the field, you may need to set the form's SQLQuery to inactive and active again to refresh the list of columns.
+
In File>Variables List, añade el campo SQLQuery1.PHOTO como variable de campo Photo, de manera similar a como se hizo antes. En caso de que no se visualice el campo, puede que sea necesario establecer la SQLQuery del formulario a inactivo y de nuevo a activo para refrescar el listado de columnas.
 +
.
  
 
Click on the Insert image... icon on the left of the window; now click on the right side of the band to drop the image control. A Picture editor shows up:
 
Click on the Insert image... icon on the left of the window; now click on the right side of the band to drop the image control. A Picture editor shows up:
  
[[Image:lazreptutpictureeditor.png]]
 
  
If you wanted to always show the same picture, you'd just need to click Load ... (or double click on the picture control) and choose your image.
+
[[Image:lazreptutpictureeditor.png | center]]
  
However, let's press the Memo button and insert your Photo variable:
 
  
[[Image:lazreptutphotofield.png]]
+
Si necesitas que se muestre siempre la misma imagen, simplemente necesitas hacer click Load ... (o hacer doble click en el control de imagen) y escoger tu imagen.
  
This turns the picture into an object associated with the data field. Press OK as needed to get back to the report designer.
+
However, presionemos el botón Memo e insertemos una variable Photo:
  
  
 +
[[Image:lazreptutphotofield.png | center]]
  
Adjust height and width as needed.
 
  
You can also press F11 to show the Object Inspector which allows you to edit more if needed:
+
Esto pone la imagen dentro del objeto asociado al campo de datos. Presiona OK cuando necesites retornar al diseñador de reportes.
  
[[Image:lazreptutobjectinspector.png]]
+
Ajusta la altura y el ancho a tus necesidades.
  
Close the report editor and save the report definition (with the same name, '''lazreporttutorial.lrf''').
+
Además puedes presionar F11 para mostrar el Inspector de Objetos, el cual permite editar más si se necesita:
 +
 
 +
 
 +
[[Image:lazreptutobjectinspector.png | center]]
 +
 
 +
 
 +
Cierra el editor de reportes y salva la definición del reporte (con el mismo nombre, '''lazreporttutorial.lrf''').
 +
 
 +
Si vas a File>Preview, verás que tu reporte incluye las imágenes.
 +
 
 +
Cierra el editor de reportes y salva las defniciones del reporte como '''lazreporttutorial.lrf'''.
 +
 
 +
=== Detail data ===
 +
To do: show how to use the detail part of master/detail. see e.g. sample in components/lazreport/samples/editor directory; see the button title "Master-Detail" '''Please write me.'''
 +
=== Loading the report from the form ===
 +
Now let's write the code required to load and view or edit our report. To this add the following code to the project:
 +
<source lang="delphi">
 +
TForm1.Button2Click(Sender procedure: TObject); 
 +
begin
 +
  frReport1.LoadFromFile('lazreporttutorial.lrf'); 
 +
  frReport1.ShowReport; 
 +
end;
 +
TForm1.ButtonClick(Sender procedure: TObject); 
 +
begin
 +
  frReport1.LoadFromFile('lazreporttutorial.lrf'); 
 +
  frReport1.DesignReport; 
 +
end;
 +
</source>
 +
 
 +
You have a preview option that gives end users a way to modify the report without changing the basic application.
 +
 
 +
=== Imprimiendo ===
 +
 
 +
Ahora vamos a ir añadiendo características a nuestro ejemplo básico:
 +
 
 +
Añadimos un componente TButton con Caption := Print...' y un diálogo TPrintDialog. Detrás de la escena se debe añadir por parte del IDE una dependencia del paquete '''Printer4Lazarus''' por lo que hay que asegurarse de tener este paquete instalado.
 +
Add a TButton component with Caption := 'Print...', and a TPrintDialog. Behind the scenes, a project dependency on the
 +
 
 +
Finalmente tendremos esto:
 +
 
 +
 
 +
[[Image:lazreptutformwithprintbutton.png | center]]
 +
 
 +
 
 +
Ahora añadimos la unidad '''printers''' a la claúsula uses del formulario.
 +
 
 +
 
 +
Pon el siguiente código en el evento OnClick del pulsador '''Print''':
 +
<source lang="delphi">
 +
procedure TForm1.Button3Click(Sender: TObject);
 +
var
 +
  FromPage, ToPage, NumberCopies: Integer;
 +
  ind: Integer;
 +
  Collap: Boolean;
 +
begin
 +
  // Carga la definición del reporte desde el directorio de la aplicación
 +
  AppDirectory:=ExtractFilePath(ParamStr(0));
 +
  frReport1.LoadFromFile('lazreporttutorial.lrf');
 +
  // Necesitamos mantener la pista de que impresora está seleccionada originalmente para chequear cambios por parte del usuario
 +
  ind:= Printer.PrinterIndex;
 +
  // Prepara el reporte y para si obtenemos un error ya que continuar no tendría sentido en esta situación.
 +
  if not frReport1.PrepareReport then Exit;
 +
  // Establecemos un diálogo con información de valores por defecto que el usuario posteriormente puede cambiar.
 +
  with PrintDialog1 do
 +
  begin
 +
    Options:=[poPageNums ]; // permite seleccionar número/s de página/s
 +
    Copies:=1;
 +
    Collate:=true; // copias ordenadas
 +
    FromPage:=1; // página de comienzo
 +
    ToPage:=frReport1.EMFPages.Count; // página final
 +
    MaxPage:=frReport1.EMFPages.Count; // máximo número de páginas permitidas.
 +
    if Execute then // mostrar diálogo; si satisfactorio, procesa la feedback del usuario
 +
    begin
 +
      if (Printer.PrinterIndex <> ind ) // verify if selected printer has changed
 +
        or frReport1.CanRebuild // ... solamente tiene sentido si se puede reformatear el reporte
 +
        or frReport1.ChangePrinter(ind, Printer.PrinterIndex) //... entonces cambia de impresora
 +
        then
 +
        frReport1.PrepareReport //... y reformatear para una nueva impresora
 +
      else
 +
        exit; // we couldn't honour the printer change
 +
 
 +
      if PrintDialog1.PrintRange = prPageNums then // user made page range selection
 +
      begin
 +
        FromPage:=PrintDialog1.FromPage; // primera página
 +
        ToPage:=PrintDialog1.ToPage;  // última página
 +
      end;
 +
      NumberCopies:=PrintDialog1.Copies; // Número de copias
 +
      // Imprime el reporte utilizando las páginas solicitadas & número de copias.
 +
      frReport1.PrintPreparedReport(inttostr(FromPage)+'-'+inttostr(ToPage), NumberCopies);
 +
    end;
 +
  end;
 +
end;
 +
</source>
 +
 
 +
Es un poco largo, pero necesario, puedes crear un descendiente de TfrReport con un método o clase de impresión fácil, crear un
 +
procedimiento PrintReport (Report: string) para cargar el reporte e imprimir.
 +
 
 +
cuando hacemos doble click en '''frReport1''', obtenemos ein the report designer File>Page Options menu you get this:
 +
 
 +
Select paper size:
 +
 
 +
 
 +
[[Image:lazreptutpapersize.png | center]]
 +
 
 +
 
 +
Escoge los márgenes sque mejor se adapten a tu necesidad, número de columnas y espacio entre ellas, layout order, etc.
 +
 
 +
 
 +
[[Image:lazreptutprintoptions.png | center]]
 +
 
 +
=== Opciones de reporte ===
 +
 
 +
Via File>Report Options you can set a default printer that will be used for the report (using the "Select when report loaded" checkbox).
 +
 
 +
Si necesitas incluir el número total de páginas con el número número de págica en cada página entonces necesitas seleccionar
 +
'''Two-pass report''' (lo cual indica a Lazreport que genere el reporte una segunda vez, insertando el número total de páginas en la segunda pasada).
 +
 
 +
 
 +
[[Image:lazreptutreportoptions.png|center]]
 +
 
 +
 
 +
En la solapa '''Other''', se pueden rellenar metadatos, tal como se muestra en el siguiente pantallazo:
 +
 
 +
 
 +
[[Image:lazreptutreportoptionsother.png|center]]
 +
 
 +
=== Variables de propósito general ===
 +
 
 +
Ahora añadimos al ejemplo algunas variables del reporte no relacionadas con la base de datos. Permitirán por ejemplo mostrar diferentes nombres de acuerdo al contexto.
 +
 
 +
Para hacer esto, abre el editor de reportes y selecciona el menú de fichero y la variable '''List'''. Añade una categoría '''Test''' y una variable '''test1''' del mismo modo que hicimos previamente (con un espacio antes del nombre de la variable):
 +
 
 +
[[Image:lazreptutvariableseditortestvar.png | center]]
 +
 
 +
 
 +
La única diferencia es que no tendrás que seleccionar un valor de campo, pero deja None (el valor por defecto):
 +
 
 +
 
 +
[[Image:lazreptutvariabletest.png | center]]
 +
 
 +
 
 +
Retorna a Lazarus (no olvides salvar el reporte, en caso necesario) y establece el evento '''OnGetValue'' del componente '''frReport1''' añadiendo el siguiente código:
 +
 
 +
<source lang="delphi">
 +
procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant
 +
  );
 +
begin
 +
if ParName='test1' then
 +
  ParValue:='hola, soy el valor pasado a la variable test1';
 +
end;
 +
</source>
 +
Se pueden pasar cadenas, fechas, números, de forma directa o mediante variables o constantes, por ejemplo es válido pasar edit1.Text o llamar a una función inclusive.
 +
 
 +
Alternativamente se puede además pasar el valor directamente a la variable utilizando el siguiente código:
 +
 
 +
<source lang="delphi">
 +
procedure TForm1.Button1Click(Sender:TObject);
 +
begin
 +
  frReport1.Values.FindVariable('test').Field := QuotedStr('test1');
 +
  frReport1.ShowReport;
 +
end;
 +
</source>
  
If you go to File>Preview, you'll see your report includes the images.
+
== See also ==
 +
* [[LazReport Tutorial/pt|Tutorial de LazReport]] Version used as a basis for this translation.
 +
* [[LazReport Documentation]]
  
Close the report editor and save the report definition as '''lazreporttutorial.lrf'''.
+
[[Category:Tutorials/es]]
 +
[[Category:Lazarus/es]]
 +
[[Category:LazReport/es]]

Latest revision as of 16:12, 29 January 2020

Deutsch (de) English (en) español (es) português (pt)

Descripción

Esta página comenzó como una traducción de un escrito en Portugés Tutorial de LazReport (el cual a su vez parece una traducción de un documento en Francés). Fué actualizado para Lazreport (en vez de para FastReport) para Lazarus (en lugar de para Delphi), utilizando T*Connection en lugar de una tabla de DBase.

Comenzando con LazReport

Vamos a utilizar una base de datos de demo que provee Delphi (DBDEMOS). Necesitas crear una nueva aplicación con un formulario principal Form1.

Aquí se asume que se tiene la base de datos establecida tal como se especifica en SQLdb Tutorial0. En caso contrario, por favor realiza dicho paso primero.

Estableciendo tu formulario (form)

Sitúa los siguientes componentes en el formulario principal:

  • Un T*Connection, e.g. TIBConnection:
    • DatabaseName := tu base de datos, e.g. C:\Program Files\Firebird\Firebird_2_5\examples\empbuild\EMPLOYEE.FDB
    • Nombre de usurio(UserName), contraseña (Password), nombre de equipo (HostName): apropiadamente (e.g. SYSDBA,password,<none> para Firebird embebido)
    • Transaction: TSQLTransaction1
  • TSQLTransaction
  • TSQLQuery:
    • Database := IBConnection1
    • Active: true
    • SQL: SELECT * FROM employee
  • TDataSource
    • DataSource1.DataSet := SQLQuery1
  • TfrDBDataSet
    • frDbDataSet.DataSource := DataSource1
  • TfrReport
  • TfrDesigner
  • 2 TButton
  • Button1.Caption := 'Edición'
  • Button2.Caption := 'Vista previa'

Esto dará el resultado siguiente:


lazreptut01.png

Haz Doble-click en el icono TfrReport (or right-click, Design Report) para traer al frente el diseñador de reportes:


lazreptut01b.png


Estableciendo variables

LazReport permite enlazar nombres de variables a bases de datos o valores del sistema, evitando así a los usuarios finales tener que descifrar nombres de campo crípticos. En nuestro ejemplo vamos a crear unas variables para nuestros campos de la base de datos FIRST_NAME, LAST_NAME etc.

En el menú de ficheros, haz click en Variables list. Ahora se obtiene una descripción de las variables definidas:


lazreptutvariableseditor.png


Pulsa en el botón Variables en orden a definir algunas variables. Escribe el contenido de acuerdo a la siguiente imagen. "Demo Variables" representa una categoría y las otras entradas (campos xxx) representan variables. Para diferenciar ambas, las variables comienzan con un espacio.

Nota. La distinción entre variables y categorías de variables mediante la anteposición de un espacio, es única y exclusivamente en éste formulario (Variables List). En todo otro lugar (Diseñador de reportes, código fuente y scripts), la variable debe invocada sin espacios.

lazreptutdefinevariables.png


Finalmente haz click en OK para confirmar tus entradas, y entonces verás esto:


lazreptutvariablesdefined.png


Como puedes ver, la categoría que hemos definido se muestra en el ComboBox above de las variables. Cada variable debe enlazarse con su campo correspondiente. Para hacer esto, selecciona la variable y a continuación el campo. Realizar esto para todas las variables; el pantallazo muestra el enlace para Hire date:


lazreptutvarhiredatetofield.png

Objetos y bandas

Después de cerrar el editor de variables volvemos a nuestro diseñador de reporters. Habrás notado que aparece un pequeño número de objetos en la barra de la izquierda de la superficie de reporter. Estos son:

  • El icono del puntero del ratón.
  • El objeto rectángulo.
  • Banda.
  • Objeto picture.
  • Subreport
  • Dibujar líneas.
  • Insertar objeto de código de barras (barcode).


lazreptut01b.png


Haz Click en el icono de banda, ve a la superficie del report y haz click en el para depositar el objeto banda.


lazreptutinsertnewband.png


Debes hacer click en el tipo de banda que necesitas crear. Selecciona Report title y haz click en OK.


Tipo de banda Uso
Report title Muestra solamente la primera página
Report summary Mustra solamente la última página
Page header Muestra al comienzo de cada página
Page footer Muestra al final de cada página
Master header Shown at the beginning of the first detail band/level
Master data First detail level data; repeated for each record in dataset
Master footer Shown at the end of the first detail band/level
Detail header Shown at the beginning of the second detail band/level
Detail data Second detail level data
Detail footer Shown at the end of the second detail band/level
Subdetail header Shown at the beginning of the third detail band/level
Subdetail data Third detail level data
Subdetail footer Shown at the end of the third detail band/level
Overlay Shown once on each page lower layer
Column header Muestra al principio de cada columna
Column footer Muestra al fondo de cada columna
Group header Shown at the top of every group
Group footer Muestra al fondo de cada grupo
Cross header Shown at the top of cross tables/pivot tables
Cross data Shows cross tables/pivot table data
Cross footer Shown at the bottom of cross tables/pivot tables

Titulo del reporte

En la banda del editor de reportes, añade un rectángulo. Aparecerá el editor de texto. En la primera línea se debe indicar el título del reporte, añade un rectángulo.

En la segunda se necesita añadir la fecha y la hora. Ambas se obtienen haciendo click en Variable y a continuación en Category Other, seguido de un doble click en la variable deseada (una vez que te has familiarizado con las variables puedes también teclearlas). Ahora tenemos:


lazreptutreporttitle.png


Haz Click en OK para salir del editor y a continuación ajusta el rectángulo del título al tamaño deseado. Escoge un color para el fondo con el pulsadorC Bucket Fill de la barra de utilidades.

El evento principal: mostrando datos en la banda de datos maestra

Vamos a insertar una banda de datos maestra. Lazreport pregunta por una fuente de datos; escoge frDBDataSet1, para nuestro ejemplo. La banda maestra se repetirá para cada registro de la fuente de datos. Puedes hacer doble click posteriormente en la banda si se necesita cambiar dicha fuente de datos.


lazreptutbanddatasource.png


En la mitad izquierda de la banda insertamos un rectángulo y hacemos un doble click. Aparece el editor de texto que ya nos resulta familiar.

Ahora vamos a añadir varios campos en un rectángulo. En caso necesario se puede utilizar un rectángulo por campo para aplicar diferentes formatos etc.


La primera línea Name [Full name field] se obtiene escribiendo Name y a continuación, con el pulsador Variable, entrar la variable [Field Name]. Alternativamente, tal como se indicó antes, se puede escribir directamente el texto resultante.

La siguiente línea Salary [Salary field] se escribe de manera similar.

La tercera línea - Salary divided by job grade [[Salary field]/[Job grade field]] - se realiza de igual modo. Esto muestra que se pueden realizar cálculos con los campos que tenemos en la fuente de datos. Fíjate en el conjunto extra de corchetes alrrededor del cálculo. Como puedes intuir, no solamente se pueden utilizar las variables listadas a través del pulsador Variable , sino también las de los campos de la base de datos a través de DB Field.


lazreptutmasterdata.png


Puedes utilizar todo tipo de operadores y funciones en los cálculos; ver LazReport Documentation#Documentation para una descripción.

Formateando la salida

Se puede controlar el modo en que se muestra el texto en los rectángulos.

Añadamos primero un nuevo rectángulo con la variable Hire date field.

En el editor de variables vamos a establecer un formato. Un formato es válido para todas las variables de un rectángulo/objeto. Para mostrar el editor de formato, hacemos doble click en un rectángulo para obtener el editor de texto, a continuación hacemos click en el pulsador de formato Format.

Establezcamos el formato fecha (date) que se necesita aquí:


lazreptutformattingdate.png


El primer ComboBox indica el tipo de dato (texto, numérico, fecha, hora, lógico/booleano). El segundo nos permite seleccionar el formato presenteThe second lets .... con algunas restricciones obvias:

  • El tipo Texto no permite cualquier tipo de formato de número.
  • El tipo número requiere un número decimal con una coma (Por favor verifica esto y ajusta el artículo si es necesario. ¿es esto específico del pais?). A excepción de para texto y tipos lógicos, se puede utiliar el mismo tipo de formato de cadenas que se utilizan en Lazarus.

Otras opciones de formato se encuentran presentes en el pulsador debajo del menú (e.g (e.g. negrita (bold), italica (italic), resaltada (Highlighting) ).

El formato resaltado (Highlighting) resulta muy útil para enfatizar datos. Se puede especificar una condición que determine cuando se aplica dicho resaltado.

Para ello, utiliza el valor del keyword para indicar el valor de la variable. Aquí es el resaltado para all hire dates posteriores a 1989. Debido a que Hire date es un campo TDateTime (el cual es internamente un float), I cheated por utilizar el valor tipo flot de January 1st, 1990 el cual es 32874. Por defecto highlighter es simplemente el formato negrita sobre fondo blanco. Se pueden establecer estos parámetros para un área haciendo click en el pulsador de Highlight.


lazreptutconditionalhighlight.png


Una imagen es mejor que ...

Si no lo has hecho todavía, necesitaremos añadir un campo PHOTO a nuestro test de bases de datos; utilizando una sentencia SQL como esta (nota: desafortunadamente las distintas bases de datos utilizan sintaxis diferentes; BLOB puede ser CLOB,IMAGE,OLE...):

ALTER TABLE EMPLOYEE ADD PHOTO BLOB;

Ahora añadamos algún test de datos - este ejemplo utiliza ficheros jpg - dentro del campo PHOTO por media de tu herramienta de bases de datos favorita. Nota: este es el modo en que trabaja DBImage de Delphi: justamente blobs binarios con datos de imagen. Por defecto Lazarus DBImage es más flexible y almacena la extensión del fichero antes de los datos de la imagen, permitiendo utilizar diferentes formatos de fichero. En aras de la simplicidad utilizaremos la modalidad de Delphi.

Note-icon.png

Nota: para trabajar con esto "DBImage BLOB sin información de la extensión de fichero" , necesitarás el patch a la incidencia 25453/al menos la revisión ... de LazReport

Ahora debemos indicar al reporte que debe tratar todos los datos de imagen como ficheros binarios en formato jpg. Haz Click en frReport1, ve al inspector de objetos, eventos, y comienza un procedimienton OnDBImageReader:

procedure TForm1.frReport1DBImageRead(Sender: TObject; S: TStream;
  var GraphExt: string);
begin
  // Fuerza TDBImage a ser compatible con las características de Delphi: únicamente admite un tipo de fichero, e.g. jpg
  // esto significa que los BLOBs de la base de datos deben ser ficheros binarios de formato jpg sin ningún otro dato.
  GraphExt:='jpg';
end;

In File>Variables List, añade el campo SQLQuery1.PHOTO como variable de campo Photo, de manera similar a como se hizo antes. En caso de que no se visualice el campo, puede que sea necesario establecer la SQLQuery del formulario a inactivo y de nuevo a activo para refrescar el listado de columnas. .

Click on the Insert image... icon on the left of the window; now click on the right side of the band to drop the image control. A Picture editor shows up:


lazreptutpictureeditor.png


Si necesitas que se muestre siempre la misma imagen, simplemente necesitas hacer click Load ... (o hacer doble click en el control de imagen) y escoger tu imagen.

However, presionemos el botón Memo e insertemos una variable Photo:


lazreptutphotofield.png


Esto pone la imagen dentro del objeto asociado al campo de datos. Presiona OK cuando necesites retornar al diseñador de reportes.

Ajusta la altura y el ancho a tus necesidades.

Además puedes presionar F11 para mostrar el Inspector de Objetos, el cual permite editar más si se necesita:


lazreptutobjectinspector.png


Cierra el editor de reportes y salva la definición del reporte (con el mismo nombre, lazreporttutorial.lrf).

Si vas a File>Preview, verás que tu reporte incluye las imágenes.

Cierra el editor de reportes y salva las defniciones del reporte como lazreporttutorial.lrf.

Detail data

To do: show how to use the detail part of master/detail. see e.g. sample in components/lazreport/samples/editor directory; see the button title "Master-Detail" Please write me.

Loading the report from the form

Now let's write the code required to load and view or edit our report. To this add the following code to the project:

TForm1.Button2Click(Sender procedure: TObject);  
begin 
  frReport1.LoadFromFile('lazreporttutorial.lrf');  
  frReport1.ShowReport;  
end;
TForm1.ButtonClick(Sender procedure: TObject);  
begin 
  frReport1.LoadFromFile('lazreporttutorial.lrf');  
  frReport1.DesignReport;  
end;

You have a preview option that gives end users a way to modify the report without changing the basic application.

Imprimiendo

Ahora vamos a ir añadiendo características a nuestro ejemplo básico:

Añadimos un componente TButton con Caption := Print...' y un diálogo TPrintDialog. Detrás de la escena se debe añadir por parte del IDE una dependencia del paquete Printer4Lazarus por lo que hay que asegurarse de tener este paquete instalado. Add a TButton component with Caption := 'Print...', and a TPrintDialog. Behind the scenes, a project dependency on the

Finalmente tendremos esto:


lazreptutformwithprintbutton.png


Ahora añadimos la unidad printers a la claúsula uses del formulario.


Pon el siguiente código en el evento OnClick del pulsador Print:

procedure TForm1.Button3Click(Sender: TObject);
var
  FromPage, ToPage, NumberCopies: Integer;
  ind: Integer;
  Collap: Boolean;
begin
  // Carga la definición del reporte desde el directorio de la aplicación
  AppDirectory:=ExtractFilePath(ParamStr(0));
  frReport1.LoadFromFile('lazreporttutorial.lrf');
  // Necesitamos mantener la pista de que impresora está seleccionada originalmente para chequear cambios por parte del usuario
  ind:= Printer.PrinterIndex;
  // Prepara el reporte y para si obtenemos un error ya que continuar no tendría sentido en esta situación.
  if not frReport1.PrepareReport then Exit;
  // Establecemos un diálogo con información de valores por defecto que el usuario posteriormente puede cambiar.
  with PrintDialog1 do
  begin
    Options:=[poPageNums ]; // permite seleccionar número/s de página/s
    Copies:=1;
    Collate:=true; // copias ordenadas
    FromPage:=1; // página de comienzo
    ToPage:=frReport1.EMFPages.Count; // página final
    MaxPage:=frReport1.EMFPages.Count; // máximo número de páginas permitidas.
    if Execute then // mostrar diálogo; si satisfactorio, procesa la feedback del usuario
    begin
      if (Printer.PrinterIndex <> ind ) // verify if selected printer has changed
        or frReport1.CanRebuild // ... solamente tiene sentido si se puede reformatear el reporte
        or frReport1.ChangePrinter(ind, Printer.PrinterIndex) //... entonces cambia de impresora
        then
        frReport1.PrepareReport //... y reformatear para una nueva impresora
      else
        exit; // we couldn't honour the printer change

      if PrintDialog1.PrintRange = prPageNums then // user made page range selection
      begin
        FromPage:=PrintDialog1.FromPage; // primera página
        ToPage:=PrintDialog1.ToPage;  // última página
      end;
      NumberCopies:=PrintDialog1.Copies; // Número de copias
      // Imprime el reporte utilizando las páginas solicitadas & número de copias.
      frReport1.PrintPreparedReport(inttostr(FromPage)+'-'+inttostr(ToPage), NumberCopies);
    end;
  end;
end;

Es un poco largo, pero necesario, puedes crear un descendiente de TfrReport con un método o clase de impresión fácil, crear un procedimiento PrintReport (Report: string) para cargar el reporte e imprimir.

cuando hacemos doble click en frReport1, obtenemos ein the report designer File>Page Options menu you get this:

Select paper size:


lazreptutpapersize.png


Escoge los márgenes sque mejor se adapten a tu necesidad, número de columnas y espacio entre ellas, layout order, etc.


lazreptutprintoptions.png

Opciones de reporte

Via File>Report Options you can set a default printer that will be used for the report (using the "Select when report loaded" checkbox).

Si necesitas incluir el número total de páginas con el número número de págica en cada página entonces necesitas seleccionar Two-pass report (lo cual indica a Lazreport que genere el reporte una segunda vez, insertando el número total de páginas en la segunda pasada).


lazreptutreportoptions.png


En la solapa Other, se pueden rellenar metadatos, tal como se muestra en el siguiente pantallazo:


lazreptutreportoptionsother.png

Variables de propósito general

Ahora añadimos al ejemplo algunas variables del reporte no relacionadas con la base de datos. Permitirán por ejemplo mostrar diferentes nombres de acuerdo al contexto.

Para hacer esto, abre el editor de reportes y selecciona el menú de fichero y la variable List. Añade una categoría Test y una variable test1 del mismo modo que hicimos previamente (con un espacio antes del nombre de la variable):

lazreptutvariableseditortestvar.png


La única diferencia es que no tendrás que seleccionar un valor de campo, pero deja None (el valor por defecto):


lazreptutvariabletest.png


Retorna a Lazarus (no olvides salvar el reporte, en caso necesario) y establece el evento OnGetValue del componente frReport1' añadiendo el siguiente código:

procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant
  );
begin
 if ParName='test1' then 
   ParValue:='hola, soy el valor pasado a la variable test1'; 
end;

Se pueden pasar cadenas, fechas, números, de forma directa o mediante variables o constantes, por ejemplo es válido pasar edit1.Text o llamar a una función inclusive.

Alternativamente se puede además pasar el valor directamente a la variable utilizando el siguiente código:

procedure TForm1.Button1Click(Sender:TObject);
begin
  frReport1.Values.FindVariable('test').Field := QuotedStr('test1');
  frReport1.ShowReport;
end;

See also