Q5/ws_objects/Oa_workremind.pbl.src/f_oa_workremind.srf

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

forward prototypes
global function integer f_oa_workremind ()
end prototypes

global function integer f_oa_workremind ();//检查自定义提醒

uo_oa_workremind u_wrm
u_wrm = CREATE uo_oa_workremind
String ls_wrmList,arg_msg,ls_funcname
String ls_wrmId[],ls_showMsg = ''
Long cnt,cnt2,ll_funcid,cnt_notice
s_userworkremindrslt ls_result[] ,empty[]
//得到用户订阅列表
IF NOT u_wrm.uf_get_userworkremind(REF ls_wrmList,publ_userid,REF arg_msg) THEN
	RETURN 0
END IF

f_oa_workremind_splitstr(ls_wrmList,',',ls_wrmId)

IF UpperBound(ls_wrmId) > 0 THEN
	RETURN 1
ELSE
	RETURN 0
END IF







end function