Page 1 of 4
No graba un documento Word
Posted:
Sun Feb 28, 2016 10:14 amby colthop
Hola a todos:
Estoy con un error que no se solucionar y es el siguiente:
Yo tengo este código para crear un documento Word con ciertos valores de una base de datos:
- Code: Select all Expand view
FUNCTION gestcua411()
wdFormatDocument97 := 0
replace empresa with va001
replace nif with va002
replace domicilio with va003
replace poblacion with va004
replace provincia with va005
replace ejercicio with va006
replace dia with va007
replace mes with va008
replace ano with va009
replace cargo with va010
replace numeuno with va011
replace textuno with va012
replace numedos with va013
replace textdos with va014
replace numetres with va015
replace texttres with va016
replace numecuatro with va017
replace textcuatro with va018
replace numecinco with va019
replace textcinco with va020
dbunlock()
oWord:=TOleAuto():New( "Word.Application" )
cPlantilla := (fic1)
oDoc :=oWord:Documents:Open(cPlantilla) // abre el doc modelo
cViejo := "[EMPRESA]"
cCampo := (empresa)
reemplace2 ()
cViejo := "[NIF]"
cCampo := (nif)
reemplace2 ()
cViejo := "[POBLACION]"
cCampo := (poblacion)
reemplace2 ()
cViejo := "[PROVINCIA]"
cCampo := (provincia)
reemplace2 ()
cViejo := "[DOMICILIO]"
cCampo := (domicilio)
reemplace2 ()
cViejo := "[EJERCICIO]"
cCampo := (ejercicio)
reemplace2 ()
cViejo := "[DIA]"
cCampo := (dia)
reemplace2 ()
cViejo := "[MES]"
cCampo := (mes)
reemplace2 ()
cViejo := "[ANO]"
cCampo := (ano)
reemplace2 ()
cViejo := "[CARGO]"
cCampo := (cargo)
reemplace2 ()
cViejo := "[NUMEUNO]"
cCampo := (numeuno)
reemplace2 ()
cViejo := "[TEXTUNO]"
cCampo := (textuno)
reemplace2 ()
cViejo := "[NUMEDOS]"
cCampo := (numedos)
reemplace2 ()
cViejo := "[TEXTDOS]"
cCampo := (textdos)
reemplace2 ()
cViejo := "[NUMETRES]"
cCampo := (numetres)
reemplace2 ()
cViejo := "[TEXTTRES]"
cCampo := (texttres)
reemplace2 ()
cViejo := "[NUMECUATRO]"
cCampo := (numecuatro)
reemplace2 ()
cViejo := "[TEXTCUATRO]"
cCampo := (textcuatro)
reemplace2 ()
cViejo := "[NUMECINCO]"
cCampo := (numecinco)
reemplace2 ()
cViejo := "[TEXTCINCO]"
cCampo := (textcinco)
reemplace2 ()
oDoc := oWord:Get("ActiveDocument") // object (documento activo)
oDoc:Invoke( "SaveAs", cFich ) // graba fichero
oDoc:Invoke('Close',0) // cierra fichero
oDoc:=NIL
oWord:Quit()
oWord:=NIL
gestcua421(2)
RETURN (.T.)
Siempre había funcionado pero ahora se queda bloqueado en la línea "oDoc:Invoke( "SaveAs", cFich ) // graba fichero" y no continua. Desde entonces creo que solo he cambiado del BCC582 al BCC7.
Alguna sugerencia la versión.
Un saludo
Carlos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 10:47 amby Antonio Linares
Carlos,
Prueba asi:
oDoc:SaveAs( cFich )
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 12:38 pmby colthop
Hola Antonio:
Lo he probado y pasa lo mismo se queda también.
Un saludo.
Carlos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 4:18 pmby Antonio Linares
Que valor tiene cFich ?
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 4:39 pmby colthop
Hola Antonio:
cFich vale "c:\colthop\cyewin\emp90060\dili2015.doc" y todas las carpetas están creadas.
Un saludo
Carlos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 5:04 pmby Antonio Linares
Que version de Harbour usas ?
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 5:08 pmby colthop
Hola Antonio:
Harbour 3.2.0dev (r1506171039)
Bcc7 y FiveWin 13 11
Un saludo
Carlos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 5:24 pmby Antonio Linares
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 5:35 pmby colthop
Hola Antonio:
Al enlazar me pone
Error: Unresolved external '_png_init_io' referenced from C:/FWH\LIB\FIVEHC.LIB|FWPNG
Error: Unable to perform link
Que debo corregir.
Un saludio
Carlos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 5:50 pmby cnavarro
Carlos, quizás esto te ayude
O bien te falta alguna libreria en el enlazado
viewtopic.php?f=6&t=30431&p=174273&hilit=_png_init_io#p174310
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 5:56 pmby colthop
Hola y Gracias Cristóbal:
Se soluciono con la librería que te descargabas desde el enlace del post.
Pero he probado lo del documento y sigue igual. Se queda parado cuando lo está grabando.
Un saludo
Carlos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 6:34 pmby cnavarro
Carlos, puedes poner las librerias de enlazado que utilizas?
Saludos
Re: No graba un documento Word
Posted:
Sun Feb 28, 2016 7:04 pmby colthop
Hola Cristóbal:
c:\fwh\lib\FiveH.lib +
c:\fwh\lib\FiveHC.lib +
c:\fwh\lib\libmysql.lib +
c:\fwh\lib\libmysqld.lib +
c:\fwh\lib\dolphin.lib +
c:\fwh\lib\libcurl.lib +
c:\harbour\lib\hbwin.lib +
c:\harbour\lib\gtwin.lib +
c:\harbour\lib\gtgui.lib +
c:\harbour\lib\hbrtl.lib +
c:\harbour\lib\hbvm.lib +
c:\harbour\lib\hblang.lib +
c:\harbour\lib\hbmacro.lib +
c:\harbour\lib\hbrdd.lib +
c:\harbour\lib\rddntx.lib +
c:\harbour\lib\rddcdx.lib +
c:\harbour\lib\rddfpt.lib +
c:\harbour\lib\hbsix.lib +
c:\harbour\lib\hbdebug.lib +
c:\harbour\lib\hbcommon.lib +
c:\harbour\lib\hbpp.lib +
c:\harbour\lib\hbcpage.lib +
c:\harbour\lib\hbcplr.lib +
c:\harbour\lib\hbct.lib +
c:\harbour\lib\hbpcre.lib +
c:\harbour\lib\xhb.lib +
c:\harbour\lib\hbziparc.lib +
c:\harbour\lib\hbmzip.lib +
c:\harbour\lib\hbzlib.lib +
c:\harbour\lib\minizip.lib +
c:\harbour\lib\png.lib +
c:\harbour\lib\hbcurl.lib +
c:\harbour\lib\hbusrrdd.lib +
c:\harbour\lib\hbhpdf.lib +
c:\harbour\lib\libhpdf.lib +
C:\bcc7\lib\cw32.lib +
C:\bcc7\lib\import32.lib +
C:\bcc7\lib\uuid.lib +
C:\bcc7\lib\wininet.lib +
C:\bcc7\lib\psdk\oleaut32.lib +
C:\bcc7\lib\psdk\odbc32.lib +
C:\bcc7\lib\psdk\rasapi32.lib +
C:\bcc7\lib\psdk\nddeapi.lib +
C:\bcc7\lib\psdk\msimg32.lib +
C:\bcc7\lib\psdk\iphlpapi.lib +
C:\bcc7\lib\psdk\psapi.lib +
C:\bcc7\lib\psdk\gdiplus.lib +
C:\bcc7\lib\psdk\shell32.lib +
C:\copiones\clipper\extend.lib,
Estas son las librerías.
Un saludo
Carlos
Re: No graba un documento Word
Posted:
Mon Feb 29, 2016 7:20 amby colthop
Hola a todos:
He seguido haciendo pruebas para ver donde podría estar el error y he cambiado el Bcc7 y el harbour y sigue igual. Después he pasado a los sistemas operativos y ahí es donde en Windows 7 64 bit funciona y en Windows 8 64 bits se queda bloqueado.
Alguna sugerencia. Si queréis probarlo podéis bajaros la demo del programa e instalarla de:
http://www.colthop.es/bajadas/DemoCyEWin.exeLa opción está en el menú de "Cuentas Anuales" la última "Diligencias y Portadas".
Un saludo
Carlos
Re: No graba un documento Word
Posted:
Tue Mar 01, 2016 9:15 amby colthop
Hola Antonio, Cristóbal y resto:
Sabiendo que funciona en Windows 7 y no en Windows 8 sabéis si se puede averiguar algo, puede ser de permisos en Windows 8.
Un saludo
Carlos