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

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

forward prototypes
global function long wf_get_storage_mtrlprp (long arg_storageid)
global function long f_get_storage_mtrlprp (long arg_storageid)
end prototypes

global function long wf_get_storage_mtrlprp (long arg_storageid);long ll_rst_mtrlprp

select mtrlprp into :ll_rst_mtrlprp
from u_storage
where storageid = :arg_storageid;
if sqlca.sqlcode <> 0 then
	ll_rst_mtrlprp = -1
end if

return ll_rst_mtrlprp
end function

global function long f_get_storage_mtrlprp (long arg_storageid);Long ll_rst_mtrlprp

SELECT mtrlprp INTO :ll_rst_mtrlprp
	FROM u_storage
	Where storageid = :arg_storageid;
IF sqlca.SQLCode <> 0 THEN
	ll_rst_mtrlprp = -1
END IF

RETURN ll_rst_mtrlprp

end function