Bonjour,
J'exécute un traitement via un bouton en mode serveur, le traitement s'exécute bien mais le info("trouvé") n'a aucun effet....
Merci pour votre aide
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
33
34
35
36
37 SI SAI_MotDePasse1 <> SAI_MotDePasse2 ALORS LIB_erreur..Visible = Vrai RETOUR SINON resproc est une chaîne resproc = VerifyisUser(SAI_E_mail) userid = ExtraitChaîne(resproc,1,";") tableuser = ExtraitChaîne(resproc,2,";") SI tableuser = "Admin" ALORS HLitRecherchePremier(MobileIDadmins,IDMobileIDadmins,userid) SI HTrouve(MobileIDadmins) ALORS Info("trouvé") MobileIDadmins.Password = SAI_MotDePasse1 HModifie(MobileIDadmins,hNumEnrEnCours) Info("mot de passe mis à jour") PageUtilise(PAGE_MobileID_connect) SINON Erreur("erreur de mise à jour") FIN FIN SI tableuser = "Operator" ALORS HLitRecherchePremier(MobileIDoperators,IDMobileIDoperators,userid) SI HTrouve(MobileIDoperators) ALORS MobileIDoperators.Password = SAI_MotDePasse1 HModifie(MobileIDoperators,hNumEnrEnCours) PageUtilise(PAGE_MobileID_connect) SINON Erreur("erreur de mise à jour") FIN FIN Info("erreur de traitement") RETOUR FIN
Partager