Propagation des erreurs

Version imprimable

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:

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:

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:

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

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 :

Citation:

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:

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:

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:

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:

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())

Citation:

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:

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

16/12/2022, 18h15
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:

1 2 3 gclClient.Supprimer()//Si faux, il y a une erreur/exception et ChargeListeClients n'est pas exécuté ChargerListeClients()
19/12/2022, 12h29
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:

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é