1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Declare
cursor demandeM is
select dm_four, dm_just, dm_centre, dm_benef, dm_imp, dm_tva, sig_option
from demande
where rtrim(dm_numero)= :dm_numero;
Cursor MaterielD is
Select ma_qte, ma_desig, ma_pu, ma_obs, sum(ma_qte*ma_pu) as ma_montant
from materiel
where rtrim(dm_numero) = :dm_numero
group by ma_qte, ma_desig, ma_pu, ma_obs;
begin
:system.message_level := 5;
open demandeM;
fetch demandeM into :dm_four, :dm_just, :dm_centre, :dm_benef, :dm_imp, :dm_tva, :sig_option;
if demandeM%found then
open MaterielD;
fetch MaterielD into :ma_qte, :ma_desig, :ma_pu, :ma_obs, :ma_montant;
while MaterielD%found loop
fetch MaterielD into :ma_qte, :ma_desig, :ma_pu, :ma_obs, :ma_montant;
end loop;
else
go_item('dm_four');
end if;
close demandeM;
Close MaterielD;
end; |
Partager