Done

This just Marks an item cmpltd, sets its cmplt date, and then ships it off to the Archive folder/entry.

tell application "Mori"
tell front document
set e to current entry
set t to entry named "Archive"
move e to end of entries of t
tell e to store custom attribute key "GTD" value "cmplt"
tell e to store custom attribute key "dateLastCompleted" value current date
end tell
end tell