...
L’appel doit se faire via les fonctions de l’objet métier (voir chapitre plus haut)
Voici un exemple d’une fonction de haut niveau qui expose plusieurs modes de réservation
| Bloc de code |
|---|
;* 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 |
...