//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