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

INGRESA UNA NUEVA PARTE DE POLO

DESCRIPCION
PARTE DEL POLO



'); 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('LA PARTE DEL POLO SE REGISTRO CON EXITO CON EL CODIGO:'||CODPARTEPOLO); HTP.PRINT('

'); EXCEPTION WHEN OTHERS THEN nerror := sqlcode; nmenerror := substr(sqlerrm,1,100); HTP.PRINT('OCURRIO UN ERROR AL REGISTRAR LA PARTE '||nerror||' - '||nmenerror); HTP.PRINT('

'); END PREG2R; /