|
Página 1 de 1
|
Ayuda: Impresión De Reportes Con Contenido De Formulario
| Autor |
Mensaje |
 Aerobacterd 
Usuario
Registrado: Octobre 2013
Mensajes: 16
Edad: 33
|
 Ayuda: Impresión De Reportes Con Contenido De Formulario
Saludos programadores, le escribo en solicitud de su ayuda, les detallo mi caso, estoy desarrollando una aplicación para el manejo de libros y usuarios en una biblioteca, realmenta ya esta casi terminada, pero tengo una gran problematica con una de las peticiones del personal, ellos quieren que el programa imprima carnets para los visitantes de la biblioteca, esto lo planeaba hacer usando el compnente gb.report pero la información que se consigue es muy escasa, los tutoriales que aparecen son reportes de listados, mas no encuentro un ejemplo de una impresión individual donde pueda darle un formato mas especifico dejando un espacio para pegarle la foto, esta pensando en hacer el formato en el reporte y pasarle los datos del formulario algo como:
ReportTextlabel1.text= frmcarnet.text1
utilizando el proceso _new() que vi en alguno ejemplos pero por alguna razon no aparecen los textlabel, espero que alguien me pueda ayudar. Muchas gracias
|
#1 Domingo, 23 Febrero 2014, 23:34 |
|
 |
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación:  Albacete
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
No hay mucha información sobre eso, pero Jsbsan, en su blog tiene hecha una aplicación específica para hacer carnets.
Búscala en
http://jsbsan.blogspot.com.es/
|
#2 Lunes, 24 Febrero 2014, 09:28 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
Exactamente esta en esta dirección:
http://generadorcarnets.blogspot.com.es/ç
Saludos
|
#3 Lunes, 24 Febrero 2014, 12:44 |
|
|
Aerobacterd
Usuario
Registrado: Octobre 2013
Mensajes: 16
Edad: 33
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
Hola a todos, estuve revisando y el programa se ve bastante completo, pero no logre dar con el codigo, de igual forma mas que solo hacer los carnets queria aprender a fondo el uso de la herramienta para cualquier posible caso que se presente en el futuro, por eso buscaba un buen tutorial. Gracias
|
#4 Martes, 25 Febrero 2014, 04:21 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
Citar: pero no logre dar con el codigo,
¿Qué quieres decir?
|
#5 Martes, 25 Febrero 2014, 09:50 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
El codigo fuente esta alojado en google code: http://code.google.com/p/generadorcarnet/
Lo puedes descargar usando el comando:
svn checkout http://generadorcarnet.googlecode.com/svn/trunk/ generadorcarnet-read-only
Tienes que tener subversion instalado (svn).
Nota:
No uso gb.report, lo hago de otra manera. 
última edición por jsbsan el Martes, 25 Febrero 2014, 11:32; editado 1 vez |
#6 Martes, 25 Febrero 2014, 11:30 |
|
|
Aerobacterd
Usuario
Registrado: Octobre 2013
Mensajes: 16
Edad: 33
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
gracias, tratare de revisarlo
pero esta parte me intereso 
Citar:
Nota:
No uso gb.report, lo hago de otra manera.
|
#7 Martes, 25 Febrero 2014, 20:42 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
Aerobacterd:
Citar: pero esta parte me intereso
Cuando lo revises hablamos, pero te va a sorprendrer lo que se puede hacer con archivos .SVG
|
#8 Martes, 25 Febrero 2014, 21:08 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación:  Tachira
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
Hola Aerobacterd:
Aqui hay muchas cosas tediosas de explicar muchas por pereza y otras porque pienso que no vas a entender y quiza muchos tambien.
Pasate por aqui y mira este ejemplo
http://foro.gambas-es.org/viewtopic...ighlight=report
Esta imagen muestra como se puede cargar datos de un result y una imagen a una gb.report, tu puedes hacer lo mismo con tu aplicacion de carnet, la imagen que ves aqui arriba sirve para una consulta de una sola persona! Ahora como diseño en la gb.report?
Debes usar reportslabel para mostrar datos y para usar imagenes Reportimage
También quiero que sepas que una cosa es cargar datos e imagenes de una base de datos usando la variable (result) a que cargues una imagen de una variable picture como en esta imagen que invente un zoom usan gb.report
codigo para carga los datos y la imagen a la gb.report ojo si ven lineas de codigo con comillas "" es porque esos codigos no son necesarios y no los utilizo!
Public hconn As Connection 'variable que contiene los parametros para administrar la conexion
Public hresul As Result 'variable de tipo table que guarda el resultado de una busqueda
Public Ruta As String
Public Ruta1 As String
Public Ruta2 As String
Public Ruta3 As String
Public Ruta4 As String
Public Ruta5 As String
Public imag As PictureBox
Public imag2 As PictureBox
Public imagen As PictureBox
Public Modificando As Boolean
Public tempFile1 As String = Temp() & ".png"
Public tempFile2 As String = Temp() & ".png"
Public tempFile3 As String = Temp() & ".png"
Public tempFile4 As String = Temp() & ".png"
Public tempFile5 As String = Temp() & ".png"
Public Valor As Integer = 36
Public Sub _new()
hconn = New Connection
'hConn.CLOSE ' Cerramos la conexion con la base de datos
hconn.type = "mysql" ' Tipo de la base de datos
hconn.host = "localhost" ' Ubicación de la base de datos c
hconn.login = "root"
hconn.password = "contraseña"
hconn.name = "base de datos"
Try hconn.Open() 'trata de abrir la base de datos
If Error Then 'mostra error si no se pudo conectar a la base de datos
Message.Error("ERROR AL CONECTARSE A LA BASE DE DATOS")
Quit
Endif
End
Public Sub Transporte1(Data As Result)
Dim TempPicture1 As String
Dim tempFile1 As String
Dim TempPicture2 As String
Dim tempFile2 As String
Dim TempPicture3 As String
Dim tempFile3 As String
Dim TempPicture4 As String
Dim tempFile4 As String
Dim TempPicture5 As String
Dim tempFile5 As String
TempFile1 = Temp() & ".png"
TempFile2 = Temp() & ".png"
TempFile3 = Temp() & ".png"
TempFile4 = Temp() & ".png"
TempFile5 = Temp() & ".png"
hresul = Data
ReportLabel_codigo.Text = hresul["codigo_"]
ReportLabel_nro_expediente.Text = hresul["bla bla"]
ReportLabel_nombres.Text = hresul["bla bla"]
ReportLabel_apellidos.Text = hresul["bla bla"]
ReportLabel_cedula.Text = hresul["bla bla"]
ReportLabel_lugar_nacimiento.Text = hresul["lbla bla"]
ReportLabel_fecha_nacimiento_imputado.Text = Format(hresul["fbla bla"], "dd/mm/yyyy")
ReportLabel_estado_civil.Text = hresul["bla bla"]
ReportLabel_direccion_imputado.Text = hresul["bla bla"]
ReportLabel_profesion_imputado.Text = hresul["bla bla]
ReportLabel_parroquia.Text = hresul["bla bla"]
ReportLabel_municipio.Text = hresul["bla bla"]
ReportLabel_estado.Text = hresul["bla bla"]
ReportLabel_detenido_imputado.Text = hresul["bla bla
ReportLabel_delito_imputado.Text = hresul["bla bla"]
ReportLabel_armas_incautadas_imputado.Text = hresul["bla bla]
ReportLabel_fecha_oficio.Text = Format(hresul["fbla bla], "dd/mm/yyyy")
ReportLabel_nro_oficio.Text = hresul["bla bla"]
ReportLabel_puesto_orden_fiscalia.Text = hresul["bla bla]
TempPicture5 = hresul["foto_imputado"].Data
If TempFile5 Then
File.Save(TempFile5, TempPicture5)
Try ReportImage_FOTO_IMPUTADO.image = image.Load(TempFile5)
'vista_previa1.Transporte(juninresul)
'este que esta anulado coje los valores del temppicture original y se ve demasiado grande asin
' y con los valores que tiene el picturebox ya vale
'lo malo
'--------
' que si es demasido chico el dibujo o objeto se agranda y parece que esta gordo es lo inico que tiene
'IF NOT ERROR THEN PictureBox1.Resize(PictureBox1.Picture.Width, PictureBox1.Picture.Height)
'-----------------------------------------
TempPicture1 = hresul["imagen_pi_imputado"].Data
If TempFile1 Then
File.Save(TempFile1, TempPicture1)
Try ReportImage_P_I.image = image.Load(TempFile1)
'vista_previa_form.Transporte(juninresul)
'vista_previa1.Transporte(juninresul)
'este que esta anulado coje los valores del temppicture original y se ve demasiado grande asin
' y con los valores que tiene el picturebox ya vale
'lo malo
'--------
' que si es demasido chico el dibujo o objeto se agranda y parece que esta gordo es lo inico que tiene
'IF NOT ERROR THEN PictureBox1.Resize(PictureBox1.Picture.Width, PictureBox1.Picture.Height)
'---------------------------------------
TempPicture2 = hresul["imagen_pd_imputado"].Data
If TempFile2 Then
File.Save(TempFile2, TempPicture2)
Try ReportImage_P_D.image = image.Load(TempFile2)
'vista_previa_form.Transporte(juninresul)
'vista_previa1.Transporte(juninresul)
'este que esta anulado coje los valores del temppicture original y se ve demasiado grande asin
' y con los valores que tiene el picturebox ya vale
'lo malo
'--------
' que si es demasido chico el dibujo o objeto se agranda y parece que esta gordo es lo inico que tiene
'IF NOT ERROR THEN PictureBox1.Resize(PictureBox1.Picture.Width, PictureBox1.Picture.Height)
'--------------------------------------------
TempPicture3 = hresul["imagen_ii_mputado"].Data
If TempFile3 Then
File.Save(TempFile3, TempPicture3)
Try ReportImage_I_I.image = image.Load(TempFile3)
'vista_previa_form.Transporte(juninresul)
'vista_previa1.Transporte(juninresul)
'este que esta anulado coje los valores del temppicture original y se ve demasiado grande asin
' y con los valores que tiene el picturebox ya vale
'lo malo
'--------
' que si es demasido chico el dibujo o objeto se agranda y parece que esta gordo es lo inico que tiene
'IF NOT ERROR THEN PictureBox1.Resize(PictureBox1.Picture.Width, PictureBox1.Picture.Height)
'--------------------------------------------
TempPicture4 = hresul["imagen_id_mputado"].Data
If TempFile4 Then
File.Save(TempFile4, TempPicture4)
Try ReportImage_I_D.image = image.Load(TempFile4)
'vista_previa_form.Transporte(juninresul)
'vista_previa1.Transporte(juninresul)
'este que esta anulado coje los valores del temppicture original y se ve demasiado grande asin
' y con los valores que tiene el picturebox ya vale
'lo malo
'--------
' que si es demasido chico el dibujo o objeto se agranda y parece que esta gordo es lo inico que tiene
'IF NOT ERROR THEN PictureBox1.Resize(PictureBox1.Picture.Width, PictureBox1.Picture.Height)
'Next
'End With
Endif
Endif
Endif
Endif
Endif
End
como esta (vista_previa_form.Transporte(hresul)) esta debe ser puesta en un boton de vista previa o como ustedes lo prefieran de un formulario de consultas! para que los datos consultados sean enviados a la gb.report vista_previa_form que es la gb.report que tengo, para luego ser descargado dentro del codigo de la misma gb.report de la siguiente manera:
Public Sub Transporte1(Data As Result)
Dim TempPicture1 As String
Dim tempFile1 As String
Dim TempPicture2 As String
Dim tempFile2 As String
Dim TempPicture3 As String
Dim tempFile3 As String
Dim TempPicture4 As String
Dim tempFile4 As String
Dim TempPicture5 As String
Dim tempFile5 As String
TempFile1 = Temp() & ".png"
TempFile2 = Temp() & ".png"
TempFile3 = Temp() & ".png"
TempFile4 = Temp() & ".png"
TempFile5 = Temp() & ".png"
hresul = Data-----------------------Recibiendo datos
ReportLabel_codigo.Text = hresul["codigo_"] ------------------Luego los muestro en las reporlabel
ReportLabel_nro_expediente.Text = hresul["bla bla"]
------------------------------------------------------------------
TempPicture1 = hresul["imagen_pi_imputado"].Data------Recibiendo la imagen
If TempFile1 Then
File.Save(TempFile1, TempPicture1)
Try ReportImage_P_I.image = image.Load(TempFile1)----------luego la muestro en la reportimage
Saludos.
|
#9 Jueves, 27 Febrero 2014, 01:09 |
|
|
Aerobacterd
Usuario
Registrado: Octobre 2013
Mensajes: 16
Edad: 33
|
Re: Ayuda: Impresión De Reportes Con Contenido De Formulario
Saludos
Gracias jousseph y jsbsan por echarme una mano con sus ejemplos, hasta hoy es que logre conseguir algo de tiempo libre para poder sentarme a programar, luego les cuento los resultados. Muchas Gracias
|
#10 Domingo, 09 Marzo 2014, 15:27 |
|
|
|
|
 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
|
|
|
|
|
Foro 
