Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

REPORTES EN GAMBAS

Responder al tema

Ir a la página Anterior  1, 2, 3  Siguiente

lnoriega
Citar
Mensajes: 14
Martes, 25 Enero 2011, 19:04
Objetivo: Re: REPORTES EN GAMBAS
ya lo logre hacer todo eso hacerlo en html pasarlo a pdf. pero tengo otro detalle les paso los campos por ejemplo nombre, apellido desde la base de datos pero las imagenes no puedo que la direccion esta guardada en la base de datos. quiero un reporte como una ficha osea cedula,nombre, apellido y foto incluida.

Perfil MP  
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Martes, 25 Enero 2011, 19:28
Objetivo: Re: REPORTES EN GAMBAS
Graba primero la foto como archivo y enlazas su dirección en la página web. Luego de impresa la ficha, borra la imagen y ya está. De todas formas, eso de poner las fotos en la base de datos es peligroso, es poner todos los huevos en la misma cesta y hacer esa cesta muuuy pesada y lenta de manejar. Te aconsejo que las fotos las pongas en una carpeta y en la base sólo almacenes la referencia... que puede ser automática si a la foto le pones de nombre el DNI (documento nacional de identidad en españa, o lo que sea que uses de clave primaria) del interesado, por ejemplo...


Suerte.

Perfil MP  
lnoriega
Citar
Mensajes: 14
Miercoles, 26 Enero 2011, 14:18
Objetivo: Re: REPORTES EN GAMBAS
buenos dias, las fotos no estan guarda en la base de datos estan en una carpeta en el disco duro te paso el codigo:
UBLIC SUB Button1_Click()
DIM Reporte AS File
DIM Contador AS Integer = 0
DIM captura AS Integer
DIM cadena AS String


MOD.res = MOD.$Con.Exec("select * from voluntarios where cedula ='" & TextBox1.Text & "'")
MOD.res.MoveFirst
captura = MOD.res.Count
cadena = MOD.res!foto

OPEN "/tmp/fichavoluntario.html" FOR CREATE AS #Reporte
PRINT #Reporte, "<html>"
PRINT #Reporte, " <head><title>Reporte Casos-</title></head>"
PRINT #Reporte, " <body topmargin = '2' leftmargin='2'>"
PRINT #Reporte, " <table align = 'center' width = 500 border = '2' cellpadding='0' cellspacing='0'>"
PRINT #Reporte, " <caption><h2>Ficha de Volutario</h2></caption>"
PRINT #Reporte, " <tr>"
PRINT #Reporte, " <td align = 'center'><b>Cedula</b></td>"
PRINT #Reporte, " <td align = 'center'><b>motivo</b></td>"
PRINT #Reporte, " <td align = 'center'><b>foto</b></td>"

PRINT #Reporte, " </tr>"
PRINT #Reporte, " <tr>"
'WHILE Contador < captura
PRINT #Reporte, " <td align = 'center'>" & MOD.res!cedula & "</td>"
PRINT #Reporte, " <td align = 'center'>" & MOD.res!nombre & "</td>"
PRINT #Reporte, " <td align = 'center'><img src=cadena?></td>"

PRINT #Reporte, " <td align = 'center'>" "<img border='0' src='cadena' width='100' height='100'>" "</td>" EN ESTA LINEA ES EL DETALLE QUE TE COMENTO.

PRINT #Reporte, " </tr>"
MOD.res.MoveNext
'DEC captura
'WEND }
PRINT #Reporte, " </table>"
PRINT #Reporte, " <hr>"
PRINT #Reporte, " <form>"
PRINT #Reporte, " <center>"
PRINT #Reporte, " <input type='button' value='Imprimir' OnClick='window.print()'>"
PRINT #Reporte, " <input type='button' value='Cerrar' OnClick='window.close();'>"
PRINT #Reporte, " </center>"
PRINT #Reporte, "</form>"
PRINT #Reporte, " </body>"
PRINT #Reporte, "</html>"
CLOSE #Reporte
EXEC ["firefox", "/tmp/fichavoluntario.html"]
EXEC ["wkhtmltopdf", "/tmp/reportlab.html", "/tmp/report.pdf"]
EXEC ["evince", "/tmp/report.pdf"]
END


