Dateneingabe kontrollieren

NachDemVerlassen

 Top  Previous  Next

Auslöser

Wird aufgerufen, wenn eine Datensatz geändert und wieder in die Tabelle geschrieben wurde. Zum Zeitpunkt des Aufrufs ist der geänderte Datensatz der aktuelle Datensatz dieser Tabelle.

Einsatz

In NachDemVerlassen, werden Prüfungen und Änderungen vorgenommen, die auf dem Datenbestand in der Datenbanktabelle basieren. Zum Beispiel:

•Prüfungen, die von der Anzahl an Datensätzen mit einer bestimmten Bedingung in der Tabelle abhängen
•Übernehmen von Werten aus dem gerade geschriebenen Datensatz in eine andere Tabelle

Beispiel

Die folgende Prozedur wird in NachDemVerlassen aufgerufen, um den Warenbestand zu überprüfen und gegebenenfalls eine Nachbestellung anzuregen. Sie bezieht sich auf eine Tabelle VERKÄUFE, in der alle Warenabgaben eingetragen werden. Die Tabelle VERKÄUFE hat ein Koppelfeld namens Artikel zur Tabelle ARTIKEL.

procedure BestandPrüfen
..Den verkauften Artikel in der Artikeltabelle suchen
vardef RecN: Integer;
RecN := FindRec(ARTIKEL, Str(VERKÄUFE.Artikel), 'Artikel.inr', 1);
ReadRec(ARTIKEL, RecN);
..Den Bestand um die Anzahl der verkauften Artikel reduzieren
ModifyRec(ARTIKEL);
ARTIKEL.Bestand := ARTIKEL.Bestand - VERKÄUFE.Anzahl;
PostRec(ARTIKEL);
.. Falls der Bestand unter die Grenze gefallen ist, Meldung machen
if ARTIKEL.Bestand < ARTIKEL.MinimalerBestand
   Message('Diesen Artikel sollten Sie jetzt nachbestellen.');
end;
endproc;

Siehe auch

BeimVerlassen