quarta-feira, 14 de julho de 2021

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








https://youtu.be/w1f_mKOKFfE





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

==============================================================

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


Esse exemplo se encontra no repositorio




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,"")
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,"","",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")
EDT_TpAmb = XMLExtractString(EDT_retorno_xml,"tpAmb")
EDT_Cstat = XMLExtractString(EDT_retorno_xml,"cStat")
EDT_Xmotivo = XMLExtractString(EDT_retorno_xml,"xMotivo")
// nesse momento ja temos o xml de retorno
END



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

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP

------------------- 















Teste

Teste
teste