CREATE OR REPLACE PROCEDURE PREG2 IS
BEGIN
HTP.PRINT('<HTML><HEAD><TITLE>AVENTURA TEXTIL S.A.</TITLE></HEAD>
<BODY><BODY BGCOLOR=#40A0FF>
<H1>INGRESA UNA NUEVA PARTE DE POLO</H1>
</BODY><HR>
<FORM NAME="FORMULARIO" ACTION="PREG2R">
DESCRIPCION <INPUT TYPE="TEXT" NAME="SDESCRIPCION"><BR>
PARTE DEL POLO
<SELECT NAME="SPARTEPOLO">');
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="REGISTRAR" NAME="SUBMIT">
<INPUT TYPE="RESET" VALUE="LIMPIAR">
<BR><HR></HTML>');
END preg2;
/
CREATE OR REPLACE PROCEDURE PREG2R
(SDESCRIPCION PARTESPOLO.DESCRIPCION%TYPE,
SPARTEPOLO TIPOPARTEPOLO.IDTIPOPARTEPOLO%TYPE,
SUBMIT VARCHAR2 DEFAULT NULL) IS
CODPARTEPOLO PARTESPOLO.IDPARTEPOLO%TYPE;
nerror number;
nmenerror varchar2(100);
BEGIN
SELECT TO_CHAR(S_IDPARTEPOLO.NEXTVAL,'FM00000') INTO CODPARTEPOLO FROM DUAL;
INSERT INTO PARTESPOLO (IDPARTEPOLO, DESCRIPCION, IDTIPOPARTEPOLO) VALUES (CODPARTEPOLO,SDESCRIPCION,SPARTEPOLO);
COMMIT;
IF SPARTEPOLO='01' THEN
INSERT INTO TIPOPUNHO (IDTIPOPUNHO) VALUES (TO_CHAR(S_IDPARTEPOLO.CURRVAL,'FM00000'));
END IF;
IF SPARTEPOLO='02' THEN
INSERT INTO TIPOMANGA (IDTIPOMANGA) VALUES (TO_CHAR(S_IDPARTEPOLO.CURRVAL,'FM00000'));
END IF;
IF SPARTEPOLO='03' THEN
INSERT INTO TIPOCUERPO (IDTIPOCUERPO) VALUES (TO_CHAR(S_IDPARTEPOLO.CURRVAL,'FM00000'));
END IF;
IF SPARTEPOLO='04' THEN
INSERT INTO TIPOCUELLO (IDTIPOCUELLO) VALUES (TO_CHAR(S_IDPARTEPOLO.CURRVAL,'FM00000'));
END IF;
COMMIT;
HTP.PRINT('<HTML><BODY BGCOLOR=#40A0FF>LA PARTE DEL POLO SE REGISTRO CON EXITO CON EL CODIGO:'||CODPARTEPOLO);
HTP.PRINT('<BR><BR><FORM METHOD="LINK" ACTION="http://inti.lab.inf.pucp.edu.pe:7777/GRUPO13/PREG2">
<INPUT TYPE="submit" VALUE="REGRESAR">
</FORM><BODY></HTML>');
EXCEPTION
WHEN OTHERS THEN
nerror := sqlcode;
nmenerror := substr(sqlerrm,1,100);
HTP.PRINT('<HTML><BODY BGCOLOR=#40A0FF>OCURRIO UN ERROR AL REGISTRAR LA PARTE '||nerror||' - '||nmenerror);
HTP.PRINT('<BR><BR><FORM METHOD="LINK" ACTION="http://inti.lab.inf.pucp.edu.pe:7777/GRUPO13/PREG2">
<INPUT TYPE="submit" VALUE="REGRESAR">
</FORM></BODY></HTML>');
END PREG2R;
/