PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - Carregando dados em um Combo Box via código
WX - Carregando dados em um Combo Box via código
Débuté par adrianoboller, 13 mai 2015 22:37 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 13 mai 2015 - 22:37
//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
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 13 mai 2015 - 22:37
:merci: