WR ON COMMAND

Home

4D Write v15

WR ON COMMAND


WR ON COMMAND ( Bereich ; 4DMethode )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
4DMethode	String	Ersatzmethode

Beschreibung

Der Befehl WR ON COMMAND führt die als 4DMethode übergebene Methode aus, wenn der Benutzer durch Wählen eines Menübefehls oder Anklicken einer Schaltfläche einen 4D Write Befehl auslöst. Ist Bereich gleich Null, gilt 4DMethode für jeden 4D Write Bereich, bis die Datenbank geschlossen wird oder die Anweisung WR ON COMMAND(0;"") aufgerufen wird.

4DMethode empfängt zwei Parameter:

$1 ist eine Lange Ganzzahl für Bereich.
$2 ist eine Lange Ganzzahl für die Befehlsnummer.

Planen Sie die Verwendung einer kompilierten Datenbank, müssen Sie $1 und $2 als Lange Ganzzahl deklarieren, selbst wenn Sie diese nicht nutzen.

Soll der ursprüngliche Befehl ausgeführt werden, fügen Sie in der aufgerufenen Methode die Anweisung WR EXECUTE COMMAND($1;$2) ein.

Hinweis: Die Liste der Konstanten und Werte finden Sie in den 4D Write Konstanten unter dem Thema WR Tabulatoren. Sie können entweder einen Konstantennamen oder einen Wert zurückgeben.

Beispiel

Sie wollen Ihre Dokumente im Ordner “Archiv” auf Ihrer Festplatte abspeichern:

 C_LONGINT($1;$2)
  Case of
     :($2=wr cmd save as) `Ist Sichern unter ... ausgewählt
        $DocName:=Request("Gib dem Dokument einen Namen: ")
        If((OK=1)&($DocName#""))
   `Sichere das Dokument im gewählten Ordner
           WR SAVE DOCUMENT($1;"HDisk:Archiv:"+$Doc

Name

) `Mac
           WR SAVE DOCUMENT($1;"D:\Archiv\"+$

DocName

)  `Win
        Else
           BEEP `Etwas ist falsch
        End if
     Else `Für alle anderen Menübefehle
        WR EXECUTE COMMAND($1;$2)
   `Führe die reguläre Aktion aus
  End case
  
   ` Formularmethode:
  If(Form event=On Load)
     WR ON COMMAND(Area;"Methode")
  End if

Siehe auch

WR EXECUTE COMMAND
WR Get on command method