Buscar palabras clave en la documentación    Buscar Ayuda

Doc. Ref. 9560
Título: Ejemplo básico de listado en Excel
Autor: Hexa
Última actualización: 15/09/2014


Ejemplo básico de listado en Excel

Generar desde Hexa listados en Excel mediante un script es muy sencillo

La ventaja principal respecto a los listados con Crystal Reports es la flexibilidad que proporciona la construcción manual del listado con un script que puede acceder a todos los objetos, propiedades y métodos de Hexa.

En el ejemplo se genera un listado de facturas que se lanzaría desde un botón de acción de un formulario de criterios

Sub Main (PS0, PS1, PS2)
'Crear la hoja excel
Set Hoja = CreateObject ("Excel.Application")
Hoja.Visible = -1 : Hoja.Workbooks.Add : Hoja.Workbooks(1).Sheets.Add 'Mostrar excel y crear una hoja
Hoja.Workbooks(1).Sheets(1).Activate
Hoja.Cells (1, 1).Value="Numero"
Hoja.Cells (1, 2).Value="Fecha"
Hoja.Cells (1, 3).Value="Vencimiento"
Hoja.Cells (1, 4).Value="Cliente"
Hoja.Cells (1, 5).Value="Nombre"
Hoja.Cells (1, 6).Value="Total"
Set Factura = CreateObject("ADODB.RecordSet") : Factura.CursorLocation = 3 'AdUseClient
Factura.Open "SELECT Prefijo, Numero, Fecha, Vencimiento, Cliente, Nombre, Total FROM Factura " & FH.SQLWO ("" & PS0, "" & PS1), Cn : Set Factura.ActiveConnection = Nothing
F = 2
Do While Not Factura.EOF
Hoja.Cells (F, 1).Value = Factura.Fields ("Prefijo") & "-" & Factura.Fields ("Numero")
Hoja.Cells (F, 2).Value = "'" & Factura.Fields ("Fecha")
Hoja.Cells (F, 3).Value = "'" & Factura.Fields ("Vencimiento")
Hoja.Cells (F, 4).Value = Factura.Fields ("Cliente")
Hoja.Cells (F, 5).Value = Factura.Fields ("Nombre")
Hoja.Cells (F, 6).Value = Factura.Fields ("Total")
Factura.MoveNext : F = F + 1
Loop
Hoja.Range("F:F").HorizontalAlignment = 1
Hoja.Columns("A:F").EntireColumn.AutoFit
End Sub
Tags Relacionados:

script pedido albaran factura descuento cliente proceso