Export To Excel Pattern (Sp)

Nombre

ExportToExcel.

Intención 

Generar un procedimiento que exporte la información de una Tabla a una planilla Excel.
Poder especificar también un template que se le aplicará a la planilla y permitir configurar en qué fila y columna de la planilla Excel se comenzarán a escribir los datos.

Implementación

Asumiendo que el pattern se aplica a una TRN como la siguiente:

Customers

CustomerId*
CustomerName
CustomerBirthDate

se generará un procedimiento como el siguiente:

&Filename = 'CustomerExcelExport.xls'
&ExcelDocument.UseAutomation = 0
&ExcelDocument.Open(&Filename)
Do 'CheckStatus'
&ExcelDocument.Clear()

&CellRow = 1
&FirstColumn = 1

// Write titles
&ExcelDocument.Cells(&CellRow, &FirstColumn + 0).Bold = 1
&ExcelDocument.Cells(&CellRow, &FirstColumn + 0).Text = 'Customer Id'
&ExcelDocument.Cells(&CellRow, &FirstColumn + 1).Bold = 1
&ExcelDocument.Cells(&CellRow, &FirstColumn + 1).Text = 'Customer Name'
&ExcelDocument.Cells(&CellRow, &FirstColumn + 2).Bold = 1
&ExcelDocument.Cells(&CellRow, &FirstColumn + 2).Text = 'Customer Birth Date'
For each
 // Write cell values
    &CellRow += 1
 &ExcelDocument.Cells(&CellRow, &FirstColumn + 0).Number = CustomerId
 &ExcelDocument.Cells(&CellRow, &FirstColumn + 1).Text = CustomerName
 &ExcelDocument.Cells(&CellRow, &FirstColumn + 2).Date = CustomerBirthDate
Endfor

&ExcelDocument.Save()
Do 'CheckStatus'
&ExcelDocument.Close()

Sub 'CheckStatus'
    If (&ExcelDocument.ErrCode <> 0)
        &Filename = ""
        &ErrorMessage = &ExcelDocument.ErrDescription
        &ExcelDocument.Close()
        Return
    Endif
Endsub

Implementación del Pattern ExportToExcel 

ExportToExcel Instance File

El archivo de instancia del pattern ExportToExcel contiene los siguientes nodos:

Folder - Folder donde se generará el procedimiento que exporta a Excel. El procedimiento se genera por defecto con el nombre Export<TRNNAme>
ExcelFileName - Nombre de la planilla Excel que se generará.

ExportToExcel.Config

En este archivo es posible configurar:

• Template que se asignará a la planilla Excel 
• Número de Fila de la planilla donde se comenzará a escribir la información
• Número de la Columna de la planilla donde se comenzará a escribir la información

Objetos GeneXus generados

Este pattern genera un procedimiento llamado Export<TRNName> que es el que realizará la exportación de todos los datoa de una tabla a Excel.

Instalación

Copiar los archivos del ExportToExcel.zip debajo de C:\Program Files\ARTech\Patterns11\Patterns. Luego al ejecutar Patterns aparecerá en la lista de patterns disponibles.