Error NETIO/1005 Erro de escrita: DBCLOSEAREA (DOS Error 16

[asimoes]

Caros,

Alguém sabe algo sobre esse erro com o Netio:

Error NETIO/1005 Erro de escrita: DBCLOSEAREA (DOS Error 16)

A rotina que ocorre o erro é essa:

Código: Selecionar todos

FUNCTION FecharArea
LOCAL nArea, cAlias
   FOR nArea:=0 To 250
      IF !Empty(Alias(nArea))
         cAlias:=Alias(nArea)
         &cAlias.->(DbCloseArea()) //Aqui ocorre o erro
      ENDIF
      hwg_doevents()
   NEXT
RETURN Nil