Gb.Report. Componente para Generar Reportes

Este es uno de los componentes menos utilizados en Gambas. Porque? bueno, casi no existen ejemplos de como utilizarlo. La información que aparece en la ayuda de Gambas se limita solo a mostrar las propiedades, metodos y eventos de este componente, pero nada mas.

Afortunadamente alguien desarrollo un ejemplo que andaba rodando por la red desde el año 2007, pero estaba incompleto y erroneo.

Luego de mucho ensayo y error, logre conseguir que funcionaria, aqui les dejo una pantalla:

Ejemplo de reporte con Gb.Report

El formulario en vista de diseño, debe ser algo asi:

Formulario en vista de diseño

y el codigo es el siguiente:

PRIVATE hCon AS NEW Connection
PRIVATE hResult AS Result

PUBLIC SUB _new()
hcon.host = “localhost”
‘hcon.Port = 3306
hCon.User = “root”
hCon.Type = “mysql”
hcon.Name = “tu_bd” ‘nombre de la bd
hCon.Password = “tu_password” ‘tu password

hResult = hcon.Exec(“select nombre, password, saldo from usuarios”) ‘consulta a una tabla interna de mysql
InitReport()
DrawingArea1.Width = Printer.Width
DrawingArea1.Height = Printer.Height
Report.Zoom = 0.75 ‘para imprimir ponemos el zoom a 1
CATCH
Message(Error.Text & “\n” & Error.Where & “\n\n¿Password Incorrecto?”)

ME.Close
END

PUBLIC SUB Form_Open()

SpinBox1_Change ‘al disparar este evento, se dibuja el reporte

END

PRIVATE SUB InitReport()
DIM hCloner AS ReportCloner
DIM hLabel AS ReportLabel
DIM hField AS ReportField
DIM hHbox AS ReportHBox
DIM hEmpty AS ReportHBox
DIM hVBox AS ReportVBox
DIM hSpecialField AS NEW ReportSpecialField

Report.width = “21 cm”
Report.Height = “29.7 cm”
‘ Report.Size = “A4”

Report.Orientation = Report.Portrait ‘Report.Landscape
Report.LineStyle = line.Solid
Report.Padding = “1 cm”
Report.Resolution = Desktop.Resolution ‘Printer.Resolution
‘para imprimir cambiamos a printer.resolution

hLabel = NEW ReportLabel(Report)
hLabel.Text = “PRUEBA DE REPORTE BD CIBER KAISER”
hLabel.Height = “2.5 cm”
hLabel.Alignment = Align.Center
hLabel.Font.Size = 25
hLabel.LineStyle = Line.Solid
hLabel.FillColor = Color.LightBackground
hLabel.FillStyle = Fill.Solid

hVBox = NEW ReportVBox(Report)
hVBox.Height = “1.5 cm”

hCloner = NEW ReportCloner(Report)
hCloner.Expand = TRUE
hCloner.Count = hResult.Count
hCloner.Tag = “cloner”
hCloner.Spacing = “0.3 cm”

hVBox = NEW ReportVBox(hCloner)
hVBox.Height = “1.5 cm”
hVBox.Padding = “0.2 cm”
hVBox.LineStyle = line.Solid
hVBox.Tag = “hVBox”

hHbox = NEW ReportHBox(hVBox)
hHbox.Height = “1 cm”
hHbox.Padding = “0.2 cm”
hHbox.Tag = “hHbox”

hLabel = NEW ReportLabel(hHbox)
hLabel.Text = “Nombre:”
hLabel.Width = “2 cm”
hLabel.Font.Bold = TRUE
hLabel.Tag = “hLabel”

hField = NEW ReportField(hHbox) AS “FieldNombre”
‘creamos tantos ReportField como columnas de la bd queramos mostrar
‘con su manejador de evento correspondiente “Data”
hField.tag = “FieldNombre”
hField.LineStyle = Line.Dot
hField.Width = “5 cm”
hField.Font.Bold = TRUE
hField.ForeColor = color.Gray

hEmpty = NEW ReportHBox(hHbox)
hEmpty.Expand = TRUE

hLabel = NEW ReportLabel(hHbox)
hLabel.Text = “Password:”
hLabel.Width = “2 cm”

