Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip
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")
Blog - Uninfe - 1/... Como Instalar
Blog - Uninfe - 2/... - Criando wdl nfe
Blog - Uninfe - 3/... - Linkando Wdl Nota
Blog - Xml - 4/... Xml Cabecalho
Blog - Xml - 5/... Tag Nfe
Blog - Xml - 6/... Tag InfNfe
Blog - Xml - 7/... - Tag Ide - uf
Blog - Xml - 8/... Tag Ide - Pegar Data e Hora Emissão
Blog - Xml - 9 / ... Tag Ide - Finalizar Grupo de Tag
Blog - Xml - 10 / ... - Tag Emit - Inicio
Blog - Xml - 11 / ... - Tag emit - Emitente Final
Blog - Xml - 12/... - Tag Dest - Destinatario
Blog - Xml - 13/... - Tag - det nItem=1 - Inicio
Blog - Xml - 14/... - Tag - det Prod
Blog - Xml - 15/... - Tag - Imposto
Blog - Xml - 16/... - Tag Final
Blog - Xml - 17/... - Gerar Xml e Enviar Pasta Validado
Blog - Xml - 18/... - Pegar retorno Xml Validado
Blog - Xml - 19/... Calculo Digito - Modulo 11 Nfe
Blog - Xml - 20/... Achar a Posicao do Erro Nfe
Blog - Xml - 21/... Transmitir e Pegar Retorno
Blog - Xml - 22/... Imprimir Nfc-e Com Daruma
Blog - Xml - 23/... - Monitorar Pasta Uninfe de Retorno
Blog - Xml - 24/... - Parte 1/... - Uninfe Consulta Cadastro Contribuiente
Blog - Xml - 25/... - Parte 2/... - Uninfe Consulta Cadastro Contribuiente
Blog - Xml - 26/... - Parte 3/... - Uninfe Consulta Cadastro Contribuiente
Blog - Xml - 27/... - Parte 4/... - Uninfe Retorno Cadastro Contribuinte
Blog - Xml - 28/... - Parte 5/... - Uninfe Retorno Contribuinte colocar Xml Edt
Blog - Xml - 29/... - Parte 6/... - Uninfe Retorno Contribuinte - Pegar Dados Xml
Blog - Xml - 30/... - Parte 7/... - Uninfe Retorno Contribuinte - Mudando Para Procedure global
Blog - Xml - 31/... - Parte 8/Final - Uninfe Retorno Contribuiente Final
INSTALACAO UNINFE - WINDEV UNIMAKE 32 - AULA 1345
Dica 2248. Hangout Vivo - Uninfe Integrando Com Windev - 13 08 2019 20:00
Dica 2251. Hangout Vivo - 15/08 20:00 - Iniciando Uninfe dll com Windev
DICAS 2560 WINDEV WEBDEV MOBILE Uninfe 36 Reiniciando Estudos Dll Uninfe
DICAS 2562 WINDEV WEBDEV MOBILE Uninfe 37 Seleciona Certificado Uninfe
DICAS 2568 WINDEV WEBDEV MOBILE Uninfe 38 Status Servico
DICAS 2572 WINDEV WEBDEV MOBILE Uninfe 39 Consulta Nota
Nenhum comentário:
Postar um comentário