4D Doc Center : PV ON COMMAND

Home

4D View v14

PV ON COMMAND


PV ON COMMAND ( Bereich ; Befehl ; Verfahren )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D View Bereich
Befehl	Lange Ganzzahl	Befehlsnummer
Verfahren	String	Name der 4D Methode

Beschreibung

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.

Beispiel

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