Comunidad Gambas-es

Hola muy buenas noches compañeros programadores, como están, espero que bien, quiero comentarles que logre terminar mi sistema de catastro trabaja en red lan y almacena imagenes en lan con una data muy grande tambien, bueno aun me falta mucha disciplina en el código y algunas cosas mas por allí que tengo pendiente, quiero decirles que la única cosa en el mundo de la programación que me dio problemas fueron los reportes jajajajajaja , si ustedes dirán que porque? si es fácil, bueno para mi no tanto estuve viendo un poco el código del compañero JSBSAN con la clase latex que estuvo bueno y el del compañero Willicab , me incliné mas al componente gb.report que usa Willicab ya que me sorprendió mucho no solo al código sino al diseño .

Note que el compañero Willicab muestra ejemplos de crear reportes, que ante todo le doy gracias, ahora me puse a pensar, y que hago solo con crear un reporte solo como el lo muestra? no!, que haría si me piden un formato determinado?, bueno me puse a mover aquí y allá, casi me vuelvo loco jajajaja y pues me llevo tiempo hasta que logre cargar los datos a sus determinadas REPORTLABELES y con la sentencia select(*from tabla) solo me cargaba datos generales de todos los registros, aja pero solo se quiere es consultar una determinada persona y que esta persona al momento de consultarla se agregue al reporte diseñado? esa era otra cooooosa !, quiero mostrarles a muchos de nosotros que andamos perdidos y para los que no, un diseño casi completo de un reporte diseñado con su código, no esta perfecto se que me falta mucho pero me encanta aportar porque gracias a ustedes que son los duros, siempre nos sacan de apuros, espero que les guste lo analicen y los acomoden a sus consultas con los reportes de usuario.

Consulta normal de un formulario por textbox que a su vez usa una variable transporte para trasladar los datos a un segundo formulario que sera rellenado los datos del usuario en las textbox observen:



Codigo de la consulta para que aparezca en el formulario de atras



Luego cuando la data es guardada en Transporte(juninresul)

Se genera en el formulario de atras asi!



Creo un botón para llamar al Reporte..Preview y visualizarlo



Este es mi diseño quizá algunos de ustedes necesita como diseñar en el gb.report,a si es como me quedo





Ahora el código de mi reporte generado para un usuario, aquí hay mas código de lo normal y modificado ya que he comentado algunos que no utilizo



Este ya lo saben que es cuando uno quiere guardarlo en pdf o svg etc para imprimir también





Espero que les sirva, se que me falta mucho, pero algo es algo, hay que usar mucho la logica para no preguntar casi jejeje, tambien quiero comentarles que me toco hacer todo esto en Ubuntu porque canaima 3.1 de debian al momento de trabajar con LA GB.REPORT se me cerraba gambas asi le pasar a el raton por encima al formulario en diseño, de repente se cerraba de nada! increible, tambien que con canaima se me llenebala ram y se me paralizaba todo, bueno muchas gracias y suerte a todos.

Guauuu!!! , te ha quedado bien chulo.

Felicitaciones!!!

No lo he mirado a fondo, pero de entrada, este código es innecesario:


No hay por qué hacer que trabaje el cliente, con la pérdida de tiempo que eso implica, cuando lo puede resolver el servidor.

Espero que te sirva de ayuda

Citar:

Guauuu!!! , te ha quedado bien chulo.

Felicitaciones!!!

Gracias señor JSBSAN

Una pregunta señor JSBSAN como hago para subir un archivo aquí en tar.gz, gracias de antemano.


Señor Shordi gracias por la enseñanza.

saludos, retomando por aqui

Amigo jousseph: necesito me aclares unos detallitos respecto a que propiedades que deben llevar los ReportLabel (Fixed, Expand, Left y cualquier otra) o si simplemente los dejo por defecto, igualmente para los ReportHBox y ReportVbox, segun entiendo por la imagen de arriba y otros ejemplos vistos el HBOX van insertados dentro de los VBOX ¿correcto?. Muchas gracias.

PD: algunas vez haz considerado grabar un videotutorial, te ganarias el aprecio de millones

Citar:

Amigo jousseph: necesito me aclares unos detallitos respecto a que propiedades que deben llevar los ReportLabel (Fixed, Expand, Left y cualquier otra)

Puedes crear un ReporVbox gigante con propiedades expand=true fixed false y adentro haces:

Las ReportLabel quedan en fixed=true, expand=true, alignemente=center puedes meterlas dentro de un reporthbox con fixed true y expand=false.

Por ejemplo si quieres crear unas reportslabel que digan nombre, cedula y que estos a su ves se le muestren los respectivos datos debajo del nombre y la cedula, haces los siguiente:

