https://youtu.be/LFaFRIJThsI
Bom Dia Boa Tarde Boa Noite
Mande um email pedido para receber todas notificaçoes dos videos
email : amarildo.matos@gmail.com
==============================================================
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
WJSON - conversor de JSON para WLanguage
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
-------------------
======================= INDICE CURSO DO JSON
Deserialise - Aula 1050 - WinDev Json - 001/...
JSONVersVariant - Aula 1053 - WinDev Json - 002/...
DICAS 2047 - WINDEV WEBDEV IOS - JSON 3 - HExportJSON
DICAS 2107 - WINDEV WEBDEV MOBILE - JSON 4 - LER JSON
DICAS 2192 WINDEV WEBDEV MOBILE JSON 5 JSON TIPO VARIAVEL
DICAS 2204 WINDEV WEBDEV MOBILE JSON 6 LER LEVAR TABELA
DICAS 3246 - WINDEV - PERGUNTAS E RESPOSTAS 8 - JSON - BUSCA CNPJ - TUTORIAL - RESPONDENDO LAIB AKRAM
JSONVersVariant - Aula 1053 - WinDev Json - 002/...
DICAS 2047 - WINDEV WEBDEV IOS - JSON 3 - HExportJSON
DICAS 2107 - WINDEV WEBDEV MOBILE - JSON 4 - LER JSON
DICAS 2192 WINDEV WEBDEV MOBILE JSON 5 JSON TIPO VARIAVEL
DICAS 2204 WINDEV WEBDEV MOBILE JSON 6 LER LEVAR TABELA
DICAS 3246 - WINDEV - PERGUNTAS E RESPOSTAS 8 - JSON - BUSCA CNPJ - TUTORIAL - RESPONDENDO LAIB AKRAM
=========================================
