1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| create or replace
procedure augmenterPrix
(numType type.ntype%type, numfourn fournisseur.nfourn%type, prctg float) IS
declare
numpiece piece.npiece%type;
cursor curseur_augmenter is
select npiece
from piece
where fournisseur.nfourn = piece.nfourn
and ntype = numtype
and nfourn = numfourn;
begin
open curseur_augmenter;
fetch curseur_augmenter into numpiece;
while curseur_augmenter%found loop
update piece set prixpiece = prixpiece * prctg
where npiece= numpiece;
fetch curseur_augmenter into numpiece;
end loop;
close curseur_augmenter;
end; |
Partager