Actividad 6 BBDD DAM

/*
Actividad 1.
Queremos crear un subprograma que mueva una familia origen a otra de destino,
de la que pasará a ser hija.

Se debe comprobar que la familia destino no es hija de la familia origen.Para ello debemos crear una función recursiva auxiliar que haga dicha
comprobación.
También comprobaremos que tanto la familia origen, como la familia destino
existen (el subprograma aceptará comoparámetros los identificadores de
ambas familias).
Para hacer las comprobaciones de si ambas familias existen se deberá
utilizar un único cursor variable.
Además si la familia origen pertenecía auna oficina deberá dejar de pertenecer
a esa oficina y sólo ser hija de la familia destino.
El subprograma deberá lanzar todos los errores que se puedan producir
en su ejecución mediante errores queidentifiquen con un mensaje adecuado por qué se ha producido dicho error.

*/

CREATE OR REPLACE PROCEDURE moverFamilia(
origen FAMILIAS.IDENTIFICADOR%TYPE,
destino FAMILIAS.IDENTIFICADOR%TYPE)IS
existeOrigen boolean := false;
existeDestino boolean := false;
cursor listaFamilias is (
select identificador from familias
);
filaCursor number(6,0);

FUNCTIONesHijaDe(familiaOrigen FAMILIAS.IDENTIFICADOR%TYPE, familiaDestino FAMILIAS.IDENTIFICADOR%TYPE)
RETURN BOOLEAN
IS
resultado boolean := false;
padreDestino FAMILIAS.IDENTIFICADOR%TYPE;
BEGINselect familia into padreDestino
from familias
where identificador = familiaDestino;

if padreDestino = familiaOrigen then
resultado := true;
elsif padreDestino is not nullthen
resultado := esHijaDe(familiaOrigen, padreDestino);
end if;

return resultado;
END esHijaDe;


//*
Queremos controlar algunas restricciones a la hora de trabajar conagentes:

El usuario y la clave de un agente no pueden ser iguales.
La habilidad de un agente debe estar comprendida entre 0 y 9 (ambos inclusive).
La categoría de un agente sólo puede ser igual a 0, 1 o...