Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

このステップでは、人事デモ・アプリケーションのフィルターの内容を検証し、FindEmployee 画面に関連付けられているスクリプトを変更して、フレームワーク内の複数の場所で使用できるようにします。


[ Image Removed |../../index.htm#lansa/lansa050_0415.htm]
現在地: RAMP-TSガイド > RAMP VLF-WIN のチュートリアル > RAMP-WIN014: HRデモ・アプリケーションへのRAMP画面のスナップイン > RAMP-WIN014 ステップ 2. SETVALUE ステートメントを変更する

...

  1. リソース・ビジネス・オブジェクトのプロパティを表示します。

  2. [フィルター] タブ、[フィルター登録の設定] タブの順に選択します。フィルターは DF_FILT9 であることを確認してください。このフィルターは、インスタンス・リストに入力するために使用される Akey 値を決定します。

    Image Added
     
  3. リソースのプロパティを閉じます。

  4. フレームワークを閉じます。

  5. Visual LANSA エディターに切り替えて、再利用可能なパーツ DF_FILT9 を見つけて開きます。

  6. フィルター・ソースで AddtoList メソッドを検索します。

    Image Added
     
  7. メソッドの Akey 値を確認します。Empno フィールドが Akey3 であることがわかります。
    FindEmployee 画面に関連付けられているスクリプトは、Akey1 値を使用してインスタンス・リストから社員番号を取得することを忘れないでください。(これは、[名前] フィルターで使用される Akey 値だからです)。

  8. DF_FILT9 を閉じます。

  9. フレームワークを起動します。

  10. RAMP ツールを起動します。

  11. 画面とスクリプトのリストで FindEmployee 画面に関連付けられているスクリプトを見つけます。

  12. SETVALUE ステートメントを以下のように変更します。
  1. var wBusinessObject = objBusinessObject.uUserObjectType;

...


  1.             if (wBusinessObject == 'EMPLOYEES')

...

  1.         SETVALUE("txtEmpno",objListManager.AKey1

...

  1. [0

...

  1. ]);

...


  1.             if (wBusinessObject == 'DEM_ORG_SEC_EMP')

...

  1.  

...

  1.  SETVALUE("txtEmpno",objListManager.AKey3

...

  1. [0

...

  1. ]);

...

  1.  
     
    このステートメントは、画面を呼び出しているビジネス・オブジェクトの名前に従ってAKey値を設定します。 

  2. 変更をコミットして、部分保存を実行します。

  3. フレームワークを表示します。

  4. 人事デモ・アプリケーションで [リソース] を選択し、インスタンス・リストに入力します。

  5. [RAMP-TS詳細

...

  1. ]

...

  1. コマンド・ハンドラーを表示します。

    Image Added
     
    これで、人事デモ・アプリケーションはモダナイズされた 5250 画面とフレームワーク・コンポーネントの組み合わせで構成されています。

  2. Employees ビジネス・オブジェクトの [詳細] コマンド・タブが引き続き機能していることも確認します。