SELECT YourTable
SCAN for code=101
   if recno()<0  && buffered new records
      IF Id == [101-1]
         IF TABLEUPDATE(0,.t.,[YourTable])
            ***
         ENDIF
      ELSE
         TableRevert(.f.,[YourTable])
      ENDIF
   else && buffered old records
      IF Id == [101-1]
         IF TABLEUPDATE(0,.t.,[YourTable])
            ***
         ENDIF
      ELSE
         delete      
         IF TABLEUPDATE(0,.t.,[YourTable])
            ***
         ENDIF
      ENDIF
   endif
ENDSCAN