ListBox com Array

Boa tarde senhores, Após muita luta consegui fazer uma consulta usando SQL Embedded filtrando com o LIKE,Peguei está consulta e joguei dentro de uma Array. Consulta foi correta pois retornou os dados no Conout.

Agora não estou conseguindo fazer que o listbox mostre o array completo. Só está mostrando a primeira linha.

@ 038, 007   LISTBOX oListBox1 Fields HEADER "CPF","NOME","COD.VISITA"  SIZE 315, 190 OF oDlg COLORS 0, 16777215 PIXEL //cabeçalho
oListBox1:SetArray(aVisit1) //array com os dados
oListBox1:bLine := { || {    aVisit1[oListBox1:nAt,01],    aVisit1[oListBox1:nAt,02],    aVisit1[oListBox1:nAt,03]}}
//dados da array em posições do listbox

Se alguem puder me ajudar? Preciso colocar um contador dentro do oDlg? Este contador é o nAt? O que estou esquecendo??

criado 19 de Jan de 2024
Lucas de Paulo Santos
982 pontos
editado 19 de Jan de 2024

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

OLá Lucas, segue exemplo, espero que ajude.

/*/{Protheus.doc} User Function xLISTBOX
  (Gera LISTBOX)
  @type  Function
  @author Leandro Lemos
  @since 19/01/2024
  @version version
  @param param_name, param_type, param_descr
  @return return_var, return_type, return_description
  @example
  (examples)
  @see (links_or_references)
  /*/
User Function xLISTBOX()
    Local oDlg
    Local aVisit1  := {}
    Local nX      := 0
    Local oListBox1

    RpcSetEnv("01","010101")

    for nX :=  1 to 20
        aAdd(aVisit1,{cValToChar(nX),'Cliente '+cValToChar(nX),nX})
    next


    DEFINE MSDIALOG oDlg TITLE "Clientes" FROM 0,0 TO 320,700 PIXEL

    @ 038, 007   LISTBOX oListBox1 Fields HEADER "CPF","NOME","COD.VISITA"  SIZE 315, 190 OF oDlg COLORS 0, 16777215 PIXEL //cabeçalho
    oListBox1:SetArray( aVisit1 )
    oListBox1:bLine         := {|| aVisit1[oListBox1:nAt]}
    oListBox1:refresh()    

    ACTIVATE MSDIALOG oDlg CENTER

    RpcClearEnv()
Return

editar
- x
grosseiro ou ofensivo pouco construtivo obsoleto outro...
Motivo

criado 19 de Jan de 2024
Leandro Lemos
1520 pontos

0

E se ele tivesse que iniciar vazio e depois mostrar os dados e o numero de linha é o Eof que ele puxou do banco ?
— Lucas de Paulo Santos 3 months ago

Anexos

exemplo.png

ListBox com Array

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags embedded-sql listbox array ou faça a sua própria pergunta.