>LOCAL lnNext > >SET MULTILOCKS ON >SET REPROCESS TO 0 Automatic > >SELECT DocsNumbers >WAIT WINDOW "Gettign document number..." NOWAIT >RLOCK() >lnNext = DocsNumbers.invoice +1 >REPLACE DocsNumbers.invoice WITH lnNext >TABLEUPDATE(.T.) >UNLOCK IN DocsNumbers >WAIT CLEAR > >RETURN lnNext >>