Page History
...
クライアントとサーバー側の両方のプログラムが必要となります。
| Panel | ||
|---|---|---|
| ||
クライアント側 (再利用可能パーツ、ターゲット プラットフォーム Web - サンプル DF_T41F1O を参照) |
サーバー側への呼び出しを行い、データを受け取ってリストに戻し、リストのデータをインスタンスリストに書き込みます。
*サーバーの社員データ取得のために使用するサーバー・モジュールのメソッド・ルーチンの定義
Define_Com Class(#DF_T42DSO.FindPSLMST2) Name(#Find)
*サーバー モジュール DF_T42DSO にサーバーのデータ取得を指示
#Find.ExecuteAsync( #SearchSurname #GIVENAME #PSLMSTList )
*同期的呼び出しのため、呼び出し終了後にイベントが発生
Evtroutine Handling(#Find.Completed)
...
...
*サーバー・モジュール DF_T42DSO によって戻されたリストの読み込み
Selectlist Named(#PSLMSTList)
...
*
...
詳細をインスタンスリストに追加
#avListManager.AddtoList Visualid1(#EMPNO) Visualid2(#SURNAME + ' ' + #GIVENAME) Akey1(#EMPNO)
Endselect
Endroutine
...
| Panel | ||
|---|---|---|
| ||
サーバー側のプログラム (サーバー・モジュール - サンプル DF_T42DSO を参照) |
データベース I/O を行い、データをクライアント・プログラムにリストとして引き渡します。
Srvroutine Name(FindPSLMST2) Session(*REQUIRED)
Field_Map For(*Input) Field(#SURNAME)
Field_Map For(*Input) Field(#GIVENAME)
List_Map For(*Output) List(#PSLMSTList)
Field_Map For(*Output) Field(#io$sts)
...
*一部またはすべてのキーを使ってファイルからすべてのレコードを取得
Select Fields(#PSLMSTList) From_File(PSLMST2) With_Key(#SURNAME #GIVENAME) Nbr_Keys(*Compute) Generic(*Yes) Io_Error(*Next)
...
Add_Entry To_List(#PSLMSTList)
...
Endselect
...
Endroutine
...