LazReport Tutorial/es

│ 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:

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

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:

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.

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

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:

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).

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

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:

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.

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.

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í:

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.

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.

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:

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:

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:

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:

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:

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

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).

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

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):

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

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

• Tutorial de LazReport Version used as a basis for this translation.
• LazReport Documentation