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
Blog - WinDev - Curso Certificado - 001/... - Seleciona Certificado - Certificate Select
Blog - WinDev - Curso Certificado - 002/... - Certificate Type - Pegar Dados Certificado
Blog - WinDev - Curso Certificado - 003/... - Ver se Certificado é Válido
Blog - WinDev - Curso Certificado - 004/... - CertificateLoad - Chamar pfx/arquivo
Blog - WinDev - Curso Certificado - 005/... - Assinatura Digital Nfe - Parte 1/...
Blog - WinDev - Curso Certificado - 006/... - Assinatura nfe - Parte 2/... - System.xml.xmlDocument
Blog - WinDev - Curso Certificado - 007/... - Assinatura nfe - Parte 3/... - Assinar Documento
Blog - Windev - Curso Certificado - 008/... HttpListCertificate
Blog - WinDev - Curso Soap - 009/... Consulta Cadastro Sefaz - WebService
Blog - WinDev - Curso Soap - 010 - Status Nfe Sefaz - WebService
DonwLoad Arquivo/Barra progresso/Http - WinDev - Certificado 011/...
//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
