In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Usar fileXls.lib o tfilexls.lib

Foro de Xailer profesional en español
Responder
fglez
Mensajes: 46
Registrado: Mié Jun 25, 2008 6:17 pm
Ubicación: México D.F.

Usar fileXls.lib o tfilexls.lib

Mensaje por fglez »

Estimados Consultores:
Estoy utilizando la version de Xailer 1.5.6, con las anteriores utilizaba
la libreria filexls.lib que la colocaba en el proyecto en los Otros, y me
estaba funcionando,ahora al hacer un proyecto me marca en la compilación el
siguiente error:
Unroselved External 'HB _FUN_CTEMPFILE REFEREND ......programa
Por lo que opte utilizar la libreria tFileXLS.lib que lo lei del foro, al
compilar no me marca error pero al ejecutarlo no me despliega nada, como
que se abre y cierra de inmediato. Quite la libreria filexls.lib y puse la
tfilexls.lib.
La parte del programa que marca el error es:
...
.....
WITH OBJECT oXLS := TFileXls():New(cNomArchivo,,,.f.,.t.) EN ESTA PARTE
:_Col(1,1,10)
:_Col(2,1,20)
:_Col(3,1,50)
:_Col(4,1,12)
:_Col(5,1,12)
:Say(1,1,"Tabla de Colores",,,oFonts[1])
:Say(1,10,"Fecha: "+TRANSFORM(DATE(),"99/99/9999"),,,oFonts[1])
:Say(3,1,"Inventario",,,oFonts[2],,.t.)
:Say(3,2,"Bic-Color",,,oFonts[2],,.t.)
:Say(3,3,"M a r c a",,,oFonts[2],,.t.)
:Say(3,4,"Conos",,,oFonts[2],,.t.)
:Say(3,5,"Fecha",,,oFonts[2],,.t.)
nInd:= 4
(cAliCol)->(DBGOTOP())
DO WHILE !(cAliCol)->(EOF())
:Say(nInd,1,(cAliCol)->INVENTARIO,,,oFonts[2])
:Say(nInd,2,(cAliCol)->BICCOLOR,,,oFonts[2])
:Say(nInd,3,(cAliCol)->MARCA,,,oFonts[2])
:Say(nInd,4,(cAliCol)->CONOS,,,oFonts[2],oFormat1)
:Say(nInd,5,TRANSFORM((cAliCol)->FECHA,"99/99/9999"),,,oFonts[2])
++aTotal[1]
aTotal[2] := aTotal[2] + (cAliCol)->CONOS
(cAliCol)->(DBSKIP())
++nInd
ENDDO
:Say(nInd,1,aTotal[1],,,oFonts[2],oFormat1)
:Say(nInd,3,"T O T A L E S",,,oFonts[2],,.t.)
:Say(nInd,4,aTotal[2],,,oFonts[2],oFormat1)
:End()
END
Mi pregunta que es lo que requiero realizar para que se ejecute bien ??
Muchas gracias por su apoyo de antemano
Francisco Gonzalez.
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9459
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Usar fileXls.lib o tfilexls.lib

Mensaje por ignacio »

