Apply Receipts and CM

Question

Hello all,
We Have Oracle EBS R12.
There are many invoices already entered to the application.
There are more than 1000 Check (Receipts) already entered in the application, also there are 1000 Credit memo's Entered in the application.
As there are no enough time to apply them one by one, Is there any thing (request, API ...) that can help in Applying those Receipts with invoices, and those
Credit Memo's with invoices.
As for applying receipts with invoice i tried the following procedure but it there are problem when applying 1 receipt with more than invoices, example
receipt = 7000, invoice1=5000, invoice2= 3000. It apply 5000 with invoice1, but the remaining = 2000 doesn't apply with invoice2.
CREATE OR REPLACE PROCEDURE xx_ar_receipt_apply_b (
cr_rec_id IN NUMBER,
rec_amount IN NUMBER,
rec_no IN VARCHAR2,
cus_id IN NUMBER
AS
l_return_status VARCHAR2 (1);
l_installment NUMBER;
l_msg_count NUMBER;
l_msg_data VARCHAR2 (240);
cash_receipt_id NUMBER;
inv_no NUMBER;
inv_date DATE;
inv_amount NUMBER;
new_amt NUMBER;
rec_amt NUMBER;
payment_id NUMBER;
--- Define cursor c ---------
CURSOR c
IS
SELECT ct.trx_number inv_no, rac.amount_due_remaining inv_amount,
rac.payment_schedule_id payment_id, ct.trx_date inv_date,
rac.terms_sequence_number l_installment
FROM ar_payment_schedules_all rac, ra_customer_trx_all ct
WHERE rac.customer_trx_id = ct.customer_trx_id
AND ct.bill_to_customer_id = cus_id
AND RAC.CLASS = 'INV'
AND rac.amount_due_remaining > 0
ORDER BY ct.trx_date, rac.payment_schedule_id;
BEGIN
DBMS_APPLICATION_INFO.set_client_info (102);
fnd_global.apps_initialize (1374, 20678, 222);
mo_global.init ('AR');
mo_global.set_policy_context ('S', 102);
new_amt := 1000;
FOR REC_INV IN C
LOOP
IF new_amt > REC_INV.inv_amount
THEN
BEGIN
ar_receipt_api_pub.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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_receipt_number => rec_no,
p_cash_receipt_id => cr_rec_id,
p_trx_number => REC_INV.inv_no,
p_amount_applied => REC_INV.inv_amount,
p_installment => REC_INV.l_installment,
p_applied_payment_schedule_id => REC_INV.payment_id
new_amt := new_amt - inv_amount;
END;
END IF;
IF new_amt <= REC_INV.inv_amount
THEN
BEGIN
ar_receipt_api_pub.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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_receipt_number => rec_no,
p_cash_receipt_id => cr_rec_id,
p_trx_number => REC_INV.inv_no,
p_amount_applied => new_amt,
p_installment => REC_INV.l_installment,
p_applied_payment_schedule_id => REC_INV.payment_id
new_amt := 0;
END;
END IF;
IF new_amt = 0
THEN
EXIT;
END IF;
END LOOP;
END LOOP;
END IF;
arp_standard.disable_debug;
END;
Thanks in advance.
Edited by: 858923 on May 14, 2011 12:56 PM

Answer 1

how do you create your receipt? if you are using lockbox, you can specify invoice number(s) so that the receipt will be applied to the invoices after creation.