Mostrando postagens com marcador HttpResquest/HttpGetResult. Mostrar todas as postagens

domingo, 17 de janeiro de 2021

DICAS 3246 - WINDEV - PERGUNTAS E RESPOSTAS 8 - JSON - BUSCA CNPJ - TUTORIAL - RESPONDENDO LAIB AKRAM

bmopPOt_eTM

Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join

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

=============== INDICE PERGUNTAS E RESPOSTA

DICAS 3238 - WINDEV - PERGUNTA - 1 - COMO COLORIR UM CONTROLE QUE TEM O FOCO

DICAS 3239 - WINDEV - PERGUNTA - 2 - COMO DEFINIR O FOCO PARA UMA LINHA COLUNA TABELA

DICAS 3241 - WINDEV - PERGUNTAS E RESPOSTAS 3 - COMO USAR ESTRUTURA COM ARRAY

DICAS 3242 - WINDEV - PERGUNTAS E RESPOSTAS 4 - Existe algum comando que eu consiga contar quantos controles (label, text, e etc) existentes em uma Window - sim - indirection

DICAS 3243 - WINDEV - PERGUNTAS E RESPOSTAS 5 - MouseCursor - VAMOS MUDAR O CURSOR DO MOUSE

DICAS 3244 - WINDEV - PERGUNTAS E RESPOSTAS 6 - listselectplus - Como vir preenchido automaticamente combox

DICAS 3245 - WINDEV - PERGUNTAS E RESPOSTAS 7 - COMO SAIR OU NAO NO POPUP

DICAS 3246 - WINDEV - PERGUNTAS E RESPOSTAS 8 - JSON - BUSCA CNPJ - TUTORIAL - RESPONDENDO LAIB AKRAM

DICAS 3247 - WINDEV - PERGUNTAS E RESPOSTAS 9 - Como realizar uma navegação completa no arquivo

======================= 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

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

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

PlayList WebDev tutorial Amarildo Webdev

https://www.youtube.com/playlist?list=PLwJwZaqiZW-m1VKca0Ju9xWGT1rFus7ku

Playlist Windev Tutorial Amarildo Windev

https://www.youtube.com/playlist?list=PLwJwZaqiZW-lxU1XF0M0htb5S5f8pavuE

PlayList Windev Mobile

https://www.youtube.com/playlist?list=PLwJwZaqiZW-nB1qP-YajNzjhi2j2mBsfI

Amarildo

http://www.amarildomatos.com.br/

Donwloads Windev

https://www.windev.com/ts/download/index.html

Windev

https://www.windev.com/

WxSolucoes

http://www.wxsolucoes.com.br/

Matos Informatica

http://www.matosinformatica.com.br/

Repositorio Windev

https://repository.windev.com/

Inscricao Evento Pcsof

https://www.pcsoft.fr/pcsoft/tdfcom/2020/index.html

Site forum Google

https://groups.google.com/forum/?oldui=1&oi=1#!forum/amarildowindev

Video sobre 3 Mil Videos Windev

https://www.youtube.com/watch?v=ASY7T3Tt0sY&list=PLYgB8kapIj5-yeSTIQdHbzeY_lEaSJpg9

Video sobre Alfaserver servidor

https://youtu.be/EqnYJFpvPAI

https://alphaservers.com.br/

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

quinta-feira, 7 de julho de 2016

Curso WinDev - Certificado - 010 - Soap - Status Nfe Sefaz

Video Youtube

Nessa aula vou ensinar a Fazer Soap - Status Nfe - Sefaz

In this lesson I will teach Soap Making - Status Nfe - Sefaz

Dans cette leçon, je vais enseigner Soap Making - Statut Nfe - SEFAZ

http://doc.windev.com/en-US/?3043007&name=HTTPRequest
http://doc.pcsoft.fr/fr-FR/?3043007&name=httprequete_fonction

//Site com WebService Sefaz RS // Site with webservcie sefaz RS // Site avec WebService Sefaz RS https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx
//Inserir o Soap // Insert Soap // Insérer Savon //
s_envelop_soap is string=[
    <?xml version="1.0" encoding="utf-8"?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
    <soap12:Header>
    <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2">
    <cUF>#cUF#</cUF>
    <versaoDados>3.10</versaoDados>
    </nfeCabecMsg>
    </soap12:Header>
    <soap12:Body>
    <nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2">
    <consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">
    <tpAmb>2</tpAmb>
    <cUF>43</cUF>
    <xServ>STATUS</xServ>
    </consStatServ>
    </nfeDadosMsg>
    </soap12:Body>
    </soap12:Envelope>
]
s_uf is string="43"
s_envelop_soap=Replace(s_envelop_soap,"#cUF#",s_uf)
s_envelop_soap=Replace(s_envelop_soap,CR,"")
// colocar o webservice // put the web service // mettre le service web//
s_webservice_consulta is string="https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx"
//Criar webservice ok // create webservice ok // créer webservice ok
b_webservice_ok is boolean=False
b_webservice_ok=HTTPRequest(s_webservice_consulta,"","",s_envelop_soap,"text/xml","","")
IF b_webservice_ok=True THEN //verificar se webservice_ok esta ok // check ok ok this webservice // vérifier ok ok ce webservcie
    s_retorno is string=HTTPGetResult(httpResult) //pegar retorno httpgetresult // return catch// retour captures
    EDT_retorno=s_retorno
    EDT_cStat=pesquisa_tag_nfe_wdk("cStat",s_retorno)
    EDT_xMotivo=pesquisa_tag_nfe_wdk("xMotivo",s_retorno)
