PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Carregando dados em um Combo Box via código
WX - Carregando dados em um Combo Box via código
Iniciado por adrianoboller, mai., 13 2015 10:37 PM - 1 resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 13 2015 - 10:37 PM
//Buscar
ok is boolean = False


arrTemp is array of string


IF COMBO_GarrListaCentro..DisplayedValue = "Todos"
GloCentroCusto = ""
ELSE
GloCentroCusto = COMBO_GarrListaCentro..DisplayedValue
END

ok = HExecuteQuery(QRY_Select_AutorizacoesEspeciais_Filtro,hWithFilter,gnConvenioAdministrador,gnSeqAutorzAdministrador)

IF ok= True THEN

ArrayDeleteAll(arrTemp)

FOR EACH QRY_Select_AutorizacoesEspeciais_Filtro

IF GloCentroCusto = "" THEN

ArrayAdd(arrTemp,QRY_Select_AutorizacoesEspeciais_Filtro.cod_centro_custo)

END

END

IF ArrayCount(arrTemp)>0 THEN

ArrayDeleteDuplicate(arrTemp)
ListDeleteAll(COMBO_GarrListaCentro)
ListAdd(COMBO_GarrListaCentro,"Todos")

FOR EACH elemento OF arrTemp
ListAdd(COMBO_GarrListaCentro,elemento)
END

ListSelect(COMBO_GarrListaCentro,ListSeek(COMBO_GarrListaCentro,"Todos"))

END

END
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 13 2015 - 10:37 PM
:merci: