Oracle FormsのAPP_MULTIパッケージ活用ガイド:複数レコード選択機能の実装方法

Oracle® の APP_MULTI パッケージを使用すると、Oracle Forms のフォームに複数レコード選択(マルチセレクト)機能を追加できます。このパッケージは APPCORE ライブラリに含まれており、標準的な EBS フォーム開発で広く利用されています。

APP_MULTI パッケージを使えば、単一レコードだけでなく複数レコードを選択し、それらに対して必要な処理をまとめて実行できるようになります。下図は、ランダムに複数のレコードを選択している様子を示したものです。

画像出典: https://i36.me/images/oracle/ebs/ebs_frm_lnchse_with_app_multi_01.jpg

主な機能

APP_MULTI パッケージを使用すると、以下のような操作が可能になります。

• レコードをクリックすることで、そのレコードを単独で選択できます。
• Ctrl キーを押しながら複数のレコードをクリックすると、離れた複数のレコードを同時に選択できます。
• アプリケーションメニューから「すべて選択(Select All)」を選ぶと、全レコードを一括選択できます。
• アプリケーションメニューから「すべて解除(Deselect All)」を選ぶと、選択済みの全レコードをまとめて解除できます。
• 先頭のレコードをクリックした後、Shift キーを押しながら連続範囲の最後のレコードをクリックすると、連続した複数レコードを一括で選択できます。

APP_MULTIパッケージが対応するイベント

APP_MULTI パッケージは、フォーム上で発生する以下のイベントに応答します。

• KEY-CLRFRM(フォームレベル):フォームをクリアする前にレコードの妥当性検証を行います。使用例:APP_MULTI.EVENT('KEY-CLRFRM');
• KEY-CLRREC(ブロックレベル):現在のレコードをクリアしたときに発生します。clear_record コマンドと同等です。
• KEY-CREREC(ブロックレベル):新しいレコードを作成したときに発生します。create_record コマンドと同等です。
• KEY-DELREC(ブロックレベル):既存のレコードを削除したときに発生します。delete_record コマンドと同等です。
• PRE-BLOCK(ブロックレベル):ブロックに入ったときに発生します。
• POST-BLOCK(ブロックレベル):ブロックから出たときに発生します。
• SELECT_ALL(ブロックレベル):すべてのレコードを選択したときに発生します。
• DESELECT_ALL(ブロックレベル):すべてのレコードの選択を解除したときに発生します。
• WHEN-CLEAR-BLOCK(ブロックレベル):ブロックをクリアしたときに発生します。
• WHEN-MOUSE-CLICK(ブロックレベル):マウスをクリックしたときに発生します。
• WHEN-NEW-RECORD-INSTANCE(ブロックレベル):ブロック上でレコードを作成または照会したときに発生します。

トリガーの手動作成方法

APP_MULTI を利用するには、必要なトリガーを作成し、処理対象のイベント名を引数として渡して APP_MULTI.EVENT プロシージャを明示的に呼び出す必要があります。プロシージャの定義は以下のとおりです。

PROCEDURE event(p_event_name VARCHAR2,
                p_blockname  VARCHAR2 DEFAULT NULL);

たとえば、KEY-CLRREC トリガーは次のように非常にシンプルに記述できます。

APP_MULTI.EVENT('KEY-CLRREC');

ポイント:このプロシージャにはオプション引数 p_blockname を渡すことができます。省略した場合、SYSTEM.TRIGGER_BLOCK の値が自動的に使用されます。

選択・選択解除イベントの通知

カスタムの MULTI_RETURN_ACTION トリガーをデータブロック内、またはフォームの最上位レベルに実装すると、レコードの選択・選択解除のタイミングでシステムから通知を受け取ることができます。このトリガーは、個別のレコード操作でも一括操作でも、選択または解除が行われるたびに起動されます。

トリガー内で使える変数

トリガー内では、以下の変数を利用できます。

• GLOBAL.APPCORE_MULTI_BLOCK:選択・選択解除の影響を受けたデータブロックの名前が格納されるグローバル変数です。
• GLOBAL.APPCORE_MULTI_ACTION:以下のいずれかの値を持つグローバル変数です。

  - **'RECORD_SELECTED'**: レコードが選択されたとき
  - **'RECORD_DESELECTED'**: レコードの選択が解除されたとき
  - **'LABEL_CHANGE'**: 「すべて選択」「すべて解除」メニュー項目の
    有効/無効が切り替わったとき
  

• APP_MULTI.LOOPING:MULTI_RECORD_ACTION をループ内で呼び出したかどうかに応じて TRUE または FALSE となるパッケージ変数です。

フォーム上で選択されたデータの取得方法

APP_MULTI パッケージは、各データブロックに対して、現在選択中のレコード番号を保持するレコードグループを管理しています。データブロック名を指定することで、以下の処理が可能です。

• APP_MULTI.GET_GROUP_COL 関数を使って、特定のデータブロックのレコードグループにある唯一のカラムへアクセスします。
• APP_MULTI.GET_GROUP_COUNT 関数を使って、選択されているレコードの件数を取得します。

たとえば、「個別ジョブ(Discrete Jobs)」フォームのブロック W_JOBS、フィールド WIP_ENTITY_ID がある場合、次の PL/SQL コードで選択済みジョブの ID を表示できます。

DECLARE
 record_number_column    groupcolumn;
 selected_record_count   NUMBER;
BEGIN
 record_number_column := app_multi.get_group_col ('W_JOBS');
 selected_record_count := app_multi.get_group_count ('W_JOBS');

 FOR i IN 1 .. selected_record_count
 LOOP
   DECLARE
     record_number     NUMBER;
     v_wip_entity_id   NUMBER;
   BEGIN
     record_number := GET_GROUP_NUMBER_CELL (record_number_column, i);

     GO_RECORD (record_number);

     v_wip_entity_id := NAME_IN ('W_JOBS.WIP_ENTITY_ID');

     fnd_message.debug ('v_wip_entity_id' || v_wip_entity_id);

   EXCEPTION
     WHEN OTHERS THEN
       NULL;
   END;
 END LOOP;
END;

まとめ

APP_MULTI パッケージを活用すれば、カスタムの Oracle Forms で大量データを効率的に処理できるようになります。ユーザーが標準フォーム上で選択した大量データの詳細情報を取得でき、フォームパーソナライズや CUSTOM.PLL のコードの中で使用することで、標準の Oracle フォームに独自の機能を追加することも可能です。

ご意見やご質問がある場合は、フィードバックタブからお気軽にお寄せください。チャットでのご相談も受け付けています。