Something

CREATE OR REPLACE PROCEDURE PREG1 IS

BEGIN



        HTP.PRINT('<HTML><HEAD><TITLE>AVENTURA TEXTIL S.A.</TITLE></HEAD>

	<BODY><BODY BGCOLOR=#40A0FF>

      <H1>ELIJA LA PARTE DE POLO QUE DESEA LISTAR</H1>

	</BODY><HR>

	<FORM NAME="FORMULARIO" ACTION="PREG1R">

	   Descripcion:<INPUT TYPE="TEXT" NAME="SDESCRIPCION"><BR>

	   PARTE:

	   <SELECT NAME="SPARTEPOLO"> <OPTION VALUE="T">TODOS</OPTION>');

	   FOR C IN (SELECT * FROM TIPOPARTEPOLO) LOOP

	      HTP.PRINT('<OPTION VALUE="'||C.IDTIPOPARTEPOLO||'">'||C.DESCRIPCION||'</OPTION>');

	   END LOOP;

	   HTP.PRINT('</SELECT><BR><BR><BR>

	   <INPUT TYPE="SUBMIT" VALUE="BUSCAR" NAME="SUBMIT">

	   <INPUT TYPE="RESET" VALUE="LIMPIAR">

	   <BR><HR></HTML>');





END preg1;





CREATE OR REPLACE PROCEDURE PREG1R(SDESCRIPCION varchar2 default null, SPARTEPOLO varchar2 default null, submit varchar2 default null) IS

sconsulta varchar2(1000) default '';

type tc is ref cursor;

c tc;

snombre varchar2(100);

spelicula varchar2(100);

stitulo varchar2(100);

sidcartelera varchar2(5);

BEGIN

	sconsulta := 'select DISTINCT PP.IDPARTEPOLO, PP.DESCRIPCION, TP.DESCRIPCION ';

	sconsulta := sconsulta||'from PARTESPOLO PP, TIPOPARTEPOLO TP';

	sconsulta := sconsulta || ' where PP.IDTIPOPARTEPOLO = TP.IDTIPOPARTEPOLO';

	if (SPARTEPOLO <>'T') then

	   sconsulta := sconsulta ||' and PP.IDTIPOPARTEPOLO = '|| SPARTEPOLO;

	end if;

	if (SDESCRIPCION is not null) then

	   sconsulta := sconsulta || ' and UPPER(PP.DESCRIPCION) like UPPER(''%'||SDESCRIPCION||'%'')';

	end if;

	sconsulta := sconsulta || ' order by PP.IDPARTEPOLO';

    HTP.PRINT('<HTML><BODY BGCOLOR=#40A0FF>');

	htp.TABLEOPEN();

	htp.TABLEROWOPEN();

	  htp.print('<TABLE BORDER = "1"><TD>ID PARTPOLO</td><td>DESCRIPCION</td><td>TIPO POLO</td>');

	htp.tablerowclose();

	--htp.print(sconsulta);

	open c for sconsulta;

	loop

	fetch c into snombre, spelicula, stitulo;

	exit when c%notfound;

	  htp.tablerowopen();

	    htp.print('<TD>'||snombre||'</TD><TD>'||spelicula||'</TD><TD>'||stitulo||'</TD>');

	  htp.tablerowclose();

	end loop; 

	htp.tableclose();

	HTP.PRINT('<BR><FORM METHOD="LINK" ACTION="http://inti.lab.inf.pucp.edu.pe:7777/GRUPO13/PREG1">
	<INPUT TYPE="submit" VALUE="REGRESAR">
	</FORM>');DELETE TIPOPUNHO WHERE IDTIPOPUNHO='00001';
DELETE PARTESPOLO WHERE IDPARTEPOLO='00001';
	Htp.print('</HTML>');

END preg1r;



/