Fonctionnement ( Sélection sur Table )

Description

Ce modèle est appelé depuis le menu contextuel d'un champ saisissable, pour ouvrir une fenêtre de sélection, ou en première partie d'un traitement standard, ou encore depuis une fonction. Dans le cas d'une sélection sur menu contextuel d'un champ, cette fenêtre va contenir toutes les valeurs possibles du champ, ainsi que des informations complémentaires. Si ce modèle est placé en phase initiale du traitement standard, les actions sont à écrire dans le traitement contenant les actions du traitement standard.

Les informations sont récupérées d'une seule table ou classe [F] issue d'un Link. A un enregistrement correspondra une ligne dans la fenêtre de sélection. La fenêtre peut contenir 15 colonnes  maximum. Le nombre d'enregistrements affichés est en fonction du paramètre utilisateur NBRCHOOSE. 

Nous avons deux méthodes pour construire cette fenêtre :

   soit lorsque la table est gérée par un OBJet, de faire directement appel à la liste de sélection paramétrée dans cet OBJet. Dans ce cas, il y a juste à préciser l'OBJet à utiliser.

   soit nous construisons la fenêtre. 

On pourra, de plus, préciser au modèle, comment afficher cette fenêtre :

   sélection de tout ou partie des enregistrements de la table

   tri des enregistrements dans la fenêtre ( sur quel champ, et dans quel sens )

  position du curseur dans la fenêtre

  taille de la fenêtre

  gestion de la pagination

La pagination 

Elle est automatique lorsque la fenêtre est construite avec la descrition objet.

Dans l'autre cas de figure, on a la possibilité de déclencher l'automatisme de pagination par le superviseur en positionnant DEFPAG=1 dans l'action SEL_TABLE ou de prendre en charge le développement de la pagination par l'action BOUT_TABLE.      

Les traitements

Le modèle est un traitement superviseur qui fait appel à deux traitements annexes : le traitement standard et le traitement spécifique, s'il sont renseignés dans le dictionnaire de l'action. Ces deux traitements Sont structurés de la même façon, c'est à dire qu'ils commencent par une étiquette ACTION, qui traite les différents évènements susceptibles d'arriver lors de l'exécution de la fonction.

Le traitement standard
Ce traitement, fourni par ADONIX, ne doit absolument pas être modifié par le spécifique. 

Le traitement spécifique
Ce traitement n'est pas fourni par Adonix, mais il peut être développé en spécifique (à la fois pour des fonctions standards pour lesquelles on désire faire des ajouts et pour les fonctions spécifiques). 

Les Actions

Le traitement standard ou spécifique comment donc par cette étiquette $ACTION à écrire de la façon suivante ( ou XXXXXX est le code de l'évènement ) : 

$ ACTION
Case ACTION
   When "XXXXXX" : Gosub XXXXXX
   When default
Endcase
Return

Chaque événement est identifié par un code alphanumérique, contenu dans la variable ACTION. S’il n’y a pas de traitement pour un événement, le fonctionnement de la fonction n'en sera pas entravé. C'est dans le sous-programme $ACTION, que l'on fait l'aiguillage vers l'étiquette ajoutée. On précisera dans cette syntaxe "case ACTION", autant de lignes qu'il y a d'évènements à compléter. Le $ACTION est appelé du traitement superviseur par GOSUB ; Cela permet donc d'utiliser des variables locales au traitement superviseur. 

On trouvera ci-joint la liste des actions. On trouvera ensuite,  la description détaillée de ces actions. On y décrit le contexte appelant et l'OBJectif de ces actions.

Ajout d'actions spécifiques sur le standard

Par défaut, pour un même évènement, l'action spécifique est appelée avant l'action standard. 

Elle peut annuler et remplacer l'action standard si elle positionne la variable GPE à la valeur 1. 

Pour exécuter l'action standard avant l'action spécifique, dans ce cas, on duplique le traitement standard dans l'action spécifique, on y ajout le traitement spécifique puis on positionne la variable GPE à la valeur 1. Exemple :

Traitement superviseur
GPE=0
Gosub  ACTION  From  trait_std              ( appel du standard )
If GPE=0
   Gosub  ACTION  From  trait_spé.            ( appel du spécifique )
Endif

Traitement spécifique
$ ACTION
Case ACTION
   When "OUVRE" : Gosub OUVRE
   When default
Endcase
Return

$OUVRE
...                                                                ( action spécifique OUVRE )
GPE = 1                                                     ( pas d’appel du standard suite au spécifique )
Return