SEL_LISTE

Description

Cette action est appelée en tout début du modèle, avant l'affichage de la fenêtre de sélection.

Modèle

Sélection sur liste

Utilisation

Elle sert principalement à construire la fenêtre de sélection. Depuis la version V5, on a la possibilité de construire de 1 à 5 colonnes. Dans ce cas, il faut re-déclarer la variable TEXTE pour la dimensionner.

On alimente les variables suivantes :

   NBTEX: Integer
C'est le nombre de lignes ( donc nombre de valeurs possibles pour le champ saisissable ) à afficher dans la fenêtre.

   TEX(NBTEX) : Char, longueur 50, dimensionnée à 200
Ce sont toutes les valeurs possibles pour le champ saisissable.

   TEXTE(NBTEX) : Char, longueur 50, dimensionnée à 200
C'est le texte associé à chaque valeur. En fait, seul ces textes seront affichés dans cette liste de sélection.

   TIT: Char, longueur 50, dimensionnée à 5
C'est le titre de la fenêtre pour l'indice 0, et le titre des colonnes pour les indices de 1 à 5.

Lorsqu'il n'y pas d'élément à afficher dans cette fenêtre, c'est à dire que l'on a positionné NBTEX = 0, on peut afficher un message d'erreur par GERR=1 et en mettant un texte dans GMESSAGE.

Lorsqu'il n'y a qu'un élément à afficher dans cette fenêtre, c'est à dire que l'on a positionné NBTEX = 1, le modèle n'ouvre pas la fenêtre de sélection, mais modifie automatiquement la valeur du champ saisissable par cet élément.

Pour agrandir le dimensionnement qui est par défaut à 200, il faut re-déclarer les variables TEX & TEXTE en local dans cette action.

Exemple

Fenêtre de sélection comportant  3 colonnes.

$SEL_LISTE
Local File BPCUSTOMER [BPC]
Local File BPARTNER [BPR]
For [BPC]
  Read [BPR]BPR0 = [F:BPC]BPCNUM
  Local Char TEXTE(GLONDES)(1..200,1..3)
  NBTEX = 20 : # Nombre de lignes à afficher
  For I=1 To NBTEX
    TEX(I) = [F:BPC]BPCNUM
    TEXTE(I,1) = [F:BPC]BPCNUM
    TEXTE(I,2) = mess([F:BPC]BPCTYP,401,1)
    TEXTE(I,3) = [F:BPR]CRY
  Next I
  TIT(0) = "Liste" : # Titre de la boîte de sélection
  TIT(1) = "Code Client" : TIT(2) = "Type" : TIT(3) = "Pays" : # Titre des colonnes
Next
Return