las fotos las cargo asi:

PUBLIC SUB Button1_Click()
DIM con AS Integer
DIM query AS String
DIM pregunta AS Integer
DIM Foto_in AS String
Dialog.path = "/home/luis/proyecto/sin_foto.jpeg"
foto_in = File.Dir(Dialog.Path) & "/" & File.Name(Dialog.Path)
IF (TextBox1.Text = "") THEN
message.Info("Debe Introducir un Nº de Cédula")
TextBox1.Clear()
TextBox1.SetFocus
ELSE
IF (TextBox2.Text = "") THEN
message.Info("Debe Introducir Nombres")
TextBox2.Clear()
TextBox2.SetFocus
ELSE
IF (TextBox3.Text = "") THEN
message.Info("Debe Introducir apellidos")
TextBox3.Clear()
TextBox3.SetFocus
ELSE
IF (ComboBox1.Text = "") THEN
message.Info("Debe Introducir Sexo")
ComboBox1.Clear()
ComboBox1.SetFocus
ELSE
IF (ValueBox2.Value = "") THEN
message.Info("Debe Introducir Fecha de Nacimiento")
ValueBox2.Clear()
ValueBox2.SetFocus
ELSE
IF (TextBox5.Text = "") THEN
message.Info("Debe Introducir Cargo")
TextBox5.Clear()
TextBox5.SetFocus
ELSE
IF (TextBox4.Text = "") THEN
message.Info("Debe Introducir Dirección")
TextBox4.Clear()
TextBox4.SetFocus
ELSE
IF (TextArea1.Text = "") THEN
message.Info("Debe Observaciones")
TextArea1.Clear()
TextArea1.SetFocus
ELSE
MOD.res = MOD.$Con.Find("voluntarios", "cedula=&1", TextBox1.Text)
IF MOD.res.Count = 1 THEN
pregunta = Message.Warning("Persona ya existe")
TextBox1.Clear()
TextBox1.SetFocus
ELSE
query = "INSERT INTO voluntarios set cedula='" & textbox1.Text & "', nombre='" & textbox2.Text & "', apellido='" & textbox3.Text & "',foto='" & textbox6.Text & "',sexo='" & ComboBox1.Text & "',fechanac='" & ValueBox2.Value & "',fechaing='" & Valuebox1.text & "',direc='" & textbox4.Text & "',cargo='" & textbox5.Text & "',obser='" & TextArea1.Text & "'"
MOD.consulta(query)
IF MOD.connect() THEN
message.Info("Los dato se insertaron satisfactoriamente")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
ValueBox2.Clear()
TextArea1.Clear()
ComboBox1.Clear()
PictureBox1.Picture = Picture.Load(Foto_in)
TextBox1.SetFocus
ELSE
message.Error("Los datos no se pudieron insertar")
END IF
ENDIF
ENDIF
ENDIF
ENDIF
END IF
ENDIF
ENDIF
ENDIF
ENDIF
END

PUBLIC SUB Button3_Click()

Dialog.Title = "Selecciona una imagen."
Dialog.Filter = ["*.xcf;*.png;*.jpg;*.jpeg;*.bmp", "Imagenes", "*.*", "Todos los ficheros"]
Dialog.path = "/home/luis/fotos/*.*"
IF Dialog.openfile() THEN RETURN
Ruta = File.Dir(Dialog.Path) & "/" & File.Name(Dialog.Path)
TextBox6.Text = ruta 'agrega la ruta a un textbox
PictureBox1.Picture = Picture.Load(Ruta)

END




Le agradeceria su ayuda gracias.

