REM **********************************************************************
REM Script  Code source des fonctions stockées
REM Auteur : Fessy Jerome
REM ********************************************************************** 



CREATE OR REPLACE FUNCTION FTauxRemplissage(psem integer) RETURN number IS

NbResa integer;
NbPl integer;

BEGIN
select sum(NbrePlace) into NbResa  from inscription where IdSem = psem;
select NbrePlaceMax into NbPl  from seminaire where IdSem = psem;

Return (NbResa/NbPl)*100;

END;
/
SHOW ERROR;

CREATE OR REPLACE FUNCTION FIsFullSeuil(pId integer, Pseuil integer) RETURN number
IS
BEGIN
IF Ftauxremplissage(Pid)>=Pseuil THEN
return 1;
else return 0;
END IF;
END;
/
SHOW ERROR;

CREATE OR REPLACE FUNCTION FIsFull(PId integer) RETURN number
IS
BEGIN
RETURN FIsFullSeuil(PId,100);
END;
/
SHOW ERROR;