费用采购订单导入和接收.docx
《费用采购订单导入和接收.docx》由会员分享，可在线阅读，更多相关《费用采购订单导入和接收.docx（15页珍藏版）》请在冰豆网上搜索。
费用采购订单导入和接收
费用采购订单创建和接收
文档作者:
孙令朝
创建日期:
2017-08-27
更新日期:
2017-08-27
当前版本:
1.0
文档控制
更改记录
日期
作者
版本
更改参考
2017-08-27
孙令朝
1.0
审阅
姓名
职位
签字
分布
编码
姓名
地点和位置
目录
文档控制1
更改记录1
审阅1
分布1
目录1
1文档简介1
1.1项目背景1
1.2范围1
1.3相关文档1
2费用采购介绍2
2.1费用物料介绍2
2.2费用采购类型2
3采购订单的导入4
4采购订单的接收7
5未解决的问题11
5.1未解决的问题11
文档简介
1.1项目背景
费用采购在企业中也有部分存在，本稳定对于费用采购的创建和接收进行了验证。
1.2范围
本文档适用于涉及到费用采购订单的创建
本文档是基于R11.5.9版本的EBS作以总结。
1.3相关文档
无
费用采购介绍
1费用采购是采购订单的一种，与标准采购订单不同的是费用采购订单所采购的物料为费用物料。
2.1费用物料介绍
2费用采购的使用业务场景：
3企业存在着低值易损耗，服务性质的采购。
针对这种采购，不需要创建过多的物料编码，只有财务管理财务信息的需求，对于库存没有管理的必要。
4费用物料主要体现在物料的属性上面。
2.2费用采购类型
费用物料有三种类型，分别适用于不同的业务场景：
51.存在着物料编码，但是仅记账
6 物料属性中的库存物料、库存资产、计算成本不勾选，同时需要设置费用账户
72.存在物料编码，记账的同时还要体现库存
8 物料属性中库存资产、计算成本不勾选；库存物料和费用账户需要设置
93.不存在物料编码，常为服务类的采购
10采购订单行的单价不能修改为固定值，只能修改数量。
11本文档这次测试的是第一种情况，对应的物料属性设置如下图所示
12
13
14
15
3采购订单的导入
对费用物料创建采购订单时和通常的物料创采购订单没有区别
需要注意的是必须给采购订单行上面的借记账户赋值
测试SQL（已在R11上测试通过）
Declare
l_Iface_Rec Po.Po_Headers_Interface%Rowtype;
l_Iface_Lines_Rec Po.Po_Lines_Interface%Rowtype;
l_Iface_Dis_Rec Po.Po_Distributions_Interface%Rowtype;
g_User_Id Number:
= Fnd_Global.User_Id;
l_Iface_Header_Id Number;
l_Iface_Line_Id Number;
g_Session_Id Number:
= Userenv（'SESSIONID'）;
l_Line_Num Number;
l_Variance_Account_IdNumber;
Begin
Fnd_Global.Apps_Initialize（User_Id =>2040,
Resp_Id => 50352,
Resp_Appl_Id=>201）;
SelectPo_Headers_Interface_s.NextvalInto l_Iface_Header_IdFromDual;
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_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_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.Batch_Id :
=g_Session_Id;
InsertIntoPo.Po_Headers_InterfaceValues l_Iface_Rec;
l_Line_Num:
=1;
SelectPo.Po_Lines_Interface_s.NextvalInto l_Iface_Line_IdFromDual;
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_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 :
= '2400*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_Organization_Id:
=85;
l_Iface_Lines_Rec.Taxable_Flag :
= 'Y';
l_Iface_Lines_Rec.Tax_Name :
= 'VAT17';
InsertIntoPo_Lines_InterfaceValues l_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.Last_Updated_By :
=g_User_Id;
SelectPo.Po_Distributions_Interface_s.Nextval
Intol_Iface_Dis_Rec.Interface_Distribution_Id
FromDual;
Begin
SelectMsi.Expense_Account
Intol_Variance_Account_Id--费用账户id
FromMtl_System_Items_bMsi
WhereMsi.Segment1='WGDX0000000000002'
AndMsi.Organization_Id =85;
Exception
WhenOthersThen
Null;
End;
l_Iface_Dis_Rec.Interface_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;--Must Be0
--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;
InsertIntoPo.Po_Distributions_InterfaceValues l_Iface_Dis_Rec;
l_Line_Num:
=l_Line_Num+1;
--EndIf;
Commit;
--callapi
Po_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_Interval =>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 :
='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_transact_code :
=NULL;
rcv_transactions_interface.destination_type_code :
='INVENTORY';
费用接收的时候不同的是对于
l_Iface_Rcv_Rec.Destination_Type_Code :
= 'EXPENSE'; --接收至费用
因为是费用物料，设置的为库存物料没勾选，所以接收时不需要指定子库。
Declare
l_Progress Varchar2（200）;
x_Header_Record Rcv_Shipment_Header_Sv.Headerrectype;
l_Iface_Rcv_Rec Rcv_Transactions_Interface%Rowtype;
x_Group_Id Number;
x_Shipment_Header_IdNumber;
l_Iface_Trxn_Id Number;
x_Request_Id Number;
l_Po_Header_Id Number;
l_Po_Line_Id Number;
l_Line_Location_Id Number;
l_Dis_Id Number;
l_Vendor_Id Number;
l_Item_Id Number;
l_Process_Flag Varchar2（32）;
l_Item_Uom_Code Varchar2（32）;
l_Status Varchar2（240）;
l_Message Varchar2（2000）;
l_Cnt Number;
l_Transaction_Type Varchar2（32）;
Begin
SelectPo.Rcv_Interface_Groups_s.NextvalInto x_Group_IdFromDual;
x_Header_Record.Header_Record:
=Null;
x_Header_Record.Error_Record :
=Null;
SelectPo.Rcv_Headers_Interface_s.Nextval
Into x_Header_Record.Header_Record.Header_Interface_Id
FromDual;
SelectVendor_Id
Intol_Vendor_Id
FromPo_VendorsPv
WherePv.Segment1='04015005';
x_Header_Record.Header_Record.Group_Id :
=x_Group_Id;
x_Header_Record.Header_Record.Processing_Status_Code:
='PENDING';
x_Header_Record.Header_Record.Receipt_Source_Code :
='VENDOR';
x_Header_Record.Header_Record.Transaction_Type :
='NEW';
x_Header_Record.Header_Record.Auto_Transact_Code :
='DELIVERY';--'RECEIVE';
x_Header_Record.Header_Record.Vendor_Id :
=l_Vendor_Id;
--x_Header_Record.Header_Record.Vendor_Site_Id :
=11086;
x_Header_Record.Header_Record.Expected_Receipt_Date :
=Sysdate;
x_Header_Record.Header_Record.Validation_Flag :
='Y';
x_Header_Record.Header_Record.Ship_To_Organization_Id:
=85;
x_Header_Record.Header_Record.Receipt_Num :
='WGRCV-'||
升级会员 