CREATE OR REPLACE PROCEDURE usuarios_avisos_emt (destinatario VARCHAR2)
AS
controlexis number;
id number;
usuarioinfo varchar2(250);
nombrew varchar2(250);
cont NUMBER;
temp NUMBER;
total NUMBER;
CONTADOR NUMBER;
cursor c1 is select num_ident from info_portal_empleados;
BEGIN
SELECT COUNT(*) INTO total FROM WWSEC_PERSON$ WHERE user_name NOT IN ('PORTAL','PORTAL_ADMIN','PUBLIC','ORCLADMIN');
cont:=1;
CONTADOR:=1;
controlexis:=1;
htp.print('
Seleccione los usuarios a los cuales
desea enviar un mensaje
');
htp.print('');
FOR reg IN c1 LOOP
SELECT nvl(count(*),0) into controlexis FROM WWSEC_PERSON$ WHERE user_name =to_char(reg.num_ident);
if controlexis=1 then
select num_ident, NOMBRE||' '||Apellido_1||' '||Apellido_2 into id,nombrew from info_portal_empleados where to_char(num_ident)=reg.num_ident;
htp.print('
| '||id||chr(38)||'nbsp; |
'||nombrew||' |
');
cont:=cont+1;
end if;
END LOOP;
htp.print('
');
END;
/