PROCEDURE
XX_READ_ONLY_CHARDGE_ACNT_P(event_name varchar2) IS
form_name
VARCHAR2
(150);
block_name
VARCHAR2
(150);
item_name
VARCHAR2
(150);
v_mark_read_only
VARCHAR2 (100);
BEGIN
form_name := NAME_IN ('SYSTEM.CURRENT_FORM');
block_name := NAME_IN ('system.cursor_block');
item_name := NAME_IN ('system.cursor_item');
/*xxpk_debug_prc
('CUSTOM.PLL.XX_READ_ONLY_CHARDGE_ACNT_P',
'00',
'STARTs',
'event_name -
:-'
|| event_name,
SUBSTR
(dbms_utility.format_error_backtrace||SQLERRM, 1, 2999)
); */
IF event_name = 'XXREADONLY_POCHARGE_KFF' THEN
/*xxpk_debug_prc
('CUSTOM.PLL.XX_READ_ONLY_CHARDGE_ACNT_P',
'01',
'In IF Condition',
'event_name -
:-'
|| event_name,
SUBSTR
(dbms_utility.format_error_backtrace||SQLERRM, 1, 2999)
); */
FND_KEY_FLEX.UPDATE_DEFINITION(
BLOCK=>'DISTRIBUTIONS',
FIELD=>'charge_account_flex',
INSERTABLE=>'',
UPDATEABLE=>'');
END IF;
/* IF (event_name = 'WHEN-NEW-RECORD-INSTANCE' or event_name =
'WHEN-NEW-BLOCK-INSTANCE'
or event_name = 'WHEN-NEW-FORM-INSTANCE' or
event_name = 'WHEN-NEW-ITEM-INSTANCE')
AND ( FND_PROFILE.VALUE ('RESP_ID')in ('50680') and form_name IN
('POXPOEPO'))THEN
--Set_Menu_Item_Property('VIEW.ATTACHMENTS',ENABLED,
PROPERTY_FALSE);--disable attachment to view
--app_special.enable('ATTACHMENTS',
PROPERTY_OFF); --disable attachment to view
copy(25,'SYSTEM.MESSAGE_LEVEL');--to not show repeative
messages
END IF;*/
exception when others then
null;
/*xxpk_debug_prc
('CUSTOM.PLL.XX_READ_ONLY_CHARDGE_ACNT_P',
'XX',
'MainException',
'event_name -
:-'
|| event_name,
SUBSTR
(dbms_utility.format_error_backtrace||SQLERRM, 1, 2999)
); */
END;
Recompile the custom.pll in the form builder and upload it to
AU_TOP (don't forget to backup the original file before uploading the modified
one)
frmcmp_batch module=CUSTOM.pll
userid=apps/apps output_file=$AU_TOP/resource/CUSTOM.plx compile_all=special
module_type=LIBRARY batch=yes
Restart the application services and test the
personalization
========End========================
