FXApp/ws_objects/l1_uo_pc.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