Foro de elhacker.net

[TUTORIAL]Crear Facturas/Pedidos/Etiquetas co Data Report desde Visual Basic 6.0
 (http://www.miblog.indomita.org/2007/12/tutorial-crear-facturaspedidosetiquetas-co-data-report-desde-visual-basic-60.html)
Bueno visto que mucha gente viene pidiendo como añadir facturas o informes, voy a hacer un pequeño tutorial sobre el uso de data report desde visual basic 6.0.
 Solamente hace un par de semanas desde que aprendí a utilizarlo y no creo que domine todo lo que si interfaz engloba.
Pero ,dentro de mis limitaciones, voy a intentar explicar básicamente como preparar informes, facturas y etiquetas.

Vamos al lio.

Antes de nada decir que para que funcione hará falta tener una base de datos de la que recabar la información.

Agregar Data Enviroment
Para poder usar el Data Report, agrega un dataenviroment al proyecto (Menú Proyecto/Agregar Data Enviroment).


(Para poder ver el environment y tal en agregar componentes, click derecho sobre la barra componentes/componentes/diseñadores/marcamos data report y data environment )

Vemos que se ha añadido una nueva carpeta llamada Diseñadores a nuestro proyecto.

(http://www.subirimagenes.com/imagenes/previo/thump_555142f1.JPG) (http://www.subirimagenes.com/imagen-de-f1-555142.html)
Lo mejor es cambiarle el nombre por DEFacturas o como quieras ya que DataEnvironment1 me resulta bastante engorroso (yo no voy a cambiar el nombre a nada para que se aprecie mejor el ejemplo).

Definir conexión
Al hacer doble click sobre nuestro dataenviroment, se nos abre una ventanita con un objeto llamado Connection1, cambiarle el nombre si queréis.
 Yo voy a establecer la conexión a una base de datos access 2000. Esto variara según la base de datos o procedimiento por el que deséis conectaros a los datos de los que recobraremos la información.

Click derecho sobre connection1, propiedades:
 *Proveedor :  Microsoft Jet 4.0 OLE Data Provider
(Siguiente)
 *Conexión :  Seleccionamos la que deseemos, dejando luego solamente el nombre y la extensión de la base de datos (asi podremos utilizar rutas relativas).
 Si tienes que rellenar algo más pues lo rellenas xD
 (Probamos conexión para comprobarlo)
(http://www.subirimagenes.com/imagenes/previo/thump_555151f2.JPG) (http://www.subirimagenes.com/imagen-de-f2-555151.html)

Creando las consultas
 A continuación creamos las consultas con las que recuperaremos la información.
 Click derecho sobre Connection1, agregar comando. (recomendable cambiarle el nombre)
 El nuevo objeto creado Command1 va a servir para rellenar la cabecera de nuestras facturas.

 Click derecho sobre el Command1, propiedades.
Marcamos la casilla instrucción sql, y generamos la consulta con el generador o a pelo.

 Explico un poco el generador de consultas.
 Se abre una ventanita llamada Vista de datos, de ahí tomamos las tablas. Con doble click sobre alguna te la abre en otra ventanita, si la arrastras y sueltas sobre el generador de consultas te agrega la tabla.
 Relacionamos los campos de las tablas que deseemos (por defecto relaciona las claves externas). Se relacionan arrastrando/soltando sobre los campos.

En el ejemplo hemos añadido tres tablas y las hemos relacionado entre si por codprove (para sacar los datos del proveedor) y codactividad (actividad que realiza el proveedor)

Seleccionamos los campos que nos interesen, marcando simplemente el checkbox, abajo se nos añadiran, tendremos la opción de ordenar por ese campo y otras tantas.

Con esto ya tenemos la consulta generada, de forma que nos devuelve todas las cabeceras de las facturas.
Luego explicare como hacerlo para que solamente devuelva una factura.

Relacionando Consultas
 Ya tenemos la cabecera de los pedidos, ahora solamente faltan las líneas que forman cada pedido. Para ello vamos a crear otro Command haciendo click derecho sobre la conexión, agregar comando.

 Click derecho propiedades, entramos al generador y seleccionamos los campos que deseemos mostrar en la factura/pedido, vamos a añadir también el numpedido puesto que nos hara falta para relacionar el cuerpo con la cabecera de la factura.

(http://www.subirimagenes.com/imagenes/previo/thump_555154f3.JPG) (http://www.subirimagenes.com/imagen-de-f3-555154.html)

 Esta vez solo he asociado lineapedidos con modulos.
Una vez seleccionados los campos guardamos, click derecho Command2 propiedades/Relación, marcamos la casilla relacionar con un comando primario, seleccionamos el nombre del command con que deseamos relacionarlo (Command1) y seleccionamos el campo por el cual se seleccionará, numpedido. Agregamos y aceptamos, ahora veremos que el Command2 se encuentra dentro del Command1. Con ésto hemos logrado que por cada línea de la cabecera tengamos todas las líneas del pedido.

Creando el diseño
 Ahora vamos a crear el diseño para mostrar los datos, para ello data report presenta un interfaz bastante intuitivo y sencillo de manejar. Eso si, muy limitadito xD

Para agregarlo basta con ir al menú (Protecto/Agregar Data Report)
En la propiedad del data report lo asociamos con el datasource al enviroment que hemos creado y el datamember con el command1.
Clicamos con el botón derecho sobre el diseño  y le damos a obtener estructura, aceptamos.
Clicamos con el botón derecho sobre el diseño y le damos a forzar a la cuadrícula, de este modo podremos poner las cosas sin estar obligados por las extrañas dimensiones que te indica el programa xD


Ahora abrimos con doble click nuestro enviroment y arrastramos los campos a sus cabeceras correspondientes.
Command1 al command1_header y command2 al command2_detail.
Cada vez que añades algo se agrega el campo y el nombre del campo. Podéis cambiarles las letritas y poner adornos si queréis xD

Lo recomendable en el command2_detail es solamente poner los valores y los campos de nombre asociados ponerlos en la cabecera del command1_header  tal y como se muestra en el ejemplo. De esta manera no repetiréis todo el rato el nombre de los campos.

Vamos a contar también la cantidad de articulos pedidos y su precio total con las funciones que tenemos en la barra de controles del datareport. Es la E con el pergamino (la última).
Añadimos en command1_footer, un control para contar (definir propiedad functiontype) y otro para sumar. Datamember command2 y en datafield el campo sobre el que se aplicara la función.
 
Si queremos evitar que salgan todos los pedidos seguidos, lo mejor es activar la opción ForcePageBreak (1- rptPageBreakBefore) del command1_header para que separe las facturas por páginas.

Ahora añadiremos algo de código a nuestro datareport para que al salir cierre el recordsource que generará cada vez que lo llamemos.


Como véis podemos añadir código en el datareport para realizar algunas tareas

Ya tenemos el diseño preparado. Ahora solo falta llamarlo.

(http://www.subirimagenes.com/imagenes/previo/thump_555156f4.JPG) (http://www.subirimagenes.com/imagen-de-f4-555156.html)

Creamos un botón en nuestro formulario y en el evento hacer click ponemos.

[TUTORIAL]Crear Facturas/Pedidos/Etiquetas co Data Report desde Visual Basic 6.0 (http://www.miblog.indomita.org/2007/12/tutorial-crear-facturaspedidosetiquetas-co-data-report-desde-visual-basic-60.html)

En el ejemplo he sacado una única factura,
 para ello he creado otro datareport (datareport2) he añadido lo mismo que antes,
 dejando la opción del before por defecto.
He añadido también dos nuevas consultas, command3 en la que la realizo igual que la anterior(command1)
simplemente cambiando las cosillas que os digo a continuación y command4 que es idéntica a command2 (lo mejor es hacer copy paste de la sentencia generada de los anteriores y modificarla).

Para sacar una factura en el paso de generar el encabezado de la consulta (Command1) en nuestro command3
haremos todo igual salvo que deberemos especificar un parámetro,
 eso se hace poniendo =? en el campo criterio de la consulta.
Luego click derecho command3 propiedades pestaña Parámetros, le ponemos un nombre, Ejemplo=NumeroFactura.

Para mostrar el datareport2 se le debe llamar con el parámetro.

Añadimos un textbox en el que meteremos el num del pedido que deseamos mostrar y
un botón para realizar las acciones.


Generar etiquetas con Datareport desde Visual Basic 6.0 (http://www.miblog.indomita.org/2007/12/generar-etiquetas-con-datareport-desde-visual-basic-60.html)


Bueno vamos a generar una serie de etiquetas de estas que se suelen repartir y tal, tarjetitas xD

Antse de nada decir que data report no es un potente editor y tiene cuatro propiedades… asi que puede resultar bastante básicas sus características, ahí vamos…
Primero vamos a añadir un nuevo command al dataenviroment. Click derecho propiedades, generar consulta y ahí seleccionaremos la tabla proveedores y actividades_proveedor. Las enlazamos por codactividad y seleccionamos los datos junto con el nombre de la actividad. Añadimos el valor que le vamos a pasar, aqui os dejo elegir el que querais, o nombre proveedor o cod proveedor. Yo lo voy a hacer con cod proveedor. (en el campo que deseemos se pone =? y luego se especifica en la pestaña parametros de las propiedades del command agregado xD)

Añadimos un datareport, el datasource a DataEnvironment y el datamember al comand creado. Colocamos únicamente tres o cuatro rectángulos, en detalle sección1, con los datos deseados (se supone que eso van a ser las etiquetas xD).

Para añadir los datos se hace arrastrandolos desde el command del dataenviroment. Para adornarla se le puede añadir todo lo que creáis oportuno.

Se añade el código para evitar errores al reabrir el recordsource en el datareport queryunload


Ejemplo etiquetas
(http://img473.¡mageshack.us/img473/7748/screen1dx6.th.jpg) (http://img473.¡mageshack.us/my.php?image=screen1dx6.jpg)

Se añade un botón en el formulario principal, un DBCombo (click derecho sobre la barra de componentes/componente/pestaña controles/Microsoft Data Bound List Controls 6.0(OLEDB)) y lo asociamos a una oledatabase
(click derecho sobre la barra de componentes/componente/pestaña controles/Microsoft ADO data control 6.0(OLEDB)) .

Asignamos la cadena de conexión al adodc (database).

En su recordsource ponemos en su texto de comando.


(realmente solo nos hacen falta 2 campos, codproveedor y nomprovedor pero weno, ésto no lo pongáis eh!! xD)

Ahora asociamos el adodc al dbcombo.

En su propiedad rowsource le ponemos nuestro adodc, en lisfield el campo nombre y en boundcolumn el campo codpro.

Añadimos el siguiente código para que funcione al clicar en el botoncito y listo xD


Una vez configurado compilamos y seleccionamos para ver si tira sino… algo has hecho mal o aligual he metido la pata xD



Los ejemplos estan realizados muy deprisa por lo tanto el diseño deja mucho que desear y tal xD

Si os ha sido útil puedo ir añadiendo algunos ejemplillos de hacer etiquetas y alguna cosilla más.


DESCARGAR Ejemplo Data Report Visual Basic 6.0 by RobiHm (http://www.miblog.indomita.org/2007/12/generar-etiquetas-con-datareport-desde-visual-basic-60.html)

P.D.(Para poder ver el environment y tal en agregar componentes, click derecho sobre la barra componentes/componentes/diseñadores/marcamos data report y data environment )


Generar un informe con tres commands relacionados en Datareport desde Visual Basic 6.0 (http://www.miblog.indomita.org/2007/12/generar-un-informe-con-tres-commands-relacionados-en-datareport-desde-visual-basic-60.html)

Como ha habido personas que me lo han preguntado voy a poner un ejemplo sencillito. Vamos al tema xD

Creamos un nuevo botón en el formulario (con éste ya vamos por el command4) realizamos su evento click


Creamos a continuación tres commands en el dataenviroment1 mismamente.

Vamos a renombrarlos porque sino va a ser mucho lío. (más que nada para mi que no estoy acostumbrado a esos nombres xD)

cmd_campañas, cmd_chicas, cmd_citas mismamente

Ahora generamos las consultas con las nuevas tablas que he añadido: campañas, chicas y citas... ejem  :rolleyes:
(solamente tres ya lo se soy un vago pero no tengo ganas de entrelazar siete tablas para un ejemplo sencillito xD)

Mirar un poco la estructura de las tablas y veréis que campañas se enlaza con chicas y que chicas con citas.

Bueno generemos las consultas (click derecho encima del command/propiedades/... no voy a entrar en detalles)

cmd_campañas

cmd_chicas

además añadiremos en la pestaña relación:
relacionar con un comando primario, el comando primario: cmd_campañas, definición de relación: id_temporada to ident_temporada, agregar, aceptar y listo xD

cmd_citas
además añadiremos en la pestaña relación:
comando primario: cmd_chicas
definición de relación: id_chica to ident_chica,
agregar, aceptar y listo xD

Creamos el data report (DRcampañas) lo asociamos,
DataSource=DataEnvironment1
DataMember=cmd_campañas
Quitamos forzar a la cuadricula y le damos a obtener estructura  y tenemos un monton de encabezados y pie de grupos xD

Posicionamos los campos que queremos mostrar (arrastrandolos desde el dataenviroment mismamente. Cada uno en su posición. Veréis que no os dejará meter los detalles de cmd_citas en encabezados y tal.

En cmd_camapañas_header irán los datos de la campaña.
En sus propiedades ForcePageBreak le metemos la opción 1- rptPageBreakBefore, para que haga divisiones(saltos de página) por cada campaña diferente.
En cmd_chicas_header metemos los datos de las chicas.
En cmd_citas_Detail los datos de las chicas y en cmd_chicas_footer meteremos un función count para contar sus citas y una sum para contar sus duraciones globalos mismamente,  :-\ ave cuál ha soportado a más tios xD
Acordaros de poner en el queryclose del data report esto


Ala ya hemos terminado, igual hago otro tuto dentro de un par de días en el que enviemos en vez de un parámetro varios y creo que poco más se puede hacer con un data report xD

P.D.  Visual Basic da un montón de problemas al trabajar con bases de datos y data reports amén de command dialogs de rutas. Ya que se hace la picha un lío y guarda la última ruta que maneja como la raíz del programa. Por lo tango es recomendable guardar la ruta en el load del programa en una variable general o pública si usamos más de un formulario/módulos

y luego al hacer algún cambio en command dialog o al abrir data reports meterle después  

así lograremos que no de problemas, yo en el ejemplo no lo he hecho ya que en un par de pruebas que he hecho no me ha dado problemas xD

Subo el códido y el ejemplo:

DESCARGAR Ejemplo Data Report Visual Basic 6.0 by RobiHm (http://www.miblog.indomita.org/2007/12/generar-un-informe-con-tres-commands-relacionados-en-datareport-desde-visual-basic-60.html)




Dinamizar Encabezados Datareports (http://www.miblog.indomita.org/2008/05/cambiar-etiquetas-e-imagenes-en-un-data-report-en-tiempo-de-ejecucion.html)

Voy a poner algo bastante útil a la hora de personalizar datareports en tiempo de ejecución.

Dinamizar los encabezados de los datareports desde visual basic 6.0.
Código Coloreado (http://www.miblog.indomita.org/2008/05/cambiar-etiquetas-e-imagenes-en-un-data-report-en-tiempo-de-ejecucion.html)






Dinamizar conexiones con ODBC (http://www.miblog.indomita.org/2008/06/crear-dsn-desde-vb-60-en-tiempo-de-ejecucion.html)

Como colofón voy a postear un módulo para personalizar/dinamizar las conexiones utilizando DSN.
Así se pueden romper las cadenas de andar sujetos a una conexión estática de los DataReports y demás controles/objetos.


Dinamizar la conexión de los datareports mediante DSN (http://www.miblog.indomita.org/2008/06/crear-dsn-desde-vb-60-en-tiempo-de-ejecucion.html)

estupenda info, solo una pregunta. ¿con data report puedes manejar una hoja de cálculo excel? Si se puede, agradecería algún ejemplo simple porque de lo que encontré no se menciona nada del data report.

buen tuto ;)

No tengo ni idea de excel, pero he buscado y tal y según he entendido, corrigeme si me equivoco, parece ser que en excel se pueden enviar sentencias sql.
 En caso afirmativo, tampoco tengo una idea concreta de que protocolo utiliza para la conexión. Eso no es un impedimento ya que he estado trasteando y creo que he sacado la connectionstring, a partir de  generarla por DSN.
 Si pones esto en tu connectionsource del dataenviroment:


Ya te genera la conexión
Luego es realizar los mismos pasos (supongo xD)

Espero que te sirva de ayuda

Lindo ejemplo! Muy buena, yo precisamente estaba haciendo un proyecto de ese tipo, gracias!

Hans el topo esta muy bueno tu acotacion...

Muy buen tuto
de gran utilidad

Añadido nuevo ejemplo de etiquetas...
 :huh:

me interesa mucho el ejemplo de las etiquetas pero el enlace apunta a un fichero que no existe¿Lo puedes volver a subir?

Gracias

subido

Hola Hans he intentado bajarmelo varias veces pero se baja siempre con 0 bytes osea vacio.


Gracias otra vez :rolleyes:

subido again lo he subido dos veces ave que pasa xD

DESCARGAR Ejemplo Data Report Visual Basic 6.0 by RobiHm Sitio1 (http://www.badongo.com/file/1965264)

DESCARGAR Ejemplo Data Report Visual Basic 6.0 by RobiHm Sitio2 (http://www.badongo.com/file/1965271)

Subido nuevamente con un nuevo tutorial de enlazar tres comands.

DESCARGAR Ejemplo Data Report Visual Basic 6.0 by RobiHm (http://www.badongo.com/file/2448900)

El ejemplo es simple pero es la base para desarrollar desde ahi cuantos enlaces quieras.

Hola!
Quería saber si esto podría ser valido también para Crystal Reports XI y, en caso, contrario como podria ser?

Saludos!

he seguido el ejemplo paso a paso y al ejecutar el command1 me da el siguiente error:
tipo de datos incorrecto en el objeto function 'funcion 1'
sabes de que se trata?
gracias

lo que hace la función1 del DataReport1 es contar las líneas del pedido desde el campo cantidad, así que a voz de pronto cualquier tipo de datos es correcto, el problema puede venir de que no exista ese campo o algo en la copia que has hecho

¿los demás botones te funcionan?
comprueba la lista desplegable DataCombo1 y si tiene valores es que al menos de la conexión no es

si no me especificas más me temo que no podré ayudarte  :rolleyes:

hans el topo la funcion1 se la he asignado al sumador no al contador, el data si me da los valores que tengo en la tabla con lo cual la conexion si es correcta, pero es al pulsar el command1 cuando me da el error con lo cual tampoco se si lo demas funciona, la fucion1 se la asignado al subtotal de cada linea de factura.
alguna otra solucion?
por cierto lo que no me queda muy claro es como funciona la funcion2, contador, al asignarsela al campo cantidad.
gracias

comprueba k la función1 se encuentre conectada al conector de la tabla correcto y si no lo esta, cambialo, puesto que es un error del tipo de dato del campo o porque el campo no existe, asegurate que se encuentra enlazado a la subconsulta (en el ejemplo command2 campo total)

en el tema de la funcion2 el count lo que hace es contar el número de registros que devuelve la consulta, puedes poner cualquier campo de la subconsulta ya que simplemente cuenta filas

disculpa Hans el Topo si mis preguntas son muy simples o basicas, me aparece otra duda,
he solucionado el anterior problema que como me dijistes era un error de tipo de datos, consigo ejecutar el form1 y pulsar command1 y me aperece el datareport una pagina en blanco, es normal o he cometido otro error?
donde y como se introducen los datos?
gracias de antemano

para los datos debes crearte un formulario con los campos a introducir y tal y hacerlo, por el foro tienes cientos de ejemplos mejor que preguntes en otro post puesto que el tutorial es de data report  :-X

si te aparece en blanco es debido a que no existen datos de cabecera y/o no cargas el datareport antes de mostrarlo

un saludo

hola he tratado de bajarme el ejemplo pero dice link equivocado por favor me puedes decir como puedo bajar de algun otro lado o alguien me lo puede pasar

hola Amigos he intentado bajarme el ejemplo pero dice q el link es incorrecto alguien le lo podria pasar for favor o decirme de donde me bajo

Descargar Ejemplo (http://www.badongo.com/es/file/2448900)

 :rolleyes:

Voy a poner algo bastante útil a la hora de personalizar datareports en tiempo de ejecución.

Dinamizar los encabezados de los datareports desde visual basic 6.0.
Código Coloreado (http://blog-indomita.blogspot.com/2008/05/cambiar-etiquetas-e-imagenes-en-un-data.html)

Como colofón voy a postear un módulo para personalizar/dinamizar las conexiones utilizando DSN.
Así se pueden romper las cadenas de andar sujetos a una conexión estática de los DataReports y demás controles/objetos.


Dinamizar la conexión de los datareports mediante DSN (http://blog-indomita.blogspot.com/2008/06/crear-dsn-desde-vb-60-en-tiempo-de.html)


Descargar Módulo (http://www.miblogsource.indomita.org/vb6/modulos/m_odbc.bas)

MUY BUEN TUTORIAL, NO SABIA COMO HACER UNA FACTURA EN DATAREPORT. PERO TENGO UN INCONVENIENTE, TENGO UN DISEÑO DEL FORMATO DE LA FACTURA DEL CLIENTE Y NECESITO PONER LOS DATOS EXACTAMENTE DONDE VAN EN LAS HOJAS MEMBRETADAS. EL PROBLEMA ES QUE EL IMPORTE FINAL ME LO JUNTA ENSEGUIDA DEL ULTIMO REGISTRO DEL DETALLE DE LA FACTURA, ES DECIR SI SOLO FACTURE UN ARTICULO, EL IMPORTE FINAL ME LO PONE EXACTAMENTE ENSEGIDA, Y NO ME LO PONE AL FINAL DE LA PAGINA COMO LO NECESITO. ME PUEDES DECIR QUE PUEDO HACER PARA SOLUCIONAR ESTO, EN VDD LO NECESITO TE LO AGRADEZCO DE ANTEMANO.

Gracias compa tu tutorial me ha servido mucho, al fin pude hacer el machote (estrucutra) de mi factura. te agradezco mucho.


saludos

disculpa pero fiajte que he tenido problemas para conectar una base de datos en acces 200 con visual basic de hecho no pude hacer el reporte del ejemplo por lo mismo sabras que es lo que esta fallando???? :huh:

Creo que eso lo tendrías que consultar en otro post, además, pára que adivinemos donde esta el error... será que nos metemos a brujo  :huh:

Se agradece mucho!

Saludos ;)

En esta pagina hay tutoriales muy buenos como este, de verdad
hubiese sabido que existia y no pensaba en unirme pero todo lo que
vi me animaron a registrarme, saludos

con este sistema prodria consultar y almasenar por clientes separado osea si un cliente tiene mas de una factura o historia podria almasenarla todo en un solo lugar espesificado ara ese cliente

amigo
puedes resubir los archivos para poder descargarlos
de antemano
muchas gracias

resubido a un link eterno, que lo disfruten  :D

hola chicos como estan! les agradezco excelente tutorial... pero tengo una pregunta como hago para imprimir las facturas... espero respuesta y gracias de antemano

al visualizar un datareport ya muestra la opción de imprimir

Hola!! muchas gracias por el tutorial, pero me pregunto una cosa...es que no me quedo muy claro..còmo puedo imprimir un datareport pero cuando di de alta un pago, es decir que sea como una factura, por ejemplo acabo de guardar el registro y tener un boton imprimir. còmo se puede hacer eso? en mi caso no necesito relacionar por que es a partir de una sola tabla...Gracias por la respuesta de antemano.

Genial, estoy con un proyecto y para los primeros pasos me ha venido genial, gracias. ;-) ;-) ;-)