Achoice

[braz]

Ola Pessoal,

Preciso da ajuda de voces, estou montando um achoice so para consulta na tela, so que tem uma condição para entrar na lista, vejam o que está errado por favor:

Código: Selecionar todos

 n:= LastRec()
 private vetor[n]
x=1
sele 1
go top
do while !eof()
    if empresa=xcod
       vetor[x]:=arquivo->nome+'  '+arquivo->codigo
       x++
    endif
  skip
enddo
mm=setcolor()
Goto Top
         Set Confirm On
            Save Screen To masc
             Set Color To gr/w,w/b
            var_2:= achoice(6, 12, 19, 75, vetor)
            setcolor(mm)
            Restore Screen From masc     

[Pablo César]

Olá, você deveria começar com o vetor vazio e adicionar elementos conforme satisfaça a condição os dados do seu DBF. Assim:

Código: Selecionar todos

Private vetor := {} // declara vetor vazio
sele 1
go top
do while !eof()
    if empresa=xcod
       Aadd(vetor,arquivo->nome+'  '+arquivo->codigo)  // adiciona elementos ao vetor
    endif
  skip
enddo
mm=setcolor()
Goto Top
Set Confirm On
Save Screen To masc
Set Color To gr/w,w/b
var_2:= achoice(6, 12, 19, 75, vetor)
setcolor(mm)
Restore Screen From masc

Veja se resolveu.

[braz]

Matou, deu certinho

Valeu Pablo, Muitissimo Obrigado