CREATE OR REPLACE PROCEDURE alta_proy(
                    pcodi NUMBER,
                    pnom PROJECTES.NOM_PROJ%TYPE,
                    ppreu NUMBER,
                    pdatai DATE,
                    pdatap DATE)
IS
miError EXCEPTION;
PRAGMA EXCEPTION_INIT(miError, -2291);
BEGIN
INSERT INTO PROJECTES
        VALUES(pcodi, pnom, ppreu,pdatai,pdatap, 58,NULL);
EXCEPTION
WHEN miError THEN
    DBMS_OUTPUT.PUT_LINE('Error. clave foranea inexistente');
END;
/