4D View v14

PV ON COMMAND

ホーム

 
4D View v14
PV ON COMMAND

PV ON COMMAND 


 

PV ON COMMAND ( area ; command ; method ) 
引数   説明
area  倍長整数 in 4D View エリア
command  倍長整数 in コマンド番号
method  文字 in 4D メソッド名

説明   

PV ON COMMANDコマンドは、4D View メニューのcommand を4D のmethodに関連付けます。

引数command の指定には、PV Commandsテーマの定数を使用します。

method は3 つの引数を受け取ります:
$1: 4D View エリアの参照番号
$2: メニューコマンド番号
$3: モディファイアキー

コマンドに関連付けたメソッド呼び出しを削除するには、method引数に空の文字列を渡してPV ON COMMANDコマンドを呼び出します。

例題  

例えば、データベースにおいて、組み込まれた4D View エリアを呼び出すプリントジョブをすべてトレースする場合について考えてみましょう。この対策案として、いくつかのコードを以下に示します:

 If(PV Get on command method(area;pv cmd file print document)#"PrintMethod")
  `レコード印刷フォーミュラのトレース
    PV ON COMMAND(area;pv cmd file print document;"PrintMethod")
 End if
 
 If(PV Get on command method(area;pv cmd file print formulas)#"PrintMethod")
  `標準のレコード印刷のトレース
    PV ON COMMAND(area;pv cmd file print formulas;"PrintMethod")
 End if

PrintMethodメソッドのコードは以下の通りです:

  `メソッド: PrintMethod.
 C_LONGINT($1`4D Viewエリア参照
 C_LONGINT($2`メニューコマンド番号
 C_LONGINT($3`モディファイアキーコード
 
 Case of
    :($2=pv cmd file print formulas)
       CREATE RECORD([PrintSpy]) `新規レコード
       [PrintSpy]CurUser:=Current user `プリントジョブを要求したのはだれか?
       [PrintSpy]Dte:=Current date(*) `印刷日
       [PrintSpy]Tme:=Current time `印刷時刻
       [PrintSpy]Subject:="Print area formulas"
       SAVE RECORD([PrintSpy]) `作成したレコードを保存
 
    :($2=pv cmd file print document`これはプリントリクエストか?
       CREATE RECORD([PrintSpy]) `新規レコード
       [PrintSpy]CurUser:=Current user `プリントジョブを要求したのはだれか?
       [PrintSpy]Dte:=Current date(*) `印刷日
       [PrintSpy]Tme:=Current time `印刷時刻
       [PrintSpy]Subject:="Standard area print"
       SAVE RECORD([PrintSpy]) `作成したレコードを保存
 
    Else
       TRACE `その他のケース?
 End case

 
プロパティ 

プロダクト: 4D View
テーマ: PVエリア
番号: 15992

 
履歴 

初出: 4D View 6.8

 
参照 

PV Get on command method

 
ARTICLE USAGE

4D View ( 4D View v11.4)
4D View ( 4D View v12)
4D View ( 4D v13)
4D View ( 4D View v14 R2)
4D View ( 4D View v14)
4D View ( 4D View v14 R3)
4D View ( 4D View v14 R4)