compilando con Harbour/xHarbour tengo errores...

[Mayor_Valenzuela]

En el siguiente código me da error en las senencias Copy To e Index On, me arroja que sigue:


.\SOURCE\IMPCOMI.PRG(139) Error E0030 Syntax error: "syntax error at 'TO'"

.\SOURCE\IMPCOMI.PRG(142) Error E0030 Syntax error: "syntax error at 'ON'"

**Copy To &(Substr(Local3,9,7))
If ( DbUseFile(Local1, .F.,"DBFNTX") )
DATABASE oDat[1]
** Index On N_Fact To &(Substr(Local1,9,7))
Else
Return ( Nil )
EndIf

** Es donde aparecen los errores, si puede ayudarme...
Gracias.

[quique]

prueba quitando los &

[Mayor_Valenzuela]

Lo que sucede es que necesito la macrosustitucion para realizar esta tarea. A no ser que exista otro metodo de macro...


Gracias...

[quique]

según creo, debería de funcionarte bien utilizando () sin &, pero en dado caso prueba directamente con las funciones

__dbCopy()
dbCreateIndex()

[Mayor_Valenzuela]

Bueno retire el & y deje solo los (), paso sin problemas... con la version anterior de harbour que estaba usando me lo reconocia de todas formas...

Muchas gracias...