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

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

forward prototypes
global function decimal f_get_packqty (long arg_mtrlid)
end prototypes

global function decimal f_get_packqty (long arg_mtrlid);decimal lde_packqty

select packqty
into :lde_packqty
from u_mtrldef
where mtrlid = :arg_mtrlid;
if sqlca.sqlcode <> 0 then
	lde_packqty = 0
end if

return lde_packqty
end function