CREATE OR REPLACE Procedure LOG_SERVICIOS as
USER VARCHAR2(50);
CATEW VARCHAR2(50);
NOMBREW VARCHAR2(50);
APELLIDO_1W VARCHAR2(50);
CATEGORIAW VARCHAR2(50);
XXX VARCHAR2(50) DEFAULT 'USERID=servicios/servicios@gemt.emtsam.net';

begin


USER:=wwctx_api.get_user;
XXX:='USERID=servicios/servicios@gemt.emtsam.net';

select NUM_IDENT,ESTRUC,NOMBRE, APELLIDO_1, CATEGORIA into USER, CATEW, NOMBREW, APELLIDO_1W,CATEGORIAW from info_portal_empleados where NUM_IDENT=USER;

IF CATEW=03003 THEN

htp.print

 ('
 
  <a href="http://webserver.emtsam.net/forms90/f90servlet?config=webutil&form=c:\programas\servicios\infoagente.fmx&buffer_records=NO&debug_messages=NO&array=YES&query_only=NO&quiet=NO&RENDER=YES&separateframe=false&width=1024&'||XXX||'">
  servicios
  </a> 
  
 ');
ELSE

htp.print

 ('
 
  Tu no eres Agente Unico. Tu eres '||nombrew||' '||apellido_1w||' y eres '||categoriaw||'
 
 ');

END IF;
exception
when others then
    null;
end;
/