CREATE OR REPLACE PROCEDURE usuarios_emt(act number,seq number) AS usu varchar(100); datosw varchar2(1024); afpw varchar2(1024); intw varchar2(1024); BEGIN htp.print(' Empresa Malagueña de Transportes. '); if nvl(act,0)=0 then begin htp.print('

Buscar: Pulsa en el icono empleado para iniciar la búsqueda.
Introduce el dato por el que deseas buscar, y vuelve a pulsar el icono.
Utiliza las flechas adelante y atrás para navegar por la selección.
Para la sección de tráfico,el número de sección es el de inspector o agente.

NºEmpresa: Categoría:
Nombre: NºSección:
Apellido 1: Años en EMT:
Apellido 2:
'||chr(38)||'nbsp;
'); usu:=portal.wwctx_api.get_user; /*select nvl(OTROSDATOS,null),nvl(AFP,null),nvl(INT,null) into datosw,afpw,intw from wwsec_person$ where user_name=to_char(0);*/ htp.print('
Otros datos

'||chr(38)||'nbsp;
Aficiones Principales:

'||chr(38)||'nbsp;
Estoy interesado en comunicarme con otros compañeros:

'||chr(38)||'nbsp;
'); end; end if; if nvl(act,0)=1 then declare cursor c1 is select NUM_IDENT,NOMBRE,APELLIDO_1,APELLIDO_2,TARJETA,DNI,ESTRUC,CATEGORIA,ESCALAFON,AÑOS from empleadosportal where num_ident=seq; reg c1%rowtype; controlcursor number; seqw number; seqw2 number; begin select nvl(min(NUM_IDENT),0) into seqw from empleadosportal where num_ident>seq; select nvl(max(NUM_IDENT),0) into seqw2 from empleadosportal where num_ident < seq; if seqw=0 then seqw:=seq; end if; if seqw2=0 then seqw2:=seq; end if; controlcursor:=0; open c1; fetch c1 into reg; htp.print(' Empresa Malagueña de Transportes.

Buscar: Pulsa en el icono empleado para iniciar la búsqueda.
Introduce el dato por el que deseas buscar, y vuelve a pulsar el icono.
Utiliza las flechas adelante y atrás para navegar por la selección.
Para la sección de tráfico,el número de sección es el de inspector o agente.

NºEmpresa: Categoría:
Nombre: NºSección:
Apellido 1: Años en EMT:
Apellido 2:
'); end; end if; END; /