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; |
