Page History

Image Added

アドレスフォームの表示ボタンのClickイベントでAddressFormへの参照が明示的に作成されます。参照は、AddressFormのインスタンスを作成します。

     SET_REF com(#AddressForm) to(*create_as #refex2)

[ Image Removed |../../index.htm#lansa/l4wdev06_1100.htm]
現在地:

...

このステートメントの後、基本的には動的な参照がない通常のDEFINE_COMを単純に使用したの場合と同じ状態になります。
AddressFormのインスタンスが存在するので、そのメソッドを実行できます。AddressFormに社員番号と名字を渡すu_GetDetailsを呼び出します。  
 INVOKE method
     INVOKE method(#AddressForm.u_GetDetails)
...
 U_WITHEMPNO(#EMPNO)
...
 U_WITHSURNAME(#SURNAME)
...
AddressFormのこのメソッドは、社員番号と名字を受け取り、住所の情報を取得し、フォームを表示します。  
 MTHROUTINE name
     MTHROUTINE name(u_GetDetails)
     DEFINE_
...
MAP for(*INPUT)
...
 class(#EMPNO)
...
 name(#u_WithEMPNO)
     DEFINE_
...
MAP for(*INPUT)
...
 class(#SURNAME)
...
 name(#u_WithSURNAME)
...

     CHANGE field(#EMPNO)
...
 to('#U_WITHEMPNO.VALUE')
...

     CHANGE field(#SURNAME)
...
 to('#U_WITHSURNAME.VALUE')
...

     IF cond('
...
#EMPNO *
...
NE *BLANKS')
...

     FETCH fields(#ADDRESS1 #ADDRESS2 #ADDRESS3) from_file(PSLMST)
...
 with_key(#EMPNO)
...

     ENDIF
     INVOKE method(#COM_OWNER.ShowForm)
...

     ENDROUTINE