$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