[ 
|../../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
[ |../../index.htm#lansa/lansa050_2300.htm]