Impresos

fergonm · Post by **fergonm** » Thu Oct 30, 2008 6:13 pm

Buenas tardes.

Necesito imprimir frecuentes informes periciales que son exactamente iguales excepto unos datos.

Ahora realizo un merge con Word, eligiendo los datos del informe de una base de dats Acces que trabaja con los ficheros DBF de mi base de datos.

¿Puedo hacer una plantilla e insertar los datos de la base de datos?

Gracias

jrestojeda · Post by **jrestojeda** » Thu Oct 30, 2008 6:28 pm

Hola amigo...
El Word tiene una opción para insertar datos desde una tabla...
Si no mal recuerdo es "combinar correspondencia" donde se genera un documento principal, y luego extrae datos de una tabla y los inserta en un lugar predeterminado.
De esta forma solo se hace el domunento una vez y se llena automaticamente con los datos de la tabla.
No se si es excactamente lo que quieres... pero bueno.
Espero te sirva.
Saludos, desde Argentina. Esteban.

fergonm · Post by **fergonm** » Thu Oct 30, 2008 6:51 pm

jrestojeda wrote:Hola amigo...
El Word tiene una opción para insertar datos desde una tabla...
Si no mal recuerdo es "combinar correspondencia" donde se genera un documento principal, y luego extrae datos de una tabla y los inserta en un lugar predeterminado.
De esta forma solo se hace el domunento una vez y se llena automaticamente con los datos de la tabla.
No se si es excactamente lo que quieres... pero bueno.
Espero te sirva.
Saludos, desde Argentina. Esteban.

Así lo hago, pero desearía realizarlo desde el propio programa en forma automatizada.

Gracias.

ermatica · Post by **ermatica** » Thu Oct 30, 2008 10:14 pm

Hola,

1. Creas una tabla (.DBF) temporal con los registros y datos que necesitas imprimir. Si es en red yo haría la creacion en cada ordenador para tener el mismo nombre de tabla.

2. La creación del informe en Access creo que ya lo tienes hecho, y vinculas con esa tabla (.DBF) temporal. Así mismo configuras la MDB del informe para que se inicie siempre el informe y además le puedes indicar que con vista previa o impresion directa.

3. Con el Winexec desde tu programa FWH, ejemplo:

Code: Select all

WinExec ("c:\archivos de programa\microsoft office\Office\msaccess.exe c:\informes\INFIIVT.mdb" )

Esto es una forma, supongo que hay otras.

Un saludo
Ernesto
eagm2004@gmail.com

Loren · Post by **Loren** » Fri Oct 31, 2008 10:38 am

Lo que necesitas es la clase TWORD. Hace exactamente lo que tú quieres desde tu aplicativo. Abre/modifica/Guarda/Crea/Imprime... un documento Word desde tu aplicativo.

La puedes encontrar en las Utilidades del foro.:
http://www.fivetechsoft.com/forums/viewtopic.php?t=2503

Un saludo.
Lorenzo

fergonm · Post by **fergonm** » Fri Oct 31, 2008 7:50 pm

Loren wrote:Lo que necesitas es la clase TWORD. Hace exactamente lo que tú quieres desde tu aplicativo. Abre/modifica/Guarda/Crea/Imprime... un documento Word desde tu aplicativo.

La puedes encontrar en las Utilidades del foro.:
http://www.fivetechsoft.com/forums/viewtopic.php?t=2503

Un saludo.
Lorenzo

Muchas gracias.

He bajado el .PRG pero los enlaces con los programas de prueba e instrucciones de uso no están disponibles. ¿Puede facilitarme algún componente del foro un enlace a esos elementos?

Gracias.

antolin · Post by **antolin** » Wed Nov 12, 2008 7:23 am

Haz probado con algún fichero WMF.

Yo lo intenté una vez pero no lo conseguí porque el metafile no tenía el tamaño A4 y se imprimía más grande hiciera lo que hiciera, pero eso era con FW 2.3 a lo mejor con FWH funciona (el código lo borré).

