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 32 33 34 35 36
| DECLARE
v_invalid boolean;
cursor c_d is select V.DES_PREST
from PRESTATION V
where V.NUM_PREST=:PREST_VEH.NUM_PREST;
begin
open c_d ;
v_invalid:=c_d%notfound;.
IF v_invalid then null;------------------------------------ (1ER TEST.
else
fetch c_d into :PREST_VEH.PRESTATION; ---(champ prestation du vehicule)
end if;
end;
begin
select H.DES_HUIL,HP.QT_HP
INTO
:PREST_VEH.HUILE,
:PREST_VEH.QTE_H
FROM HUILE_PREST HP,HUILE H
WHERE
H.CODE_HUIL=HP.NUM_HL
AND HP.NUM_COMPM=:PREST_VEH.NUM_COMPM
AND HP.N_CHASS=:PREST_VEH.N_CHASS
AND HP.NUM_PREST=:PREST_VEH.NUM_PREST;
EXCEPTION
WHEN NO_DATA_FOUND ----------------------(2EM TEST...........
THEN NULL;
end;
begin IF EXIST (SELECT num_compm <----------------------(3EM Test c'est la que je bloque???
from piec_prest where
num_compm=:prest_veh.num_compm
and n_chass=:prest_veh.n_chass) then
INSTRUCTION....{select into...
end; |
Partager