Error DBFNTX/1022 Lock required

[stefano]

Ciao

Il codice descritto sotto viene utilizzato circa 2-3 mila volte al giorno ma sporadicamente (2-3) il prog. mi restituisce questo errore : Error DBFNTX/1022 Lock required.
Uso FLock e non RLock perchè il dbf viene poi utilizzato per creare in array.
Mi chiedo se potrebbe essere un problema di rete o come posso intercettare l'errore in tempo.

xarccosa := cperete+"\arcCOSA"
xarccosa1 := cperete+"\arcCOSA1"
xarccosa2 := cperete+"\arcCOSA2"

SELECT 8
USE &xARCcosa shared alias arccosa index &xARCcosa,&xARCcosa1,&xARCcosa2

SET order TO 2
GO TOP

ACC = 0
do while acc = 0
IF FLOCK()
ACC = 1
ELSE
msgwait( CRLF+"ATTENDERE..."+CRLF,"accesso negato")
endif
enddo

DO WHILE !eof()
if len(trim(cDEOPZIONEx)) = 0
replace arccosa->L0 with .f. <-------------- errore
else
replace arccosa->L0 with &RL
endif
skip
ENDDO

go top
CdeCOSA := {}
aadd(CDEcosa," ")
DO WHILE !eof()
aadd(CdeCOSA,desc)
skip
ENDDO

arccosa->(dbcommit())
arccosa->(dbUnlock())

Grazie
Stefano