费用采购订单导入和接收

1、费用采购订单创建和接收文档作者:孙令朝创建日期:2017-08-27更新日期:2017-08-27当前版本:1.0文档控制更改记录日期作者版本更改参考2017-08-27孙令朝1.0审阅姓名职位签字分布编码姓名地点和位置目录文档控制1更改记录1审阅1分布1目录11文档简介11.1 项目背景11.2 范围11.3 相关文档12费用采购介绍22.1 费用物料介绍22.2费用采购类型23 采购订单的导入44 采购订单的接收75未解决的问题115.1 未解决的问题111 文档简介1.1 项目背景费用采购在企业中也有部分存在，本稳定对于费用采购的创建和接收进行了验证。1.2 范围本文档适用于涉及到费用采

2、购订单的创建本文档是基于版本的EBS作以总结。1.3 相关文档无2 费用采购介绍费用采购是采购订单的一种，与标准采购订单不同的是费用采购订单所采购的物料为费用物料。2.1 费用物料介绍费用采购的使用业务场景：企业存在着低值易损耗，服务性质的采购。针对这种采购，不需要创建过多的物料编码，只有财务管理财务信息的需求，对于库存没有管理的必要。费用物料主要体现在物料的属性上面。2.2费用采购类型费用物料有三种类型，分别适用于不同的业务场景：1.存在着物料编码，但是仅记账 物料属性中的库存物料、库存资产、计算成本不勾选，同时需要设置费用账户2.存在物料编码，记账的同时还要体现库存 物料属性中库存资产、计

3、算成本不勾选；库存物料和费用账户需要设置3.不存在物料编码，常为服务类的采购采购订单行的单价不能修改为固定值，只能修改数量。本文档这次测试的是第一种情况，对应的物料属性设置如下图所示3 采购订单的导入对费用物料创建采购订单时和通常的物料创采购订单没有区别需要注意的是必须给采购订单行上面的借记账户赋值测试SQL（已在R11上测试通过）Declarel_Iface_RecPo.Po_Headers_Interface%Rowtype;l_Iface_Lines_RecPo.Po_Lines_Interface%Rowtype;l_Iface_Dis_RecPo.Po_Distributions_I

4、nterface%Rowtype;g_User_IdNumber :=Fnd_Global.User_Id;l_Iface_Header_IdNumber;l_Iface_Line_IdNumber;g_Session_IdNumber :=Userenv(SESSIONID);l_Line_NumNumber;l_Variance_Account_Id Number;BeginFnd_Global.Apps_Initialize(User_Id= 2040,Resp_Id=50352,Resp_Appl_Id = 201);Select Po_Headers_Interface_s.Next

5、val Intol_Iface_Header_Id From Dual;l_Iface_Rec:= Null;l_Iface_Rec.Creation_Date:= Sysdate;l_Iface_Rec.Last_Update_Date := Sysdate;l_Iface_Rec.Created_By:= g_User_Id;l_Iface_Rec.Last_Updated_By:= g_User_Id;l_Iface_Rec.Interface_Header_Id:=l_Iface_Header_Id;l_Iface_Rec.Org_Id:= 82;l_Iface_Rec.Process

6、_Code:= PENDING;l_Iface_Rec.Action:= ORIGINAL;l_Iface_Rec.Document_Type_Code:= STANDARD;l_Iface_Rec.Document_Num:= Null;l_Iface_Rec.Approval_Status:= APPROVED;l_Iface_Rec.Agent_Id:= 4088; -周康l_Iface_Rec.Vendor_Num:= 04015005;l_Iface_Rec.Vendor_Id:= 4233;l_Iface_Rec.Ship_To_Location_Id:= 8666; -专用车部l

7、_Iface_Rec.Bill_To_Location_Id:= 141; -陕重汽东厂l_Iface_Rec.Comments:= Null;l_Iface_Rec.Currency_Code:= CNY;l_Iface_Rec.Interface_Source_Code :=DMSWG_IMPORT;l_Iface_Rec.Attribute3:= 041; -业务部门：销售_专用车部-l_Iface_Rec.Attribute15:= DMSWG_|l_Po_Inference_Id;l_Iface_Rec.Note_To_Receiver := 销司专用车部;l_Iface_Rec.B

