Diese Aktion wird vor Ausführung einer Aktion (Schaltfläche, Menü, Auswahlleiste,...) ausgeführt . Ein Status, der die Aktion definiert, wird vom Supervisor in der Variable REPONSE gesendet.
Einfach, Tabelle, Kombiniert
Nein
Es ist möglich, die normale Verarbeitung Ihrer Schaltfläche/Ihres Menüs zu verkürzen: Diese Aktion ermöglicht den Start der eigenen Verarbeitung anstelle der Vorlagenverarbeitung und das Zurücksetzen von REPONSE auf 0.
Die verschiedenen möglichen Werte für die Variable REPONSE sind von den globalen Variablen vorgegeben, deren Name in der untenstehenden Tabelle angegeben ist:
Status | Entsprechende Schaltfläche |
GSTAENR | Buchungssatz |
GSTACRE | Anlage |
GSTAANU | Abbruch |
GSTAFIN | Abbruch |
GSTACHG | Codeänderung |
GSTASUI | Nächste |
GSTAPRE | Zurück |
GSTAFIR | Erster Datensatz |
GSTALAS | Letzter Datensatz |
GSTALFT | Einfacher Klick in der Auswahlleiste |
GSTALF2 | Doppelklick in der Auswahlleiste |
GSTALF3 | Einfacher Klick in der hierarchisierten Liste |
GSTALF4 | Doppelklick in der hierarchisierten Liste |
GSTARET | Zugang |
GSTANEW | Datei / Neu |
GSTASEL | Datei / Auswahl |
GSTACOM | Datei / Kommentare |
GSTAEDI | Druck |
GSTALIS | Liste |
GSTAJOI | Anlagen |
GSTAHLP | Hilfe |
GSTAESC | Abbruch (durch Schließen des Fensters) |
GSTAOK | OK |
GSTAPCK | Auswahl Kommissionierung in GEODE |
GSTADAT | Eigenschaft |
>=GSTABOU | Durch eine Zahl definierte Sonderschaltfläche (die Prüfungen werden in den Feldern der Seite überhalb des gerade erfassten Feldes ausgeführt und es gibt eine Sperre, wenn eine Prüfung nicht ausreichend ist). |
>=GSTABOU2 | Durch einen Kleinbuchstaben definierte Sonderschaltfläche (die Seite wird nicht vor dem Start der Funktion geprüft). |
Die Verwaltung der sonstigen Tabellen ist eine Tabellenverwaltung. Die Magneto-Schaltfächen werden von dieser Verwaltungsart nicht berücksichtigt. Die Sonderverarbeitungen wurden daher für diese Magneto-Schaltflächen programmiert, um dem Benutzer zu ermöglichen, die nächste, vorherige, erste oder letzte Tabelle anzuzeigen.
$APRES_CHOI
Case REPONSE
When GSTASUI: Gosub SUIVANT: REPONSE = 0
When GSTAPRE: Gosub PRECEDENT: REPONSE = 0
When GSTAFIR: Gosub PREMIER: REPONSE = 0
When GSTALAS: Gosub DERNIER: REPONSE = 0
Endcase
Return
$SUIVANT
If VERROU: Gosub DEVERROU From GOBJET: Endif
Read [ADV]CODE > [M]NUMTAB
If fstat>2
GMESSAGE = mess(11,100,1): GERR = 1: Return
Else
[M]NUMTAB = [F:ADV]NUMTAB
CLE2 = num$([M]NUMTAB
Gosub RELIT From GOBJSUB
Endif
Endif
Return