Page History

[ Image Removed |../../index.htm#lansa/lansa050_2300.htm]
現在地: RAMP-TSガイド > スクリプト > 使用方法 > インスタンスリストへの変更を自動的に処理するフィルター・コード

...

コード・ウィザードによって作成された次の RDMLX コードは、RAMP 画面よりシグナル送信されるイベントを自動的に処理します (このコードは参考用です。変更する必要はありません)。

* --------------------------------------------------------------------------------
* インスタンスリスト更新のあらゆる外部要求を処理
* --------------------------------------------------------------------------------

EvtRoutine #Com_owner.avEvent WithId(#EventId) WithAInfo1(#AInfo1) WithAInfo2(#AInfo2) WithAInfo3(#AInfo3) WithAInfo4(#AInfo4) WithAInfo5(#AInfo5)  WithNInfo1(#NInfo1) WithNInfo2(#NInfo2) WithNInfo3(#NInfo3) WithNInfo4(#NInfo4) WithNInfo5(#NInfo5)

...

* 受信した値をフィールドに入れる
Change #vf_elIdn #EventId.Value

...

* AInfo をマップし、NInfo 値をキー・フィールド - #EMPNO に引き渡す

...

Change #DEPTMENT #AInfo1
Change #SECTION #AInfo2
Change #EMPNO #AInfo3
Case #vf_elIDN
when '= Refresh_Instance_List'
* インスタンス リストの再読み込み

...

Invoke #Com_Owner.uSelectData
when '= Add_List_Entry'
* リスト ビューにエントリーを追加

...

fetch FIELDS(#XG_Ident) FROM_FILE(PSLMST) WITH_KEY(#EMPNO)
if_status *OKAY

...

* インスタンスリストの更新開始
Invoke Method(#avListManager.BeginListUpdate)

...

* ビジュアル識別子の設定

...

Change #UF_VisID1 #EMPNO
Change #UF_VisID2 #GIVENAME
Use BConcat (#UF_VisID2 #SURNAME) (#UF_VisID2)

...

* インスタンス詳細をインスタンスリストに追加

...

Invoke #avListManager.AddtoList Visualid1(#UF_VisID1) Visualid2(#UF_VisID2) AKey1(#DEPTMENT) AKey2(#SECTION) AKey3(#EMPNO)  ACOLUMN1(#PHONEHME) ACOLUMN2(#ADDRESS1) NCOLUMN1(#POSTCODE)
* インスタンスリストの更新完了
Invoke Method(#avListManager.EndListUpdate)

...

endif
when '= Update_List_Entry'
* インスタンス リストに既に存在するエントリーを更新

...

fetch FIELDS(#XG_Ident) FROM_FILE(PSLMST) WITH_KEY(#EMPNO)
if_status *OKAY

...

* インスタンスリストの更新開始
Invoke Method(#avListManager.BeginListUpdate)

...

* ビジュアル識別子の設定

...

Change #UF_VisID1 #EMPNO
Change #UF_VisID2 #GIVENAME
Use BConcat (#UF_VisID2 #SURNAME) (#UF_VisID2)

...

* Add instance details to the instance list

...

Invoke #avListManager.UpdateListEntryData Visualid1(#UF_VisID1) Visualid2(#UF_VisID2) AKey1(#DEPTMENT) AKey2(#SECTION) AKey3(#EMPNO)  ACOLUMN1(#PHONEHME) ACOLUMN2(#ADDRESS1) NCOLUMN1(#POSTCODE)
* Instance list updating has been completed
Invoke Method(#avListManager.EndListUpdate)

...

endif
when '=  Delete_List_Entry'
Invoke Method(#avListManager.BeginListUpdate)

...

* インスタンス詳細をインスタンスリストから削除

...

Invoke #avListManager.RemoveFromList AKey1(#DEPTMENT) AKey2(#SECTION) AKey3(#EMPNO)
Invoke Method(#avListManager.EndListUpdate)

...

endcase

Endroutine

...

End_Com

...