8、atch_Id:= g_Session_Id;Insert Into Po.Po_Headers_Interface Valuesl_Iface_Rec;l_Line_Num := 1;l_Iface_Lines_Rec:= Null;l_Iface_Lines_Rec.Creation_Date:= Sysdate;l_Iface_Lines_Rec.Last_Update_Date := Sysdate;l_Iface_Lines_Rec.Created_By:= g_User_Id;l_Iface_Lines_Rec.Last_Updated_By:= g_User_Id;l_Iface

9、_Lines_Rec.Interface_Line_Id:=l_Iface_Line_Id;l_Iface_Lines_Rec.Interface_Header_Id :=l_Iface_Header_Id;l_Iface_Lines_Rec.Process_Code:=PENDING;l_Iface_Lines_Rec.Action:=ORIGINAL;l_Iface_Lines_Rec.Line_Num:=l_Line_Num;l_Iface_Lines_Rec.Item:=WGDX0000000000002;l_Iface_Lines_Rec.Vendor_Product_Num:=24

10、00*3200;l_Iface_Lines_Rec.Uom_Code:= Pcs;l_Iface_Lines_Rec.Note_To_Vendor:=CK-2017;l_Iface_Lines_Rec.Promised_Date:=Sysdate;l_Iface_Lines_Rec.Need_By_Date:=Sysdate;l_Iface_Lines_Rec.Shipment_Num:= 1;l_Iface_Lines_Rec.Quantity:= 2;l_Iface_Lines_Rec.Unit_Price:=1000;l_Iface_Lines_Rec.Ship_To_Organizat

11、ion_Id := 85;l_Iface_Lines_Rec.Taxable_Flag:=Y;l_Iface_Lines_Rec.Tax_Name:=VAT17;Insert Into Po_Lines_Interface Valuesl_Iface_Lines_Rec;l_Iface_Dis_Rec := Null;l_Iface_Dis_Rec.Creation_Date:= Sysdate;l_Iface_Dis_Rec.Last_Update_Date := Sysdate;l_Iface_Dis_Rec.Created_By:= g_User_Id;l_Iface_Dis_Rec.L

12、ast_Updated_By:= g_User_Id;Into l_Iface_Dis_Rec.Interface_Distribution_IdFrom Dual;BeginSelect Msi.Expense_AccountInto l_Variance_Account_Id -费用账户idFrom Mtl_System_Items_b MsiWhere Msi.Segment1 = WGDX0000000000002 And Msi.Organization_Id= 85;ExceptionWhen Others ThenNull;End;l_Iface_Dis_Rec.Interfac

13、e_Header_Id :=l_Iface_Header_Id;l_Iface_Dis_Rec.Interface_Line_Id:=l_Iface_Line_Id;l_Iface_Dis_Rec.Quantity_Ordered:=l_Iface_Lines_Rec.Quantity;l_Iface_Dis_Rec.Distribution_Num:= 1;l_Iface_Dis_Rec.Quantity_Delivered:= 0;l_Iface_Dis_Rec.Quantity_Billed:= 0;l_Iface_Dis_Rec.Quantity_Cancelled:= 0; -Mus

14、tBe 0-L_Iface_Dis_Rec.Charge_Account_Id:= 40693;-L_Iface_Dis_Rec.Accrual_Account_Id:= 1121;l_Iface_Dis_Rec.Charge_Account_Id :=l_Variance_Account_Id;-l_Iface_Dis_Rec.Variance_Account_Id :=l_Variance_Account_Id;Insert Into Po.Po_Distributions_Interface Valuesl_Iface_Dis_Rec;l_Line_Num := l_Line_Num +

15、 1; -End If;Commit; -call apiPo_Docs_Interface_Sv5.Process_Po_Headers_Interface(x_Selected_Batch_Id= g_Session_Id,x_Buyer_Id= Null,x_Document_Type= STANDARD,x_Document_Subtype= Null,x_Create_Items= N,x_Create_Sourcing_Rules_Flag = Null,x_Rel_Gen_Method= Null,x_Approved_Status= APPROVED,x_Commit_Inte

16、rval= 1,x_Process_Code= PENDING,x_Interface_Header_Id= Null,x_Org_Id_Param= Null,x_Ga_Flag= Null);End;4 采购订单的接收采购接收有三种类型，不同的类型赋不同的值。1。直接入库的接收 rcv_transactions_interface.transaction_type:= RECEIVE;rcv_transactions_interface.auto_transact_code:= DELIVER;rcv_transactions_interface.destination_type_code

17、:= INVENTORY;2. 只完成接收，不入库 rcv_transactions_interface.transaction_type:= RECEIVE;rcv_transactions_interface.auto_transact_code:= NULL;rcv_transactions_interface.destination_type_code:= RECEIVING ;3.|对于接收后需要入库 rcv_transactions_interface.transaction_type:= DELIVER; rcv_transactions_interface.auto_trans

