You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
920 B
38 lines
920 B
drop table tresultat purge;
|
|
create table tresultat(ligne varchar2(200));
|
|
|
|
declare
|
|
dnumCreneau varchar2(10);
|
|
dhdebut 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
|
|
order by 2;
|
|
|
|
begin
|
|
open CUR;
|
|
fetch cur into dnumCreneau, dhdenut, 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 ;
|
|
end loop;
|
|
close CUR;
|
|
end;
|
|
.
|
|
/
|
|
select * from tresultat;
|
|
|
|
|
|
|