PORQUE NO RECONOCE EL ALIAS

[Luis]

TENGO ESTE SIMPLE EJEMPLO :

#Include "FiveWin.Ch"

FUNCTION MAIN()

Local cAlias := cGetNewAlias("MR")
? cAlias
Use CLI Inde CLI1,CLI2 New ALIAS (cAlias) SHARED
? alias()
(cAlias)->(dbCloseArea())
RETURN NIL

Y ME SALE EL ERROR Error BASE/1002 Alias does not exist: CLI

Y DE PRONTO PORQUE HE UTILIZADO ALIAS EN MIS PROGRAMAS Y DERREPENTE COMENZO ESTE PROBLEMA Y YA NO FUNCIONA NISIQUIERA EN ESTE SIMPLE EJEMPLO. QUE PASO? ME PUEDEN AYUDAR

[cuatecatl82]

Tomando tu ejemplo tal como esta, inventando los archivos dbf y ntx y/o cdx funciona sin causar fallo, me muestra el mismo nombre de alias "MR", puedes probar tambien de la siguiente manera:

Code: Select all  Expand view

#Include "FiveWin.Ch"

FUNCTION MAIN()

Local cAlias
Use ".\CLI.DBF" New ALIAS "MiAlias" SHARED
ORDLISTADD(".\CLI1.NTX", "CLI1")
(cAlias)->( ORDSETFOCUS("CLI1") )

cAlias:= ALIAS()
msginfo(alias())
(cAlias)->(dbCloseArea())
RETURN NIL

De preferencia hay que indicar en los mandatos de archivos en donde estan ubicadas lss Dbf y los Indices.

Si pudieras subir tu dbf y tu indice sería mejor, habra que descartar que puedan estar corruptos.

Saludos..

[karinha]

Holá,

Mira en \SAMPLES\TESTMDI8.PRG

Salu2

[Luis]

Gracias Víctor Daniel y Karinha por sus respuestas. Muy amables.