No graba un documento Word

[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

[Antonio Linares]

Carlos,

Prueba asi:

oDoc:SaveAs( cFich )

[colthop]

Hola Antonio:

Lo he probado y pasa lo mismo se queda también.

Un saludo.

Carlos

[Antonio Linares]

Que valor tiene cFich ?

[colthop]

Hola Antonio:

cFich vale "c:\colthop\cyewin\emp90060\dili2015.doc" y todas las carpetas están creadas.

Un saludo

Carlos

[Antonio Linares]

Que version de Harbour usas ?

[colthop]

Hola Antonio:

Harbour 3.2.0dev (r1506171039)
Bcc7 y FiveWin 13 11

Un saludo

Carlos

[Antonio Linares]

Carlos,

Prueba a usar esta versión más reciente:

https://bitbucket.org/fivetech/harbour-xharbour-builds/downloads/harbour_3.2_32bits_Borland7_20160108.zip

[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

[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

[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

[cnavarro]

Carlos, puedes poner las librerias de enlazado que utilizas?

Saludos

[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

[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.exe

La opción está en el menú de "Cuentas Anuales" la última "Diligencias y Portadas".

Un saludo

Carlos

[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