EBS开发_Form开发中组件权限控制的几个常用方法

Form开发中组件权限控制的几个常用方法

<1>子功能法

按钮组件定义一个子功能

 

Form代码中根据功能来控制组件

在PRE-FORM触发器中，来判断用户是否有权限看到这个操作，如果有就显示否则不显示

IF (fnd_function.test('XHUORDER_BOOK_ORDER')) THEN

app_item_property.set_property('headers.book_order',DISPLAYED,PROPERTY_ON);

ELSE

app_item_property.set_property('headers.book_order',DISPLAYED, PROPERTY_OFF);

END IF;

 

将子功能授权给有权的用户

 

<2>功能参数法

 

 在Form设计器中定义参数

在Form程序代码中引用参数的值来控制

if (:parameter.lookup_type is not null) then

set_block_property('FND_LOOKUP_TYPES',INSERT_ALLOWED,PROPERTY_FALSE);

end if;

 

 

 

if (:parameter.appl_short_name is not null) then

       :parameter.appl_short_name:= upper(:parameter.appl_short_name);

       :parameter.appl_id:=fnd_utilities.get_application_id(:parameter.appl_short_name);

       :parameter.application:=fnd_utilities.get_application_name(:parameter.appl_id);

       app_item_property.set_property('FND_LOOKUP_TYPES.APPLICATION_NAME',

              INSERT_ALLOWED,PROPERTY_OFF);

end if;

 

定义Function时设置具体的参数值

 

<3>预置文件法

定义预置文件

 

Form中根据预置文件值进行控制

l_order_num_mode := fnd_profile.value('DEMO_ORDER_NUMBER_MODE');

 

if :parameter.order_number_mode = 'AUTOMATIC' then

app_item_property.set_property('HEADERS.ORDER_NUMBER',REQUIRED,  PROPERTY_FALSE);

app_item_property.set_property('HEADERS.ORDER_NUMBER',ENTERABLE, PROPERTY_FALSE);

app_item_property.set_property('HEADERS.ORDER_NUMBER',NAVIGABLE, PROPERTY_FALSE);

end if;

 

设置预置文件的值