[ 
|../../index.htm#lansa/lansa048_2485.htm]
Visual LANSA フレームワーク ガイド > アドバンスド・トピック > IIP(Imbedded Interface Point：組み込みインターフェース・ポイント) > 組み込みインターフェース・ポイントが提供するもの > インスタンス・レベルの独自のセキュリティ検証の追加 > avCheckInstanceAuthのサンプル
avCheckInstanceAuthのサンプル
これは、VLF-ONE にはあてはまりません。
UF_SYSTM(またはそれに相当)のavCheckInstanceAuthユーザーIIPのサンプル：
Mthroutine Name(avCheckInstanceAuth) Options(*Redefine) * ==> Define_Map For(*input) Class(#std_obj) Name(#UserProfile) * ==> Define_Map for(*input) class(#vf_eltxts) Name(#ObjectType) * ==> Define_Map For(*input) Class(#vf_elidn) Name(#BusObjectName) * ==> Define_Map For(*input) Class(#vf_elidn) Name(#CmdObjectName) mandatory(' ') * ==> Define_Map For(*output) Class(#std_Bool) Name(#ReturnCode) * ==> Define_Map for(*output) class(#std_TextL) Name(#UserAuthInformation) mandatory(' ')
* ==> Define_map for(*input) class(#vf_elXAK1) Name(#AKey1) * ==> Define_map for(*input) class(#vf_elXAK2) Name(#AKey2) * ==> Define_map for(*input) class(#vf_elXAK3) Name(#AKey3) * ==> Define_map for(*input) class(#vf_elXAK4) Name(#AKey4) * ==> Define_map for(*input) class(#vf_elXAK5) Name(#AKey5) * ==> Define_map for(*input) class(#vf_elXNK1) Name(#NKey1) * ==> Define_map for(*input) class(#vf_elXNK2) Name(#NKey2) * ==> Define_map for(*input) class(#vf_elXNK3) Name(#NKey3) * ==> Define_map for(*input) class(#vf_elXNK4) Name(#NKey4) * ==> Define_map for(*input) class(#vf_elXNK5) Name(#NKey5)
Set Com(#ReturnCode) Value(OK)
Define Field(#UF_WKOBJT) Reffld(#VF_ELIDN) Define Field(#UF_WKOBJ1) Reffld(#VF_ELIDN) Define Field(#UF_WKOBJ2) Reffld(#VF_ELIDN)
Change Field(#UF_WKOBJT) To('#OBJECTTYPE.VALUE') Change Field(#UF_WKOBJ1) To('#BusObjectName.VALUE') Change Field(#UF_WKOBJ2) To('#CmdObjectName.VALUE')
Case Of_Field(#UF_WKOBJT) When Value_Is('= BUSINESS_OBJECT')
Case Of_Field(#UF_WKOBJ1) When Value_Is('= EMPLOYEES')
Case Of_Field(#UF_WKOBJ2) When Value_Is('= SKILLS') * フレームワークにより起動され、 * コマンド・タブの表示位置を決定 If Cond('#AKEY1.VALUE *eq A1002') Set Com(#ReturnCode) Value(ER) Endif When Value_Is('= VIDEO') * フレームワークにより起動され、 * コマンド・タブの表示位置を決定 If Cond('#AKEY1.Value *eq A1001') Set Com(#ReturnCode) Value(ER) Endif when '= *blanks' * このルーチンはフィルターから起動され、 * インスタンスリストにエントリーを * 追加するかどうかを決定 If Cond('#AKEY1.Value *eq A1003') Set Com(#ReturnCode) Value(ER) Endif Endcase Endcase
Endcase
Endroutine
[ |../../index.htm#lansa/lansa048_2485.htm]