Procedure UI_Endereco_Completar(Campo)

IF Campo = "CEP" THEN

arrEndereco is array of string = UI_Endereco_ConsultaCEP(EDT_CEP)

IF ArrayCount(arrEndereco) > 0 THEN

EDT_T006_ENDERECO = arrEndereco[1]
EDT_T006_BAIRRO = arrEndereco[2]
EDT_T006_CIDADE = arrEndereco[3]
UF is string = arrEndereco[4]

x is int = 0

SWITCH UF

CASE "AC" : x = 1
CASE "AL" : x = 2
CASE "AP" : x = 3
CASE "AM" : x = 4
CASE "BA" : x = 5
CASE "CE" : x = 6
CASE "DF" : x = 7
CASE "ES" : x = 8
CASE "GO" : x = 9
CASE "MA" : x = 10
CASE "MT" : x = 11
CASE "MS" : x = 12
CASE "MG" : x = 13
CASE "PA" : x = 14
CASE "PB" : x = 15
CASE "PR" : x = 16
CASE "PE" : x = 17
CASE "PI" : x = 18
CASE "RJ" : x = 19
CASE "RN" : x = 20
CASE "RS" : x = 21
CASE "RO" : x = 22
CASE "RR" : x = 23
CASE "SC" : x = 24
CASE "SP" : x = 25
CASE "SE" : x = 26
CASE "TO" : x = 27

END

ListSelectPlus(COMBO_T006_UF,x)

SetFocus(EDT_T006_NUMERO)

ELSE
SetFocus(EDT_T006_ENDERECO)
END

END

Procedure UI_Endereco_ConsultaCEP(gCEP)

gsCEP is string = gCEP

gsCEP = Replace(gsCEP,".","")
gsCEP = Replace(gsCEP,"-","")
gsCEP = Replace(gsCEP," ","")

arrResultado is array of string

HReset(GPU_25_Enderecos)

IF HReadSeek(GPU_25_Enderecos,CEP,gsCEP,hIdentical) = True THEN

Add(arrResultado,GPU_25_Enderecos.Logradouro)
Add(arrResultado,GPU_25_Enderecos.Bairro)
Add(arrResultado,GPU_25_Enderecos.Cidade)
Add(arrResultado,GPU_25_Enderecos.UF)

ELSE

Info("Digite o endereço e depois clique em: Cadastrar Novo Endereço")

END

RESULT arrResultado