---- 创建项目
DECLARE
l_orig_project_id NUMBER := 6;
l_prj_num VARCHAR2(240) := 'CXYTEST001';
l_start_date DATE := SYSDATE;
l_completion_date DATE := SYSDATE + 5;
--l_organization_name VARCHAR2(240) := '航信系统工程公司组织';
l_carrying_out_organization_id NUMBER := 393;
--
x_project_id NUMBER;
x_new_project_number VARCHAR2(240);
x_return_status VARCHAR2(240);
x_msg_count NUMBER;
x_msg_data VARCHAR2(30000);
BEGIN
fnd_global.apps_initialize(user_id => 23806
,resp_id => 52998
,resp_appl_id => 275);
mo_global.init('M');
pa_projects_maint_pub.create_project(p_api_version => 1.0
,p_init_msg_list => NULL
,p_commit => 'F'
,p_validate_only => 'F'
,p_validation_level => NULL
,p_calling_module => NULL
,p_debug_mode => NULL
,p_max_msg_count => NULL
,p_orig_project_id => l_orig_project_id
,p_project_name => l_prj_num
,p_project_number => l_prj_num
,p_description => NULL
,p_project_type => NULL
,p_project_status_code => NULL
,p_project_status_name => NULL
,p_distribution_rule => NULL
,p_public_sector_flag => NULL
,p_carrying_out_organization_id => l_carrying_out_organization_id
,p_organization_name => l_organization_name
,p_start_date => l_start_date
,p_completion_date => l_completion_date
,p_probability_member_id => NULL
,p_probability_percentage => NULL
,p_project_value => NULL
,p_expected_approval_date => NULL
,p_team_template_id => NULL
,p_team_template_name => NULL
,p_country_code => NULL
,p_country_name => NULL
,p_region => NULL
,p_city => NULL
,p_customer_id => NULL
,p_customer_name => NULL
,p_agreement_currency => NULL
,p_agreement_currency_name => NULL
,p_agreement_amount => NULL
,p_agreement_org_id => NULL
,p_agreement_org_name => NULL
,p_opp_value_currency_code => NULL
,p_opp_value_currency_name => NULL
,p_priority_code => NULL
,p_template_flag => NULL
,p_security_level => NULL
,p_bill_to_customer_id => NULL
,p_ship_to_customer_id => NULL
,p_bill_to_customer_name => NULL
,p_ship_to_customer_name => NULL
,p_long_name => NULL
,p_project_id => x_project_id
,p_new_project_number => x_new_project_number
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
/* FOR i IN 1 .. x_msg_count LOOP
x_msg_data := fnd_msg_pub.get;
dbms_output.put_line('x_msg_data: ' || x_msg_data);
END LOOP;*/
dbms_output.put_line('x_project_id: ' || x_project_id);
dbms_output.put_line('x_new_project_number: ' || x_new_project_number);
dbms_output.put_line('x_msg_data: ' || x_msg_data);
dbms_output.put_line('x_return_status: ' || x_return_status);
dbms_output.put_line('x_msg_count: ' || x_msg_count);
END;
转载于:https://www.cnblogs.com/wanghang/p/6299235.html