sexta-feira, 25 de junho de 2021

DICAS 3364 - WINDEV WEBDEV MOBILE - Buscar Cnpj Receita e ler o Retorno Json - Curso Webservice 33 - Json 7




https://youtu.be/LFaFRIJThsI






Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 14:00 do dia 06/07/2021

DICAS 3364 - WINDEV WEBDEV MOBILE - Buscar Cnpj Receita e ler o Retorno Json - Curso Webservice 33 - Json 7



ASSUNTOS

Explicando passo a passo o que sera feito 
Vamos entrar no formulario win_fiche_cliente 
Vamos criar um botao chamado busca cnpj 
vamos criar um campo json 
vamos criar uma url com o site ,e o link do cnpj 
vamos dar httprequest
vamos retornar os dados 
vamos colocar os campos 

================= Codigo - busca cnpj

// 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)

============================================

//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")

============================================

Abaixo indices de Webservices e tambem um indice de Json


--------------------- Indice WebService

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP

------------------- 















Nenhum comentário:

Postar um comentário

Teste

Teste
teste