Q5/ws_objects/Ew_bsnobj.pbl.src/f_getrightsize_h.srf

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

forward prototypes
global function decimal f_getrightsize_h (decimal arg_aw, integer arg_ah, decimal arg_bw, decimal arg_bh)
end prototypes

global function decimal f_getrightsize_h (decimal arg_aw, integer arg_ah, decimal arg_bw, decimal arg_bh);Long rslt = 0

IF arg_bw <> 0 THEN
	rslt = arg_bh * (arg_aw / arg_bw)
ELSE
	rslt = arg_ah
END IF

RETURN rslt





end function