EBS开发_创建采购订单_TONY_API20171213

最新推荐文章于 2024-01-30 10:39:53 发布

原创

最新推荐文章于 2024-01-30 10:39:53 发布 · 447 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ebs

此脚本展示了2017年12月13日在Oracle EBS (E-Business Suite) TONY环境中如何通过API `create_purchase_order` 创建采购订单。代码涉及初始化、设置变量、处理采购订单的头信息、行信息和分配信息，并进行了测试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

--以下脚本于20171213在TONY环境中实现

--初始化

/*
begin
fnd_global.apps_initialize(user_id => 1110,
resp_id => 50597,
resp_appl_id => 20003);
mo_global.init('M');
end;
*/

--上PA模块的采购合同导入代码--测试通过20170906，205采购订单--只导入单行，如果是多行，则需要加loop
DECLARE
l_api_name CONSTANT VARCHAR2(30) := 'create_purchase_order';
l_savepoint_name VARCHAR2(30) := '';
p_batch_id NUMBER;
l_header_iface_rec po_headers_interface%ROWTYPE;
l_line_iface_rec po_lines_interface%ROWTYPE;
l_dist_iface_rec po_distributions_interface%ROWTYPE;
l_line_num NUMBER;
l_task_id NUMBER;
l_chart_of_accounts_id NUMBER;
l_segment1 VARCHAR2(30);
l_segment2 VARCHAR2(30);
l_segment3 VARCHAR2(30);
l_segment4 VARCHAR2(30);
l_segment5 VARCHAR2(100);
l_segment6 VARCHAR2(30);
l_segment7 VARCHAR2(30);
l_segment8 VARCHAR2(30);
l_segment9 VARCHAR2(30);
l_segment10 VARCHAR2(30);
l_line_type_id NUMBER;
l_expenditure_type pa_expenditure_types.expenditure_type%TYPE;
l_charge_account_id NUMBER;
l_agent_id NUMBER;
l_validate_status VARCHAR2(1);

BEGIN


l_task_id := 335351;--NULL;
l_chart_of_accounts_id := NULL;
l_segment1 := NULL;
l_segment2 := NULL;
l_segment3 := NULL;
l_segment4 := NULL;
l_segment6 := NULL;
l_segment7 := NULL;
l_segment8 := NULL;
l_segment9 := NULL;
l_segment10 := NULL;
l_line_type_id := 1;--NULL;
l_expenditure_type := NULL;
l_charge_account_id := NULL;
l_agent_id := NULL;

--project_id=237441 org_id = 351 agent_id = 1034







l_segment5 := 'GT-2016-JZ·G-702';--rec_progress.project_number;

--如果是期初的劳务的应付暂估,将使用(期初应付暂估中转科目),且项目段为0
/* IF rec_progress.is_qichu