Francisco,
Esa librería no es parte de Xailer. Siento no poder ayudarle.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=46f2f585@ozsrv2.ozlan.local...]46f2f585@ozsrv2.ozlan.local...[/email]
> Estimados Consultores:
> Estoy utilizando la version de Xailer 1.5.6, con las anteriores utilizaba
> la libreria filexls.lib que la colocaba en el proyecto en los Otros, y me
> estaba funcionando,ahora al hacer un proyecto me marca en la compilación
> el siguiente error:
>
> Unroselved External 'HB _FUN_CTEMPFILE REFEREND ......programa
>
> Por lo que opte utilizar la libreria tFileXLS.lib que lo lei del foro, al
> compilar no me marca error pero al ejecutarlo no me despliega nada, como
> que se abre y cierra de inmediato. Quite la libreria filexls.lib y puse la
> tfilexls.lib.
>
> La parte del programa que marca el error es:
>
> ...
> ....
> WITH OBJECT oXLS := TFileXls():New(cNomArchivo,,,.f.,.t.) EN ESTA PARTE
> :_Col(1,1,10)
> :_Col(2,1,20)
> :_Col(3,1,50)
> :_Col(4,1,12)
> :_Col(5,1,12)
>
> :Say(1,1,"Tabla de Colores",,,oFonts[1])
> :Say(1,10,"Fecha: "+TRANSFORM(DATE(),"99/99/9999"),,,oFonts[1])
>
> :Say(3,1,"Inventario",,,oFonts[2],,.t.)
> :Say(3,2,"Bic-Color",,,oFonts[2],,.t.)
> :Say(3,3,"M a r c a",,,oFonts[2],,.t.)
> :Say(3,4,"Conos",,,oFonts[2],,.t.)
> :Say(3,5,"Fecha",,,oFonts[2],,.t.)
>
> nInd:= 4
>
> (cAliCol)->(DBGOTOP())
> DO WHILE !(cAliCol)->(EOF())
> :Say(nInd,1,(cAliCol)->INVENTARIO,,,oFonts[2])
> :Say(nInd,2,(cAliCol)->BICCOLOR,,,oFonts[2])
> :Say(nInd,3,(cAliCol)->MARCA,,,oFonts[2])
> :Say(nInd,4,(cAliCol)->CONOS,,,oFonts[2],oFormat1)
> :Say(nInd,5,TRANSFORM((cAliCol)->FECHA,"99/99/9999"),,,oFonts[2])
> ++aTotal[1]
> aTotal[2] := aTotal[2] + (cAliCol)->CONOS
> (cAliCol)->(DBSKIP())
> ++nInd
> ENDDO
> :Say(nInd,1,aTotal[1],,,oFonts[2],oFormat1)
> :Say(nInd,3,"T O T A L E S",,,oFonts[2],,.t.)
> :Say(nInd,4,aTotal[2],,,oFonts[2],oFormat1)
> :End()
> END
>
> Mi pregunta que es lo que requiero realizar para que se ejecute bien ??
>
> Muchas gracias por su apoyo de antemano
>
> Francisco Gonzalez.
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Usar fileXls.lib o tfilexls.lib

Mensaje por Xevi »

La lib que se colgó corresponde a una Lib compilada con el xHarbour para
Xailer 1.7.5
Te adjunto la TFileXls que estoy utilizando yo con Xailer 1.6.5
Un Saludo,
Xevi.
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=46f2f585@ozsrv2.ozlan.local...]46f2f585@ozsrv2.ozlan.local...[/email]
> Estimados Consultores:
> Estoy utilizando la version de Xailer 1.5.6, con las anteriores utilizaba
> la libreria filexls.lib que la colocaba en el proyecto en los Otros, y me
> estaba funcionando,ahora al hacer un proyecto me marca en la compilación
> el
> siguiente error:
>
> Unroselved External 'HB _FUN_CTEMPFILE REFEREND ......programa
>
> Por lo que opte utilizar la libreria tFileXLS.lib que lo lei del foro, al
> compilar no me marca error pero al ejecutarlo no me despliega nada, como
> que se abre y cierra de inmediato. Quite la libreria filexls.lib y puse la
> tfilexls.lib.
>
> La parte del programa que marca el error es:
>
> ...
> ....
> WITH OBJECT oXLS := TFileXls():New(cNomArchivo,,,.f.,.t.) EN ESTA PARTE
> :_Col(1,1,10)
> :_Col(2,1,20)
> :_Col(3,1,50)
> :_Col(4,1,12)
> :_Col(5,1,12)
>
> :Say(1,1,"Tabla de Colores",,,oFonts[1])
> :Say(1,10,"Fecha: "+TRANSFORM(DATE(),"99/99/9999"),,,oFonts[1])
>
> :Say(3,1,"Inventario",,,oFonts[2],,.t.)
> :Say(3,2,"Bic-Color",,,oFonts[2],,.t.)
> :Say(3,3,"M a r c a",,,oFonts[2],,.t.)
> :Say(3,4,"Conos",,,oFonts[2],,.t.)
> :Say(3,5,"Fecha",,,oFonts[2],,.t.)
>
> nInd:= 4
>
> (cAliCol)->(DBGOTOP())
> DO WHILE !(cAliCol)->(EOF())
> :Say(nInd,1,(cAliCol)->INVENTARIO,,,oFonts[2])
> :Say(nInd,2,(cAliCol)->BICCOLOR,,,oFonts[2])
> :Say(nInd,3,(cAliCol)->MARCA,,,oFonts[2])
> :Say(nInd,4,(cAliCol)->CONOS,,,oFonts[2],oFormat1)
> :Say(nInd,5,TRANSFORM((cAliCol)->FECHA,"99/99/9999"),,,oFonts[2])
> ++aTotal[1]
> aTotal[2] := aTotal[2] + (cAliCol)->CONOS
> (cAliCol)->(DBSKIP())
> ++nInd
> ENDDO
> :Say(nInd,1,aTotal[1],,,oFonts[2],oFormat1)
> :Say(nInd,3,"T O T A L E S",,,oFonts[2],,.t.)
> :Say(nInd,4,aTotal[2],,,oFonts[2],oFormat1)
> :End()
> END
>
> Mi pregunta que es lo que requiero realizar para que se ejecute bien ??
>
> Muchas gracias por su apoyo de antemano
>
> Francisco Gonzalez.
>
>
>


