Video
Blog
Repositorio
Help
bom dia
Bom dia.
Vou mostrar algo que esta acontecendo no windev,
com integracao uninfe dll
Video 3742 - Mostrando Rotina ler Certificado e Ler Status
===================== codigo
Video estreia dia 21/06/2022
Menu dos videos webdev windev mobile
//-------------- codigo
//seleciona certificado
vEr_certificado is Variant = ""
O_certificadodigital is CertificadoDigital
WHEN EXCEPTION IN
vEr_certificado=O_certificadodigital.Selecionar()
Info("certificado ok")
DO
vEr_certificado="Erro["+ExceptionInfo(errFullDetails)
fSaveText(fExeDir+"\erro.txt",vEr_certificado)
ShellExecute(fExeDir+"\erro.txt")
END
// status servico
retorno_xml is string = ""
cstat is string = ""
// ler o certicado escolhido
o_configuracao is Configuracao
o_configuracao.CertificadoDigital=vEr_certificado
//status
o_ConsStatServ is ConsStatServ
o_ConsStatServ.VERSAO = "4.00"
o_ConsStatServ.CUF = 43
o_ConsStatServ.TpAmb = 2
WHEN EXCEPTION IN
clO_StatusServico is Unimake.Business.DFe.Servicos.NFe.StatusServico()
clO_StatusServico.Executar(o_ConsStatServ,o_configuracao)
retorno_xml = clO_StatusServico.RetornoWSString
cstat = clO_StatusServico.Result.cStat
DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)
END
// mostrando o resultado
fSaveText(fExeDir+"\xml\status.xml",retorno_xml)
ShellExecute(fExeDir+"\xml\status.xml")
--- Mensagem do erro
Failure initializing the .NET framework.
Check your .NET security parameters.
In most cases, the .NET framework cannot be used from a network path.
Call stack:
Click BTN_Seleciona_certifiado_e_status_servico (WIN_uninfe_dll.BTN_Seleciona_certifiado_e_status_servico), line 4
Date: 21/06/2022 07:10:09
Project: Video_3742_Uninfe_dll_Windev27
Additional information:
Error code: 2452
Module: wd270vm.dll (01F270103n - 27.0.549.5)
EIT_TYPE_WDFILE : <2>
EIT_IDCODE : <18>
------- imgens
