Discussion :

[wd_newbie]

Bonjour,

J'essaye de remonter proprement une erreur au moyen de ErreurPropage() sur deux niveaux :

(un peu d'indulgence ... je m'essaie a la POO sous WD ...)

Soit une classe parente

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
 
 
MHFSQL est une Classe
 
FIN
 
PROCÉDURE HF_Supprimer(sFichier, sX_ID, nID)
 
bOK est un booléen
 
	HLitRecherchePremier(sFichier,sX_ID,nID)
 
 
SI HTrouve() ALORS 
	SI  HSupprime(Clients) ALORS 
		bOK =  Vrai  
	SINON 
		bOK = Faux 
	FIN
SINON 
 
	bOK = Faux
FIN
 
RENVOYER bOK
 
CAS EXCEPTION:
	ExceptionPropage(ExceptionInfo())
	RENVOYER Faux 
CAS ERREUR:
	ErreurPropage(ErreurInfo())
	RENVOYER Faux

Une classe fille :

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
 
MClientsest une Classe <MAPPING=Clients>
 
	// Le code se trouvant entre <MAPPING> et <FIN> est généré automatiquement.
	// Il sera effacé et recréé entièrement à chaque génération depuis l'analyse.
	<MAPPING>
 
	<FIN>
 
PROCÉDURE Supprimer()
 
SI PAS  Ancêtre:HF_Supprimer("Clients","C_ID", :m_nC_ID) ALORS
	RENVOYER Faux 
SINON 
	RENVOYER Vrai 
FIN
 
FIN

Comment faire dans ma classe fille , pour remonter proprement les erreur dans la fenêtre appelante ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SI PAS gclClient.Supprimer() ALORS 
	DO something ...
SINON 
	ChargerListeClients()
FIN

#

[Voroltinquo]

Bonjour,
Dans un premier temps je e vois pas pourquoi tu écris que tu est débutant en POO, la propagation des erreurs n'a rien à voir avec la POO.
Dans un deuxième temps, ton CAS ERREUR/CAS EXCEPTION est shunté dans la plupart des cas. cf doc, je cite :

Remarques :
Le code de gestion de l'erreur présent dans le traitement en cours est prioritaire sur les traitements automatiques dans les deux cas suivants :
Test d'une fonction de type "SI PAS xxxx = Vrai ou Faux"
Test des erreurs avec la variable ErreurDétectée.

Ton code deviens alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
FONCTION HF_Supprimer(sFichier, sX_ID, nID) :booléen
 
HLitRecherchePremier(sFichier,sX_ID,nID)   //Erreur traitée dans CAS ERREUR
HSupprime(Clients) //Erreur traitée dans CAS ERREUR
 
RENVOYER Vrai
 
CAS EXCEPTION:
	ExceptionPropage(ExceptionInfo())
	RENVOYER Faux 
CAS ERREUR:
	ErreurPropage(ErreurInfo())
	RENVOYER Faux

Si tu veux traiter plus finement tes erreurs/exceptions il faut passer par ErreurDéclenche/ExceptionDéclenche e.g. :

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
 
FONCTION HF_Supprimer(sFichier, sX_ID, nID):booléen
 
HLitRecherchePremier(sFichier,sX_ID,nID)
 
SI HTrouve() ALORS
	SI  HSupprime(Clients) ALORS 
		RENVOYER Vrai 
	SINON 
		ErreurDéclenche(2,"Suppression impossible")
	FIN
SINON 
       ErreurDéclenche(1,"Client non trouvé")
FIN
 
CAS EXCEPTION:
	ExceptionPropage(ExceptionInfo())
	RENVOYER Faux 
CAS ERREUR:
	ErreurPropage(ErreurInfo())
	RENVOYER Faux

Revenons à l'utilisation de ErreurPropage. La propagation se fait vers le niveau n-1 (i.e. le niveau qui a directement appelé la fonction,) dans ton cas la méthode Supprime.
Si tu veux que la propagation se fasse dans le code qui appelle Supprimer, il faut activer la propagation dans Supprimer. e.g.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
FONCTION Supprimer():booléen
Ancêtre:HF_Supprimer("Clients","C_ID", :m_nC_ID)
RENVOYER Vrai
 
CAS EXCEPTION:
	ExceptionPropage(ExceptionInfo())
	RENVOYER Faux 
CAS ERREUR:
	ErreurPropage(ErreurInfo())
	RENVOYER Faux

L'appel de Supprimer se fait alors de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
SI PAS gclClient.Supprimer() ALORS 
	ErreurDéclenche(ErreurInfo(errCode),ErreurInfo(errMessage)
SINON 
	ChargerListeClients()
FIN
CAS ERREUR 
     Erreur(ErreurInfo())

[wd_newbie]

Dans un premier temps je e vois pas pourquoi tu écris que tu est débutant en POO, la propagation des erreurs n'a rien à voir avec la POO.

C'était plus par rapport au code (spaghetti ...) des classes, c'est pour des tests didactiques

Après lecture et mise en application de tes exemples c'est nettement plus élégant et fonctionnel !

J'ai juste un truc que je trouve bizarre :

quand je crée une erreur au niveau de la suppression :

- si je mets le code avec ErreurDeclenche(mon code d'erreur), le CAS ERREUR n'est pas exécuté.
- si je le remplace ErreurDeclenche() par Erreur( mon code d'erreur) , j'ai bien l'erreur "Client non trouvé", mais affiché 2 deux fois

---------------------------
Clients liste
---------------------------
1

Client non trouvé

Client non trouvé
---------------------------
OK
---------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
gclClient = TABLE_REQ_Clients_Liste
SI OuiNon(Non,"Supprimer le client " + gclClient.m_sC_Nom + " ?") = Non ALORS 
	RETOUR
FIN
SI PAS gclClient.Supprimer() ALORS 
	ErreurDéclenche(ErreurInfo(errCode),ErreurInfo(errMessage)) 
SINON 
	ChargerListeClients()
FIN
 
 
CAS ERREUR:
    Erreur(ErreurInfo())

Merci pour ton aide

[Voroltinquo]

Au temps pour moi. J'avais repris ton squelette de code sans réfléchir. Le fait de tester le résultat shunte le traitement automatique, comme je l'avais signalé dans ma deuxième remarque.
Si gclClient.Supprimer() renvoie Faux, c'est qu'une erreur a été détectée en amont donc on "saute" vers le CAS ERREUR/CAS EXCEPTION
Il faut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
gclClient.Supprimer()//Si faux, il y a une erreur/exception et ChargeListeClients n'est pas exécuté
ChargerListeClients()

[wd_newbie]

Avec ton dernier message, c'est parfait, un grand merci à toi.

Et je viens de comprendre mes doubles messages d'erreur :

Selon la doc:

ExceptionPropage([<Message>])
<Message> : Chaîne de caractères optionnelle pouvant être ajouté à l'erreur.

En mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ExceptionPropage(ExceptionInfo())

Je rajoutais le message d'erreur ... au message d'erreur :-) , sur trois niveaux avec l'héritage, je me retrouvais avec 3 x le message concaténé