Bom Dia Boa Tarde Boa Noite
Seja Membro do Canal
Esse Video Ao Vivo vai estrear as 19:00 do dia 20/01/2021
DICAS 3246 - WINDEV - PERGUNTAS E RESPOSTAS 8 - JSON - BUSCA CNPJ - TUTORIAL - RESPONDENDO LAIB AKRAM
https://help.windev.com/en-US/?1000023611&name=TYPE_JSON
https://windevdesenvolvimento.blogspot.com/2021/01/dicas-3246-windev-perguntas-e-respostas.html
ASSUNTOS
httprequest
json
foi criado um projeto novo que estara disponivel
no repositorio windev
utilitarios_amarildo_matos_windev
https://repository.windev.com/
vamos criar uma window busca cnpj
vamos criar um edt cnpj
vamos criar um edit endereco busca
vamos criar um botao busca cnpj receita
vamos criar um botao para mostrar no site
vamos criar um edt retorno
vamos criar 3 stc , razao social, cnpj , e atividade para mostrar o retorno
vamos entrar codigo busca cnpj
vamos dar um httprequest receita para busca cnpj
o retorno vira em formato json
vamos preencher os campos com o retorno do json
vamos aprimorar. um pouco
vamos criar uma procedure global, busca_cnpj_receita
vamos buscar o cnpj pela procedure
vamos testar
=============
// BTN_BUSCA_CNPJ_RECEITA
(EDT_Endereco_busca,EDT_Retorno,STC_Razao_social,STC_Cnpj,STC_Atividade_empresa)=cnpj_busca_receita(EDT_Cnpj)
-----------
//PROCEDURE cnpj_busca_receita(recebe_cnpj)
DADOS_JSON is a JSON = "" // VAMOS CRIAR UMA STRING URL COM ENDERECO DA RECEITA
URL is string = "https://www.receitaws.com.br/v1/cnpj/" // VAMOS JUNTAR O NUMERO DO CNPJ COM O ENDERECO
URL+=recebe_cnpj
IF HTTPRequest(URL) THEN // VAMOS RECUPERAR O RESULTADO DA URL COM HTTPREQUEST
DADOS_JSON = HTTPGetResult() // VAMOS LER O RESULTADO HTTP
DADOS_JSON = UTF8ToAnsi(DADOS_JSON) // CONVERTE string No FORMATO UTF8
END
//VAMOS PEGAR OS DADOS DO JSON //DEPOIS VOU MOSTRAR NO FINAL, COMO PEGUEI OS NOMES DOS CAMPOS
RESULT (URL,DADOS_JSON,DADOS_JSON.NOME,DADOS_JSON.CNPJ,DADOS_JSON.ATIVIDADE_PRINCIPAL)
// vamos fazer a busca do cnpj
// depois de testado e funcionando
// vamos transformar em procedure para poder ser usado em outros lugares
// VAMOS PRIMEIRO CRIAR A VARIAVEL JSON
// TEM MAIS CAMPOS PARA MOSTRAR MAS FIZ 3 PARA MOSTRAR O FUNCIONAMENTO