Creas 2 reporhbox 1 para las 2 reportslabel que dicen nombre y cedula y la seguna para otras 2 reportslabeles vacias donde se van a mostrar los datos de esos nombre y cedula, entonces las ReportHbox las creas con propiedades fixed=true y expand false y adentro las reportslabeles con las propiedades fixed=true y expand=true para que se muestren y se ordenen como un documento:
------------------------------------------------------------------]-1-ReportHbox
[NOMBRE] [CEDULA]-Reporslabeles de encabezados
------------------------------------------------------------------]
[------------------------------------------------------------------]-2-Reporthbox
[________] [________]-----Reporstlabeles de mostrar dados
[------------------------------------------------------------------]

Saludos jousseph

Muchas gracias por tu ayuda, ya pude realizar los reportes individuales, aunque hize unas pequeñas modificadiones,

coloco mi codigo por si alguien le sirve:
Este es el codigo del botón imprimir que esta formulario de registro de visitantes

Citar:

Public Sub Button5_Click()
''''''''''''''''''''''''''''''Dim cn As New Connection 'Declaración de variable cn como una nueva conexión
Dim cn As New Connection 'Declaración de variable cn como una nueva conexión
Dim hRes As Result

Dim $ResultRPT As Result
Dim $Phone As String
Dim rp As Report
cn.Type = "mysql" 'Tipo de Conexión
cn.Host = "localhost" 'Host de la Conexión
cn.User = "root" 'Usuario
cn.Password = "123" 'contraseña
cn.Name = "BD_Biblioteca" 'Nombre de la Base de Datos
cn.Open() 'Abro la conexión

If TextBox1.text = "" Then
Message.Error("No hay registro seleccionado")
Else
$ResultRPT = cn.Exec("SELECT * FROM BD_Visitantes where visitante_cod=" & TextBox1.text & "")

If $ResultRPT.Count > 0 Then

Rptvisitante.Transporte($ResultRPT)
rp = New Rptvisitante
Rptvisitante.Preview

Else
Message.Error("No existe visitante con ese Codigo")
End If
End If


cn.Close() ' Se cierra la conexión

End

Y aqui el codigo del reporte basado en el tuyo

Citar:

' gambas class file

Public junincon As Connection 'variable que contiene los parametros para administrar la conexion
Public juninresul As Result 'variable de tipo table que guarda el resultado de una busqueda

Public Sub _new()

' -------------------------------EL CODIGO DE ARRIBA DE VARIABLES DIM ES USADO PARA ALMACENAR PERO NO LO VI NECESARIO!---------------------------------------

junincon = New Connection
junincon.type = "mysql"
junincon.host = "localhost"
junincon.login = "root"
junincon.password = "123"
junincon.name = "BD_Biblioteca"
Try junincon.Open()
If Error Then
junincon = Null
Message.Error("HAY PROBLEMAS CON LA BASE DE DATOS, QUIZÁ SE DEBA AL SERVIDOR COMPUTADOR APAGADO")
Else

Endif

End

Public Sub Transporte(Data As Result) ' ---------aqui trae la data del usuario consultado y las agrega en las ReportLabels
juninresul = Data

ReportLabel3.Text = juninresul["visitante_nombre"]

ReportLabel4.Text = juninresul["Visitante_ced"]

ReportLabel7.Text = juninresul["visitante_apellido"]

ReportLabel8.Text = juninresul["visitante_edad"]

ReportLabel10.Text = juninresul["visitante_sexo"]

ReportLabel16.Text = juninresul["visitante_instruccion"]

ReportLabel17.Text = juninresul["visitante_estudia"]

ReportLabel18.Text = juninresul["visitante_telefono"]

ReportLabel19.Text = juninresul["visitante_correo"]

ReportLabel21.Text = juninresul["visitante_fecha"]


End

Según tus instrucciones:

1.- Cree un solo reportVbox que abarca todo el reporte con la propiedad Expand en True y Fixed en False

2.- Los titulos de los campos en un ReportHbox con Expand en False y Fixed en True, aunque asi no se me veian, tuve que agregarle la propiedad Height en 10mm

3.- y Otro ReportHbox para los datos que se los paso por codigo

4.- para separar entre unos campos y otros pude otro reportHbox con un Report Line Adentro igual que los text con Expand en True y Fixed en False

quedando asi:


Gracias de nuevo

Jousseph:

Buen trabajo!. Te ha quedado muy bien.

Saludos

Excelente diseño, de verdad mil gracias era lo que necesitaba.... Felicitaciones