Codificación del reporte

 

El que sigue a continuación es el código de el reporte de nuestra agenda. La primera parte es la que “diseña” el reporte y lo dibuja mediante los eventos data que aparecen a continuación y que relacionan las etiquetas con la columna de datos a presentar, y a su vez se van moviendo por los datos con la sentencia MoveTo(Index) de acuerdo a su índice.

 

‘ Gambas class file

Private hRes1 As Result
Private hConn As Connection

Public Sub _new()
Dim ReportHBox1 As ReportHBox
Dim ReportVBox1 As ReportVBox
Dim lbnombre, lbapellido, lbtelfijo, lbtelmovil, lbcumple, lbemail As ReportLabel
If hconn = Null Then
hconn = modcon.ConectarBase()
Else
End If
ReportVBox1 = New ReportVBox(Me)
ReportVBox1.Expand = True

ReportHBox1 = New ReportHBox(ReportVBox1)
ReportHBox1.Height = “8mm”
lbnombre = New ReportLabel(ReportHBox1) As “lbnombre”
lbnombre.Width = “30mm”
lbnombre.Alignment = Align.Center
lbapellido = New ReportLabel(ReportHBox1) As “lbapellido”
lbapellido.Expand = True
lbapellido.Alignment = Align.Center
lbtelfijo = New ReportLabel(ReportHBox1) As “lbtelfijo”
lbtelfijo.Expand = True
lbtelfijo.Alignment = Align.Center
lbtelmovil = New ReportLabel(ReportHBox1) As “lbtelmovil”
lbtelmovil.Expand = True
lbtelmovil.Alignment = Align.Center
lbtelmovil = New ReportLabel(ReportHBox1) As “lbcumple”
lbtelmovil.Expand = True
lbtelmovil.Alignment = Align.Center
lbtelmovil = New ReportLabel(ReportHBox1) As “lbemail”
lbtelmovil.Expand = True
lbtelmovil.Alignment = Align.Center
hRes1 = hconn.Exec(“Select * from mitabla “)
ReportHBox1.DataCount = hRes1.Count

End

Public Sub lbnombre_Data(Index As Integer)

hRes1.MoveTo(Index)
Last.data = hRes1!nombre

End

Public Sub lbapellido_Data(Index As Integer)

hRes1.MoveTo(Index)
Last.data = hRes1!apellido

End

Public Sub lbtelfijo_Data(Index As Integer)

hRes1.MoveTo(Index)
Last.data = hRes1!telefono_fijo

End

Public Sub lbtelmovil_Data(Index As Integer)

hRes1.MoveTo(Index)
Last.data = hRes1!telefono_movil

End
Public Sub lbcumple_Data(Index As Integer)

hRes1.MoveTo(Index)
Last.data = hRes1!cumple

End

Public Sub lbemail_Data(Index As Integer)

hRes1.MoveTo(Index)
Last.data = hRes1!email

End

El próximo paso es crear reportes condicionales,estoy trabajando en ello.

Saludos

Anuncios
Esta entrada fue publicada en programación y etiquetada , , , , . Guarda el enlace permanente.

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