video
Blog
Repositorio
Help
Uninfe
bom dia
Uninfe dll com Windev
Vamos consultar Status do Servico da Nf
Esse video vai estrear dia 24/03/2022
DICA 3668 - Uninfe Dll - Consultar Status do Serviço da NF - Windev 27
Video estreia dia 24 03 2022
Menu dos videos webdev windev mobile
//-------------------------------------
// PROCEDURE status_servico()
retorno_xml is string = ""
tpAmb is int = 0
cuf is int = 0
cstat is string = ""
xMotivo is string = ""
seleciona_Certificado()
o_configuracao is Configuracao
o_configuracao.TipoDFe=TipoDFe.NFe
o_configuracao.TipoEmissao=TipoEmissao.Normal
o_configuracao.CertificadoDigital=vEr_certificado
o_ConsStatServ is ConsStatServ
o_ConsStatServ.versao="4.00"
o_ConsStatServ.CUF=43 //o_ConsStatServ.cuf=UFBrasil.RS
o_ConsStatServ.TpAmb=2 // HOmolacao //o_ConsStatServ.TpAmb=TipoAmbiente.Homologacao // 2 //RECEBE_TIPO_AMBIENTE // 2 // 1-PRODUCAO 2-HOMOLOGACAO
WHEN EXCEPTION IN
clo_statusservico is Unimake.business.DFe.Servicos.NFCe.StatusServico()
clo_statusservico.Executar(o_ConsStatServ,o_configuracao)
retorno_xml = clo_statusservico.RetornoWSString
tpAmb = clo_statusservico.Result.tpAmb
cuf = clo_statusservico.Result.cUF
cstat = clo_statusservico.Result.cStat
xMotivo = clo_statusservico.Result.xMotivo
DO
retorno_xml="Erro:"+ExceptionInfo(errFullDetails)
END
RESULT(retorno_xml,tpAmb,cuf,cstat,xMotivo)
===============================
//chama status servico
(EDT_retorno_xml,EDT_tpAmb,EDT_cUf,EDT_cStat,EDT_xMotivo)=status_servico()
===============================
// PROCEDURE seleciona_Certificado()
O_certificadodigital is CertificadoDigital
IF gs_localizacao_certificado="" THEN
WHEN EXCEPTION IN
vEr_certificado=O_certificadodigital.Selecionar()
DO
vEr_certificado="Erro["+ExceptionInfo(errFullDetails)
END
ELSE
WHEN EXCEPTION IN
vEr_certificado=O_certificadodigital.CarregarCertificadoDigitalA1(gs_localizacao_certificado,gs_senha_certificado)
DO
vEr_certificado="Erro["+ExceptionInfo(errFullDetails)
END
END
====================
seleciona_Certificado()
=====================
//chama status servico
(EDT_retorno_xml,EDT_tpAmb,EDT_cUf,EDT_cStat,EDT_xMotivo)=status_servico()
================
GLOBAL
gs_senha_certificado is UNICODE string
gs_localizacao_certificado is UNICODE string
vEr_certificado is Variant = ""
IF YesNo("deseja pegar certificado do computador") THEN
configuracao()
END
========
<retConsStatServ versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>2</tpAmb><verAplic>RS201805211008</verAplic><cStat>107</cStat><xMotivo>Servico em Operacao</xMotivo><cUF>43</cUF><dhRecbto>2022-03-19T19:45:19-03:00</dhRecbto><tMed>1</tMed></retConsStatServ>
