[Home] [Help]
383:
384: l_receipt_currency_code := p_receipt_currency_code;
385: l_receipt_number := p_receipt_number;
386: l_comments := p_comments;
387: l_user_id := arp_global.user_id;
388: l_request_id := fnd_global.conc_request_id;
389:
390:
391: --Intialize the out NOCOPY variable
400: INTO l_amount_from,
401: l_amount_to
402: FROM ar_approval_user_limits
403: WHERE currency_code = l_receipt_currency_code
404: AND user_id = arp_global.user_id
405: AND document_type ='WRTOFF';
406: EXCEPTION
407: WHEN NO_DATA_FOUND THEN
408: l_amount_from := 0;
436: 'To : '||to_char(l_amount_to));
437:
438:
439: --Get the functional currency
440: l_functional_currency := arp_global.functional_currency;
441: l_min_wrt_off_amount := arp_global.sysparam.min_wrtoff_amount;
442: arp_util.debug('Minimum write-off limit :'||to_char(l_min_wrt_off_amount));
443: l_max_wrt_off_amount := arp_global.sysparam.max_wrtoff_amount;
444: arp_util.debug('Maximum write-off limit :'||to_char(l_max_wrt_off_amount));
437:
438:
439: --Get the functional currency
440: l_functional_currency := arp_global.functional_currency;
441: l_min_wrt_off_amount := arp_global.sysparam.min_wrtoff_amount;
442: arp_util.debug('Minimum write-off limit :'||to_char(l_min_wrt_off_amount));
443: l_max_wrt_off_amount := arp_global.sysparam.max_wrtoff_amount;
444: arp_util.debug('Maximum write-off limit :'||to_char(l_max_wrt_off_amount));
445:
439: --Get the functional currency
440: l_functional_currency := arp_global.functional_currency;
441: l_min_wrt_off_amount := arp_global.sysparam.min_wrtoff_amount;
442: arp_util.debug('Minimum write-off limit :'||to_char(l_min_wrt_off_amount));
443: l_max_wrt_off_amount := arp_global.sysparam.max_wrtoff_amount;
444: arp_util.debug('Maximum write-off limit :'||to_char(l_max_wrt_off_amount));
445:
446: IF l_max_wrt_off_amount IS NULL THEN
447: fnd_message.set_name ('AR','AR_SYSTEM_WR_NO_LIMIT_SET');
498: l_tot_writeoff_amt_func := arpcurr.functional_amount(
499: l_tot_write_off_amount,
500: l_functional_currency,
501: l_exchange_rate,
502: arp_global.base_precision,
503: arp_global.base_min_acc_unit);
504:
505: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
506: l_actual_writeoff_amount := 0;
499: l_tot_write_off_amount,
500: l_functional_currency,
501: l_exchange_rate,
502: arp_global.base_precision,
503: arp_global.base_min_acc_unit);
504:
505: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
506: l_actual_writeoff_amount := 0;
507: END IF;
700: l_functional_currency ar_cash_receipts.currency_code%TYPE;
701:
702: BEGIN
703: arp_util.debug('arp_process_writeoff.unapplied_amount()+');
704: l_functional_currency := arp_global.functional_currency;
705:
706: IF nvl(p_request_id,0) = 0
707: THEN
708: SELECT SUM(DECODE(ra.status,'UNAPP',NVL(ra.amount_applied, 0),0)) unapplied_amount,
749: --rate from the receipt and calculate the write-off amount and validate with
750: --system limit setup.
751:
752: /*5444407*/
753: l_max_wrt_off_amount:=arp_global.sysparam.max_wrtoff_amount;
754:
755: l_tot_write_off_amount := l_written_off_amount + l_unapp_amount_balance;
756:
757: IF l_functional_currency <> p_currency_code THEN
767: l_tot_writeoff_amt_func := arpcurr.functional_amount(
768: l_tot_write_off_amount,
769: l_functional_currency,
770: l_exchange_rate,
771: arp_global.base_precision,
772: arp_global.base_min_acc_unit);
773:
774: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
775: RETURN (0);
768: l_tot_write_off_amount,
769: l_functional_currency,
770: l_exchange_rate,
771: arp_global.base_precision,
772: arp_global.base_min_acc_unit);
773:
774: IF (NVL(l_tot_writeoff_amt_func,0)) > l_max_wrt_off_amount THEN
775: RETURN (0);
776: END IF;
1006: arp_util.debug('arp_process_writeoff.balancing_segment() '||SQLERRM);
1007: RETURN (NULL);
1008: END;
1009: BEGIN
1010: arp_global.init_global;
1011: END ARP_PROCESS_WRITEOFF;