1. エディターでコンポーネント Store を開きます。
2. PopulateDocument メソッドにコードを追加して、オブジェクト Document に対するプロパティ p_TITLE を設定します。コードは以下のようになります。
#Document.p_TITLE := #xEmployeeTitle
注：Store コンポーネントの Open メソッドは、社員レコードのすべてのフィールドを取り込むので、このロジックに変更を加える必要はありません。
3. ルーチン ExtractDocument にコードを追加して、対応する Document プロパティから社員のタイトルを設定します。コードは以下のようになります。
#xEmployeeTitle := #Document.p_TITLE
4. Store コンポーネントをコンパイルします。