1234567891011121314151617181920212223242526 |
- $PBExportHeader$f_profilestring.srf
- global type f_profilestring from function_object
- end type
- forward prototypes
- global function string f_profilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue)
- end prototypes
- global function string f_profilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue);//String ls_itemvalue
- //
- //SELECT itemvalue
- // INTO :ls_itemvalue
- // FROM sys_user_filestring
- // WHERE empid = :arg_empid
- // AND dwname = :arg_dwname
- // AND itemname = :arg_itemname;
- //IF sqlca.SQLCode <> 0 THEN
- // ls_itemvalue = arg_itemvalue
- //END IF
- //
- //RETURN ls_itemvalue
- //
- return ProFileString(sys_fx_positon, arg_dwname, arg_itemname, arg_itemvalue)
- end function
|