18、act_code:= NULL; rcv_transactions_interface.destination_type_code:= INVENTORY;费用接收的时候不同的是对于 l_Iface_Rcv_Rec.Destination_Type_Code :=EXPENSE; -接收至费用 因为是费用物料，设置的为库存物料没勾选，所以接收时不需要指定子库。Declarel_ProgressVarchar2(200);x_Header_RecordRcv_Shipment_Header_Sv.Headerrectype;l_Iface_Rcv_RecRcv_Transactions_Inte

19、rface%Rowtype;x_Group_IdNumber;x_Shipment_Header_Id Number;l_Iface_Trxn_IdNumber;x_Request_IdNumber;l_Po_Header_IdNumber;l_Po_Line_IdNumber;l_Line_Location_IdNumber;l_Dis_IdNumber;l_Vendor_IdNumber;l_Item_IdNumber;l_Process_FlagVarchar2(32);l_Item_Uom_CodeVarchar2(32);l_StatusVarchar2(240);l_Message

20、Varchar2(2000);l_CntNumber;l_Transaction_TypeVarchar2(32);Beginx_Header_Record.Header_Record := Null;x_Header_Record.Error_Record:= Null;From Dual;Select Vendor_IdInto l_Vendor_IdFrom Po_Vendors PvWhere Pv.Segment1 = 04015005;test999;-Invoke APIRcv_Shipment_Header_Sv.Create_Shipment_Header(x_Header_

21、Record = x_Header_Record);Elsex_Shipment_Header_Id := Null;Return;End If;Into l_Iface_Trxn_IdFrom Dual;Select Msi.Primary_Unit_Of_MeasureInto l_Item_Uom_CodeFrom Mtl_System_Items_b Msi Where Msi.Organization_Id= 85And Msi.Inventory_Item_Id = 941481;-l_Progress:=Insert_Rcv_Trxn_Iface;l_Iface_Rcv_Rec:

22、=Null;l_Iface_Rcv_Rec.Last_Update_Date:=Sysdate;l_Iface_Rcv_Rec.Last_Updated_By:=-1;l_Iface_Rcv_Rec.Creation_Date:=Sysdate;l_Iface_Rcv_Rec.Created_By:=-1;l_Iface_Rcv_Rec.Last_Update_Login:=-1;l_Iface_Rcv_Rec.Interface_Transaction_Id :=l_Iface_Trxn_Id;l_Iface_Rcv_Rec.Group_Id:=x_Group_Id;l_Iface_Rcv_

23、Rec.Shipment_Header_Id:=x_Shipment_Header_Id;l_Iface_Rcv_Rec.Transaction_Date:=Sysdate;l_Iface_Rcv_Rec.Processing_Status_Code:=PENDING;l_Iface_Rcv_Rec.Transaction_Status_Code :=PENDING;l_Iface_Rcv_Rec.Processing_Mode_Code:=BATCH;l_Iface_Rcv_Rec.Validation_Flag:=Y;l_Iface_Rcv_Rec.Transaction_Type:=RE

24、CEIVE;l_Iface_Rcv_Rec.Auto_Transact_Code:=DELIVER;l_Iface_Rcv_Rec.Destination_Type_Code:=EXPENSE;-目的地为费用l_Iface_Rcv_Rec.Destination_Context:=EXPENSE;l_Iface_Rcv_Rec.Receipt_Source_Code :=VENDOR;l_Iface_Rcv_Rec.Vendor_Id:=l_Vendor_Id;-l_Iface_Rcv_Rec.Vendor_Site_Id:=11086;l_Iface_Rcv_Rec.Source_Docum

25、ent_Code := PO;l_Iface_Rcv_Rec.Po_Header_Id:=1367094;l_Iface_Rcv_Rec.Po_Line_Id:=2656091;l_Iface_Rcv_Rec.Po_Line_Location_Id:=2442218;l_Iface_Rcv_Rec.Po_Distribution_Id:=2437195;l_Iface_Rcv_Rec.Ship_To_Location_Id:= 8666;l_Iface_Rcv_Rec.To_Organization_Id:= 85;-l_Iface_Rcv_Rec.Subinventory:=Rec_Hdr.Subinv_Name;-费用采购，不需要指定子库l_Iface_Rcv_Rec.Item_Id:=941481;l_