4D v13
PV ON COMMAND
- 4D View Programmiersprache
-
- PV Bereich
-
- Einleitung zu PV Bereich
- PV Area to blob
- PV BLOB TO AREA
- PV DELETE OFFSCREEN AREA
- PV EXECUTE COMMAND
- PV Get area property
- PV GET COMMAND STATUS
- PV GET LAST ERROR
- PV Get on command method
- PV Get on error method
- PV Get on event method
- PV New offscreen area
- PV ON COMMAND
- PV ON ERROR
- PV ON EVENT
- PV REDRAW
- PV SCROLL AREA
- PV SET AREA PROPERTY
- PV SET COMMAND STATUS
PV ON COMMAND
| PV ON COMMAND ( Bereich ; Befehl ; Methode ) | ||||||||
| Parameter | Typ | Beschreibung | ||||||
| Bereich | Lange Ganzzahl |
|
4D View Bereich | |||||
| Befehl | Lange Ganzzahl |
|
Befehlsnummer | |||||
| Methode | String |
|
Name der 4D 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 ifDie 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
Produkt: 4D
Thema: PV Bereich
Nummer:
15992
Alphabetische Liste der Befehle
Erstellt: 4D View 6.8
