PV ON COMMAND

Version 6.8

PV ON COMMAND (Bereich; Befehl; Methode)

.

Der Befehl PV ON COMMAND verknüpft den 4D View Menübefehl Befehl mit Methode. In diesem Fall wird die 4D Methode ausgeführt und nicht mehr die Standardaktion des Menübefehls.

Befehl definieren Sie mit einer Konstanten unter dem Thema PV Befehle.

Methode empfängt 3 Parameter:

$1: Referenz auf den 4D View Bereich

$2: Nummer des Menübefehls

$3: Zusatztaste

Um die Methode bei Befehl zu deinstallieren, rufen Sie PV ON COMMAND mit einem leeren String im 3. Parameter auf.

Wir gehen aus von einer Datenbank, in der jeder Druckauftrag in einem eingebundenen 4D View Bereich protokolliert werden soll. Der Code dafür besteht aus mehreren Zeilen:

   If (form event=on load)
      If (PV Get on command method (Bereich;pv cmd file print document)#"Druckmethode")
            ` Wenn noch nicht geschehen, eigene Druckmethode zuweisen.
         PV ON COMMAND (Bereich;pv cmd print document;"Druckmethode") 
      End if

      If (PV Get on command method (Bereich;pv cmd file print formulas)#"Druckmethode")
         ` Wenn noch nicht geschehen, eigene Druckmethode zuweisen.
         PV ON COMMAND (Bereich;pv cmd print formulas;"Druckmethode") 
      End if
   End if

Die Methode Druckmethode lautet:

      `Druckmethode
   C_LONGINT($1)  `Referenz auf 4D View Bereich
   C_LONGINT($2)  `Nummer des Menübefehls
   C_LONGINT($3)  `Name der 4D Methode

   Case of
          : ($2=pv cmd print formulas)
                CREATE RECORD([DruckLog])  `Neuer Datensatz
             [DruckLog]Wer:=Current user  `Wer fordert den Druckauftrag an?
             [DruckLog]Am:=Current date (*)  `Druckdatum
             [DruckLog]Um:= Current time  `Druckzeit
             [DruckLog]Was:="Drucke Formeln für Bereich"
             SAVE RECORD([[DruckLog])  `Datensatz sichern

          : ($2=pv cmd print document)  `Ist dies eine Druckanfrage?
             CREATE RECORD([[DruckLog])  `Neuer Datensatz
             [DruckLog]Wer:=Current user  `Wer fordert den Druckauftrag an?
             [DruckLog]Am:=Current date (*)  `Druckdatum
             [DruckLog]Um:= Current time  `Druckzeit
             [DruckLog]Was:="Drucke Standardbereich"
             SAVE RECORD([[DruckLog])  `Datensatz sichern

          Else
            TRACE  `Andere Fälle?
   End case

PV Get on command method.

Thema PV Befehle.