AR Receipts Creation Using API's


AR Receipts API Single Insert Creation Script

1.Creating a RECEIPT :

DECLARE
l_return_status VARCHAR2 (1);
l_msg_count NUMBER;
l_msg_data VARCHAR2 (240);
l_cr_id NUMBER;

BEGIN
ar_receipt_api_pub.create_cash
(p_api_version => 1.0,
p_init_msg_list => fnd_api.g_false,
p_commit => fnd_api.g_false,
p_validation_level => fnd_api.g_valid_level_full,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_currency_code => 'USD',
p_amount => 200,
p_receipt_number => 'XX_TEST1',
p_receipt_date => SYSDATE,
p_gl_date => SYSDATE,
p_customer_id => Customer id ,
p_customer_bank_account_id => ,
p_customer_site_use_id => ,
p_receipt_method_id => ,
p_cr_id => l_cr_id );

DBMS_OUTPUT.put_line ('Message count ' l_msg_count);
DBMS_OUTPUT.put_line ('Status ' l_return_status);

IF l_msg_count = 1
THEN
DBMS_OUTPUT.put_line ('l_msg_data ' l_msg_data);
ELSIF
l_msg_count > 1
THEN LOOP
l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);
IF l_msg_data IS NULL
THEN EXIT;
END IF;
DBMS_OUTPUT.put_line ('Message' '---' ' ---' l_msg_data);
END LOOP;
END IF;
arp_standard.disable_debug;
END;
/

2. Applying to an Invoice:

DECLARE 
l_return_status VARCHAR2 (1); 
l_msg_count NUMBER; 
l_msg_data VARCHAR2 (240);

BEGIN 
ar_receipt_api_pub.APPLY 
(p_api_version => 1.0, 
p_init_msg_list => fnd_api.g_false, 
p_commit => fnd_api.g_false, 
p_validation_level => fnd_api.g_valid_level_full, 
x_return_status => l_return_status, 
x_msg_count => l_msg_count, 
x_msg_data => l_msg_data, 
p_cash_receipt_id => , 
p_customer_trx_id => , 
p_applied_payment_schedule_id => , 
p_amount_applied => , 
p_show_closed_invoices => 'Y', 
p_apply_date => SYSDATE, 
p_apply_gl_date => SYSDATE, 
p_line_number => 1 ); 

DBMS_OUTPUT.put_line ('Message count ' l_msg_count); 
DBMS_OUTPUT.put_line ('Status ' l_return_status);

IF l_msg_count = 1 
THEN 
DBMS_OUTPUT.put_line ('l_msg_data ' l_msg_data); 
ELSIF l_msg_count > 1 
THEN LOOP 
l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);

IF l_msg_data IS NULL 
THEN 
EXIT; 
END IF; 

DBMS_OUTPUT.put_line ('Message' '---' ' ---' l_msg_data);
END LOOP;
END IF;
arp_standard.disable_debug;
END;

3. UNApplying a receipt to an Invoice: 

DECLARE 
l_return_status VARCHAR2 (1); 
l_msg_count NUMBER; 
l_msg_data VARCHAR2 (240); 
l_count NUMBER; 
l_cash_receipt_id NUMBER; 
l_msg_data_out VARCHAR2 (240); 
l_mesg VARCHAR2 (240); 
p_count NUMBER;

BEGIN 
arp_standard.enable_debug; 
arp_standard.enable_file_debug ('/usr/tmp', 'Api_Create.log');

ar_receipt_api_pub.unapply 
(p_api_version => 1.0, 
p_init_msg_list => fnd_api.g_true, 
p_commit => fnd_api.g_true, 
p_validation_level => fnd_api.g_valid_level_full, 
x_return_status => l_return_status, 
x_msg_count => l_msg_count, 
x_msg_data => l_msg_data, 
p_cash_receipt_id => &cash_receipt_id, 
p_applied_payment_schedule_id => &applied_payment_schedule_id, 
p_reversal_gl_date => '&reversal_gl_date' ); 

DBMS_OUTPUT.put_line ('Message count ' l_msg_count); 
DBMS_OUTPUT.put_line ('Cash Receipt ID ' l_cash_receipt_id); 

IF l_msg_count = 1
THEN
DBMS_OUTPUT.put_line ('l_msg_data ' l_msg_data);
ELSIF l_msg_count > 1
THEN LOOP
p_count := p_count + 1;
l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);

IF l_msg_data IS NULL
THEN EXIT;
END IF;

DBMS_OUTPUT.put_line ('Message' p_count ' ---' l_msg_data);
END LOOP;
END IF;
arp_standard.disable_debug;
END;
/

4.CREATE AND APPLY A Receipt:

DECLARE 
l_return_status VARCHAR2 (1); 
l_msg_count NUMBER;
l_msg_data VARCHAR2 (240);
l_count NUMBER; 
l_cash_receipt_id NUMBER;
l_msg_data_out VARCHAR2 (240); 
l_mesg VARCHAR2 (240); 
p_count NUMBER;

