Oracle EBS Interface/API(5)--AR Invoices 原创 2015年11月20日 09:24:21 1393 系统版本: RDBMS : 9.2.0.

摘自：http://blog.csdn.net/chenxianping/article/details/49933011?locationNum=7&fps=1

Oracle EBS Interface/API(5)--AR Invoices

原创  2015年11月20日 09:24:21

• 1393

系统版本:
          RDBMS : 9.2.0.6.0
         Oracle 应用产品 : 11.5.10.2  

快速参考
API:AR_INVOICE_API_PUB.CREATE_INVOICE

参数	说明	默认值
p_api_version	API版本	1.0
p_init_msg_list	是否初始化信息列表	FND_API.G_FALSE
p_commit	是否Commit(Oracle事务处理)	FND_API.G_FALSE
p_batch_source_rec	AR事务处理批
p_trx_header_tbl	AR事务处理题头
p_trx_lines_tbl	AR事务处理行
p_trx_dist_tbl	AR事务处理分配
p_trx_salescredits_tbl	AR事务处理销售贷项
x_return_status	返回值，执行结果返回标志	S表志成功，E表示错误
x_msg_count	返回值，消息记录条数
x_msg_data	返回值，消息数据

创建手工AR事务事，实例代码：

[sql]  view plain  copy

1. DECLARE  
2.   l_return_status        varchar2(1);  
3.   l_msg_count            number;  
4.   l_msg_data             varchar2(2000);  
5.   l_batch_id             number := 1;  
6.   l_batch_source_rec     ar_invoice_api_pub.batch_source_rec_type;  
7.   l_trx_header_tbl       ar_invoice_api_pub.trx_header_tbl_type;  
8.   l_trx_lines_tbl        ar_invoice_api_pub.trx_line_tbl_type;  
9.   l_trx_dist_tbl         ar_invoice_api_pub.trx_dist_tbl_type;  
10.   l_trx_salescredits_tbl ar_invoice_api_pub.trx_salescredits_tbl_type;  
11.   CURSOR cBatch IS  
12.     select customer_trx_id  
13.       from ra_customer_trx_all  
14.      where batch_id = l_batch_id;  
15.   CURSOR cValidTxn IS  
16.     SELECT trx_header_id  
17.       From ar_trx_header_gt  
18.      WHERE trx_header_id not in  
19.            (SELECT trx_header_id FROM ar_trx_errors_gt);  
20. BEGIN  
21.   fnd_client_info.set_org_context(114);  
22.   --1.  Set applications context if not already set.   
23.   fnd_global.apps_initialize(user_id      => 1110,  
24.                              resp_id      => 50268,  
25.                              resp_appl_id => 222); --1318, 50559, 222);  
26.   --2.  Populate header information.  
27.   l_trx_header_tbl(1).trx_header_id := 1;  
28.   --AR事务处理编号  
29.   l_trx_header_tbl(1).trx_number := 'CXP151020_002';   
30.   --客户收单方 地点ID  
31.   l_trx_header_tbl(1).bill_to_customer_id := 1253;   
32.   --AR事务处理类型CUST_TRX_TYPE_ID-  
33.   l_trx_header_tbl(1).cust_trx_type_id := 1002;   
34.   l_trx_header_tbl(1).trx_date :=trunc(sysdate);  
35.   --3.  Populate batch source information.  
36.   --批处理源  
37.   l_batch_source_rec.batch_source_id := 1002;   
38.   --4.  Populate line 1 information.  
39.   l_trx_lines_tbl(1).trx_header_id := l_trx_header_tbl(1).trx_header_id;  
40.   l_trx_lines_tbl(1).trx_line_id := 1;  
41.   --摘要  
42.   l_trx_lines_tbl(1).DESCRIPTION := '手工AR事务处理';   
43.   l_trx_lines_tbl(1).line_number := 1;  
44.   --l_trx_lines_tbl(1).memo_line_id := 1;  
45.   l_trx_lines_tbl(1).QUANTITY_INVOICED:=1;  
46.   l_trx_lines_tbl(1).UNIT_SELLING_PRICE :=200;  
47.   l_trx_lines_tbl(1).line_type := 'LINE';  
48.     
49.   --分配行明细,主要设置会计会机科目为项目时，一定要指定分配行明细的分录帐户  
50.   l_trx_dist_tbl(1).trx_dist_id :=1;  
51.  l_trx_dist_tbl(1).trx_header_id :=1;  
52.   l_trx_dist_tbl(1).trx_LINE_ID :=1;  
53.   l_trx_dist_tbl(1).ACCOUNT_CLASS:='REC';  
54.   l_trx_dist_tbl(1).AMOUNT:= 200;  
55.   l_trx_dist_tbl(1).acctd_amount:=200;  
56.   l_trx_dist_tbl(1).PERCENT :=100;  
57.   l_trx_dist_tbl(1).CODE_COMBINATION_ID := 1494;  
58.     
59.   l_trx_dist_tbl(1).trx_dist_id :=2;  
60.  l_trx_dist_tbl(1).trx_header_id :=1;  
61.   l_trx_dist_tbl(1).trx_LINE_ID :=1;  
62.   l_trx_dist_tbl(1).ACCOUNT_CLASS:='REV';  
63.   l_trx_dist_tbl(1).AMOUNT:= 200;  
64.   l_trx_dist_tbl(1).acctd_amount:=200;  
65.   l_trx_dist_tbl(1).PERCENT :=100;  
66.   l_trx_dist_tbl(1).CODE_COMBINATION_ID := 12814;  
67.   
68.   AR_INVOICE_API_PUB.create_invoice(p_api_version          => 1.0,  
69.                                     p_batch_source_rec     => l_batch_source_rec,  
70.                                     p_trx_header_tbl       => l_trx_header_tbl,  
71.                                     p_trx_lines_tbl        => l_trx_lines_tbl,  
72.                                     p_trx_dist_tbl         => l_trx_dist_tbl,  
73.                                     p_trx_salescredits_tbl => l_trx_salescredits_tbl,  
74.                                     x_return_status        => l_return_status,  
75.                                     x_msg_count            => l_msg_count,  
76.                                     x_msg_data             => l_msg_data);  
77.   Dbms_Output.put_line('x_msg_data=' || l_msg_data);  
78.   Dbms_Output.put_line('x_return_status=' || l_return_status);  
79.   IF l_return_status = fnd_api.g_ret_sts_error OR  
80.      l_return_status = fnd_api.g_ret_sts_unexp_error THEN  
81.     dbms_output.put_line('unexpected errors found!');  
82.   ELSE  
83.     commit;  
84.     For cValidTxnRec IN cvalidTxn loop  
85.       IF (ar_invoice_api_pub.g_api_outputs.batch_id IS NOT NULL) THEN  
86.         dbms_output.put_line('Invoice(s) suceessfully created!');  
87.         dbms_output.put_line('Batch ID: ' ||  
88.                              ar_invoice_api_pub.g_api_outputs.batch_id);  
89.         l_batch_id := ar_invoice_api_pub.g_api_outputs.batch_id;  
90.         for cBatchRec in cBatch loop  
91.           dbms_output.put_line('Cust Trx Id ' || cBatchRec.customer_trx_id);  
92.         end loop;  
93.       ELSE  
94.         dbms_output.put_line('Errors found!');  
95.       END IF;  
96.       
97.     End loop;  
98.     commit;  
99.   END IF;  
100.   dbms_output.put_line('l_return_status: ' || l_return_status);  
101. END;