Du mußt nur vor dem ws.EditDocument() im Button irgend ein Feld in dem Dokument erstellen und im QuerymodeChange (und im Queryopen, wenn Mode = 1) auf das Feld abfragen.
Wenn das Feld da ist mußt du es wieder löschen, falls es nicht da ist setzt du Continue auf false und gibst ev. eine Meldung aus.
HTH