Es decir, creas/escaneas un impreso en blanco y lo pasas a WMF, si consigues imprimirlo de tamaño adecuado con TPRINTER (mira el codigo de TPRINTER.PRG relacionado con los metafiles - no es muy complicado), no tienes más que calcular donde hay que imprimir cadad dato y ya está.

Suerte

Loren · Post by **Loren** » Wed Nov 12, 2008 8:11 am

fergonm, te he enviado a tu email lo que me pides.
Un saludo.
LORENZO

Post by **Antonio Linares** » Wed Nov 12, 2008 11:48 am

Loren,

Puedes subirlo a mediafire o similar y poner aqui la dirección de descarga ? gracias

Asi lo copiamos al FTP de FiveTech para que no se pierda

fergonm · Post by **fergonm** » Thu Nov 13, 2008 12:23 pm

Antonio.

He visto en un post que le contestabas a alguien que era necesario enlazar la librería hbwin32 para poder usar Tword.

Por otra parte en la documentación de la clase Tword se dice que se debe enlazar la librería Hbole que se acompaña.

Pregunta

No logro que funcione. Utilizo FWH 7.07 y Harbour el build de 15 de julio de 2007.

¿Debo bajar y enlazar alguna librería nueva?

Un saludo

wmormar · Post by **wmormar** » Thu Nov 13, 2008 4:31 pm

fergonm,

La hbole se tenía que enlazar en versiones anteriores, en las mas recientes ya viene incluida HBOLE tanto en Harbour como xHarbour.

fergonm · Post by **fergonm** » Fri Nov 14, 2008 7:04 pm

wmormar wrote:fergonm,

La hbole se tenía que enlazar en versiones anteriores, en las mas recientes ya viene incluida HBOLE tanto en Harbour como xHarbour.

Gracias Willian, pero tengo el mismo problema. En tiempo de ejecución tengo el siguiente error:

Application
===========
Path and name: d:\personal\perito32\perito3.Exe (32 bits)
Size: 667,648 bytes
Time from start: 0 hours 0 mins 45 secs
Error occurred at: 07-11-2008, 20:01:47
Error description: Error BASE/1004 No existe el m‚todo: GET
Args:
[ 1] = U
[ 2] = C MailMerge

Stack Calls
===========
Called from: source\rtl\tget.prg => GET(0)
Called from: => TWORD:OPENDOC(434)
Called from: d:\personal\perito32\Prg\facturas.prg => IMPRIME_FACTURA(269)
Called from: d:\personal\perito32\Prg\verfactura.prg => VERFACTURA(200)
Called from: d:\personal\perito32\Prg\facturas.prg => (b)FACTURA(72)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: d:\personal\perito32\Prg\facturas.prg => FACTURA(81)
Called from: d:\personal\perito32\Prg\perito32.prg => (b)BUILDMENU(117)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TMDIFRAME:COMMAND(0)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: d:\personal\perito32\Prg\perito32.prg => MAIN(96)

Como verás parece que se trata de un error en el métogo OpenDoc, y concretamente en la parte modificada por Vicktor.

Por eso digo que me debe faltar algo al enlazar con VerCe .

Un salud desde Zaragoza (España)

wmormar · Post by **wmormar** » Sat Nov 15, 2008 4:53 am

fergonm,

Podrias comunicarte por msn:

wmormar@hotmail.com

ahi charlamos sobre el verce

Post by **Antonio Linares** » Sat Nov 15, 2008 8:38 am

Fernando,

Tienes que enlazar las librerías de FWH antes que las de Harbour/xHarbour.

Pues de no hacerlo, estas enlazando un TGet.prg incorrecto.

fergonm · Post by **fergonm** » Wed Nov 19, 2008 11:26 am

Gracias a todos por contestar.

Después de muchas pruebas, creo que el problema radicaba en el paht del archivo que debía abrir. Ya hace el merge bien.

Antonio, el tema de enlazar antes unas librerías u otras estaba basado en un párrafo del manual de Tword. Solucionado

Lo que no logro es ver el documento con Preview(). En el manual de Tword se especifica que se deben implementar dos funciones. ¿puede algún miembro facilitarme información sobre la forma de realizarlo.

Un saludo. Fernando