USE PBATCH
CLEAR
? 'RESETING FOLLOWING INVOICES'
?
DO WHILE .NOT. EOF()
STORE RECNO() TO LLLLL
STORE RENCO TO LLLL
USE INVOICE
GOTO LLLL
? NAME
DO LOCKWAIT
REPLACE LASTPRINT WITH CTOD('  /  /  ')
UNLOCK
USE PBATCH
GOTO LLLLL
SKIP
ENDDO
DO PINVOICE