一、注册表单 FORM
DECLARE
l_formid NUMBER;
BEGIN
l_formid := fnd_form_s.nextval;
fnd_form_pkg.insert_row(x_rowid => l_rowid
,x_application_id => 20204 /*应用产品*/
,x_form_id => l_formid
,x_form_name => 'BHSCTRANSREPSETUP' /*表单*/
,x_audit_enabled_flag => 'N'
,x_user_form_name => 'BHSC.收发存报表设置' /*用户表单名*/
,x_description => '' /*说明*/
,x_creation_date => SYSDATE
,x_created_by => 0
,x_last_update_date => SYSDATE
,x_last_updated_by => 0
,x_last_update_login => 0);
COMMIT;
END;
二、注册表单功能 FORM FUNCTION
DECLARE
l_formid NUMBER;
l_funid NUMBER;
BEGIN
l_funid := fnd_form_functions_s.nextval;
SELECT f.form_id
INTO l_formid
FROM fnd_form f
WHERE f.application_id = 0
AND f.form_name = 'FNDRSRUN';
fnd_form_functions_pkg.insert_row(x_rowid => l_rowid
,x_function_id => l_funid
,x_web_host_name => '' /*代理名*/
,x_web_agent_name => '' /*主机名*/
,x_web_html_call => '' /*HTML调用*/
,x_web_encrypt_parameters => '' /*加密参数*/
,x_web_secured => '' /*安全保护*/
,x_web_icon => '' /*图标*/
,x_object_id => '' /*对象*/
,x_region_application_id => '' /*区域应用*/
,x_region_code => '' /*区域代码*/
,x_function_name => 'BHSCTRANSREP' /*功能*/
,x_application_id => 0 /*表单应用*/
,x_form_id => l_formid /*表单*/
,x_parameters => 'program_appl_short_name=BHSC concurrent_program_name=BHSCTRANSREP' /*参数*/
,x_type => 'FORM' /*类型*/
-- Type
-- FORM 表单
-- SERVLET SSWA servlet函数
-- SUBFUCTION 子函数
-- ...
,x_user_function_name => 'BHSC.收发存报表' /*用户功能名*/
,x_description => '' /*说明*/
,x_creation_date => SYSDATE
,x_created_by => 0
,x_last_update_date => SYSDATE
,x_last_updated_by => 0
,x_last_update_login => 0);
COMMIT;
END;