ok

EXOS/Exam2020.tex

@@ -565,7 +565,7 @@ Messages à prévoir :
  \item Le libellé doit être unique
  \item L’équipement a été enregistré : Libellé
  \end{itemize}
-% \lstinputlisting{exo1-FG.sql}
+ \lstinputlisting{exo1-FGL.sql}
  \fi
 \ifnum\versionExo=4
 %PL1
@@ -628,7 +628,7 @@ Messages à prévoir :
 \item Des réservations en cours ou à venir utilisent cet équipement
 \item nb réservations passées ont été supprimées
 \end{itemize}
-% \lstinputlisting{exo2-FG.sql}
+ \lstinputlisting{exo2-FGL.sql}
 \fi
 \ifnum\versionExo=4
 %PL2
@@ -734,7 +734,7 @@ Nombre de joueurs à prévenir : nb
 \begin{center}
  \fbox{    \BUseVerbatim{AffichageFG}}
 \end{center}
- \lstinputlisting{exo3-FG.sql}
+ \lstinputlisting{exo3-FGL.sql}
 \fi
 \ifnum\versionExo=4
 %PL3
@@ -835,7 +835,7 @@ Id réservation : XXXXX		date : XX/XX/XX	Coût des équipements : 9999 euros
     \end{small}
 }
 \end{center}
-%\lstinputlisting{exo4-FG.sql}
+\lstinputlisting{exo4-FGL.sql}
 \fi
 \ifnum\versionExo=4
 %PL4

EXOS/exo4-PL.sql

@@ -1,37 +1,39 @@
 drop table tresultat purge;
 create table tresultat(ligne varchar2(200));
-
 declare
 dnumCreneau varchar2(10);
+didReservation char(3);
 dhdebut number;
+dbenefT number;
+dbenefE number;
 dbenef number;
 dnbjoueur number;
 
-dmessage varchar2(200);
-inexistant exception;
-probleme exception;
-dcpt number;
-dnb number:=0;
-cursor CUR is select CR.numcreneau, CR.hdebut, sum(F.tarifhoraire*R.nbjoueur)+sum(E.tarif*C.nombre), sum(nbjoueur)
-		from creneau CR, facturer F, contenir C, reservation R, equipement E
-		WHERE E.idequipement = C.idequipement
-		AND R.idReserv = C.idReserv
-		AND CR.numcreneau  = R.numcreneau
+cursor CUR is select F.numCreneau, sum(F.tarifHoraire*S.duree) + sum(E.tarif*C.nombre), count(FR.idJoueur)
+from reservation R, creneau CR, facturer F, sport S , faire FR, contenir C, equipement E, terrain T
+WHERE S.nomSport=T.nomSport
+and T.idTerrain=R.idTerrain
+and R.numCreneau=CR.numCreneau
+and CR.numCreneau=F.numCreneau
+and S.nomSport= F.nomSport 
+and FR.idReserv=R.idReserv
+and R.idReserv=C.idReserv
+and E.idEquipement=C.idEquipement
+group by F.numCreneau
 order by 2;
 
+
 begin
 open CUR;
-fetch cur into  dnumCreneau, dhdenut, dbenef, dnbjoueur ;
-while cur%FOUND
+fetch CUR into  dnumCreneau, dbenef, dnbJoueur;
+while CUR%FOUND
 loop 
-	insert into tresultat values('NumCreneau:'||dnumCreneau||'   hdebut :'||'Heure debut:'||dhdebut ||' Benefice:'||dbenef||'  Nb joueurs'||dnbjoueur);
-	fetch cur into  dnumCreneau, dhdenut, dbenef, dnbjoueur ;
+select heureDebut into dhdebut from creneau CR where CR.numCreneau=dnumCreneau;
+insert into tresultat values('NumCreneau:'||dnumCreneau||'  Heure debut:'||dhdebut ||' Benefice:'||dbenef||'  Nb joueurs:'||dnbjoueur);
+fetch CUR into dnumCreneau, dbenef, dnbJoueur;
 end loop;
 close CUR; 
 end;
 .
 /
 select * from tresultat;
-
-
-