si j'utilise la fonction HBloqueNumEnr, je bloque bien mon enregistrement.
si je réutilise HBloqueNumEnr sur un autre fichier sans avoir débloqué mon enregistrement du 1er fichier, ce dernier est automatiquement débloqué.

Comment peut on avoir 2 enregistrements bloqué sur 2 fichiers?

Bonjour,

Ce phenomène me parrait anormale car il doit exister un pointeur et un contexte par fichier.
Par conséquent deux pointeurs dans deux contextes différents l'un ne doit pas empiéter sur l'autre.

Cela mettrait en danger la construction d'application MDI.

Ou bien votre code est mit en cause, ou alors il existe un réelle problème qui je pense aurait été soulevé depuis fort longtemps.

Tests à réaliser....

Quel type de fichier utilisez vous ?

C'est du HF.
J'ai trouvé une solution palliative, qui fonctionne (aprés quelques tests).
J'envoi le code ce soir pour ceux qui le désirent.

Voila:
//Daclarations globales
strBloque est une structure
sNomFic est une chaîne
nNbBloque est un entier
nNumEnr est un entier
FIN
gTstrBloque est un tableau de 0 strBloque


----------------------------------------------

PROCEDURE GLOBALE bBloqueEnr(LOCAL psNomFic est une chaîne)
nInd est un entier
bBloque est un booléen
bRetour est un booléen
nNumEnr est un entier

nNumEnr = HNumEnr(psNomFic)

nInd = TableauCherche(::gTstrBloque,tcLinéaire, "sNomFic;nNumEnr", psNomFic, nNumEnr)

SI nInd <> -1 ALORS
SI ::gTstrBloque[nInd]:nNbBloque = 0 ALORS
bBloque = Vrai
SINON
bBloque = Faux
FIN
::gTstrBloque[nInd]:nNbBloque++
SINON
nInd = TableauAjoute(::gTstrBloque)
::gTstrBloque[nInd]:nNbBloque = 1
::gTstrBloque[nInd]:sNomFic = psNomFic
::gTstrBloque[nInd]:nNumEnr = nNumEnr
bBloque = Vrai
FIN

SI bBloque ALORS
SI ::gTstrBloque[nInd]:nNbBloque = 1 ALORS

HBloqueNumEnr(psNomFic,::gTstrBloque[nInd]:nNumEnr,hBlocageEcriture)

SI PAS HErreurBlocage() ALORS
bRetour = Vrai
SINON
HErreur()
Info("Enregistrement bloqué par un autre poste.")
::gTstrBloque[nInd]:nNbBloque--
bRetour = Faux
FIN
FIN
SINON
bRetour = Vrai
FIN

POUR nInd = 1 A Dimension(::gTstrBloque)
SI ::gTstrBloque[nInd]:nNbBloque > 0 ALORS
SI PAS HBloqueNumEnr(::gTstrBloque[nInd]:sNomFic,::gTstrBloque[nInd]:nNumEnr,hBlocageEcriture) ALORS
SI EnModeTest() ALORS
Info("erreur bloquage : " + RC + HErreurInfo(hErrComplet))
FIN
FIN
SINON
TableauSupprime(::gTstrBloque,nInd)
FIN
FIN

RENVOYER bRetour


-------------------------------------------------


PROCEDURE GLOBALE bDebloqueEnr(LOCAL psNomFic est une chaîne)

nInd est un entier
nNumEnr est un entier

nNumEnr = HNumEnr(psNomFic)

nInd = TableauCherche(::gTstrBloque,tcLinéaire, "sNomFic;nNumEnr", psNomFic, nNumEnr)

SI nInd <> -1 ALORS
SI ::gTstrBloque[nInd]:nNbBloque > 0 ALORS

::gTstrBloque[nInd]:nNbBloque--

SI ::gTstrBloque[nInd]:nNbBloque = 0 ALORS
HDébloqueNumEnr(psNomFic,::gTstrBloque[nInd]:nNumEnr)
FIN
SINON
::gTstrBloque[nInd]:nNbBloque = 0
FIN
FIN

RENVOYER Vrai

@ben-34 et drcharly93
Bonsoir,

Je pense que la variable "psNomFic" membre de la structure (TABLEAU) "gTstrBloque" se comporte comme une instance d'une classe.

Parce que si c'est le cas je cite :

Citation :

J'espère que c'est une idée dans le bon chemin.

Bonne Chance