bonjour,

Je souhaite gérer les erreurs en cas d'accès sur le même enregistrement

J'ai un premier code dans la fin d'initialisation de ma fenêtre societe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 
HSurErreur(Societe,hErrBlocage,"Blocage_Enreg")
 
HLitPremier(Societe)   // Point appel de la gestion du blocage 
IF NOT HTrouve(Societe) THEN HAjoute(Societe)
 
HBloqueNumEnr(Societe,hNumEnrEnCours,hBlocageLectureEcriture)
 
FichierVersEcran()
 
Init_ouverture()
Ce code fait appel à la procédure Blocage_Enreg
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
PROCEDURE Blocage_Enreg()
 
Erreur("Un autre utilisateur est sur la fiche société ")
 
RENVOYER opfintraitement
En cas de blocage de l'enregistrement par la première application , je passe bien dans la procédure de gestion du blocage

Par contre ensuite je voudrais fermer ma fenêtre société automatiquement
Mais celle reste ouverte sans lecture de l'enregistrement et le programme continue sur le code après le hlitpremier sans rien afficher

Comment fermer automatiquement la fenêtre société si je détecte un blocage d'enregistrement ?

Philippe