Discussion :

[abdel54]

Voici m'a fonction et un curseur est ce que quelqu'un pourrai m'expliquer comment faire clairement le truc
Merci

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
 CREATE OR REPLACE 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	TVADECLARATION	set	ACTID	= w_soccible	where actid=w_actid;
 
update	TVA	        set	ACTID	= w_soccible	where dosid=w_dossier;
 
update	TVADETAIL	set	ACTID   = w_soccible    where dosid=w_dossier;
 
update	AUDITECRITURE	set	AECACTCODESC = w_soccible	where dosid=w_dossier;
 
update	AUDITECRITURE	set	AECEMPACTCODESOC = w_soccible	where dosid=w_dossier;

ET maintenant le curseur

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
Declare 
 
Cursor CActeur is Select Actid from     where dosid = w_dossier;
 
w_act  Varchar;
 
 
Begin
 
	Open Cacteur;
 
 
		Loop
 
 
			Fetch CActeur into w_act
			exit when (CActeur%Notfound)
 
		End loop;
 
	close CActeur;
 
 
 
End;

[plabrevo]

Dans la fonction stockee:

• - je pense que c'est une typo, il manque un "END;",
  - resultat est une variable declaree sans utilite,
  - il n'est pas optimal de placer deux updates avec les meme clauses de recherche, lorsqu'un seul suffirait,
  - personnellement, je n'aime pas les update simple sans alimentation de colonnes d'audit et de trace (qui a mis a jour et quand).

Dans le bloc anonyme

• - la variable w_dossier est sans doute importante mais n'est visiblement pas alimentee correctement,
  - Manque un ';' apres la fonction exit,
  - Sans doute que l'appel a la fonction, si c'est la question posee, devra etre place avec le test EXIT de fin de boucle.

Essaye d'executer ce code dans une base oracle et les problemes de syntaxes devraient clairement apparaitre. L'instruction pour afficher les erreurs est SHOW ERROR, a placer a la fois apres la comnande de creation de la fonction et celle d'execution du bloc anonyme.

Bon courage.