O erro acontece no NetUse
Novamente este erro na abertura de uma tabela usando o rdd leto
A trecho onde abre a tabela:
CASE 'APS01'
IF SELECT(cDataBase) == 0 .OR. !&cDataBase.->(Used())
lAbriu:=NetUse(cServer, cDataBase, lShared)
ENDIF
lContinua:=.F.
EXIT
Estou relutante em continuar com o hbnetio ou voltar para a forma tradicional usando o rdd dbfcdx.
A função NetUse:
STATIC FUNCTION NetUse(cServer, cDatabase, lOpenMode, nSeconds, cRDD)
LOCAL lForever
hb_Default(@lOpenMode, .F.)
hb_Default(@nSeconds, 0)
hb_Default(@cRDD, "LETO")
hb_Default(@cServer, "")
lForever := (nSeconds = 0)
Do While (lForever .Or. nSeconds > 0)
If lOpenMode
DbUseArea(.T., cRDD, cServer + cDataBase, cDataBase, .T.)
Else
DbUseArea(.T., cRDD, cServer + cDataBase, cDataBase, .F.)
EndIf
If ! NetErr() // Use succeeds
RETURN (.T.)
EndIf
SysWait(1) // Wait 1 second
nSeconds --
EndDo
RETURN (.F.)