|
Página 1 de 1
|
Autor |
Mensaje |
Trydents
Usuario
Registrado: Julio 2013
Mensajes: 5
Edad: 36
|
GB.Report
uenas...
Estoy haciendo un reporte con gb.reporte, pero no se como llamarlo es decir que apriete un boton y abra una ventana para que aparezca... No se si es que se llama a un formulario aparte y este lo geńera dentro o se llama directamente para que se muestre el modulo de reporte...
De ante mano Gracias...
|
#1 Martes, 09 Julio 2013, 15:20 |
|
|
jesus
jesus hermandez
Usuario
Registrado: Junio 2013
Mensajes: 8
Edad: 32 Ubicación:
|
Re: GB.Report
uenas...
Estoy haciendo un reporte con gb.reporte, pero no se como llamarlo es decir que apriete un boton y abra una ventana para que aparezca... No se si es que se llama a un formulario aparte y este lo geńera dentro o se llama directamente para que se muestre el modulo de reporte...
De ante mano Gracias...
Rep_alumno_Preescolar1er.Preview asi lo hago yo prueba a ver
|
#2 Martes, 09 Julio 2013, 17:58 |
|
|
soldadozero
Programador
Registrado: Junio 2013
Mensajes: 110
Edad: 32 Ubicación: Nicaragua
|
Re: GB.Report
uenas...
Estoy haciendo un reporte con gb.reporte, pero no se como llamarlo es decir que apriete un boton y abra una ventana para que aparezca... No se si es que se llama a un formulario aparte y este lo geńera dentro o se llama directamente para que se muestre el modulo de reporte...
De ante mano Gracias...
http://gambeando.wordpress.com/
lee un poco sobre eso aqui.
es un manual completo sobre el uso de reporte
|
#3 Martes, 09 Julio 2013, 18:00 |
|
|
Trydents
Usuario
Registrado: Julio 2013
Mensajes: 5
Edad: 36
|
Re: GB.Report
Logre llamar el reporte y fue bien hasta alli...
pero ahora tengo problemas cuando se genera, aqui esta el codigo
Public Sub _New()
Dim prom As Float
Dim RHBox, RHla1, RHla2, RHla3 As ReportHBox
Dim lblcedul, lblapellid, lblnombr, lbllano1, lbllano2, lbllano3, lbllare1, lbllare2, lbllare3, lblfn, lblfr As ReportLabel
conexclass.tablapet = "materia"
conexclass.consulta("WHERE id = " & Reporte.matindice)
presentacion.Text = "Materia: " & conexclass.tablarec["nommat"] & Chr$(10) & "Profesor: " & conexclass.tablarec["nomprof"] & " Sección: " & conexclass.tablarec["seccion"]
conexclass.tablapet = "alumnos a1, notas a2"
conexclass.consulta(Subst$("WHERE a2.materia = &1 AND a1.cedula = a1.cedula GROUP BY apellido", Reporte.matindice))
For Each conexclass.tablarec
prom = 0
RHBox = New ReportHBox(Rclone)
RHBox.Height = "10mm"
lblcedul = New ReportLabel(RHBox)
lblcedul.Width = "20mm"
lblcedul.Alignment = Align.Center
lblcedul.Text = conexclass.tablarec["a1.cedula"]
lblapellid = New ReportLabel(RHBox)
lblapellid.Expand = True
lblapellid.Alignment = Align.Center
lblapellid.Text = conexclass.tablarec["a1.apellido"]
lblnombr = New ReportLabel(RHBox)
lblnombr.Expand = True
lblnombr.Alignment = Align.Center
lblnombr.Text = conexclass.tablarec["a1.nombre"]
RHla1 = New ReportHBox(RHBox)
RHla1.Width = "40mm"
lbllano1 = New ReportLabel(RHla1)
lbllano1.Width = "20mm"
lbllano1.Alignment = Align.Center
lbllano1.Text = (((conexclass.tablarec["a2.nota1"] + conexclass.tablarec["a2.nota2"] + conexclass.tablarec["a2.nota3"]) / 3) * 0.3) / 10
prom = prom + Val(lbllano1.Text)
lbllare1 = New ReportLabel(RHla1)
lbllare1.Width = "20mm"
lbllare1.Alignment = Align.Center
If Val(lbllano1.Text) >= 1.8 Then
lbllare1.Text = "A"
Else
lbllare1.Text = "R"
Endif
RHla2 = New ReportHBox(RHBox)
RHla2.Width = "40mm"
lbllano2 = New ReportLabel(RHla2)
lbllano2.Width = "20mm"
lbllano2.Alignment = Align.Center
lbllano2.Text = (((conexclass.tablarec["a2.nota4"] + conexclass.tablarec["a2.nota5"] + conexclass.tablarec["a2.nota6"]) / 3) * 0.3) / 10
prom = prom + Val(lbllano2.Text)
lbllare2 = New ReportLabel(RHla2)
lbllare2.Width = "20mm"
lbllare2.Alignment = Align.Center
If Val(lbllano2.Text) >= 1.8 Then
lbllare2.Text = "A"
Else
lbllare2.Text = "R"
Endif
RHla3 = New ReportHBox(RHBox)
RHla3.Width = "40mm"
lbllano3 = New ReportLabel(RHla3)
lbllano3.Width = "20mm"
lbllano3.Alignment = Align.Center
lbllano3.Text = (((conexclass.tablarec["a2.nota7"] + conexclass.tablarec["a2.nota8"] + conexclass.tablarec["a2.nota9"]) / 3) * 0.4) / 10
prom = prom + Val(lbllano3.Text)
lbllare3 = New ReportLabel(RHla3)
lbllare3.Width = "20mm"
lbllare3.Alignment = Align.Center
If Val(lbllano3.Text) >= 2.4 Then
lbllare3.Text = "A"
Else
lbllare3.Text = "R"
Endif
lblfn = New ReportLabel(RHBox)
lblfn.Width = "20mm"
lblfn.Alignment = Align.Center
lblfn.Text = prom
lblfr = New ReportLabel(RHla3)
lblfr.Width = "60mm"
lblfr.Alignment = Align.Center
If Val(lblfn.Text) >= 6 Then
lblfr.Text = "Aprobado"
Else
lblfr.Text = "Reprobado"
Endif
Next
End
Los problemas que tengo son:
1. los campos donde se encuentran los titulos de cada columna me salen muy altos y no logro hacer que se coloque como quiero
2. y el mas importante, aun cuando hago las consultas apropiadamente no se generan los label con la informacion que va a llenar la tabla de reporte (la del titulo si trae su informacion bien).
Gracias a los que me contestaron antes y agredesco de una vez a los que me puedan ayudar con esto...
|
#4 Martes, 09 Julio 2013, 18:31 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
Re: GB.Report
|
#5 Miercoles, 10 Julio 2013, 07:15 |
|
|
Trydents
Usuario
Registrado: Julio 2013
Mensajes: 5
Edad: 36
|
Re: GB.Report
Gracias por toda su ayuda... Pude resolver el problema y que saliera el reporte como queria...
|
#6 Jueves, 11 Julio 2013, 15:41 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: GB.Report
Lo correcto, Trydents, es que hagas constar aquí la solución que encontraste. Cómo lo arreglaste y de dónde sacaste el código o la idea. Después, si editas el post y pones [SOLUCIONADO] después del título, pues ayudas a otros que tengan el mismo problema.
Saludos
|
#7 Jueves, 11 Julio 2013, 17:34 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|