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
| declare
cursor cc is
select deposer.idp,deposer.dtr,deposer.dts,produit.desp,produit.etat
from deposer,produit
where (deposer.idcli=:bl.idcli)and(produit.idp=deposer.idp)and(deposer.dts='01-mars-1000');
v1 DEPOSER.idp%type;
v2 deposer.dtr%type;
v3 produit.desp%type;
v4 produit.etat%type;
v5 deposer.dts%type;
begin
open cc;
loop
fetch cc into v1,v2,v5,v3,v4 ;
go_block('deposer');
:deposer.idp:=v1;
:deposer.dtr:=v2;
:deposer.prod:=v3;
:deposer.etat:=v4;
:deposer.dts:=:bl.dts;
exit when cc%NOTFOUND;
create_record;
end loop;
clear_record;
close cc;
end; -- rmq: ça marche-- |
Partager