Windev21 Aulas,Estudos e Desenvolvimento: DICAS 2572 WINDEV WEBDEV MOBILE Uninfe 39 Consulta Nota

quarta-feira, 18 de dezembro de 2019

https://youtu.be/Tyjj1HXTvxw

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2572-windev-webdev-mobile-uninfe.html

Boa Noite

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 10:00 do dia 19/12/2019.

Dica 2572. Vamos Consultar uma Nfe com Uninfe Dll.

DICAS 2572 - WINDEV WEBDEV MOBILE - Uninfe 39 - Consulta Nota

Compartilhe Canal Youtube Amarildo Matos

Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando

sonhos em realidades.

PROCEDURE SITUACAO_NOTA(RECEBE_VERSAO is string="",RECEBE_TIPO_AMBIENTE is int=0,sRecebe_ChNFe is string="")

retorno_xml is string=""
RETORNO_CStat is string=""
RETORNO_XMotivo is string=""

ver_certificado is Variant=SELECIONA_CERTIFICADO()
O_CONFIGURACAO is Configuracao
O_CONFIGURACAO.CertificadoDigital=ver_certificado

O_ConsSitNFe is ConsSitNFe
O_ConsSitNFe.Versao = RECEBE_VERSAO //"4.00"
O_ConsSitNFe.TpAmb = RECEBE_TIPO_AMBIENTE // 2 // Homlogaçao
O_ConsSitNFe.ChNFe = sRecebe_ChNFe // "43191216577190000144550010000021401599409923"

WHEN EXCEPTION IN
O_ConsultaProtocolo is Unimake.Business.DFE.Servicos.NFCe.ConsultaProtocolo(O_ConsSitNFe, O_CONFIGURACAO)
O_ConsultaProtocolo.Executar();
retorno_xml=O_ConsultaProtocolo.RetornoWSString
RETORNO_CStat=O_ConsultaProtocolo.Result.CStat
RETORNO_XMotivo=O_ConsultaProtocolo.Result.XMotivo
DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)
END

RESULT(retorno_xml,RETORNO_CStat,RETORNO_XMotivo)
===================================================
// BTN_CONSSTATSERV

n_ambiente is int=EDT_AMBIENTE

(EDT_RESULTADO,EDT_RETORNO_CSTAT,EDT_RETORNO_xMotivo)=SITUACAO_NOTA(EDT_VERSAO,n_ambiente,EDT_SITUACAO_NOTA_ChNFe)

NOME_ARQUIVO is string="C:\TEMP\"+EDT_SITUACAO_NOTA_ChNFe+".XML"
fSaveText(NOME_ARQUIVO,EDT_RESULTADO)
ShellExecute(NOME_ARQUIVO)// BTN_CONSSTATSERV
====================================================
//
//
//<?xml version="1.0"?>
//<retConsSitNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">
//<tpAmb>2</tpAmb>
//<verAplic>RS201809061124</verAplic>
//<cStat>100</cStat>
//<xMotivo>Autorizado o uso da NF-e</xMotivo>
//<cUF>43</cUF>
//<dhRecbto>2019-08-23T21:08:49-03:00</dhRecbto>
//<chNFe>43190828740763000198550010001216531159190630</chNFe>
//<protNFe versao="4.00">
//<infProt Id="ID143190001079964">
//<tpAmb>2</tpAmb>
//<verAplic>RS201908091113</verAplic>
//<chNFe>43190828740763000198550010001216531159190630</chNFe>
//<dhRecbto>2019-08-20T13:25:51-03:00</dhRecbto>
//<nProt>143190001079964</nProt>
//<digVal>l+UONtpdZ4RuaPgAWn7Cm+qGrlE=</digVal>
//<cStat>100</cStat>
//<xMotivo>Autorizado o uso da NF-e</xMotivo>
//</infProt>
//</protNFe>
//</retConsSitNFe>

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