SP Inscripcion

CREATE OR REPLACE
PROCEDURE INSCRIBIR_MT(CODIGO INTEGER,MATERIA INTEGER, CICLO INTEGER)
IS
EXISTE_INSCRIPCION INTEGER;
BEGIN
     SELECT COUNT(*) INTO EXISTE_INSCRIPCION  FROM INSCRIPCION WHERE CODALUMNO=CODIGO AND CODMATERIA=MATERIA AND CODCICLO=CICLO
     AND EXTRACT(YEAR  FROM FECHA_INSCRIPCION)=EXTRACT(YEAR  FROM SYSDATE);

     IF (EXISTE_INSCRIPCION=0) THEN

           INSERT INTO INSCRIPCION(CODALUMNO,CODMATERIA,CODCICLO)VALUES(CODIGO,MATERIA,CICLO);

     END IF;

END;
/



CREATE OR REPLACE PROCEDURE  ELIMINAR_INSCRIPCION(CODIGO INTEGER)
IS
BEGIN
          DELETE FROM INSCRIPCION WHERE CODINSCRIPCION=CODIGO;

END;
/