SEL_LISTE

Descrizione

Questa azione è richiamata all'inizio del modello, prima della visualizzazione della finestra di selezione.

Modello

Selezione su lista

Utilizzo

Serve principalmente a costruire la finestra di selezione. Dalla versione V5, si ha la possibilità di costruire da 1 a 5 colonne. In questo caso, occorre ridichiarare la variabile TEXTE per dimensionarla.

Vengono alimentate le seguenti variabili:

   NBTEX : Integer
E' il numero di righe (quindi il numero di valori possibili per il campo inseribile) da visualizzare nella finestra.

   TEX(NBTEX) : Char, lunghezza 50, dimensionata a 200
Sono tutti i valori possibili per il campo inseribile.

   TEXTE(NBTEX) : Char, lunghezza 50, dimensionata a 200
E' il testo associato ad ogni valore. Infatti, in questa lista di selezione saranno visualizzati solo questi testi.

   TIT : Char, lunghezza 50, dimensionata a 5
E' il titolo della finestra per l'indice 0 ed il titolo delle colonne per gli indici da 1 a 5.

Quando non c'è un elemento da visualizzare in questa finestra, cioè se è stato posizionato NBTEX = 0, è possibile visualizzare un messaggio di errore tramite GERR=1 e mettendo un testo in GMESSAGE.

Quando c'è un solo elemento da visualizzare in questa finestra, cioè se è stato posizionato NBTEX = 1, il modello non apre la finestra di selezione, ma modifica automaticamente il valore del campo inseribile con questo elemento.

Per aumentare il dimensionamento che di default è a 200, bisogna ridichiarare le variabili TEX e TEXTE in locale in questa azione.

Esempio

Finestra di selezione comportante 3 colonne.

$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 : # Numero di righe da visualizzare
  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) = "Elenco" : # Titolo del box di selezione
  TIT(1) = "Codice Cliente" : TIT(2) = "Tipo" : TIT(3) = "Paese" : # Titolo delle colonne
Next
Return