Windev21 Aulas,Estudos e Desenvolvimento: DICAS 2568 WINDEV WEBDEV MOBILE Uninfe 38 Status Servico

https://youtu.be/tKKt8Crtnt8

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

Bom dia,

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

Bom dia, Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 11:00 do dia 18/12/2019.

Dica 2568. Vamos fazer o Status Servico no Uninfe dll

DICAS 2568 - WINDEV WEBDEV MOBILE - Uninfe 38 - Status Servico

Compartilhe Canal Youtube Amarildo Matos

Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando

sonhos em realidades.

PROCEDURE SELECIONA_CERTIFICADO()

o_CertificadoDigital is CertificadoDigital
ver_certificado is Variant=""
IF YesNo("DESEJA SELECIONAR ARQUIVO CERTIFICADO") THEN
ver_certificado=o_CertificadoDigital.Selecionar()
ELSE
ver_certificado=o_CertificadoDigital.CarregarCertificadoDigitalA1(gs_localizacao_certificado,gs_senha_certificado)
END

RESULT ver_certificado

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

PROCEDURE STATUS_SERVICO(RECEBE_VERSAO is string="",RECEBE_CUF is int=0,RECEBE_TIPO_AMBIENTE is int=0)
EDT_tpAmb_ is int=0
EDT_cUF_ is int=0
EDT_cStat_ is string=""
EDT_xMotivo_ is string=""
retorno_xml is string=""

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

o_ConsStatServ is ConsStatServ
o_ConsStatServ.VERSAO=RECEBE_VERSAO // "4.00"
o_ConsStatServ.CUF=RECEBE_CUF // 43
o_ConsStatServ.TpAmb=RECEBE_TIPO_AMBIENTE // 2 // 1-PRODUCAO 2-HOMOLOGACAO

WHEN EXCEPTION IN
clO_StatusServico is Unimake.Business.DFe.Servicos.NFCe.StatusServico(o_ConsStatServ,O_CONFIGURACAO)
clO_StatusServico.Executar()
retorno_xml=clO_StatusServico.RetornoWSString
EDT_tpAmb_=clO_StatusServico.result.tpAmb
EDT_cUF_=clO_StatusServico.result.cUF
EDT_cStat_=clO_StatusServico.result.cStat
EDT_xMotivo_=clO_StatusServico.result.xMotivo //clO_StatusServico.result.verAplic
DO
Info(ExceptionInfo(errFullDetails))
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)
END
RESULT (retorno_xml,EDT_tpAmb_,EDT_cUF_,EDT_cStat_,EDT_xMotivo_)

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

// BTN_CONSSTATSERV

n_cuf is int=EDT_STATUS_CUF
n_ambiente is int=EDT_STATUS_AMBIENTE

(EDT_RESULTADO,EDT_tpAmb,EDT_cUF,EDT_CSTAT,EDT_xMotivo)=STATUS_SERVICO(EDT_STATUS_VERSAO,n_cuf,n_ambiente)

fSaveText("C:\temp\status.xml",EDT_RESULTADO)
ShellExecute("C:\temp\status.xml")