View Source

[ |../../index.htm#lansa/vlftutorials_0120.htm]
Visual LANSA フレームワークガイド > チュートリアル > VLF-WIN アプリケーションのチュートリアル > VLF012WIN - 切り替えサービスおよび仮想クリップボードを使用したナビゲーション制御 > ステップ 3. "部門" から "社員" ビジネス・オブジェクトへの切り替えロジックを追加

ステップ 3. "部門" から "社員" ビジネス・オブジェクトへの切り替えロジックを追加

のステップでは、"部門"のコマンド・ハンドラーにロジックを追加して、"社員"ビジネス・オブジェクトの詳細コマンド・ハンドラーに選択した社員の詳細を表示します。
社員の詳細コマンド・ハンドラーへの切り替えは、ボタンのクリック・イベントで実行されます。
1.   詳細コマンド・ハンドラーの \[デザイン\] タブを表示します。
2.   プッシュ・ボタンを \[コントロール\] タブからコマンド・ハンドラーの右側パネル (PANL_1) にドラッグします。
3.  \[レイアウト\] リボンを使って、このボタンの \[配置\] を \[中央上\] にします。上の余白を 10 にします。
4.   ボタンのキャプションを詳細にします。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
5.   ボタンに Click イベントを作成します。
6.   クリック・イベントに、"社員" ビジネス・オブジェクトの詳細コマンド・ハンドラーに切り替えるステートメントを追加します。
#avframeworkmanager.avSwitch To(BUSINESSOBJECT) NAMED(EMPLOYEES) EXECUTE(DETAILS)  Caller(#com_owner) ClearInstanceList(TRUE)

To パラメータには、ビジネス・オブジェクトへの切り替えであることを示す BUSINESSOBJECT が含まれています(フレームワークまたはアプリケーションに切り替えることもできます)。
NAMED パラメータには、実際のビジネス・オブジェクト名が含まれている必要があります。
EXECUTE パラメータには、実行するコマンドの名前が含まれている必要があります。
ClearInstancList パラメータを指定すると、オプションでインスタンスリストをクリアできます。

7. 次に、グリッド内の社員の値に基づいて表示するインスタンスを "社員" ビジネス・オブジェクトに伝えるイベント・ルーチンを追加します。
Evtroutine Handling(#avFrameworkManager.avAddSwitchInstances) Options(*NOCLEARERRORS *NOCLEARMESSAGES) Caller(#Caller)

Make sure the caller is this component
If_Ref Com(#Caller) Is_Not(*Equal_to #Com_Owner)
Return
Endif
Invoke Method(#avFrameworkManager.avAddSwitchInstance) Businessobjecttype(EMPLOYEES) Visualid1(#xEmployeeIdentification) Visualid2(#xEmployeeSurname.AsNativeString) Akey1(#xEmployeeIdentification)
Endroutine
avAddSwitchInstances イベント・ルーチンは、常に、avSwitch メソッドを使用して切り替えを実行した直後に実行されます。このイベントを使用すると、対象のビジネス・オブジェクトのインスタントリストに配置されるデータを制御することができます。このイベントを通知するコンポーネントが Caller パラメータに渡されます。
このイベントを通知するコンポーネントがそのコンポーネント自体である場合は、このイベントでのみコードを実行することが重要です。ですから、呼び出し元が #com_owner でない場合は、このイベント・ルーチンから戻る必要があります。 #Caller および #Com_Owner を比較するのに is_not(*Equal_to がどのように使用されているのかに注意してください。単純な文字列ではなく、コンポーネント自体を比較しているので、この構文を使用する必要があります。
avAddSwitchInstance メソッドは対象のインスタンスリストに追加するデータを指定します。
必要であれば、avAddSwitchInstance メソッドを繰り返し呼び出すことで、複数のエントリーを対象のビジネス・オブジェクトのインスタンスリストに配置することができます。

"社員" ビジネス・オブジェクトの \[識別子\] タブで、ユーザー・オブジェクト タイプが EMPLOYEES であることを確認してください。そうでない場合はこの切り替えが作動しません。

  
コードは、次のようになります。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
 
8.   コマンド・ハンドラーをコンパイルします。
9.   切り替えをテストします。1 人の社員を選択し、詳細コマンド・ハンドラーで \[詳細\] ボタンをクリックすると、選択した社員の詳細とともに社員ビジネス・オブジェクトが表示されます。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
  
[ !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! |../../index.htm#lansa/vlftutorials_0120.htm]