Hi, please help.

        fCloseWinSelectA(cAlias)
        cDbfNam:=aDbfNam78[1]
        cAlias:=aDbfAli78[1]
        cAlias:=fDbfUse(cDbfNam,aDbfIndN7[1],cAlias,.F.,.F.)
//USE (cDbfFile) EXCLUSIVE NEW SHARED ALIAS  cAlias//EXCLUSIVE
        fDbfCreInd(cDbfNam,cAlias,aDbfIndN7[1],aDbfIndN7[2]) //<---Error

FUNCTION fDbfCreInd(cDbfFile,cAlias,aIndFile,aIndex)
     FOR ite:=1 TO LEN(aIndFile)
       cIndFile:=aIndFile[ite]
       cIndex:=aIndex[ite]
       (cAlias)->(DbCreateIndex(cIndDir+cIndFile,cIndex,{||&(cIndex)}) )



TIA