Q5/ws_objects/Ew_mainface.pbl.src/f_getoptionvalue.srf

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

forward prototypes
global function string f_getoptionvalue (string arg_optionid, integer arg_optiontype)
end prototypes

global function string f_getoptionvalue (string arg_optionid, integer arg_optiontype);//arg_optiontype 0:读数据库 1:读ini
string rslt_str

if arg_optiontype=0 then
	select optionvalue into :rslt_str from sys_option where sys_option.optionid=:arg_optionid;
	if sqlca.sqlcode<>0 then
		rslt_str='err'
	end if
else
	rslt_str=f_ProfileString (sys_empid,'sys_option', arg_optionid,'')
	if rslt_str='' then
		rslt_str='err'
	end if
end if

return rslt_str
end function