[Home] [Help]
380:
381: l_receipt_currency_code := p_receipt_currency_code;
382: l_receipt_number := p_receipt_number;
383: l_comments := p_comments;
384: l_user_id := arp_global.user_id;
385: l_request_id := fnd_global.conc_request_id;
386:
387:
388: --Intialize the out NOCOPY variable
396: INTO l_amount_from,
397: l_amount_to
398: FROM ar_approval_user_limits
399: WHERE currency_code = l_receipt_currency_code
400: AND user_id = arp_global.user_id
401: AND document_type ='WRTOFF';
402: EXCEPTION
403: WHEN NO_DATA_FOUND THEN
404: l_amount_from := 0;
432: 'To : '||to_char(l_amount_to));
433:
434:
435: --Get the functional currency
436: l_functional_currency := arp_global.functional_currency;
437: l_min_wrt_off_amount := arp_global.sysparam.min_wrtoff_amount;
438: arp_util.debug('Minimum write-off limit :'||to_char(l_min_wrt_off_amount));
439: l_max_wrt_off_amount := arp_global.sysparam.max_wrtoff_amount;
440: arp_util.debug('Maximum write-off limit :'||to_char(l_max_wrt_off_amount));
433:
434:
435: --Get the functional currency
436: l_functional_currency := arp_global.functional_currency;
437: l_min_wrt_off_amount := arp_global.sysparam.min_wrtoff_amount;
438: arp_util.debug('Minimum write-off limit :'||to_char(l_min_wrt_off_amount));
439: l_max_wrt_off_amount := arp_global.sysparam.max_wrtoff_amount;
440: arp_util.debug('Maximum write-off limit :'||to_char(l_max_wrt_off_amount));
441:
435: --Get the functional currency
436: l_functional_currency := arp_global.functional_currency;
437: l_min_wrt_off_amount := arp_global.sysparam.min_wrtoff_amount;
438: arp_util.debug('Minimum write-off limit :'||to_char(l_min_wrt_off_amount));
439: l_max_wrt_off_amount := arp_global.sysparam.max_wrtoff_amount;
440: arp_util.debug('Maximum write-off limit :'||to_char(l_max_wrt_off_amount));
441:
442: IF l_max_wrt_off_amount IS NULL THEN
443: fnd_message.set_name ('AR','AR_SYSTEM_WR_NO_LIMIT_SET');
494: l_tot_writeoff_amt_func := arpcurr.functional_amount(
495: l_tot_write_off_amount,
496: l_functional_currency,
497: l_exchange_rate,
498: arp_global.base_precision,
499: arp_global.base_min_acc_unit);
500:
501: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
502: l_actual_writeoff_amount := 0;
495: l_tot_write_off_amount,
496: l_functional_currency,
497: l_exchange_rate,
498: arp_global.base_precision,
499: arp_global.base_min_acc_unit);
500:
501: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
502: l_actual_writeoff_amount := 0;
503: END IF;
695: l_functional_currency ar_cash_receipts.currency_code%TYPE;
696:
697: BEGIN
698: arp_util.debug('arp_process_writeoff.unapplied_amount()+');
699: l_functional_currency := arp_global.functional_currency;
700:
701: IF nvl(p_request_id,0) = 0
702: THEN
703: SELECT SUM(DECODE(ra.status,'UNAPP',NVL(ra.amount_applied, 0),0)) unapplied_amount,
744: --rate from the receipt and calculate the write-off amount and validate with
745: --system limit setup.
746:
747: /*5444407*/
748: l_max_wrt_off_amount:=arp_global.sysparam.max_wrtoff_amount;
749:
750: l_tot_write_off_amount := l_written_off_amount + l_unapp_amount_balance;
751:
752: IF l_functional_currency <> p_currency_code THEN
762: l_tot_writeoff_amt_func := arpcurr.functional_amount(
763: l_tot_write_off_amount,
764: l_functional_currency,
765: l_exchange_rate,
766: arp_global.base_precision,
767: arp_global.base_min_acc_unit);
768:
769: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
770: RETURN (0);
763: l_tot_write_off_amount,
764: l_functional_currency,
765: l_exchange_rate,
766: arp_global.base_precision,
767: arp_global.base_min_acc_unit);
768:
769: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
770: RETURN (0);
771: END IF;
1001: arp_util.debug('arp_process_writeoff.balancing_segment() '||SQLERRM);
1002: RETURN (NULL);
1003: END;
1004: BEGIN
1005: arp_global.init_global;
1006: END ARP_PROCESS_WRITEOFF;