BEGIN 
DBMS_OUTPUT.put_line ('Start'); 
arp_standard.enable_debug; 

ar_receipt_api_pub.create_and_apply 
(p_api_version => 1.0, 
p_init_msg_list => fnd_api.g_true, 
p_commit => fnd_api.g_true, 
p_validation_level => fnd_api.g_valid_level_full, 
p_currency_code => 'USD', 
x_return_status => l_return_status,
x_msg_count => l_msg_count, 
x_msg_data => l_msg_data, 
p_amount => , 
p_receipt_number => ' ', 
p_receipt_date => SYSDATE, 
p_gl_date => SYSDATE, 
p_customer_id => , 
p_customer_bank_account_id => , 
p_customer_site_use_id => , 
p_receipt_method_id => , 
p_trx_number => ' ', 
p_cr_id => l_cash_receipt_id ); D

BMS_OUTPUT.put_line ('Return_status ' l_return_status); 
DBMS_OUTPUT.put_line ('Message count ' l_msg_count); 
DBMS_OUTPUT.put_line ('Cash Receipt ID ' l_cash_receipt_id);

IF l_msg_count = 1 
THEN 
DBMS_OUTPUT.put_line ('l_msg_data ' l_msg_data); 
ELSIF 
l_msg_count > 1 
THEN LOOP 
p_count := p_count + 1; 

l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);
IF l_msg_data IS NULL 
THEN 
EXIT; 
END IF;
DBMS_OUTPUT.put_line ('Message' p_count ' ---' l_msg_data); 
END LOOP; 
END IF;
arp_standard.disable_debug;
END;
5. Miscellanous receipt Creation:

DECLARE
l_return_status VARCHAR2 (1);
l_msg_count NUMBER; l_msg_data VARCHAR2 (240); l_count NUMBER; l_cash_receipt_id NUMBER; l_msg_data_out VARCHAR2 (240); l_mesg VARCHAR2 (240); p_count NUMBER; l_receipt_number VARCHAR (10);BEGIN l_receipt_number := '123'; DBMS_OUTPUT.put_line ('Start'); arp_standard.enable_debug; arp_standard.enable_file_debug ('/usr/tmp', 'Api_Create.log'); ar_receipt_api_pub.create_misc (p_api_version => 1.0, p_init_msg_list => fnd_api.g_true, p_commit => fnd_api.g_true, p_validation_level => fnd_api.g_valid_level_full, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_currency_code => 'USD', p_amount => &amount, p_receipt_date => '&receipt_date', p_gl_date => '&gl_date', p_receipt_method_id => &receipt_method_id, p_activity => 'Interest Income', p_misc_receipt_id => l_cash_receipt_id, p_receipt_number => l_receipt_number ); DBMS_OUTPUT.put_line ('Message count ' l_msg_count); DBMS_OUTPUT.put_line ('Cash Receipt ID ' l_cash_receipt_id); DBMS_OUTPUT.put_line ('Status ' l_return_status);
IF l_msg_count = 1 THEN DBMS_OUTPUT.put_line ('l_msg_data ' l_msg_data); ELSIF l_msg_count > 1 THEN LOOP p_count := p_count + 1; l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);
IF l_msg_data IS NULL THEN EXIT; END IF;
DBMS_OUTPUT.put_line ('Message' p_count ' ---' l_msg_data); END LOOP; END IF;
arp_standard.disable_debug;END;/

6.REVERSING a Receipt:

DECLARE
l_return_status VARCHAR2 (1);
l_msg_count NUMBER; l_msg_data VARCHAR2 (240); l_count NUMBER; l_cash_receipt_id NUMBER; l_msg_data_out VARCHAR2 (240); l_mesg VARCHAR2 (240); p_count NUMBER;BEGIN arp_standard.enable_debug; arp_standard.enable_file_debug ('/usr/tmp', 'Api_Create.log'); ar_receipt_api_pub.REVERSE (p_api_version => 1.0, p_init_msg_list => fnd_api.g_true, p_commit => fnd_api.g_true, p_validation_level => fnd_api.g_valid_level_full, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_receipt_number => '&receipt_number', p_reversal_category_name => 'Reverse Payment', --values can be modified. p_reversal_reason_name => 'Nsf' -- values can be modified. ); DBMS_OUTPUT.put_line ('Message count ' l_msg_count); DBMS_OUTPUT.put_line ('Status ' l_return_status);
IF l_msg_count = 1 THEN DBMS_OUTPUT.put_line ( 'l_msg_data A ' RTRIM (LTRIM (l_msg_data)) '****' ); ELSIF l_msg_count > 1 THEN LOOP p_count := p_count + 1; l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);
IF l_msg_data IS NULL THEN EXIT; END IF;
DBMS_OUTPUT.put_line ('Message' p_count ' ---' l_msg_data); END LOOP; END IF;
arp_standard.disable_debug;END;/

Comments

Popular posts from this blog

Oracle APPS Useful Queries

How to Apply Timers In Forms

Unix Shell Script For Oracle Apps