CREATE OR REPLACE PROCEDURE menu_avisos AS usuariow VARCHAR2(100); mensempresa number; mensusuarios number; BEGIN usuariow:=wwctx_api.get_user ; htp.print('

Perfil Asociado:
'); DECLARE CURSOR c1 IS SELECT DISTINCT group_name FROM wwv_user_groups WHERE user_name=usuariow AND SUBSTR(group_name,1,1)!='(' AND group_name NOT IN ('AUTHENTICATED_USERS','DBA','PORTAL_ADMINISTRATORS','PORTAL_DEVELOPERS','PORTLET_PUBLISHERS', 'RW_ADMINISTRATOR','RW_BASIC_USER','RW_DEVELOPER','RW_POWER_USER'); BEGIN if usuariow !='PORTAL' then FOR reg IN c1 LOOP htp.print(''||reg.group_name||' '); end LOOP; else htp.print('
PORTAL'); end if; END; htp.print('_____________

MENSAJES SIN LEER

de empresa'); select nvl(count(*),0) into mensempresa from avisos_emt where destinatario like ''||usuariow||'%' and usuario in ('EMPRESA') AND leido='N'; select nvl(count(*),0) into mensusuarios from avisos_emt where destinatario like ''||usuariow||'%' and usuario not in ('EMPRESA') AND leido='N'; htp.print('

'||mensempresa||'

de compañeros

'||mensusuarios||'

_________________

Enviar mensaje
a un compañero

'); END; /