CREATE OR REPLACE PROCEDURE PREG1 IS BEGIN HTP.PRINT('AVENTURA TEXTIL S.A.

ELIJA LA PARTE DE POLO QUE DESEA LISTAR

Descripcion:
PARTE:

'); 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(''); htp.TABLEOPEN(); htp.TABLEROWOPEN(); htp.print(''); htp.tablerowclose(); --htp.print(sconsulta); open c for sconsulta; loop fetch c into snombre, spelicula, stitulo; exit when c%notfound; htp.tablerowopen(); htp.print(''); htp.tablerowclose(); end loop; htp.tableclose(); HTP.PRINT('
');DELETE TIPOPUNHO WHERE IDTIPOPUNHO='00001'; DELETE PARTESPOLO WHERE IDPARTEPOLO='00001'; Htp.print(''); END preg1r; /

ID PARTPOLO

DESCRIPCION

TIPO POLO

'||snombre||'

'||spelicula||'

'||stitulo||'