USE INVOICE
STORE ' ' TO MNAME
STORE CTOD('12/12/12') TO MDATE
DO WHILE .NOT. EOF()
IF DATE = MDATE .AND. NAME = MNAME
 DELETE 
 ? 'DELETED'
ENDIF
STORE DATE TO MDATE
STORE NAME TO MNAME
SKIP
ENDDO