IF UPDATED()
 STORE 'Y' TO UUPDATE
ELSE
 STORE 'N' TO UUPDATE
ENDIF
IF TYPE("ALLI") = 'U'
 STORE 0 TO ALLI
ENDIF
IF ALLI <> 0
 SELECT &ALLI
 SKIP 0
ENDIF
IF MEMDB <> RECNO()
 @ 23,0 CLEAR
 ? CHR(7)
 @ 23,0 SAY 'FILE INVOICE SET TO WRONG RECNO() !!!, FROM PROGRAM MEMTODB, RECNO - ' + STR(RECNO(),8,0)
 WAIT
ENDIF
GOTO MEMDB
DO LOCKWAIT
STORE FCOUNT() TO FCC
DO WHILE FCC <> 0 .AND. MINUSE = 'N' .AND. UUPDATE = 'Y'
STORE FIELDNAME(FCC) TO FIELD
*LOOK FOR CHANGES IN FIELDS
REPLACE &FIELD WITH M->&FIELD
RELEASE &FIELD
STORE FCC-1 TO FCC
ENDDO
IF UUPDATE = 'N'
* @ 0,60 SAY 'NOT UPDATED       '
ENDIF
REPLACE INUSE WITH 'N'
IF MINUSE = 'Y'
 @ 0,60 SAY SPACE(20)
 @ 1,60 SAY SPACE(20)
ENDIF
STORE 'N' TO MINUSE
UNLOCK
RELEASE &ALLI,INUSE