LISTBOX

LISTBOX

1. Criar Variavel
       gnPrimeiravez_fornecedores is int

2.  Inicializacao tabela
     gnPrimeiravez_fornecedores=0

    Selecting a row Tabela

 IF gnPrimeiravez_fornecedores=0 THEN
   gnPrimeiravez_fornecedores=1
ELSE
   gnProcura_lista = ListSeek(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)
   IF gnProcura_lista=-1 THEN // nao achou grava
        ListAdd(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)
    ELSE
        ListDelete(LIST_fornecedores,gnProcura_lista)
    END
END
3. botao de seleciona

FOR ALL SELECTED ROW OF TABLE_QRY_relatorio_fornecedor
    gnProcura_lista = ListSeek(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)   
    IF gnProcura_lista=-1 THEN // nao achou grava
        ListAdd(LIST_fornecedores,TABLE_QRY_relatorio_fornecedor.COL_Id_fornecedor)
    END
END

4. antes de listar para selecionar
gsFiltro_fornecedor=""

i_quantos is int=0
i_quantos=ListCount(LIST_fornecedores) // numero de elementos

i is int=0
FOR i =1 TO i_quantos
    ListSelectPlus(LIST_fornecedores,i)      // marcando para selecionar
END
FOR ALL SELECTED ROW OF LIST_fornecedores
    gsFiltro_fornecedor+=[","]+LIST_fornecedores..DisplayedValue          
END