w1f_mKOKFfE

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 16/07/2021

DICAS 3369 - WINDEV WEBDEV MOBILE - Nfe Consulta Nota - NfeConsultaProtocolo - NfeConsulta4 - direto windev - Curso Webservice - 36

https://repository.windev.com/resource.awp?file_id=281474976711155;nfe-consulta-nota-nfe-consulta-protocolo-sefaz-windev-3369

Esse exemplo se encontra no repositorio

https://repository.windev.com/

ASSUNTOS

Nfe Consulta Nota - NfeConsultaProtocolo - NfeConsulta4

Explicando Duplicidade Nota

Mostrando o que mudei desde que fiz Status Servico

Fazer guia - consulta nota

Criando o edt ch-nfe

Criando o edt data recebido e numero protocolo

Criando o botao para consultar a nota

---------------- Codigo Consulta Protocolo

// btn consulta protocolo

//https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta4.asmx?op=nfeConsultaNF

// Status2

//<?xml version="1.0" encoding="utf-8"?>

s_web_service_consulta is string=""

IF RADIO_ambiente=1 THEN

// producao

s_web_service_consulta="https://nfe.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta4.asmx"

ELSE

// homologação

s_web_service_consulta="https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta4.asmx"

END

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>

<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeConsultaProtocolo4">

<consSitNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">

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

<xServ>CONSULTAR</xServ>

<chNFe>[%EDT_chNFe%]</chNFe>

</consSitNFe>

</nfeDadosMsg>

</soap12:Body>

</soap12:Envelope>

]

sEnvelopE_soap=Replace(sEnvelopE_soap,CR,"")

EDT_ENVELOPE_SOAP_ENVIADO=sEnvelopE_soap

HTTPCertificate(gs_certificado_thumprint_impressao)

HTTP.IgnoreError = httpIgnoreRevocation

HTTP.IgnoreError = httpErrorInvalidCertificate

HTTP.IgnoreError = httpErrorInvalidCertificateName

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

HTTPCertificate("")

IF bMensagem=False THEN

Error(ErrorInfo(errFullDetails))

Error(ErrorInfo(errMessage))

ELSE

// vamos pegar o retorno

EDT_RETORNO_SOAP=HTTPGetResult(httpResult)

EDT_retorno_xml=XMLExtractString(EDT_RETORNO_SOAP,"nfeResultMsg")

somente_protocolo is string=XMLExtractString(EDT_retorno_xml,"infProt")

EDT_TpAmb = XMLExtractString(somente_protocolo,"tpAmb")

EDT_dhRecbto = XMLExtractString(somente_protocolo,"dhRecbto")

EDT_nProt = XMLExtractString(somente_protocolo,"nProt")

EDT_Cstat = XMLExtractString(somente_protocolo,"cStat")

EDT_Xmotivo = XMLExtractString(somente_protocolo,"xMotivo")

// nesse momento ja temos o xml de retorno

END

------------------------------- SEleciona certificado

// seleciona certificado

//quando usar o 22 , posso usar esse

certificado is Certificate

certificado = CertificateSelect() // ver como fazer abrir certificado sem abrir janela

IF certificado.Name = "" THEN

RETURN

END

IF certificado.ValidForSignature = False THEN

Info("O certificado selecionado não pode ser utilizada para gerar uma assinatura")

RETURN

END

EDT_Certificado_thumprint = NoSpace(certificado.ThumbPrint,sscAll)

-------------- Codigo Status servico

//Status SErvico

//https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx

// Status1

//<?xml version="1.0" encoding="utf-8"?>

s_web_service is string=""

IF RADIO_ambiente=1 THEN

// producao

s_web_service="https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx"

ELSE

// homologação

s_web_service="https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx"

END

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>

<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4">

<consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">

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

<cUF>[%EDT_cUF%]</cUF>

<xServ>STATUS</xServ>

</consStatServ>

</nfeDadosMsg>

</soap12:Body>

</soap12:Envelope>

]

sEnvelopE_soap=Replace(sEnvelopE_soap,CR,"")