terça-feira, 21 de junho de 2022

Video 3742 - Mostrando Rotina ler Certificado e Ler Status











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















Teste

Teste
teste