Q5/ws_objects/Ew_report.pbl.src/f_rst_storagename.srf

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

forward prototypes
global function string f_rst_storagename (long arg_storageid)
end prototypes

global function string f_rst_storagename (long arg_storageid);
String rslt_storagename = ''

IF arg_storageid = -1 THEN
	rslt_storagename = '全部仓库'
ELSE
	SELECT storagename
		INTO :rslt_storagename
		FROM u_storage
		Where storageid = :arg_storageid;
	IF sqlca.SQLCode <> 0 THEN
		rslt_storagename = ''
	END IF
END IF

RETURN rslt_storagename
end function