Compañeros, estoy haciendo esta función para que me permita desde un programa crear una tabla con el nombre VENTAS AÑO 2004, o dependiendo del año al momento de ser usado.

mNom="VENTAS AÑO "
mAno=Year(Date())
mExt=".dbf"
mNAE=mNom+TRANSFORM(mAno)+mExt
If !File(mNAE)
*
Create Table &mNAE ;
(fr d(8), ;
nc c(5), ;
pb c(40), ;
mn N(12,2), ;
obs m(4), ;
fd d(8), ;
pg c(5))
*
Index On nc Tag IndexNC
Index On pb Tag IndexPB
Index On fd Tag IndexFD
Use
Wait Window "Tabla "+mNAE+" definida..." Nowait
Else
Select mNAE
Use &mNAE Order Tag nc
Endif

Pero me produce Error de sintaxis en donde comiensa el primer asterisco hasta el segundo asterisco (*).

Alguien puede ayudarme y explicarme que esta malo en la función.


Saludos y Gracias

José Luis
wasp_k@hotmail.com