PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Buscar Cnpj Receita e ler o Retorno Json - video 3364
Buscar Cnpj Receita e ler o Retorno Json - video 3364
Débuté par amarildo, 09 sep. 2021 21:09 - Aucune réponse
Membre enregistré
534 messages
Popularité : +3 (3 votes)
Posté le 09 septembre 2021 - 21:09
// busca cnpj
dados_json is JSON=""
sUrl is string="https://www.receitaws.com.br/v1/cnpj/[%EDT_Cnpj_cpf%]"
IF HTTPRequest(sUrl) THEN // vamos recuperar o resultado da url com httprequest
dados_json=HTTPGetResult() // vamos ler o resultado do http
dados_json=UTF8ToAnsi(dados_json) // CONVERTE dados_json No FORMATO UTF8
END
EDT_Retorno_json=dados_json //VAMOS PEGAR OS DADOS DO JSON
EDT_Razao_social=dados_json.nome
EDT_Atividade = dados_json.ATIVIDADE_PRINCIPAL[1].text
EDT_Atividade_cod = dados_json.ATIVIDADE_PRINCIPAL[1].code
EDT_Data = StringToDate(dados_json.data_situacao,"dd/mm/yyyy")
EDT_Complemento = dados_json.complemento
EDT_Tipo = dados_json.tipo
EDT_Uf = dados_json.uf
EDT_Bairro = dados_json.bairro
EDT_Logradouro = dados_json.logradouro
EDT_Numero = dados_json.numero
EDT_Cep = dados_json.cep
EDT_Municipio = dados_json.municipio
EDT_Porte = dados_json.porte
EDT_Abertura = dados_json.abertura
EDT_Natureza_juridica = dados_json.natureza_juridica
ultima_atualizacao is string = dados_json.ultima_atualizacao
data is Date = ""
data.Day = ultima_atualizacao[[9 TO 10]]
data.Month = ultima_atualizacao[[6 TO 7]]
data.Year = ultima_atualizacao[[1 TO 4]]
EDT_Data_atualizacao = data
EDT_Status = dados_json.status
EDT_Fantasia = dados_json.fantasia
EDT_Email = dados_json.email
EDT_Efr = dados_json.efr
EDT_Motivo_situacao = dados_json.motivo_situacao
EDT_Situacao_especial = dados_json.data_situacao_especial
EDT_Capital_Social = dados_json.capital_social
EDT_Extra = dados_json.extra
EDT_Telefone = dados_json.telefone


// mostra no site

// MOSTRA O JSON NO INTERNET EXPLORER
sURL is string = "https://www.receitaws.com.br/v1/cnpj/[%EDT_Cnpj_cpf%]"
ShellExecute(sURL)[code:wl]


//Mostrar estrutura do json

ToClipboard(EDT_Retorno_json)
Info("Quando entrar no site, so colar que estara o json")

ShellExecute("https://formation.pcscloud.net/wjson_web/FR/index.awp")

https://windevdesenvolvimento.blogspot.com/2021/06/dicas-3364-windev-webdev-mobile-buscar.html