Attached files TFileXLS.lib (20.5 KB)Â
Arriba
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

Usar fileXls.lib o tfilexls.lib

Mensaje por Rene Flores »

Francisco:
En el progrma de ejemplo donde esta el uso del la filexls viene la
funcion cTempFile que te hace falta, copiala y listo.
Saludos desde Colombia.
Rene Flores
http://www.ciber-tec.com
Ing. Francisco Gonzí¤lez Herrera escribió:
> Estimados Consultores:
> Estoy utilizando la version de Xailer 1.5.6, con las anteriores utilizaba
> la libreria filexls.lib que la colocaba en el proyecto en los Otros, y me
> estaba funcionando,ahora al hacer un proyecto me marca en la compilación el
> siguiente error:
>
> Unroselved External 'HB _FUN_CTEMPFILE REFEREND ......programa
>
> Por lo que opte utilizar la libreria tFileXLS.lib que lo lei del foro, al
> compilar no me marca error pero al ejecutarlo no me despliega nada, como
> que se abre y cierra de inmediato. Quite la libreria filexls.lib y puse la
> tfilexls.lib.
>
> La parte del programa que marca el error es:
>
> ...
> ....
> WITH OBJECT oXLS := TFileXls():New(cNomArchivo,,,.f.,.t.) EN ESTA PARTE
> :_Col(1,1,10)
> :_Col(2,1,20)
> :_Col(3,1,50)
> :_Col(4,1,12)
> :_Col(5,1,12)
>
> :Say(1,1,"Tabla de Colores",,,oFonts[1])
> :Say(1,10,"Fecha: "+TRANSFORM(DATE(),"99/99/9999"),,,oFonts[1])
>
> :Say(3,1,"Inventario",,,oFonts[2],,.t.)
> :Say(3,2,"Bic-Color",,,oFonts[2],,.t.)
> :Say(3,3,"M a r c a",,,oFonts[2],,.t.)
> :Say(3,4,"Conos",,,oFonts[2],,.t.)
> :Say(3,5,"Fecha",,,oFonts[2],,.t.)
>
> nInd:= 4
>
> (cAliCol)->(DBGOTOP())
> DO WHILE !(cAliCol)->(EOF())
> :Say(nInd,1,(cAliCol)->INVENTARIO,,,oFonts[2])
> :Say(nInd,2,(cAliCol)->BICCOLOR,,,oFonts[2])
> :Say(nInd,3,(cAliCol)->MARCA,,,oFonts[2])
> :Say(nInd,4,(cAliCol)->CONOS,,,oFonts[2],oFormat1)
> :Say(nInd,5,TRANSFORM((cAliCol)->FECHA,"99/99/9999"),,,oFonts[2])
> ++aTotal[1]
> aTotal[2] := aTotal[2] + (cAliCol)->CONOS
> (cAliCol)->(DBSKIP())
> ++nInd
> ENDDO
> :Say(nInd,1,aTotal[1],,,oFonts[2],oFormat1)
> :Say(nInd,3,"T O T A L E S",,,oFonts[2],,.t.)
> :Say(nInd,4,aTotal[2],,,oFonts[2],oFormat1)
> :End()
> END
>
> Mi pregunta que es lo que requiero realizar para que se ejecute bien ??
>
> Muchas gracias por su apoyo de antemano
>
> Francisco Gonzalez.
>
>
>
Arriba
Responder

Volver a “Xailer Pro Spanish”