Código: Selecionar todos
****************************
FUNCTION LISTA_UF(vBUSCA)
****************************
local nPos:=0
Local aestadosSigla := {}
Aadd( aestadosSigla, { 11, "RO" } )
Aadd( aestadosSigla, { 12, "AC" } )
Aadd( aestadosSigla, { 13, "AM" } )
Aadd( aestadosSigla, { 14, "RR" } )
Aadd( aestadosSigla, { 15, "PA" } )
Aadd( aestadosSigla, { 16, "AP" } )
Aadd( aestadosSigla, { 17, "TO" } )
Aadd( aestadosSigla, { 21, "MA" } )
Aadd( aestadosSigla, { 22, "PI" } )
Aadd( aestadosSigla, { 23, "CE" } )
Aadd( aestadosSigla, { 24, "RN" } )
Aadd( aestadosSigla, { 25, "PB" } )
Aadd( aestadosSigla, { 26, "PE" } )
Aadd( aestadosSigla, { 27, "AL" } )
Aadd( aestadosSigla, { 28, "SE" } )
Aadd( aestadosSigla, { 29, "BA" } )
Aadd( aestadosSigla, { 31, "MG" } )
Aadd( aestadosSigla, { 32, "ES" } )
Aadd( aestadosSigla, { 33, "RJ" } )
Aadd( aestadosSigla, { 35, "SP" } )
Aadd( aestadosSigla, { 41, "PR" } )
Aadd( aestadosSigla, { 42, "SC" } )
Aadd( aestadosSigla, { 43, "RS" } )
Aadd( aestadosSigla, { 50, "MS" } )
Aadd( aestadosSigla, { 51, "MT" } )
Aadd( aestadosSigla, { 52, "GO" } )
Aadd( aestadosSigla, { 53, "DF" } )
Aadd( aestadosSigla, { 54, "EX" } )
nPos:=ascan( aestadosSigla, {|x|x[2]==vBUSCA} )
if nPos==0
Return(0)
else
Return(aestadosSigla[nPos,1]) // retorna o codigo do Estado
endif
Return(0)