EBS 个性化：Custom.pll属性案例

获取当前Form和 Block等名称
PROCEDURE event(event_name VARCHAR2) IS
form_name VARCHAR2(30) := name_in(‘system.current_form’);
block_name VARCHAR2(30) := name_in(‘system.current_block’);
item_name VARCHAR2(30):= name_in(‘system.current_item’);
–block_name VARCHAR2(30) := name_in(‘system.cursor_block’);
–item_name VARCHAR2(30):= name_in(‘system.cursor_item’);
BEGIN
NULL;
END;

强制字段大写
app_item_property2.set_property(‘vendor.name’, case_restriction, uppercase);

更改字段提示
app_item_property2.set_property(‘vendor.name’, PROMPT_TEXT,‘Supplier Name’);

更改按钮标签
app_item_property2.set_property(‘vendors.details’,LABEL,‘More Details’);

更改字段背景颜色
app_item_property2.set_property(‘vendor.note’, BACKGROUND_COLOR,‘r255g255b0’);
–bright yellow

隐藏字段
app_item_property2.set_property(‘vendor.note’, DISPLAYED,PROPERTY_OFF);

设置块不可更新和插入
set_block_property(block_name,insert_allowed, property_false);
set_block_property(block_name,update_allowed, property_false);

添加菜单
app_special2.instantiate(‘SPECIAL15’,‘Print Order &Again’, ‘’, TRUE, ‘LINE’);

菜单项是否可用
app_special2.enable(‘SPECIAL15’,PROPERTY_ON);–菜单项可用
app_special2.enable(‘SPECIAL15’,PROPERTY_OFF);–菜单项不可用