Oracle EBS11i:使用接口表抛数所生成OM订单
一开始是用接口抛数据到interface的表,再通过后台跑请求,抛入ERP的,不过在测试过程中发现速度有点慢,等待的时间有点长,所以到最后才换成直接使用API生在订单.
这里记录并分享一下主要的procedure ,欢迎指教!谢谢.
--抛数据到接口表
/*插入至接口表中*/
procedure InsertOOMINTERFACE(P_SOE_ORDERNO varchar2,
v_retval out varchar2,
v_retmessage out varchar2) is
cursor cur_om_header is
select *
from bbkedu_om_temp_header oth
where oth.soe_order_no = P_SOE_ORDERNO
and rownum = 1
order by oth.soeheadid desc;
cursor cur_om_lines is
select *
from bbkedu_om_temp_line otl
where otl.soe_order_no = P_SOE_ORDERNO;
v_header_id varchar(20);
retval varchar2(5000);
v_line_id varchar(20);
v_errorcode varchar(1000);
v_bill_to_id Number; ---收单方ID
v_count number;
v_request_id number;
begin
for crm_header_rec in cur_om_header loop
Select Oe_Order_Headers_s.Nextval Into v_header_id From Dual;
Insert Into oe_headers_iface_all
(Operation_Code,
order_Source_Id,
org_Id,
orig_Sys_Document_Ref,
ordered_Date,
order_Type_Id,
Price_List_Id,
Transactional_Curr_Code,
Salesrep_Id,
Payment_Term_Id,
Sold_From_Org_Id,
Sold_To_Org_Id,
sold_to_contact_id,
Ship_From_Org_Id,
Ship_To_Org_Id,
ship_to_contact_id,
Invoice_To_Org_Id,
invoice_to_contact_id,
Booked_Flag,
Closed_Flag,
Created_By,
Creation_Date,
Last_Update_Date,
Last_Updated_By,
Request_Date,
Return_Reason_Code,
Accounting_Rule_Id,
Conversion_Type_Code,
Demand_Class_Code,
Fob_Point_Code,
Freight_Carrier_Code,
Freight_Terms_Code,
Invoicing_Rule_Id,
Last_Update_Login,
order_Category,
order_Date_Type_Code,
Sales_Channel_Code,
Tax_Exempt_Flag,
global_attribute2,
global_attribute3)
Values
('Insert',
0,
102,
'OE_ORDER_HEADERS_ALL' || v_header_id,
crm_header_rec.Ordered_Date,
crm_header_rec.Order_Type_Id,
crm_header_rec.Price_List_Id,
crm_header_rec.Transactional_Curr_Code,
crm_header_rec.Salesrep_Id,
crm_header_rec.Payment_Term_Id,
crm_header_rec.customer_id,
crm_header_rec.Sold_To_Org_Id,
NULL,
crm_header_rec.Ship_To_Org_Id,
null,
NULL,
crm_header_rec.Invoice_To_Org_Id,
NULL,
'Y',
'N',
-1,
crm_header_rec.Creation_Date,
crm_header_rec.Creation_Date,
-1,
SYSDATE,
NULL,
1,
'Corporate',
crm_header_rec.Demand_Class_Code,
NULL,
NULL,
NULL,
-2,
-1,
'ORDER',
NULL,
NULL,
'S',
crm_header_rec.soeheadid,
crm_header_rec.soe_order_no);
FOR crm_line_rec IN cur_om_lines LOOP
Select Oe_Order_Lines_s.NEXTVAL INTO v_line_id FROM Dual;
--dbms_output.put_line('line_id is ' || v_line_id);
/*v_line_id := v_line_id + 1;*/
Insert INTO oe_lines_iface_all
(Orig_Sys_Document_Ref,
order_Source_Id,
orig_Sys_Line_Ref,
Created_By,
Creation_Date,
Last_Updated_By,
Last_Update_Date,
org_Id,
Inventory_Item_Id,
ordered_Quantity,
order_Quantity_Uom,
Unit_Selling_Price,
Unit_List_Price,
Request_Date,
Schedule_Ship_Date,
Return_Reason_Code,
Subinventory,
Sold_From_Org_Id,
Sold_To_Org_Id,
Ship_From_Org_Id,
Ship_To_Org_Id,
Invoice_To_Org_Id,
Operation_Code,
Line_Type_Id,
Line_Number,
Price_List_Id,
Pricing_Date,
Tax_Code,
Tax_Value,
Tax_Date,
Payment_Term_Id,
Salesrep_Id,
Item_Revision,
Calculate_Price_Flag,
Accounting_Rule_Id,
Closed_Flag,
Delivery_Lead_Time,
Demand_Class_Code,
Invoicing_Rule_Id,
Item_Type_Code,
Last_Update_Login,
Option_Flag,
Pricing_Quantity,
Pricing_Quantity_Uom,
Promise_Date,
Schedule_Arrival_Date,
Shipment_Number,
Shipment_Priority_Code,
Ship_Set_Id,
Ship_Tolerance_Above,
Ship_Tolerance_Below,
Source_Type_Code,
Tax_Exempt_Flag,
global_attribute2,
ATTRIBUTE12,
global_attribute3)
VALUES
('OE_ORDER_HEADERS_ALL' || v_header_id,
0,
'OE_ORDER_LINES_ALL' || v_line_id,
-1,
SYSDATE,
-1,
SYSDATE,
102,
crm_line_rec.inventory_item_id,
crm_line_rec.ordered_quantity,
crm_line_rec.pricing_quantity_uom,
crm_line_rec.Unit_Selling_Price,
crm_line_rec.Unit_List_Price,
crm_line_rec.Request_Date,
NULL,
NULL,
NULL,
crm_line_rec.Sold_From_Org_Id,
crm_line_rec.Sold_To_Org_Id,
crm_line_rec.Ship_From_Org_Id,
crm_line_rec.Ship_To_Org_Id,
crm_header_rec.Invoice_To_Org_Id,
'Insert',
crm_line_rec.Line_Type_Id,
NULL,
crm_line_rec.Price_List_Id,
crm_line_rec.Pricing_Date,
NULL,
NULL,
NULL,
crm_header_rec.payment_term_id,
crm_line_rec.Salesrep_Id,
NULL,
'Y',
1,
'N',
NULL,
crm_line_rec.Demand_Class_Code,
-2,
'STANDARD',
-1,
NULL,
crm_line_rec.Pricing_Quantity,
crm_line_rec.Pricing_Quantity_Uom,
crm_line_rec.Promise_Date,
NULL,
NULL,
NULL,
NULL,
0,
0,
'INTERNAL',
'S',
crm_line_rec.global_attribute2,
crm_line_rec.soelineid,
crm_line_rec.soe_order_no);
retval := 1;
END LOOP;
END LOOP;
COMMIT;
end InsertOOMINTERFACE;
--调用后台跑请求
Procedure RUNOMIMPORTREQUEST(retcode out number, retmessage out varchar2) is
v_request_id number;
v_request_flag BOOLEAN;
v_concat varchar2(25) := 'CUX' || to_char(sysdate, 'YYMMDDHH24');
v_phase varchar2(240);
v_status varchar2(240);
v_dev_phase varchar2(240);
v_dev_status varchar2(240);
v_message varchar2(240);
custom_exception EXCEPTION;
Begin
--初始化设置 dezai.cn
fnd_global.apps_initialize(5047, 1013, 201);
v_request_id := FND_REQUEST.SUBMIT_REQUEST('ONT', -- 请求定义的模组代码
'OEOIMP', -- Concurrent 名称
NULL, --固定值
NULL, --固定值
FALSE, --固定值
'', -- 订单来源
'', --Order Reference
'NO', --validate only,
'', --Instance
'', --change sequence
null, --Trim Trailing blanks
'Yes', --validate descriptive flexfields
chr(0) -- 代表传参结束,本例子说明传了3个参数
);
IF v_request_id <> 0 THEN
COMMIT;
END IF;
EXCEPTION
WHEN custom_exception THEN
retcode := -20002;
retmessage := ' 错误提示：导入ERP正式表出错！' || SUBSTR(SQLERRM, 1, 250);
--RAISE custom_exception;
ROLLBACK;
RETURN;
WHEN OTHERS THEN
retcode := -20003;
retmessage := ' 错误提示：导入ERP正式表出错！' || SUBSTR(SQLERRM, 1, 250);
FND_FILE.PUT_LINE(FND_FILE.LOG, retcode);
--RAISE custom_exception;
ROLLBACK;
RETURN;
end RUNOMIMPORTREQUEST;