Bonjour,
J'ai décidé de gérer toutes mes erreurs dans une popUp avec un libellé et un bouton OK !
Lequel Libellé que je change en gonction de l'erreur. Cependant impossible de modifier le libellé je ne comprend pas pourquoi. J'ai testé avec ..Libellé et ..Valeur mais ça ne fonctionne pas :
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 PROCEDURE LitSocket(nomSocket) sMessageLu est une chaîne sNomUser est une chaîne SI EnModeTest() ALORS //On lit le message socket reçu on est en mode test sur l'ordinateur sMessageLu =SocketLit(nomSocket,Faux, 20) SINON //On lit le message socket reçu en le convertissant en Ansi pour que le terminal puisse le comprendre si on est sur le pocket PC sMessageLu =AnsiVersUnicode(SocketLit(nomSocket,Faux, 20)) FIN SELON sMessageLu CAS "Deco" //Erreur("Attention le serveur n'est plus connecté !!") Ouvre(Popup_Erreur) Popup_Erreur.LIB_Erreur..Valeur = "Attention le serveur n'est plus connecté" FichierLog("Serveur déconnecté", "Serveur déconnecté") RENVOYER 0 CAS "INTROUVABLE" //Erreur("Code utilisateur inconnu") Ouvre(Popup_Erreur) Popup_Erreur.LIB_Erreur..Valeur = "Code utilisateur inconnu" FichierLog("Code Utilisateur inconnu", "Code Utilisateur inconnu") RENVOYER 0 AUTRE CAS RENVOYER sMessageLu FIN
Partager