[Home] [Help]
305: x_return_status := fnd_api.g_ret_sts_success;
306:
307: -- now make sure that # of decimal digits does not exceed g_max_decimal_digits
308: if ( p_input_quantity <> ROUND(p_input_quantity, g_max_decimal_digits)) then
309: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
310: x_output_quantity := ROUND(p_input_quantity, g_max_decimal_digits);
311: l_raise_warning := 1 ;
312: else
313: if (x_output_quantity IS NULL) then
317:
318: -- Now make sure that the length of real part of number doesn't exceed
319: -- g_max_real_digits
320: if ( trunc(abs(p_input_quantity)) > (POWER(10,g_max_real_digits) - 1) ) then
321: fnd_message.set_name('INV', 'MAX_REAL_LENGTH');
322: raise fnd_api.g_exc_error;
323: end if;
324:
325: -- now that in the given UOM the item quantity obeys the decimal precision rules
378:
379: if ( l_decimal_profile = '1' ) then -- '1'= yes, '2' = no
380:
381: if ( x_primary_quantity <> ROUND(x_primary_quantity,g_max_decimal_digits) ) then
382: fnd_message.set_name('INV', 'PRI_MAX_DECIMAL_LENGTH');
383: raise fnd_api.g_exc_error;
384: end if;
385:
386: -- Now make sure that the length of real part of number doesn't exceed
385:
386: -- Now make sure that the length of real part of number doesn't exceed
387: -- g_max_real_digits
388: if ( trunc(abs(x_primary_quantity)) > ( POWER(10,g_max_real_digits) - 1) ) then
389: fnd_message.set_name('INV', 'PRI_MAX_REAL_LENGTH');
390: raise fnd_api.g_exc_error;
391: end if;
392:
393: -- now check if the quantity in primary UOM is zero
391: end if;
392:
393: -- now check if the quantity in primary UOM is zero
394: if ( (x_primary_quantity = 0) AND (p_input_quantity <> 0) ) then
395: fnd_message.set_name('INV', 'PRI_QTY_IS_ZERO');
396: raise fnd_api.g_exc_error ;
397: end if;
398:
399: end if;
406: /* Bug 13088436: Comparison between the rounded and truncated values always fail
407: when x_primary_quantity is on the lower side of the rounded value */
408:
409: if (( l_indivisible_flag = 'Y' ) AND ( Round(x_primary_quantity,(g_max_decimal_digits-1)) <> TRUNC( Round(x_primary_quantity,(g_max_decimal_digits-1)))) ) then
410: fnd_message.set_name('INV', 'DIVISIBILITY_VIOLATION');
411: raise fnd_api.g_exc_error ;
412: end if;
413:
414: -- if item is serial number controlled, make the qty in primary UOM is integer
416: -- integer in primary uom. Even if specific serial may not be required at the time, the
417: -- qty of a serial number should be integer in primary uom.
418:
419: if ( (l_serial_control > 1 ) AND ( x_primary_quantity <> TRUNC(x_primary_quantity)) ) then
420: fnd_message.set_name('INV', 'SERIAL_QTY_VIOLATION');
421: raise fnd_api.g_exc_error ;
422: end if;
423:
424: if ( l_raise_warning = 1 ) then
507: end if;
508:
509: -- now make sure that # of decimal digits does not exceed l_max_decimal_digits
510: if ( p_input_quantity <> ROUND(p_input_quantity, l_max_decimal_digits)) then
511: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
512: x_output_quantity := ROUND(p_input_quantity, l_max_decimal_digits);
513: l_raise_warning := 1 ;
514: else
515: if (x_output_quantity IS NULL) then
519:
520: -- Now make sure that the length of real part of number doesn't exceed
521: -- g_max_real_digits
522: if ( trunc(abs(p_input_quantity)) > (POWER(10,g_max_real_digits) - 1) ) then
523: fnd_message.set_name('INV', 'MAX_REAL_LENGTH');
524: raise fnd_api.g_exc_error;
525: end if;
526:
527: -- now that in the given UOM the item quantity obeys the decimal precision rules
565:
566: if ( l_decimal_profile = '1' ) then -- '1'= yes, '2' = no
567:
568: if ( x_primary_quantity <> ROUND(x_primary_quantity,l_max_decimal_digits) ) then
569: fnd_message.set_name('INV', 'PRI_MAX_DECIMAL_LENGTH');
570: raise fnd_api.g_exc_error;
571: end if;
572:
573: -- Now make sure that the length of real part of number doesn't exceed
572:
573: -- Now make sure that the length of real part of number doesn't exceed
574: -- g_max_real_digits
575: if ( trunc(abs(x_primary_quantity)) > ( POWER(10,g_max_real_digits) - 1) ) then
576: fnd_message.set_name('INV', 'PRI_MAX_REAL_LENGTH');
577: raise fnd_api.g_exc_error;
578: end if;
579:
580: -- now check if the quantity in primary UOM is zero
578: end if;
579:
580: -- now check if the quantity in primary UOM is zero
581: if ( (x_primary_quantity = 0) AND (p_input_quantity <> 0) ) then
582: fnd_message.set_name('INV', 'PRI_QTY_IS_ZERO');
583: raise fnd_api.g_exc_error ;
584: end if;
585:
586: end if;
590: -- if item has indivisible flag set, then make sure that quantity is integer in
591: -- primary UOM
592:
593: if (( l_indivisible_flag = 'Y' ) AND ( Round(x_primary_quantity,(l_max_decimal_digits-1)) <> TRUNC(x_primary_quantity)) ) then
594: fnd_message.set_name('INV', 'DIVISIBILITY_VIOLATION');
595: raise fnd_api.g_exc_error ;
596: end if;
597:
598: -- if item is serial number controlled, make the qty in primary UOM is integer
600: -- integer in primary uom. Even if specific serial may not be required at the time, the
601: -- qty of a serial number should be integer in primary uom.
602:
603: if ( (l_serial_control > 1 ) AND ( x_primary_quantity <> TRUNC(x_primary_quantity)) ) then
604: fnd_message.set_name('INV', 'SERIAL_QTY_VIOLATION');
605: raise fnd_api.g_exc_error ;
606: end if;
607:
608: if ( l_raise_warning = 1 ) then