DECLARE
l_return_status varchar2(1);
p_count NUMBER;
l_msg_count number;
l_msg_data varchar2(2000);
l_batch_id number;
l_cnt number := 0;
l_batch_source_rec ar_invoice_api_pub.batch_source_rec_type;
l_trx_header_tbl ar_invoice_api_pub.trx_header_tbl_type;
l_trx_lines_tbl ar_invoice_api_pub.trx_line_tbl_type;
l_trx_dist_tbl ar_invoice_api_pub.trx_dist_tbl_type;
l_trx_salescredits_tbl ar_invoice_api_pub.trx_salescredits_tbl_type;
l_customer_trx_id number;
cnt number;
v_context varchar2(100);
Cursor list_errors IS
Select TRX_HEADER_ID,
ERROR_MESSAGE
from
ar_trx_errors_gt;
/* Cursor to get the user id information based on the input user name /
CURSOR cur_user
IS
SELECT user_id
FROM fnd_user
WHERE user_name = i_user_name;
/ Cursor to get the responsibility information /
CURSOR cur_resp
IS
SELECT responsibility_id
,application_id
,language
FROM fnd_responsibility_tl
WHERE responsibility_name = i_resp_name;
/ Cursor to get the nls language information for setting the language context /
CURSOR cur_lang(p_lang_code VARCHAR2)
IS
SELECT nls_language
FROM fnd_languages
WHERE language_code = p_lang_code;
BEGIN
/ To get the user id details /
OPEN cur_user;
FETCH cur_user INTO v_user_id;
IF cur_user%NOTFOUND
THEN
v_return:=’F’;
END IF; –IF cur_user%NOTFOUND
CLOSE cur_user;
/ To get the responsibility and responsibility application id /
OPEN cur_resp;
FETCH cur_resp INTO v_resp_id, v_resp_appl_id,v_lang;
IF cur_resp%NOTFOUND
THEN
v_return:=’F’;
END IF; –IF cur_resp%NOTFOUND
CLOSE cur_resp;
/ Setting the oracle applications context for the particular session /
fnd_global.apps_initialize ( user_id => v_user_id
,resp_id => v_resp_id
,resp_appl_id => v_resp_appl_id);
/ Setting the org context for the particular session /
mo_global.set_policy_context(‘S’,v_org_id);
/ setting the nls context for the particular session */
IF v_session_lang != v_lang
THEN
OPEN cur_lang(v_lang);
FETCH cur_lang INTO v_nls_lang;
CLOSE cur_lang;
fnd_global.set_nls_context(v_nls_lang);
END IF; –IF v_session_lang != v_lang
RETURN v_return;
EXCEPTION
WHEN OTHERS THEN
RETURN ‘F’;
END set_context;
FUNCTION set_context( i_user_name IN VARCHAR2
,i_resp_name IN VARCHAR2
,i_org_id IN NUMBER)
RETURN VARCHAR2
IS
v_user_id NUMBER;
v_resp_id NUMBER;
v_resp_appl_id NUMBER;
v_lang VARCHAR2(100);
v_session_lang VARCHAR2(100):=fnd_global.current_language;
v_return VARCHAR2(10):=’T’;
v_nls_lang VARCHAR2(100);
v_org_id NUMBER:=i_org_id;
——–modify the values as per your requirement————
BEGIN
DBMS_OUTPUT.PUT_LINE(‘1’);
fnd_global.apps_initialize (2043, 20678, 222);
mo_global.init (‘AR’);
mo_global.set_policy_context (‘S’, 83);
l_trx_header_tbl(1).trx_header_id := 102;
l_trx_header_tbl(1).trx_number := ‘INTCR05’;
l_trx_header_tbl(1).trx_date := sysdate;
l_trx_header_tbl(1).bill_to_customer_id := 1084;
l_trx_header_tbl(1).cust_trx_type_id := 4060;
l_trx_header_tbl(1).BILL_TO_SITE_USE_ID := 4548;
— Populate batch source information.
l_batch_source_rec.batch_source_id := 4080;
l_trx_lines_tbl(1).trx_header_id := 102;
l_trx_lines_tbl(1).trx_line_id := 101;
l_trx_lines_tbl(1).line_number := 1;
l_trx_lines_tbl(1).memo_line_id := null;
l_trx_lines_tbl(1).description := ‘Test’;
l_trx_lines_tbl(1).quantity_invoiced := 10;
l_trx_lines_tbl(1).unit_selling_price := -120;
l_trx_lines_tbl(1).line_type := ‘LINE’;
— Populate Distribution Information
l_trx_dist_tbl(1).trx_dist_id := 1021;
l_trx_dist_tbl(1).trx_header_id := 102;
l_trx_dist_tbl(1).trx_LINE_ID := 101;
l_trx_dist_tbl(1).ACCOUNT_CLASS := ‘REV’;
l_trx_dist_tbl(1).PERCENT := 100;
–l_trx_dist_tbl(1).AMOUNT := 100;
l_trx_dist_tbl(1).CODE_COMBINATION_ID := 8625;–1248;
——————-Receivable——————
l_trx_dist_tbl(2).trx_dist_id := 1022;
l_trx_dist_tbl(2).trx_header_id := 102;
–l_trx_dist_tbl(2).trx_LINE_ID := 101;
l_trx_dist_tbl(2).ACCOUNT_CLASS := ‘REC’;
l_trx_dist_tbl(2).PERCENT := 100;
–l_trx_dist_tbl(2).AMOUNT := 1200;
l_trx_dist_tbl(2).CODE_COMBINATION_ID := 8626;–1569;
—————ENd————-
–Call the invoice api to create multiple invoices in a batch.
AR_INVOICE_API_PUB.create_single_invoice(
p_api_version => 1.0,
p_batch_source_rec => l_batch_source_rec,
p_trx_header_tbl => l_trx_header_tbl,
p_trx_lines_tbl => l_trx_lines_tbl,
p_trx_dist_tbl => l_trx_dist_tbl,
p_trx_salescredits_tbl => l_trx_salescredits_tbl,
x_customer_trx_id => l_customer_trx_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
IF l_return_status = fnd_api.g_ret_sts_error OR
l_return_status = fnd_api.g_ret_sts_unexp_error THEN
dbms_output.put_line(‘unexpected errors found!’);
ELSE
–Check whether any record exist in error table
Select count(1) into l_cnt from ar_trx_errors_gt;
if l_cnt =0 THEN
dbms_output.put_line(‘ Got Created Sucessfully : ‘||l_customer_trx_id);
dbms_output.put_line ( ‘Customer Trx id ‘|| l_customer_trx_id);
ELSE
dbms_output.put_line ( ‘Transaction not Created, Please check ar_trx_errors_gt table’);
END IF;
end if;
commit;
END;