Perfil MP  
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Miercoles, 26 Enero 2011, 16:59
Objetivo: Re: REPORTES EN GAMBAS
n la línea donde insertas la imagen:
<img border='0' src='cadena' width='100' height='100'>


deberías poner

<img border='0' src='file://" & cadena & "' width='100' height='100'>


Suponiendo que cadena contenga un path válido.

Suerte

Perfil MP  
lnoriega
Citar
Mensajes: 14
Miercoles, 26 Enero 2011, 18:12
Objetivo: Re: REPORTES EN GAMBAS
Un millon de gracias, amigo..... me sirvio

Perfil MP  
SOURBOY
Citar
Mensajes: 12
Miercoles, 23 Marzo 2011, 23:51
Objetivo: Re: REPORTES EN GAMBAS
Hola buenas noche Sr.  lnoriega ! yo utilice su código para convertir el reporte html en pdf... pero tengo unas dudas*
por ejemplo
OPEN "/tmp/fichavoluntario.html" FOR CREATE AS #Reporte ====> Aquí ud crea el archivo

EXEC ["firefox", "/tmp/fichavoluntario.html"] =======> acá lo abre con firefox!!
EXEC ["wkhtmltopdf", "/tmp/reportlab.html", "/tmp/report.pdf"] ====> luego aca Utiliza wkhtnltopdf para transformarlo pero lo que no entiendo es el porque /tmp/reportlab.html si se llama /tmp/fichavoluntario.html
EXEC ["evince", "/tmp/report.pdf"] y aquí abre el pdf!!

Ha yo instale el WKHTMLTOPDF pero en gamba no esta funcionando en cambio lo hago por consola(terminar) y funciona)!!

Perfil MP  
desoljor
Citar
Mensajes: 87
Sabado, 30 Abril 2011, 11:55
Objetivo: Re: REPORTES EN GAMBAS
Hola Gente, he estado mirando los ejemplos que adjuntaís pero no consigo hacer funcionar los reportes en Gambas3.
¿Me podeís echar una manita en este tema ?
Gracias de antemano

Perfil MP  
antuan91
Citar
Mensajes: 3 Ubicación: carora
Miercoles, 22 Junio 2011, 21:03
Objetivo: Re: REPORTES EN GAMBAS
hooola soy nuevo en este foro pero si me interesa aprender como hacer el reporte en pdf alguno de estudes puede ayudarme es q toy a fines de mi carrera y lo q me falta es activar los reportes les agradeceria mucho

Perfil MP   MSN
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Jueves, 23 Junio 2011, 09:52
Objetivo: Re: REPORTES EN GAMBAS
Antuan91:
Esa pregunta no tiene respuesta clara. Nadie te lo va a dar hecho desde la nada. Coloca aquí lo que has intentado, las pruebas que has hecho o las dudas que tengas y sobre eso podemos hablar. Pero así símplemente decir "ayúdenme..." pues es lo mismo que no decir nada.

(Por cierto, antes de que te lo digan los moderadores te lo anticipo: No se permiten abreviaturas de SMS en este foro).

Perfil MP  
antuan91
Citar
Mensajes: 3 Ubicación: carora
Jueves, 23 Junio 2011, 18:55
Objetivo: Re: REPORTES EN GAMBAS
shordi:

bueno pasa lo siguiente quiero aprender a como dar un reporte ya que el proyecto q hago necesita de me mensione entradas y salidas de un sistema y bueno en realidad tengo unos en html y funcionan claro pero quiero es saber codigos que sean para imprimir mis datos en el pdf si tienes algun ejercicio seria de gran ayuda y necesito alguno q me diga como conectarlo a la base de datos gracias de antemano

última edición por antuan91 el Jueves, 23 Junio 2011, 19:54; editado 1 vez
Perfil MP   MSN
Responder al tema
Ir a la página Anterior  1, 2, 3  Siguiente

Página 2 de 3


  
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

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.9217s (PHP: -76% SQL: 176%)
Consultas SQL: 45 - Debug off - GZIP Activado