Q5/ws_objects/Ew_mrp.pbl.src/f_option232_qty.srf

$PBExportHeader$f_option232_qty.srf
global type f_option232_qty from function_object
end type

forward prototypes
global function decimal f_option232_qty (decimal arg_qty)
end prototypes

global function decimal f_option232_qty (decimal arg_qty);Decimal ld_target

IF sys_option_produce_dec >= 0 THEN
	ld_target =  Round(arg_qty,sys_option_produce_dec)
ELSEIF sys_option_produce_dec = -1 THEN
	ld_target = Ceiling(arg_qty)
ELSEIF sys_option_produce_dec = -2 THEN
	ld_target = int(arg_qty)
END IF

return ld_target
end function