DeleteQuery abbrechen?

[barnti]

Hallo,

ich möchte realisieren, dass wenn man einen Kunden löscht dieser nicht wirklich gelöscht wird sondern dessen Vertrag mit einem Endedatum versehen wird. Mein Vorgehen ist wie folgt:

Delphi-Quellcode:

Procedure BeforeDelete();
begin
  QueryKunde.Cancel;
  QueryVertrag.UpdateVertrag
end;

Ich schreibe also in das Beforedelete-Ereignis ein Aufruf zum canceln des Löschauftrages und schreibe ein neues Endedatum in den Vertrag des entsprechenden Kunden.

Das Problem: Der Kunde wird trotzdem gelöscht und sein Vertrag upgedated?!

Wo liegt mein Denkfehler?

Gruß,

Barnti