PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Mettre son propre message d'erreur d'intégrité lors d'une tentative de suppression
Mettre son propre message d'erreur d'intégrité lors d'une tentative de suppression
Débuté par Smokie68, 24 sep. 2021 05:10 - 2 réponses
#1
Membre enregistré
78 messages
Popularité : +1 (1 vote)
Posté le 24 septembre 2021 - 05:10
Bonjour,

J'ai un problème pour afficher un message personnel lorsqu'on ne peut pas supprimer un enregistrement.
J'ai créé un petit projet pour trouver la solution et j'ai beau essayé je ne trouve pas

J'ai un fichier Ville :
IDVille
Ville (Texte)
IDDépartement

Un fichier Département :
IDDépartement
NumDépartement (Numérique)

Un liaison : Ville (1,1) <-> (0,n) Département

Je supprime volontairement un enregistrement Département dont une Ville pointe dessus, pour provoquer une erreur d'intégrité.

// Positionnement sur l'enregistrement Département pour le supprimer
HLitRecherche(Département,NumDépartemnt,TABLE_REQ_VilleDépartement.COL_NumDépartement)

HGèreIntégrité(Faux)

SI HSupprime(Département) = Faux ALORS
Erreur("Suppression impossible !" +RC + RC …
+ "Une ville pointe sur ce département !")
FIN


Je ne cherche pas à supprimer le contrôle d'intégrité, mais à mettre mon propre message à la place du message système.

Cordialement
#2
Membre enregistré
3 889 messages
Popularité : +227 (347 votes)
Posté le 24 septembre 2021 - 07:14
Bonjour,
Tu traites ça dans ton CAS ERREUR
CAS ERREUR
SELON ErreurInfo(errCode)
CAS 70801 //Erreur d'intégrité (à vérifier)
//Traiter erreur intégrité
AUTRE CAS
Erreur(ErreurInfo(errComplet)
FIN


--
Il y a peut être plus simple, mais, ça tourne
#3
Membre enregistré
113 messages
Popularité : +8 (8 votes)
Posté le 24 septembre 2021 - 08:38
Bonjour,

Ou bien tu débranches la gestion automatique des erreurs d'intégrité :

//Intialisation du projet
HSurErreur("*", hErrIntégrité, "")
HGèreIntégrité(Vrai)


//Code bouton suppression
Si Pas HSupprime(Département)
si HErreurIntégrité()
Erreur("Suppression impossible !" + rc + "Une ville pointe sur ce département")
sinon
//autre erreur (blocage par exemple)
fin
sinon
Info("Suppression OK"
fin
→ Revenir à WINDEV 2024