SEL_LISTE

Descrição

Esta acção foi chamada em todo oinicio do modelo, antes a afixação da janela de selecção.

Modelo

Selecção sobre lista

Utilização

Ela serve principalmente aconstruir a janela de selecção. Depois a versão V5, temos a possibilidade deconstruir de 1 a 5 colunas. Neste caso, falta re-declarara variável “TEXTE” para a dimensionar.

Alimenta-se as variáveisseguintes :

NBTEX: Inteiro
É o número de linhas ( cujo número de valores possíveis para o campo registável) a afixar na janela.

TEX(NBTEX): Car, comprimento 50, dimensionado a 200
Estes são todos os valores possíveis para o campo registável.

TEXTE(NBTEX): Car, comprimento 50, dimensionada a 200
Este texto associado a cada valor. Com efeito, apenas os textos serão afixadosnesta lista de selecção.

TIT: Car, comprimento 50, dimensionado a 5
É o título da janela para o índice 0, e o título das colunas para os índices de1 a 5.

Quando não existem elementos aafixar nesta janela, quer dizer que a posicione “NBTEX” = 0, pode-seafixar uma mensagem de erro por “GERR”=1 e em colocando umtexto em “GMESSAGE”.

Quando há um elemento a afixarnesta janela, quer dizer que se posicionou “NBTEX” = 1, o modelo nãoabre a janela de selecção, mas modifica automaticamente o valor do campo registávelpor este elemento.

Para aumentar o dimensionamentoque está por defeito a 200, falta re – declarar as variáveis “TEX” &“TEXTE” em local nesta acção.

Exemplo

Janela de selecção comportando 3colunas.

$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 laboîte de sélection
  TIT(1) = "CodeClient": TIT(2) = "Type" : TIT(3) = "Pays" : # Titredescolonnes
Next
Return

---