Page 1 of 1

pequeño avance con texcels pero aun con problemas

Posted: Mon Jan 02, 2006 4:52 pm
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

Posted: Mon Jan 02, 2006 5:34 pm
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" )

Posted: Mon Jan 02, 2006 5:42 pm
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 )

Posted: Mon Jan 02, 2006 6:05 pm
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?

Posted: Mon Jan 02, 2006 6:15 pm
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.

Posted: Mon Jan 02, 2006 6:26 pm
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

Posted: Mon Jan 02, 2006 6:59 pm
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.

Posted: Mon Jan 02, 2006 7:00 pm
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.

Posted: Mon Jan 02, 2006 7:13 pm
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.

Posted: Mon Jan 02, 2006 7:18 pm
by Vikthor
El archivo filexls.ch no es necesario para utilizar la clase TExcelS.

Posted: Mon Jan 02, 2006 11:58 pm
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

Posted: Wed Jan 04, 2006 12:41 am
by Vikthor
Puedes encontrar varios ejemplos en http://vikthor.com.mx/download/excel