CREATE OR REPLACE PROCEDURE expande_avisos_emt (seq NUMBER) AS avisow VARCHAR2(2048); usuariow VARCHAR2(100); usuario VARCHAR2(100); fechaw DATE; BEGIN usuario:=portal.wwctx_api.get_user; SELECT DISTINCT usuario,aviso,fecha INTO usuariow,avisow,fechaw FROM AVISOS_EMT WHERE seq_avisos=seq; update AVISOS_EMT set leido = 'S' where seq_avisos = seq; htp.print('
Menu Principal




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


'); htp.print('
Enviado por
Fecha
Contenido
Eliminar
'||usuariow||'
'||fechaw||'
'||avisow||'

Volver

'); END; /