コード・ウィザードによって作成された次の 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
