--以下代码于20171230在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
--获取采购订单行类型对应的ID,1020代表费用金额,对应单位为元
/* SELECT plt.line_type_id
FROM po_line_types_vl plt, mtl_units_of_measure_vl muom
WHERE plt.unit_of_measure = muom.unit_of_measure
-- AND muom.uom_code = p_uom_code
AND rownum = 1;*/
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