L’ERP gère au niveau de la couche de programmation la notion de “réservation d’entité” qui consiste à poser un verrou logique sur une entité afin d’en garantir la cohérence ou la non-modification.
Exemple : soit une entité “sous-fiche dossier” qui comporte un compteur incrémental. Afin de garantir que l’information portée par cette fiche est ‘juste’ et ‘actuelle’, les fonctions de réservations d’entités vont permettre de demander à obtenir un accès exclusif temporaire.
Les 4 fonctions de réservation d’entité
Lock / Réservé : L’accès est exclusif. Un autre ne peut pas réserver une entité déjà réservée
Share / Partagé : Plusieurs peuvent partager la même entité
Unlock / Libérer : Libération
Shift / Forcé : Permet de réserver une entité même si elle est déjà partagée par d'autres. On peut passer en Lock/Réservé puis passer en mode forcé puis revenir en mode partagé.
Toutes ces opérations passent en pratique par un chaîne de caractères qui doit donc être construite en combinant des éléments qui représente l’entité et sa clé primaire. Cette chaîne de caractères est principalement construite par l’objet métier dans les fonctions ortho-nommées:
Get_xxx_reservation : construit une chaîne unique représentant le dossier courant, l’entité et la clé primaire de l’entité
Reservation_XXX_Lock (entité mémoire) ou Res_XXX_Lock (clé primaire)
Reservation_XXX_Shift (entité mémoire) ou Res_XXX_Shift (clé primaire)
Reservation_XXX_Share (entité mémoire) ou Res_XXX_Share (clé primaire)
Reservation_XXX_UnLock (entité mémoire) ou Res_XXX_UnLock (clé primaire)
LOCK (demande de verrou)
La fonction “lock” permet de réserver une entité. Cela se traduit en général par une boucle d’attente pour l’obtention du verrou, qui peut être interrompue par un temps d’attente maximal ou une action utilisateur, et pour la quelle le demandeur du verrou peut indiquer s’il souhaite attendre ou non.
public function int A5_Proc_Lock_SQL_ (instanceRecordSql, Applic, item, err, txt, f) ; Cette fonction est utilisée pour réserver l'entité "item" à l'endroit désigné par "tdf". ; "err" <> 0 provoque le bouclage tant que l'opérateur n'a pas abandonné. ; "err" = 0 n'entraîne que 10 secondes (en interactif) ou 10 minutes (en batch) de bouclage. ; le paramètre "txt" est utilisé en tant que "p3" pour l'affichage du message d'erreur. ; Le paramètre "f" permet de modifier le fonctionnement : ; - si f = nostatus, la fonction ne rend la main que si réservation ok. ; - si f = nowait, la fonction rend immédiatement la main après le premier essai. ; 0 ok ; <> 0 échec de la réservation RecordSqlPtr instanceRecordSql 1 applic >A5DD.dhsd Ap ; Nom de l'application 1 item S ; chaîne à réserver (par adresse, mais non modifié) 1 err 5,0= 0 ; numéro du message d'erreur 1 txt 256= ' ' ; texte complément du message d'erreur 1 f N = 0 ; 0 pour fonctionnement normal ; nostatus pour retour que si ok ; nowait pour retour immédiat si réservé
UNLOCK (libération de verrou)
La fonction “unlock” permet de réserver une entité, réservée ou partagée
;* public function int A5_Proc_Unlock_SQL_ (instanceRecordSql, item) ; Cette fonction permet de libérer une entité. ; 0 ok ; <> 0 échec de la libération RecordSqlPtr instanceRecordSql 1 item 256 ; chaîne à libérer
SHARE (demande de partage)
La fonction “share” permet de partager une entité. Le mécanisme est similaire au LOCK sauf qu’il n’y a pas de verrou à l’issue.
;* public function int A5_Proc_Share_SQL_ (instanceRecordSql,Applic, item, err, txt, f) ; Cette fonction est utilisée pour partager l'entité "item" à l'endroit désigné par "tdf". ; "err" <> 0 affiche un message et permet à l'opérateur d'abandonner ou de réessayer si f<>NoStatus ; "err" = 0 n'entraîne que 10 secondes (en interactif) ou 10 minutes (en batch) de bouclage. ; le paramètre "txt" est utilisé en tant que "p3" pour l'affichage du message d'erreur. ; Le paramètre "f" permet de modifier le fonctionnement : ; - si f = nostatus, la fonction ne rend la main que si partage ok. affiche un message si err<> 0. ; - si f = nowait, la fonction rend immédiatement la main après le premier essai.pas de message possible. ; ; 0 ok ; <> 0 échec du partage RecordSqlPtr instanceRecordSql 1 applic >A5DD.dhsd Ap ; Nom de l'application 1 item 256 ; chaîne à partager 1 err 5,0= 0 ; numéro du message d'erreur 1 txt 256= ' ' ; texte complément du message d'erreur 1 f N = 0 ; 0 pour fonctionnement normal ; nostatus pour retour que si ok ; nowait pour retour immédiat si réservé
SHIFT (Transfert forcé)
La fonction “shift” permet de réserver une entité après une opération de partage. Le mécanisme est similaire au LOCK.
public function int A5_Proc_Shift_SQL_ (instanceRecordSql, Applic, item, err, txt, f) ; Cette fonction est utilisée pour réserver l'entité "item" après un partage. ; "err" <> 0 provoque le bouclage tant que l'opérateur n'a pas abandonné. ; "err" = 0 n'entraîne que 10 secondes (en interactif) ou 10 minutes (en batch) de bouclage. ; le paramètre "txt" est utilisé en tant que "p3" pour l'affichage du message d'erreur. ; Le paramètre "f" permet de modifier le fonctionnement : ; - si f = nostatus, la fonction ne rend la main que si réservation ok. ; - si f = nowait, la fonction rend immédiatement la main après le premier essai. ; Cas particulier G3 à vérifier : ; si err = 0 et txt = ' ' et f = nostatus, la fonction boucle jusqu'au succès. ; 0 ok ; <> 0 échec de la réservation RecordSqlPtr instanceRecordSql 1 applic >A5DD.dhsd Ap ; Nom de l'application 1 item 256 ; chaîne à partager 1 err 5,0= 0 ; numéro du message d'erreur 1 txt 256= ' ' ; texte complément du message d'erreur 1 f N = 0 ; 0 pour fonctionnement normal ; nostatus pour retour que si ok ; nowait pour retour immédiat si réservé
Comment appeler - exemple d’appel
L’appel doit se faire via les fonctions de l’objet métier (voir chapitre plus haut)
Voici un exemple
;* Public Procedure Maj_Compteur_article(ref,cpt,ReserverArt) ; Mise à jour d'une comptauer article pour quantité 'cpt' 1 ref >GTFDD.dhsd REF ; référence article 1 cpt >GTFDD.dhsd RESQTE ; quantité 1 ReserverArt 1,0 ; =0 si pas de résevation,= 1 si RES, =2 si shift 1A x X ; retour de fonction BeginP if cpt <> 0 ; met à jour le compteur article switch ReserverArt case 1 x = Res_Art_Lock( ref, 0, NoWait) if x = H_RESERVED x = Res_Art_Shift ( ref, 0, NoWait) ReserverArt = 2 ; Pour remettre en l'état endif case 2 x = Res_Art_Shift( ref, 0, NoWait) default x = 0 endswitch if x = 0 if Seek_ARTicle(RS_Article,ref) = 0 RS_Article.CptA = cpt Update_Article(RS_Article) endif switch ReserverArt case 1 Res_Art_Unlock(ref) case 2 Res_Art_Share(ref) endswitch else Log_Ano(2269,ref) endif endif EndP