Doc. Ref. 9560 Título: Ejemplo básico de listado en Excel Autor: Hexa Última actualización: 15/09/2014 #script #pedido #albaran #factura #descuento #cliente #proceso

---

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

Volver a la búsqueda anterior