msg
j'ai une form contenant deux Blocks B1(items: :B1.idcli, :B1.dts) --non basé--
et B2(items: :B2.idcli, :B2.idp, :B2.dtr, :B2.dts)

le block B2 est basé sur la table DEPOSER(idcli,idP,dtr,dts);
B2 contient une requete pour sélectionner dans la table "DEPOSER" tous les prds déposés par le Client :B1.idcli

prg: avec un déclencheur When-new-block
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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--
Prb: Je veux modifier la date "dts" dans la table "DEPOSER" de chaq produit restitué,
à l'execution il me signale FRM-40508
Merci bien