sexta-feira, 16 de julho de 2021

DICAS 3370 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe busca nota sefaz em windev - Ambiente Nacional - Curso Webservice - 37

7Ipo6xsHXNg

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 10:00 do dia 19/07/2021

DICAS 3370 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe busca nota sefaz em windev - Ambiente Nacional - Curso Webservice - 37

https://windevdesenvolvimento.blogspot.com/2021/07/dicas-3370-windev-webdev-mobile.html

https://repository.windev.com/

Relaçao dos Webservices - Producao

https://www.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs=

Sefaz Rio Grande do Sul - (RS)

Relacao dos webservices - Homologação

https://hom.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs=

Sefaz Rio Grande do Sul - (RS)

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

Assuntos

NFeDistribuicaoDFe busca nota sefaz em windev - Ambiente Nacional

NFeDistribuicaoDFe_busca_nota_sefaz_windev_3370

00:00 Introducao

00:48 Criando guia Dfe

01:24 Criando os controles

02:36 Criando um edt multilinha

02:48 Copiando o botao para NFeDistribuicaoDFe

03:18 Vamos pegar os links dos webservices

04:12 Vamos alterar o envelop - soap

04:44 Vamos colocar o xml dentro do soap

05:18 Vamos alterar as variaveis do soap

06:37 Explicando o codigo do certificado

07:06 VAmos dar o httprequest

07:51 Mostrando o envelope soap enviado

07:57 Buscando o retorno do soap com httpGetResult

08:11 Mostrando o envelope/xml soap retornado

08:31 Separando retorno xml

08:46 Mostrando o retorno xml

08:54 alimentando os campos do xml retornado

09:10 Vamos salvar no disco as informacoes enviadas e retornadas

09:39 VAmos executar e testar o programa

10:16 Explicando proxima aula - pegar os resumos de notas

------------------- Codigo

// Status Nfe // btnNfeDistribuicaoDfe

s_recebe_thumprint_certificado is string = "" // vamos criar duas variaveis -

s_web_service is string = ""

IF RADIO_ambiente=1 THEN // se o ambiente for igual 1- Producao ou se for igual 2 - Homologaão

s_web_service="https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx"

ELSE

s_web_service="https://hom.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx"

END

// vamos fazer sEnvelopE_soap

sUltnsu_15 is string=NumToString(EDT_UltNSU,"015d")

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:Body>

<tpAmb>[%RADIO_ambiente%]</tpAmb>

<ultNSU>[%sUltnsu_15%]</ultNSU>

</distNSU>

</distDFeInt>

</nfeDadosMsg>

</nfeDistDFeInteresse>

</soap12:Body>

</soap12:Envelope>

]

sEnvelope_soap=Replace(sEnvelope_soap,CR,"") // vamos tirar os cr da variavel senvelope_soap

EDT_ENVELOPE_SOAP_ENVIADO=sEnvelope_soap // vamos agora colocar o envelope soap no edt

// vamos ler o cadastro de empresas e pegar o certificado ja selecionado

HReadSeekFirst(empresa,empresaID,1)

IF HFound(empresa) THEN

s_recebe_thumprint_certificado=NoSpace(empresa.certificado_thumprint,sscAll)

Message("Procurando HttpCertificate ...")

ELSE

s_recebe_thumprint_certificado=""

END

HTTPCertificate(s_recebe_thumprint_certificado) // vamos ler o certificado com HTTPCertificate - e caso ele nao encontre nada, ele vai pedir para escolehr

HTTP.IgnoreError = httpIgnoreRevocation

HTTP.IgnoreError = httpErrorInvalidCertificate

HTTP.IgnoreError = httpErrorInvalidCertificateName

bMensagem is boolean=HTTPRequest(s_web_service,"","",sEnvelope_soap,"text/xml;charset=UTF-8","","")

HTTPCertificate("") //Vamos limpar da memoria o certificado

IF bMensagem=False THEN

Error(ErrorInfo(errFullDetails))

ELSE

EDT_RETORNO_SOAP = HTTPGetResult(httpResult)

EDT_Retorno_xml = XMLExtractString(EDT_RETORNO_SOAP,"nfeDistDFeInteresseResult")

EDT_TpAmb = XMLExtractString(EDT_Retorno_xml,"tpAmb")

EDT_Cstat = XMLExtractString(EDT_Retorno_xml,"cStat")