PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 25 → ula 1056 - WebService - 008 - Consumir WebService - Cnpj Receita
ula 1056 - WebService - 008 - Consumir WebService - Cnpj Receita
Iniciado por amarildo, 03,feb. 2017 09:10 - 1 respuesta
Miembro registrado
535 mensajes
Popularité : +14 (14 votes)
Publicado el 03,febrero 2017 - 09:10
//Buscar em Json
// https://www.receitaws.com.br/v1/cnpj/NumeroCnpj
//https://www.receitaws.com.br/v1/cnpj/92715978000158
s_url is string="https://www.receitaws.com.br/v1/cnpj/"+SAI_Cnpj
IF HTTPRequest(s_url) THEN
SAI_resultado= HTTPGetResult()
//Vai retornar os dados do cnpj em Json
END

_dados_atividade is structure
text is string
code is string
FIN
_dados_qsa is structure
qual is string
nome is string
FIN
_dados_cnpj is structure
atividade_principal is array of _dados_atividade
atividades_secundarias is array of _dados_atividade
qsa is array of _dados_qsa
data_situacao is string
complemento is string
nome is string
uf is string
telefone is string
situacao is string
bairro is string
logradouro is string
numero is string
cep is string
municipio is string
abertura is string
natureza_juridica is string
cnpj is string
ultima_atualizacao is string
status is string
tipo is string
fantasia is string
Email is string
efr is string
motivo_situacao is string
situacao_especial is string
data_situacao_especial is string
capital_social is string
END

_estrutura_dados_cnpj is _dados_cnpj
Deserialize(_estrutura_dados_cnpj,SAI_resultado,psdJSON)

FOR EACH _atividade OF _estrutura_dados_cnpj.atividade_principal
Info(_atividade.text+CR+_atividade.code)
END
FOR EACH _atividade_secundaria OF _estrutura_dados_cnpj.atividades_secundarias
Info(_atividade_secundaria.text+CR+_atividade_secundaria.code)
END
FOR EACH _dados_qsa OF _estrutura_dados_cnpj.qsa
Info(_dados_qsa.qual+CR+_dados_qsa.nome)
END
Info(_estrutura_dados_cnpj.nome+CR+...
_estrutura_dados_cnpj.data_situacao+CR+...
_estrutura_dados_cnpj.complemento+CR+...
_estrutura_dados_cnpj.nome+CR+...
_estrutura_dados_cnpj.uf+CR+...
_estrutura_dados_cnpj.telefone+CR+...
_estrutura_dados_cnpj.situacao+CR+...
_estrutura_dados_cnpj.bairro+CR+...
_estrutura_dados_cnpj.logradouro+CR+...
_estrutura_dados_cnpj.numero+CR+...
_estrutura_dados_cnpj.cep+CR+...
_estrutura_dados_cnpj.municipio+CR+...
_estrutura_dados_cnpj.abertura+CR+...
_estrutura_dados_cnpj.natureza_juridica+CR+...
_estrutura_dados_cnpj.cnpj+CR+...
_estrutura_dados_cnpj.ultima_atualizacao+CR+...
_estrutura_dados_cnpj.status+CR+...
_estrutura_dados_cnpj.tipo+CR+...
_estrutura_dados_cnpj.fantasia+CR+...
_estrutura_dados_cnpj.email+CR+...
_estrutura_dados_cnpj.efr+CR+...
_estrutura_dados_cnpj.capital_social)


//Retorno Json
{
"atividade_principal": [
{
"text": "Desenvolvimento e licenciamento de programas de computador customizáveis",
"code": "62.02-3-00"
}
],
"data_situacao": "03/11/2005",
"complemento": "SALA 15",
"nome": "MATOS INFORMATICA - EIRELI - EPP",
"uf": "RS",
"telefone": "(51) 3595-1132 / (51) 3595-2474",
"atividades_secundarias": [
{
"text": "Desenvolvimento e licenciamento de programas de computador não-customizáveis",
"code": "62.03-1-00"
}
],
"qsa": [
{
"qual": "65-Titular Pessoa Física Residente ou Domiciliado no Brasil",
"nome": "AMARILDO DE MATOS"
}
],
"situacao": "ATIVA",
"bairro": "PATRIA NOVA",
"logradouro": "R PARAIBA",
"numero": "198",
"cep": "93.410-130",
"municipio": "NOVO HAMBURGO",
"abertura": "23/05/1989",
"natureza_juridica": "230-5 - Empresa Individual de Responsabilidade Limitada (de Natureza Empresária)",
"cnpj": "92.715.978/0001-58",
"ultima_atualizacao": "2017-01-04T22:35:08.977Z",
"status": "OK",
"tipo": "MATRIZ",
"fantasia": "",
"email": "",
"efr": "",
"motivo_situacao": "",
"situacao_especial": "",
"data_situacao_especial": "",
"capital_social": "100000.00",
"extra": {}
}
//


https://www.receitaws.com.br/api

http://windevdesenvolvimento.blogspot.com.br/2017/02/aula-1056-webservice-008-consumir.html



Video Abaixo Mostrando Já em Funcionando no Sistema ErpMatos para Buscar Cnpj na Receita

Miembro registrado
3.660 mensajes
Popularité : +175 (223 votes)
Publicado el 08,febrero 2017 - 16:14
:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/