1.      エディターでコンポーネント Store を開きます。

2.      PopulateDocument メソッドにコードを追加して、オブジェクト Document に対するプロパティ p_TITLE を設定します。コードは以下のようになります。

#Document.p_TITLE := #xEmployeeTitle


注：Store コンポーネントの Open メソッドは、社員レコードのすべてのフィールドを取り込むので、このロジックに変更を加える必要はありません。

3.      ルーチン ExtractDocument にコードを追加して、対応する Document プロパティから社員のタイトルを設定します。コードは以下のようになります。

#xEmployeeTitle := #Document.p_TITLE

4.      Store コンポーネントをコンパイルします。