cont is int
IF NOT InternetConnected() THEN
Info("Sem acesso a internet")
RETURN
END
urlcnpj is string="http://ws.hubdodesenvolvedor.com.br/v2/cnpj/?cnpj=%1&token=[%gstokenhub%]"
urlcnpj=StringBuild(urlcnpj,glo_retorna_val(cnpj))
IF NOT HTTPRequest(urlcnpj) THEN
Info("Erro ao capturar informações sobre o CNPJ")
RETURN
END
meujson is a JSON <description="cliente">
meujson=HTTPGetResult(httpResult)
IF meujson.status = 0 THEN
Info("Erro na consulta")
RETURN
END
IF meujson.result.situacao <> "ATIVA"
Info("Empresa não está ativa")
END
EDT_Tabcliente_nome =meujson.result.nome
EDT_Tabcliente_fantasia =meujson.result.fantasia
dsqueryend.parammunicipio =Upper(meujson.result.municipio)
dsqueryend.paramuf =Upper(meujson.result.uf)
HExecuteQuery(dsqueryend)
IF HReadFirst(dsqueryend) THEN
EDT_Tabcliente_cod_mun=dsqueryend.tabmunicipio_codigo
END
//EDT_Tabcliente_data_fundacao
EDT_Tabcliente_endereco =meujson.result.logradouro
EDT_Tabcliente_numero =meujson.result.numero
EDT_Tabcliente_complemento =meujson.result.complemento
EDT_Tabcliente_bairro =meujson.result.bairro
EDT_Tabcliente_cidade =meujson.result.municipio
COMBO_UF =meujson.result.uf
EDT_EMail =meujson.result.email
EDT_Email_xml =meujson.result.email
EDT_Tabcliente_cep =meujson.result.cep
meufone = StringDelete(meujson.result.telefone," ")
FOR EACH STRING sTelefone IN meufone SEPARATED BY "/"
cont++
SWITCH cont
CASE 1
EDT_Fone_1=sTelefone
CASE 2
EDT_Fone_2=sTelefone
CASE 3
EDT_Fone_3=sTelefone
END
END