このステップでは、ナビゲーション・ペインで "部門" ビジネス・オブジェクト選択時に、部門をインスタンスリストにロードする非表示フィルターを作成します。非表示フィルターはエンドユーザーとの対話処理はなく、表示されません。

  1. Visual LANSA エディターを表示します。

  2. 再利用可能パーツを作成します。フィルター名としてiiiCOM08、説明に部門非表示フィルターと指定します。(ここで iii は入力者のイニシャルです。Visual LANSA の非ライセンス版または試行版を使っている場合は、DEMCOMnn の形式にする必要があります)。

  3. [詳細] タブで、再利用可能パーツの [Ancestor] に VF_AC007 を指定します。


     
  4. [ソース] タブを表示します。  

  5. BEGIN_COM ステートメントの後に次の uInitialize ルーチンを作成します。
       Mthroutine Name(uInitialize) Options(*Redefine)
       Endroutine

    オートコンプリート・プロンプター をオンにした場合は、Endroutine ステートメントが自動的に作成されます。
     
  6. uInitialize ルーチンで、フィルターを非表示にし、実行時に表示されるものをインスタンスリストだけにします。
       Set #Com_Owner avHiddenFilter(TRUE)
     
  7. 次に、インスタンスリストの更新がまもなく開始され、その後インスタンスリストがクリアされることを指定します。
       Invoke #avListManager.BeginListUpdate
       Invoke #avListManager.ClearList
     
  8. 全ての部門を読み込み、インスタンスリストに追加します。
       Select Fields(#xDepartmentCode #xDepartmentDescription) From_File(xDepartments)
       Invoke Method(#avListManager.AddtoList) Visualid1(#xDepartmentDescription) Visualid2(#xDepartmentCode) Akey1(#xDepartmentCode) Ncolumn1(0) Acolumn1('') Acolumn2('') Acolumn3('') 
       Acolumn4('') Acolumn5('') Acolumn6('') Acolumn7('')
       Endselect

    注意：AddToList で追加列を初期化する必要があります。これは、後で社員のエントリーをこれらの列に取り込んだリストを生成するからです。

  9. 最後に、インスタンスリストの更新がこれで完了したことを示します。
       Invoke #avListManager.EndListUpdate

    コードは以下のようになります。



  10. フィルターをコンパイルします。

  11. フレームワーク、次に "部門" オブジェクトのプロパティを表示します。

  12. [フィルター] > [フィルター登録の設定] タブを表示します。

  13. VLF-WIN コンポーネントの識別子として iiiCOM08 の識別子を指定します。


     
  14. "部門" の'プロパティを閉じます。

  15. "社員" ビジネス・オブジェクトをクリックして、次に "部門" をクリックすると、非表示フィルターがインスタンスリストに部門をロードします。


     
  16. 部門を展開します。社員がロードされていないことに注目してください。次のステップで、社員をロードするリレーションシップ・ハンドラーを作成します。
  • No labels