DO WHILE .T.
SET EXCL OFF
STORE 'N' TO EXCLUSIVE
STORE 1 TO CL
*STORE 'N' TO DNETAPPEND
? TIME()
*STORE 'CUSTOMER' TO DNET
*DO NETERROR
USE CUSTOMER
? TIME()
? 'CUSTOMER OK'
USE INVOICE INDEX INUMM,QNUMM,SNUMM,XDATE
WAIT
? TIME()
? 'INVOICE OK'
USE INVMAIN
? TIME()
? 'INVMAIN OK'
ENDDO
WAIT