pequeño avance con texcels pero aun con problemas

Post Reply
User avatar
lafug
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

pequeño avance con texcels pero aun con problemas

Post by lafug »

Antes que nada Feliz 2006 para todos!!!
Antonio:

Baje la clase texcel corregida, ahora se compila sin problemas junto al resto de los programas, entonces estoy compilando los ejemplos que venían en el paquete enviado por vikthor, pero al ejecutar cualquiera de los ejemplos el sistema da errores, como el siguiente al ejecutar el TEST3.PRG:

Path and name: C:\sofnuth\SOFNUTR.Exe (32 bits)
Size: 1,357,824 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 02/01/2006, 13:42:15
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: WORKBOOKS
Args:

Stack Calls
===========
Called from: => WORKBOOKS(0)
Called from: => TEXCELSCRIPT:OPEN(288)
Called from: => TEST(17)
Called from: => (b)BUILDMENU(104)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: => MAIN(55)
FWH 2.7 / BCC55
SALUDOS Y GRACIAS
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Luis,

En el método New() prueba este cambio. En donde pone:

::oExcel := CreateOleObject( "Excel.Application" )

cámbialo a:

::oExcel := TOleAuto():New( "Excel.Application" )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

METHOD NEW() CLASS TExcelScript
#IFDEF __XHARBOUR__
::lExcel := .T.
TRY
::oExcel := GetActiveObject( "Excel.Application" )
::oClip:=TClipBoard():New()
::oClip:Clear()
CATCH
TRY
::oExcel := CreateObject( "Excel.Application" )
::oClip:=TClipBoard():New()
::oClip:Clear()
CATCH
Alert( "No está Excel Instalado en está Pc." )
::lExcel := .F.
END
END
#ELSE
::oExcel := TOleAuto( "Excel.Application" )
#ENDIF
::aExcelCols := {}
RETURN( Self )
Vikthor
User avatar
lafug
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

Post by lafug »

Antonio al hacer el cambio me da el siguiente error

Error: Unresolved external '_HB_FUN_TOLEAUTO' referenced from C:\SOFNUTH\TEXCELS.OBJ

Al reemplazar el method new por el que que vikthor me envió da el mismo error

Que hay con el "#include "fileXLS.ch" que había que colocar al inicio del prg en Fw Clipper?
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Luis,

Estás construyendo tu aplicación con Harbour. Prueba a construirla con xHarbour. Sólo tienes que cambiar el compilador y las librerías.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
lafug
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

Post by lafug »

Antonio:

cual es la diferencia entre harbour y xharbour?
no me afecta la rc de recursos?
_ que efectuado en los prg para harbour, xharbour los reconoce de igual manera?



la clase de vikthor según recuerdo tu comentaste que era para xHarbour
saludos
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Luis,

No hay ninguna diferencia que afecte a tu aplicación. La clase TOleAuto está implementada en xharbour y no en Harbour, por lo que si la necesitas entonces tienes que usar xharbour.

Los recursos son los mismos, los ficheros make, todo igual.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
lafug
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

Post by lafug »

antonio:
compilé con xHarbour sin problemas, pero tengo mis dudas con el fichero "fileXLS.ch", ya que estoy ocupando el mismo que usaba con FWClipper debido a que el zip de la texcels que vikthor mando no esta este fichero.

al compilar la aplicación, esta se genera, pero aparece el mensaje:
fileXLS.ch(1) Warning P0001 Suspicious unclosed #if* directive.
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Luis,

> fileXLS.ch(1) Warning P0001 Suspicious unclosed #if* directive.

Supongo que falta un #endif al final de ese fichero. Pero eso no es ningún problema.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

El archivo filexls.ch no es necesario para utilizar la clase TExcelS.
Vikthor
User avatar
lafug
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

Post by lafug »

alguien tendrá por ahi algun ejemplo práctico?
necesito generar una planilla excel con los titulos:

"codigo" "producto" "cantidad" "valor"

la sintaxis de la texcels para fwclipper no es la misma en esta para FWH

GRACIAS DE ANTEMANO
SALUDOS
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

Puedes encontrar varios ejemplos en http://vikthor.com.mx/download/excel
Vikthor
Post Reply