Merci de m'aider en me corrigeant le prg suivant.

Merci de votre aide.


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
27
28
29
30
31
32
33
34
35
36
37
CREATE OR REPALCE Function Repdossier (w_dossier, w_soccible) return string;
is 
resultat
begin
 
update	ADMINISTRATIF	set	ACTID =w_soccible	
			where dosid = w_dossier;
 
update	DOSSIER	set	ACTIDGESTION =w_soccible
			where dosid = w_dossier;
 
update	LKDOSRUBPOOACT	set	ACTID =w_soccible
				where dosid = w_dossier;
 
update	AROAGERELANCE	set	ACTID =w_soccible
			where dosid = w_dossier;
 
update	TVA	set	ACTID = w_soccible
			where dosid = w_dossier;
 
update	TVADETAIL	set	ACTID = w_soccible
			where dosid=w_dossier;
 
update	IMAADMINISTRATIF	set	ACTDIGESTION = w_soccible
				where dosid = w_dossier;
 
update	IMADOSSIER	set	ACTID	= w_soccible
			where dosid = w_dossier;
 
update	IMALKDOSRUBPOOACT	set	ACTID	=w_soccible
				where dosid=w_dossier;
 
end;
 
return resultat;
 
end function Repdossier;


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
procedure Repdossier;
 
is
 
cursor c_repdossier  repdossier (w_dossier, w_soccible);
 
begin 
 
	OPEN C_repdossier;
 
	Loop
 
	fetch C_repdossier Into resultat;
 
	Exit when C_repdossier%NOTFOUND;
	dbms_output.put_line ('Table mise à jour||
 
	end loop;
 
end;
 
end procedure repdossier;
Message édité par Xo :
- Titre : les indicateurs d'urgence sont interdits !
- Balises codes