PA 核准资金,创建完项目事件、协议、核准资金后,运行“PRC:生成单个项目的原始发票” 或“PRC:生成一个项目范围的原始发票”,可以生成应付发票。
DECLARE
l_err_code NUMBER;
l_status VARCHAR2(250);
BEGIN
fnd_global.apps_initialize(user_id => 0
,resp_id => 20432
,resp_appl_id => 275);
pa_baseline_funding_pkg.create_budget_baseline(p_project_id => 3001
,x_err_code => l_err_code
,x_status => l_status);
dbms_output.put_line('l_err_code :=' || l_err_code);
dbms_output.put_line('l_status :=' || l_status);
dbms_output.put_line('l_msg_count :=' || fnd_msg_pub.count_msg);
IF l_err_code <> '0' THEN
dbms_output.put_line('error_msg = ' || l_err_code);
IF fnd_msg_pub.count_msg >= 0 THEN
FOR i IN 1 .. fnd_msg_pub.count_msg LOOP
dbms_output.put_line('eror_message[' || i || ']:' || substr(fnd_msg_pub.get(fnd_msg_pub.g_next
,fnd_api.g_false)
,1
,250));
END LOOP;
END IF;
fnd_msg_pub.Delete_Msg;
END IF;
END;