declare vr_Form_name VARCHAR2(100) := 'XX_NAME'; vr_Description VARCHAR2(200) := 'XX_DESCRIPTION'; begin -- Регистрация функции формы fnd_form_functions_pkg.load_row ( x_function_name => vr_Form_name , x_application_short_name => 'FND' , x_form_name => 'FNDRSRUN' , x_parameters => 'CONCURRENT_PROGRAM_NAME="'||vr_Form_name ||'" PROGRAM_APPL_SHORT_NAME="'||'XX' ||'" TITLE="'||vr_Description||'"' , x_type => 'FORM' , x_web_host_name => NULL , x_web_agent_name => NULL , x_web_html_call => NULL , x_web_encrypt_parameters => NULL , x_web_secured => NULL , x_web_icon => NULL , x_object_name => NULL , x_region_application_name => NULL , x_region_code => NULL , x_user_function_name => vr_Description , x_description => vr_Description , x_owner => 'INITIAL SETUP' , x_custom_mode => 'FORCE' ); -- Регистрация пункта меню fnd_menu_entries_pkg.load_row ( x_mode => 'REPLACE' , x_ent_sequence => 910 , x_menu_name => 'MENU_NAME' , x_sub_menu_name => NULL , x_function_name => vr_Form_name , x_grant_flag => 'Y' , x_prompt => vr_Description , x_description => vr_Description , x_owner => USER ); -- COMMIT; EXCEPTION WHEN OTHERS THEN dbms_output.put_line(substr('Error: ' || SQLERRM, 1, 255)); ROLLBACK; end; / SHOW ERRORS
Комментарии (0)
Уведомления (0)
Написать комментарий
Уведомление
Последние комментарии