How to Use name_in in the Pl/sql library

Question

Dear all,
I have made a Pl/sql library to disable and enable items on the form
and when i use set_item_property on some items it gives me an error " no such property for set_item_property", but i think its cause i am trying to set property for an item which is a current item
how i can avoid this error?
and do i have to user :system.current_item
and how i can use it in the Pl/sql library is it like this? name_in('system.current_item');
best regards,
Shooosh

Answer 1

Hi
Here is a sample code check it out
procedure rp_set_attr (p_field_name in varchar2, p_flag in varchar2) is
-- p_flag : H - Hidden,
-- V - Visible,
-- D - Disabled,
-- EM - Enabled Mandatory,
-- EN - Enabled Non-Mandatory
v_blk_id block := find_block(p_field_name);
v_it_id item := find_item(p_field_name);
begin
if not id_null(v_blk_id) then
if nvl(p_flag,'N') = 'D' then
set_block_property (p_field_name, insert_allowed, property_false);
set_block_property (p_field_name, update_allowed, property_false);
set_block_property (p_field_name, delete_allowed, property_false);
else
set_block_property (p_field_name, insert_allowed, property_true);
set_block_property (p_field_name, update_allowed, property_true);
set_block_property (p_field_name, delete_allowed, property_true);
end if;
else
if not id_null(v_it_id) then
if p_flag = 'H' then
set_item_property (p_field_name, visible, property_false);
else
if get_item_property (p_field_name, visible) = 'FALSE' then
set_item_property (p_field_name, visible, property_true);
end if;
if get_item_property (p_field_name, item_type) = 'BUTTON' then
if p_flag = 'D' then
set_item_property (p_field_name, enabled, property_false);
else
set_item_property (p_field_name, enabled, property_true);
end if;
elsif get_item_property (p_field_name, item_type) <> 'DISPLAY ITEM' then
if p_flag = 'D' then
set_item_property (v_it_id, enabled, property_false);
set_item_property (v_it_id, visual_attribute, 'DISPLAY_ITEM');
else
set_item_property (v_it_id, enabled, property_true);
set_item_property (v_it_id, navigable, property_true);
set_item_property (v_it_id, updateable, property_true);
if get_item_property (p_field_name, item_type) <> 'RADIO GROUP' then
set_item_property (v_it_id, queryable, property_true);
end if;
if p_flag = 'EM' then
set_item_property (v_it_id, visual_attribute, 'MANDATORY_ATTR');
if get_item_property (p_field_name, item_type) = 'LIST' then
set_item_property (v_it_id, required, property_true);
end if;
elsif p_flag = 'EN' then
set_item_property (v_it_id, visual_attribute, 'NON_MANDATORY_ATTR');
if get_item_property (p_field_name, item_type) = 'LIST' then
set_item_property (v_it_id, required, property_false);
end if;
end if;
end if;
end if;
end if;
else
rp_err ('3','19', p_field_name || ' Field Name ');
end if;
end if;
end;
Regards
Nagaraj