CREATE OR REPLACE PROCEDURE form_avisos_emt (destino VARCHAR2) AS temp VARCHAR2(50); usuario VARCHAR2(60); fecha DATE; seq NUMBER; BEGIN temp:=nvl(destino,null); htp.print('
Menu Principal





Empresa
Empresa
En Números
Noticias
Nuestros Proyectos
Tu Página Personal
Tu Opinion
Tus
Otros
Página de Inicio


'); usuario := wwctx_api.get_user; SELECT seq_avisos.NEXTVAL INTO seq FROM sys.dual; SELECT TO_DATE(SYSDATE,'DD/MM/YYYY') INTO fecha FROM sys.dual; htp.print('

'); else htp.print(''); end if; htp.print('

Destinatario:
'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'); if nvl(temp,null) is null then htp.print('

Escribe tu Mensaje:


Caracteres que faltan:
Usuarios Online '); declare nombre varchar2(60); apell1 varchar2(60); apell2 varchar2(60); nameperson varchar2(30); person wwsec_person%rowtype; cursor c1 is SELECT distinct id, user_name FROM (SELECT COUNT (*) cuantos, b.id, a.user_name, a.ip_address FROM wwctx_sso_session$ a, wwsec_person$ b, wwsec_group$ c WHERE TRUNC (session_start_time) = TRUNC (SYSDATE) and active = 1 and is_logged_on = 1 and a.user_name = b.user_name and a.user_name <> 'PORTAL' and c.ID(+) = b.default_group GROUP BY b.id, b.default_group, a.user_name, a.ip_address ORDER BY a.user_name ); fechamenu varchar2(30); begin nameperson :=portal.wwctx_api.get_user; htp.print('
'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;Usuarios Conectados: '); for reg in c1 loop person := wwsec_api.person_info(reg.id); select distinct nombre,apellido_1,apellido_2 into nombre,apell1,apell2 from info_portal_empleados where num_ident = person.user_name; htp.print(chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||nombre||' '|| apell1||' '|| apell2||''); htp.print('
'); end loop; end; htp.print('

'); END; /