APRES_CHOI

Beschreibung

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.

Objekttyp

Einfach, Tabelle, Kombiniert

Transaktion

Nein

Verwendung

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

GSTAENRBuchungssatz
GSTACREAnlage
GSTAANUAbbruch
GSTAFINAbbruch
GSTACHGCodeänderung
GSTASUINächste
GSTAPREZurück
GSTAFIRErster Datensatz
GSTALASLetzter Datensatz
GSTALFTEinfacher Klick in der Auswahlleiste
GSTALF2Doppelklick in der Auswahlleiste
GSTALF3Einfacher Klick in der hierarchisierten Liste
GSTALF4Doppelklick in der hierarchisierten Liste
GSTARETZugang
GSTANEWDatei / Neu
GSTASELDatei / Auswahl
GSTACOMDatei / Kommentare
GSTAEDIDruck
GSTALISListe
GSTAJOIAnlagen
GSTAHLPHilfe
GSTAESCAbbruch (durch Schließen des Fensters)
GSTAOKOK
GSTAPCKAuswahl Kommissionierung in GEODE
GSTADATEigenschaft
>=GSTABOUDurch 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).
>=GSTABOU2Durch einen Kleinbuchstaben definierte Sonderschaltfläche (die Seite wird nicht vor dem Start der Funktion geprüft).
Beispiel: SUBADI   Verwaltung Sonstige Tabellen

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