I was probed it with V.2.9.3 & V2.9.4
Code: Select all
cFileGVA := GetFile( , "Archivo de Articulos" , "c:\" , .f., .f. )
if empty(cFileGVA)
return .f.
endif
use (cFileGVA) alias ARTICS
if !used()
msginfo("no se abrio;"+cFileGVA)
return .f.
endif
select ARTICS // AQUI MARCA ERROR ALIAS DOES NOT EXIST ARTICS
Code: Select all
dbUseArea( .T., "DBFCDX", cFileGVA, "ARTICS", lShared, lReadOnly )