EVTROUTINE HANDLING(#PHBN_1.Click)
* 基本
invoke #avFrameworkManager.avCheckConnection ReturnValue(#df_elretc)
if '#df_elretc *eq OK'
invoke #Com_Owner.uSelectData
endif
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_2.Click)
* 沈黙 (未接続の場合は、再接続を 1 度試みる。ユーザーに何も通知する必要なし - このプログラムが通知)
invoke #avFrameworkManager.avCheckConnection AttemptReconnect(TRUE) IssueMessages(FALSE) ActionOnFail(ABORT) ReturnValue(#df_elretc)
if '#df_elretc *eq OK'
invoke #Com_Owner.uSelectData
else
USE BUILTIN(Message_box_show) WITH_ARGS(*Default *Default *Default *Default 'My own message advising that connection is disabled')
endif
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_3.Click)
* 回復を 1 度試みることなく検知 - ActionOnFail は無意味となる
* TCPIP リンクが結果的に回復され (接続のためには再接続の試行が必要だと検知され) たとしても、
* ここは、スーパーサーバーとの接続が失われたかどうかを検知するのみ
invoke #avFrameworkManager.avCheckConnection AttemptReconnect(FALSE) IssueMessages(TRUE) ActionOnFail(ABORT) ReturnValue(#df_elretc)
if '#df_elretc *eq OK'
invoke #Com_Owner.uSelectData
endif
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_4.Click)
* 再接続を 1 度試みるが失敗、ユーザーには再試行しないよう通知
invoke #avFrameworkManager.avCheckConnection AttemptReconnect(TRUE) IssueMessages(TRUE) ActionOnFail(ABORT) ReturnValue(#df_elretc)
if '#df_elretc *eq OK'
invoke #Com_Owner.uSelectData
endif
ENDROUTINE
