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

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

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

global function decimal f_getrightsize_h_auto (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


if rslt > arg_ah then rslt = arg_ah

RETURN rslt




end function