hField = NEW ReportField(hHbox) AS “FieldPassword”
hField.Tag = “FieldPassword”
hField.Width = “5 cm”
hField.LineStyle = Line.Dot
hField.ForeColor = color.Gray

‘hHbox = NEW ReportHBox(hVBox)
‘hHbox.Height = “0.5 cm”

hLabel = NEW ReportLabel(hHbox)
hLabel.Text = “Saldo:”
hLabel.Width = “2.2 cm”
hLabel.ForeColor = color.Red

hField = NEW ReportField(hHbox) AS “FieldSaldo”
hField.Tag = “FieldSaldo”
hField.Font.Italic = TRUE
hField.ForeColor = color.Gray
hField.Width = “5 cm”
hField.LineStyle = Line.Dot

hSpecialField = NEW ReportSpecialField(Report)

hSpecialField.Text = “Pagina $PAGE/$NPAGE”
hSpecialField.Height = “1 cm”
hSpecialField.Alignment = align.Center

END

PUBLIC SUB FieldNombre_Data()
hResult.MoveTo(LAST.Index – 1)
LAST.Data = hResult!nombre
DEBUG LAST.Data
‘CATCH
END

PUBLIC SUB FieldPassword_Data()
hResult.MoveTo(LAST.Index – 1)
LAST.Data = hResult!password
‘CATCH
END

PUBLIC SUB FieldSaldo_Data()
hResult.MoveTo(LAST.Index – 1)
LAST.Data = hResult!saldo
‘CATCH
END

PUBLIC SUB SpinBox1_Change()
DrawingArea1.Clear
Draw.Begin(DrawingArea1) ‘para imprimir, cambiamos el device a Printer
Report.Layout
SpinBox1.MaxValue = Report.count
Report.Draw(SpinBox1.Value)
Draw.End

END

Espero que sea de utilidad para todos. hasta la proxima!

13 comentarios en “Gb.Report. Componente para Generar Reportes

  1. josegt509 dijo:

    buenos dias como estan de verdad Me parece un aporte muy bueno, tengo una pregunta tengo una aplicacion realizada con gambas2 pero al enpezar agregar el gb.Report me dice que hay cosas no compatebles pero yo las estoy usando y si has trabajado con agata que he leido que es igual a crista report sin mas que hacer referencia por favor avime gracias por tus conocimientos aportado he aprendido mucho de estos codigos gracias de verdad, esperando pronta repuesta que el señor los siga Bendiciendo

    • hola. si puedes ser un poco mas especifico sobre cual es el problema que presenta cuando generas o empiezas a contruir con el componente gb.report quizas pueda ayudar un poco. sobre agata report, he tratado en varias oportunidades de instalarlo sin mayor exito.

  2. Yudith dijo:

    me gustaria obtener el programita descargable por fis, es que copie el codigo para probarlo y me sale un error en Report.Draw(SpinBox1.Value) que dice This page does not exist
    por favor ayudame con esto

  3. josegt509 dijo:

    BUENAS NOCHE YA MUESTRO EL REPORTE PERO COMO LE HAGO PARA IMPRINMIR UN TAMAÑO ESPECIFICO TODO LO DE MAS ESTA FINO MUCHAS GRACIAS ESPERANDO PRONTA REPUESTA

  4. angel dijo:

    he logrado hacerlo funcionar con otra tabla, pero no muestra nada mas que una pagina cuando la tabla tiene mas de 300 registros.
    Report.count es siempre 1

    • hay muy poca informacion sobre este reporte. se prevee que en la version 3 de gambas, se presente un asistente de diseño que facilite el desarrollo de reportes del manera visual.
      cualquier forma, estamos a la orden.

  5. Jorge dijo:

    Estimados:
    Estoy tratando de crear un reporte con Gambas 3 pero para ello se debe tener activado tanto gb.Report y gb.qt4 como gb.qt4.ext. El proeblema es que estos componentes no son compatibles con gb.gui ni con gb.gtk y, por tanto mi reporte queda en blanco. ¿Hay alguien que me pueda sugerir algo al respecto? Gracias de antemano.

  6. Anderson Viscarra dijo:

    Saludos, estoy realizando un reporte en el cual tengo un vector con datos y no puedo imprimir la información en el reporte no se como realizar me podrían ayudar

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s