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


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

































Teste

Teste
teste