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