segunda-feira, 12 de julho de 2021

DICAS 3368 - WINDEV WEBDEV MOBILE - Status Servico Nfe - Curso Webservice - 35

4LvfLnSlD3A

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

DICAS 3368 - WINDEV WEBDEV MOBILE - Status Servico Nfe - Curso Webservice - 35

https://windevdesenvolvimento.blogspot.com/2021/07/dicas-3368-windev-webdev-mobile-status.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)

Status Servico

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

Relacao dos webservices - Homologação

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

Sefaz Rio Grande do Sul - (RS)

Status Servico

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

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

Assuntos

Status Servico Nfe

Vamos criar uma windows chamado status servico

vamos criar uma tab com 4 guias

Nfe - Envelope Soap Enviado - Retorno Soap - Links

Vamos criar um radio Ambiente - HOmologacao ou Producao

Vamos criar uma combox dos estados

Vamos criar um edt cuf

Vamos criar um botao para dar status nfe

Vamos criar os edt EDT_TpAmb - EDT_Cstat - EDT_Xmotivo - EDT_retorno_xml

Vamos criar EDT_ENVELOPE_SOAP_ENVIADO

Vamos criar EDT_RETORNO_SOAP

vamos fazer o codigo para buscar o status servico nfe

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

// Status Nfe

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://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx"

ELSE

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

END

// vamos fazer sEnvelopE_soap

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,"") // 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) // vamos pegar o retorno com httpgetresult(httpresult)

EDT_Retorno_xml=XMLExtractString(EDT_RETORNO_SOAP,"nfeResultMsg") // vamos agora pegar somente o xml de retorno // XMLExtractString(EDT_RETORNO_SOAP,"nfeResultMsg")

EDT_TpAmb=XMLExtractString(EDT_RETORNO_SOAP,"tpAmb")

EDT_Cstat=XMLExtractString(EDT_RETORNO_SOAP,"cStat")

EDT_Xmotivo=XMLExtractString(EDT_RETORNO_SOAP,"xMotivo")

END

--------------------- Indice WebService