CREATE OR REPLACE PROCEDURE muestra_preguntas_emt (seq NUMBER) AS CURSOR c1 IS SELECT titulo,pregunta,usuario,fecha,seq_pregunta FROM FORO_PREGUNTAS WHERE seq_tema = seq; temp NUMBER; cont NUMBER; aux VARCHAR2(1); perfil varchar2(100); usuariow VARCHAR2(100); BEGIN usuariow:=wwctx_api.get_user ; aux:=CHR(38); htp.print(' Menu Principal




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

'); SELECT COUNT(*) INTO cont FROM FORO_PREGUNTAS WHERE seq_tema = seq; IF cont>0 THEN htp.print(' '); if usuariow > '0' or upper(usuariow)= 'PORTAL' then htp.print(' '); end if; htp.print('
Inserte tema o seleccione para ver respuestas
'); FOR reg IN c1 LOOP select CATEGORIA into perfil from info_portal_empleados where num_ident=reg.usuario; htp.print(''); SELECT COUNT(*) INTO temp FROM FORO_RESPUESTAS WHERE seq_pregunta=reg.seq_pregunta AND seq_tema=seq; htp.print(''); htp.print(''); END LOOP; htp.print('
TEMAS A DEBATE
 FECHA Nº RESPUESTAS
'||reg.pregunta||' '||reg.fecha||''||temp||'
'); ELSE htp.print('

No existen actualmente Temas para este Foro
'); END IF; htp.print('

'); END; /