END
//Vamos TEstar

PROCEDURE pesquisa_tag_nfe_wdk(_tag,_retorno_xml)

_texto_inicial is string="<"+_tag+">"
_texto_final is string="</"+_tag+">"
nPosicaoInicial is int=0
nPosicaoFinal is int=0
nPosicaoInicial = PositionOccurrence(_retorno_xml,_texto_inicial,firstRank,FromBeginning) + Length(_texto_inicial)
nPosicaoFinal = PositionOccurrence(_retorno_xml,_texto_final,firstRank,FromBeginning)
IF nPosicaoFinal>nPosicaoInicial THEN
RESULT Middle(_retorno_xml,nPosicaoInicial,nPosicaoFinal-nPosicaoInicial)
ELSE
RESULT ""
END

quinta-feira, 30 de junho de 2016

Curso WinDev - Certificado - 009 - Soap - Parte 1/... - Consulta Cadastro Sefaz

Video youtube

Nessa aula vou ensinar como buscar por soap o cadastro contribuinte no Sefaz-RS

In this lesson I will teach you how to search for soap registration taxpayer in Sefaz-RS

Dans cette leçon, je vais vous apprendre à chercher du savon enregistrement contribuable SEFAZ-RS

help1

//Informando o Soap // informing the soap // informer le savon
sEnvelope_soap is string=[
    <?xml version="1.0" encoding="utf-8"?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
    <soap12:Header>
    <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <cUF>43</cUF>
    <versaoDados>2.00</versaoDados>
    </nfeCabecMsg>
    </soap12:Header>
    <soap12:Body>
    <nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <ConsCad xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">
    <infCons>
    <xServ>CONS-CAD</xServ>
    <UF>#UF#</UF>
    <CNPJ>#CNPJ#</CNPJ>
    </infCons>
    </ConsCad>
    </nfeDadosMsg>
    </soap12:Body>
    </soap12:Envelope>
]
//Trocar os parametros do soap // change the parameters of soap // modifiez le paramètres de savon
sEnvelope_soap=Replace(sEnvelope_soap,"#UF#",EDT_Estado) //<UF>RS</UF>
sEnvelope_soap=Replace(sEnvelope_soap,"#CNPJ#",EDT_cnpj) //<CNPJ>94295912000181</CNPJ>
s_certificado is string="" //Criar uma variavel string _certificado // créer un certificat de chaîne de variable
IF EDT_certificado_digitado<>"" THEN //vou perguntar se foi informado certificado em arquivo
    //pegar a assinatura do certificado // get the certificate signature // obtenir la signature du certificat
    s_certificado="32CDD49A23675E407D129416573F16D34FD51BC1"
    HTTPCertificate(s_certificado)
END
_webservice is boolean=HTTPRequest("https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx","","",sEnvelope_soap,"text/xml","","")//HTTPRequest
IF _webservice=True THEN
    s_retorno is string=HTTPGetResult(httpResult)
    EDT_xml=s_retorno
END

/Informando o Soap // informing the soap // informer le savon
sEnvelope_soap est chaîne=[
    <?xml version="1.0" encoding="utf-8"?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
    <soap12:Header>
    <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <cUF>43</cUF>
    <versaoDados>2.00</versaoDados>
    </nfeCabecMsg>
    </soap12:Header>
    <soap12:Body>
    <nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2">
    <ConsCad xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">
    <infCons>
    <xServ>CONS-CAD</xServ>
    <UF>#UF#</UF>
    <CNPJ>#CNPJ#</CNPJ>
    </infCons>
    </ConsCad>
    </nfeDadosMsg>
    </soap12:Body>
    </soap12:Envelope>
]
//Trocar os parametros do soap // change the parameters of soap // modifiez le paramètres de savon
sEnvelope_soap=Remplace(sEnvelope_soap,"#UF#",EDT_Estado) //<UF>RS</UF>
sEnvelope_soap=Remplace(sEnvelope_soap,"#CNPJ#",EDT_cnpj) //<CNPJ>94295912000181</CNPJ>
s_certificado est chaîne="" //Criar uma variavel string _certificado // créer un certificat de chaîne de variable
SI EDT_certificado_digitado<>"" ALORS //vou perguntar se foi informado certificado em arquivo
    //pegar a assinatura do certificado // get the certificate signature // obtenir la signature du certificat
    s_certificado="32CDD49A23675E407D129416573F16D34FD51BC1"
    HTTPCertificat(s_certificado)
FIN
_webservice est booléen=HTTPRequête("https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx","","",sEnvelope_soap,"text/xml","","")//HTTPRequest
SI _webservice=Vrai ALORS
    s_retorno est chaîne=HTTPDonneRésultat(httpRésultat)
    EDT_xml=s_retorno
FIN