EBS采购订单创建发票
--初始化
/*
begin
fnd_global.apps_initialize(user_id => 8162,
resp_id => 50692,
resp_appl_id => 20003);
mo_global.init('M');
end;
*/
--注意，以下产生的发票会产生差异，需要手动调整发票，然后重新手工验证发票即可验证
declare
l_api_name CONSTANT VARCHAR2(30) := 'insert_ap_tmp';
l_savepoint_name CONSTANT VARCHAR2(30) := '';
l_iface_rec ap_invoices_interface%ROWTYPE;
l_iface_lines_rec ap_invoice_lines_interface%ROWTYPE;
l_ip_invoice_amount NUMBER;
l_ip_tax_amount NUMBER;
l_stmt_amount NUMBER;
l_tax_code VARCHAR2(30);
l_line_num NUMBER;
l_vendor_site_id NUMBER;
l_ccid NUMBER;
l_seg24 VARCHAR2(100) := '/0/';
l_seg678910 VARCHAR2(100) := '/0/0/0/0/0';
l_wait BOOLEAN;
x_phase VARCHAR2(80);
x_status VARCHAR2(80);
x_dev_phase VARCHAR2(80);
x_dev_status VARCHAR2(80);
x_message VARCHAR2(80);
x_group_id number;
x_request_id number;
BEGIN
x_group_id := NULL;
IF x_group_id IS NULL THEN
x_group_id := cux_ap_statement_imp_group_s.nextval;
END IF;
l_vendor_site_id := NULL;
l_iface_rec := NULL;
l_iface_rec.last_updated_by := 8162;
l_iface_rec.creation_date := SYSDATE;
l_iface_rec.created_by := 8162;
l_iface_rec.last_update_login := -1;
l_iface_rec.last_update_date := SYSDATE;
l_iface_rec.invoice_id := ap_invoices_interface_s.nextval;
l_iface_rec.group_id := x_group_id;
l_iface_rec.org_id := 295;--c_invc.org_id;
l_iface_rec.source := 'INVOICE GATEWAY';
l_iface_rec.attribute6 := 'ZP';--ZP增值税专票--QT其他票据--PP增值税普票--c_invc.vat_invoice_type; ---发票类型
select 'zsxcdf1234'
INTO l_iface_rec.invoice_num
from dual;
select 0.1,0.01--含税金额和不含税金额
INTO l_ip_invoice_amount, l_ip_tax_amount
from dual;
select 0.11--对账单金额
INTO l_stmt_amount
from dual;
select 0.11
INTO l_iface_rec.invoice_amount
from dual;
/* fnd_file.put_line(fnd_file.log,
'l_iface_rec.invoice_amount:' ||
l_iface_rec.invoice_amount);*/
l_iface_rec.invoice_type_lookup_code := 'STANDARD';--STANDARD标准、CREDIT贷项通知单、MIXED混合发票
select 598395--供应商地点ID
INTO l_vendor_site_id
from dual;
SELECT 326957,'8707','供应商名称',598395,'材料','CNY',226875,'E-Bank'
INTO l_iface_rec.vendor_id,
l_iface_rec.vendor_num,
l_iface_rec.vendor_name,
l_iface_rec.vendor_site_id,
l_iface_rec.vendor_site_code,
l_iface_rec.invoice_currency_code,
l_iface_rec.accts_pay_code_combination_id,
l_iface_rec.payment_method_code
FROM DUAL;
/*
SELECT 326957,
asv.segment1 vendor_num,
asv.vendor_name,
asvs.vendor_site_id,
asvs.vendor_site_code,
'CNY',
asvs.accts_pay_code_combination_id,
cux_ap_stmt_imp_invoice_pkg.get_payment_method(p_org_id => 295,
p_party_site_id => asvs.party_site_id,
p_party_id => asv.party_id) payment_method_lookup_code
FROM ap_suppliers asv,
ap_supplier_sites_all asvs
WHERE 1 = 1
AND asv.vendor_id = 326957
AND asvs.vendor_id = asv.vendor_id
AND asv.end_date_active IS NULL
AND asvs.vendor_site_id = 598395
AND rownum = 1;
*/
SELECT TO_DATE('2017-09-07','YYYY-MM-DD'),TO_DATE('2017-09-07','YYYY-MM-DD'),
TO_DATE('2017-09-07','YYYY-MM-DD'),1,'User','','测试','VAT17'
INTO l_iface_rec.invoice_date,
l_iface_rec.gl_date,
l_iface_rec.exchange_date,
l_iface_rec.exchange_rate,
l_iface_rec.exchange_rate_type,
l_iface_rec.attribute1,
l_iface_rec.description,
l_tax_code
from dual;
SELECT t.term_id INTO l_iface_rec.terms_id FROM ap_terms_vl t WHERE t.name = 'immediately';
l_iface_rec.terms_date := l_iface_rec.invoice_date;
INSERT INTO ap_invoices_interface VALUES l_iface_rec;
l_line_num := 0;
/* FOR c_line IN csr_line(c_invc.org_id,
p_statement_batch_id => c_invc.statement_batch_id) LOOP*/
l_line_num := l_line_num + 1;
l_iface_lines_rec := NULL;
l_iface_lines_rec.invoice_line_id := ap_invoice_lines_interface_s.nextval;
l_iface_lines_rec.invoice_id := l_iface_rec.invoice_id;
l_iface_lines_rec.org_id := 295;--c_invc.org_id;
l_iface_lines_rec.accounting_date := l_iface_rec.gl_date;
l_iface_lines_rec.line_number := l_line_num;
l_iface_lines_rec.line_type_lookup_code := 'ITEM';
l_iface_lines_rec.amount := 0.11;--c_line.amount;
l_iface_lines_rec.po_header_id := 529302;--c_line.po_header_id;
l_iface_lines_rec.po_line_id := 885818;--c_line.po_line_id;
l_iface_lines_rec.po_line_location_id := 1030063;--c_line.po_line_location_id;
l_iface_lines_rec.po_distribution_id := 779119;--c_line.po_distribution_id;
l_iface_lines_rec.po_release_id := null;--c_line.po_release_id;
/* IF c_line.quantity > 0 THEN*/
l_iface_lines_rec.rcv_transaction_id := 1266942;--c_line.rcv_transaction_id;
/* ELSE
l_iface_lines_rec.rcv_transaction_id := c_line.parent_transaction_id;
END IF;*/
l_iface_lines_rec.receipt_number := '18';--c_line.receipt_num;
l_iface_lines_rec.po_shipment_num := '1';--c_line.shipment_num;
l_iface_lines_rec.po_line_number := '1';--c_line.po_line_num;
l_iface_lines_rec.receipt_line_number := '1';--c_line.line_num;
l_iface_lines_rec.quantity_invoiced := 0.11;--c_line.quantity;
l_iface_lines_rec.unit_price := 1;--c_line.po_unit_price;
l_iface_lines_rec.description := '胶条(EPDM)黑色压块式胶条';--c_line.item_description;
l_iface_lines_rec.attribute1 := '123';--c_line.statement_id;
l_iface_lines_rec.attribute2 := '456';--c_line.statement_line_id;
l_iface_lines_rec.attribute5 := '789';--c_line.attribute4;
l_iface_lines_rec.inventory_item_id := 231102;--c_line.item_id;
l_iface_lines_rec.prorate_across_flag := 'N';
INSERT INTO ap_invoice_lines_interface VALUES l_iface_lines_rec;
l_line_num := l_line_num + 1;
l_iface_lines_rec := NULL;
l_iface_lines_rec.invoice_line_id := ap_invoice_lines_interface_s.nextval;
l_iface_lines_rec.invoice_id := l_iface_rec.invoice_id;
l_iface_lines_rec.org_id := 295;--c_invc.org_id;
l_iface_lines_rec.accounting_date := l_iface_rec.gl_date;
l_iface_lines_rec.line_number := l_line_num;
l_iface_lines_rec.line_type_lookup_code := 'ITEM';
l_iface_lines_rec.attribute1 := '123';--c_line.statement_id;
l_iface_lines_rec.attribute2 := '456';--c_line.statement_line_id;
l_iface_lines_rec.amount := 0.01;--c_line.tax_amount;
l_iface_lines_rec.description := '增值税 ' || l_tax_code;
/* IF c_line.new_tax_flag_code = 'Y' THEN
l_ccid := cux_gl_utl.get_gl_coa_ccid(c_line.chart_of_accounts_id,
c_line.seg_comp || l_seg24 ||
g_vat_account_code_y ||
l_seg24 || c_line.project_num ||
l_seg678910);
END IF;*/
-- l_iface_lines_rec.dist_code_combination_id := l_ccid;
l_iface_lines_rec.prorate_across_flag := 'N';
INSERT INTO ap_invoice_lines_interface VALUES l_iface_lines_rec;
x_request_id := fnd_request.submit_request(application => 'SQLAP',
program => 'APXIIMPT',
description => NULL,
start_time => NULL,
sub_request => NULL,
argument1 => NULL,
argument2 => 'INVOICE GATEWAY', --'MANUAL INVOICE ENTRY',
argument3 => x_group_id,
argument4 => 'N/A',
argument5 => NULL,
argument6 => NULL,
argument7 => NULL,
argument8 => 'Y',
argument9 => 'Y',
argument10 => 'Y',
argument11 => 'N');
commit work;
l_wait := fnd_concurrent.wait_for_request(request_id => x_request_id,
INTERVAL => 10,
max_wait => 600,
phase => x_phase,
status => x_status,
dev_phase => x_dev_phase,
dev_status => x_dev_status,
message => x_message);
IF (l_wait) THEN
IF ((x_dev_phase <> 'COMPLETE') OR (x_dev_status <> 'NORMAL')) THEN
dbms_output.put_line('ERROR1'||to_char(x_request_id)||':'||x_message);
END IF;
ELSE
dbms_output.put_line('ERROR2'||to_char(x_request_id)||':'||x_message);
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('ERROROTHERS');
END ;
EBS采购订单创建发票相关推荐
- SAP S4 MM前台操作讲解-框架采购订单创建与发票校验
1.框架采购订单创建 概念及功能说明 如果低值易耗品或价值很低的服务采购也和正常标准采购流程一样,从处理流程的成本来看是很不合算的.为了简化低值易耗品的采购流程,降低处理流程成本,这时就可以使用框架采 ...
- SAP MM ML81N为采购订单创建服务接收单，报错- No matching PO items selected -
SAP MM ML81N为采购订单创建服务接收单,报错- No matching PO items selected - SAP里的服务采购流程跟有形的实物采购流程并不相同.除了在采购单据上的差异以外 ...
- SAP QM初阶之事务代码QC51为采购订单创建Quality Certificate
SAP QM初阶之事务代码QC51为采购订单创建Quality Certificate 执行事务代码QC51 输入采购订单号,ITEM号,执行,进入如下界面, 输入相关数据,保存, 这样就为这个PO创 ...
- SAP SD VL31N BBP_INB_DELIVERY_CREATE 根据采购订单创建内向交货单
本人诚心接ABAP远程开发任务,价格公道,有需要的联系我,欢迎个人,甲方爸爸,乙方私信联系. VL31N根据采购订单创建内向交货单 BBP_INB_DELIVERY_CREATE 代码示例 LS_HE ...
- BAPI_PO_CREATE1 采购订单创建BAPI
导语:没有导语,直接看代码吧. BAPI名称:BAPI_PO_CREATE1 BAPI描述:采购订单创建
- SAP采购订单创建预付款并删除
采购订单预付款的删除@jettai 在SAP采购订单创建预付款 SAP系统支持创建采购订单的时候,选择预付款,并创建预付款请求. 针对行项目的预付款请求可以在如下图 创建预付款请求 在采购订单创建完毕 ...
- EBS开发_费用类采购订单创建
--以下代码于20171230在TONY环境中实现 --初始化 /* begin fnd_global.apps_initialize(user_id => 1110, ...
- oracle ebs 采购订单 为员工分配职务,oracle—EBS-采购功能点操作手册
oracle-EBS-采购功能点操作手册 浙大软件学院学生操作手册 PO模块功能点操作手册 作者:韩业邦 李亚军 创建日期:2012年3月6日 更新日期:2012年3月7日 版本:1.0 文档控制 更 ...
- SAP 框架采购订单FO发票验证：
框架PO发票: 价值限定与有效期限定. 1.业务场景: 框架采购订单(FO)用于与供应商之间的大宗交易或长期交易.框架采购订单不需要收货,定期做发票即可. 2.业务模拟 ME21N创建框架PO(输入限 ...
- 【MM小贴士】SAP采购订单创建参考采购申请的强控
[业务背景] SAP里面的采购订单可以依据采购申请.合同.计划协议等信息进行创建,当然也可以自行创建.这就有一个选择,就是采购订单是否必须要有依据,这个是根据企业的实际情况来进行的. 这个小贴士,记录 ...
最新文章
- 奥巴马竟被「去马赛克 AI」洗白，CVPR 新研究惹上种族歧视大麻烦，LeCun 也被卷入其中...
- Hexo+github搭建个人博客－博客发布篇
- 计算机与图像处理论文标题,数字图像处理论文各种题目.doc
- proxool配置多数据库多连接池
- Express 工具库中的 Application 对象
- 随机过程：指数分布、泊松过程、更新过程（renewal process）+大数定律
- mysql配置性能_MySQL配置性能优化
- Linux系统的启动引导过程(转)
- 机械指挥官——全国领先的工程机械管理平台
- ca 自建 颁发证书_自建 ca 及使用 ca 颁发证书
- python字符串驻留机制_python的内存驻留机制（小数据池）
- tensorflow学习之常用函数总结：tensorflow.reduce_mean()函数
- hdu acm 1540
- android微信朋友圈相册背景,微信朋友圈相册背景多大尺寸合适
- WhatsApp对话生成器使用教程
- 网站投票系统制作与流程
- ThinkPad电脑(win10)总是自动休眠的解决办法，亲测有效~
- 用python画小狗,用turtle画个单身狗送给自己~
- http://www.sciencedirect.com/ 外文文献免费全文下载方法
- 变形金刚图片----汽车人