CREATE OR REPLACE procedure visualiza_opinion(seq_comentario number) as seq number:=seq_comentario; usuario varchar2(100); usu varchar2(100); fech date; comenta varchar2(1024); begin if seq is not null then select usuario,fecha,comentario into usuario,fech,comenta from comentarios where seq_comentario = seq; select nombre||' '||apellido_1||' '||apellido_2 into usu from info_portal_empleados where num_ident = usuario; end if; htp.print('
Menu Principal

'); declare usuariow varchar2(100); fecha varchar2(40); ano varchar2(30); dia varchar2(20); mes varchar2(20); begin htp.print(' '); select to_char(sysdate,'DD')into fecha from dual; select to_char(sysdate,'Month')into mes from dual; select to_char(sysdate,'Day')into dia from dual; select to_char(sysdate,'YYYY') into ano from dual; usuariow:=portal.wwctx_api.get_user; if usuariow!='PORTAL' then select NUM_IDENT||' '||nombre||' '||apellido_1||' '||apellido_2 into usuariow from info_portal_empleados where num_ident=usuariow; end if; htp.print(usuariow||' | '||dia||', '||fecha||' de '||mes||' de '||ano); end; htp.print('


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

Fecha '||to_char(fech,'dd-mm-yy')||'
La Opinion de.....
'||usu||'

'||chr(38)||'nbsp;
'||chr(38)||'nbsp;