quarta-feira, 18 de dezembro de 2019

DICAS 2572 WINDEV WEBDEV MOBILE Uninfe 39 Consulta Nota






Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip















Boa Noite 

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

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 10:00 do dia 19/12/2019.
Dica 2572. Vamos Consultar uma Nfe com Uninfe Dll.

DICAS 2572 - WINDEV WEBDEV MOBILE - Uninfe 39 - Consulta Nota

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.



PROCEDURE SITUACAO_NOTA(RECEBE_VERSAO is string="",RECEBE_TIPO_AMBIENTE is int=0,sRecebe_ChNFe is string="")

retorno_xml is string=""
RETORNO_CStat is string=""
RETORNO_XMotivo is string=""

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

O_ConsSitNFe is ConsSitNFe
O_ConsSitNFe.Versao = RECEBE_VERSAO //"4.00"
O_ConsSitNFe.TpAmb = RECEBE_TIPO_AMBIENTE // 2 // Homlogaçao
O_ConsSitNFe.ChNFe = sRecebe_ChNFe // "43191216577190000144550010000021401599409923"

WHEN EXCEPTION IN
O_ConsultaProtocolo is Unimake.Business.DFE.Servicos.NFCe.ConsultaProtocolo(O_ConsSitNFe, O_CONFIGURACAO)
O_ConsultaProtocolo.Executar();
retorno_xml=O_ConsultaProtocolo.RetornoWSString
RETORNO_CStat=O_ConsultaProtocolo.Result.CStat
RETORNO_XMotivo=O_ConsultaProtocolo.Result.XMotivo
DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)
END

RESULT(retorno_xml,RETORNO_CStat,RETORNO_XMotivo)
===================================================
// BTN_CONSSTATSERV

n_ambiente is int=EDT_AMBIENTE

(EDT_RESULTADO,EDT_RETORNO_CSTAT,EDT_RETORNO_xMotivo)=SITUACAO_NOTA(EDT_VERSAO,n_ambiente,EDT_SITUACAO_NOTA_ChNFe)

NOME_ARQUIVO is string="C:\TEMP\"+EDT_SITUACAO_NOTA_ChNFe+".XML"
fSaveText(NOME_ARQUIVO,EDT_RESULTADO)
ShellExecute(NOME_ARQUIVO)// BTN_CONSSTATSERV
====================================================
//
//
//<?xml version="1.0"?>
//<retConsSitNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">
//<tpAmb>2</tpAmb>
//<verAplic>RS201809061124</verAplic>
//<cStat>100</cStat>
//<xMotivo>Autorizado o uso da NF-e</xMotivo>
//<cUF>43</cUF>
//<dhRecbto>2019-08-23T21:08:49-03:00</dhRecbto>
//<chNFe>43190828740763000198550010001216531159190630</chNFe>
//<protNFe versao="4.00">
//<infProt Id="ID143190001079964">
//<tpAmb>2</tpAmb>
//<verAplic>RS201908091113</verAplic>
//<chNFe>43190828740763000198550010001216531159190630</chNFe>
//<dhRecbto>2019-08-20T13:25:51-03:00</dhRecbto>
//<nProt>143190001079964</nProt>
//<digVal>l+UONtpdZ4RuaPgAWn7Cm+qGrlE=</digVal>
//<cStat>100</cStat>
//<xMotivo>Autorizado o uso da NF-e</xMotivo>
//</infProt>
//</protNFe>
//</retConsSitNFe>

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




































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
DICAS 2575 WINDEV WEBDEV MOBILE Uninfe 40 Consulta Cadastro








Ao vivo 2571 - 18/12/2019 21:00 - Amarildo - Fazendo a Consulta Nota Uninfe dll e fazendo a aula






Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip
























Ao vivo 2570 - 18/12/2019 14:00 - Amarildo - Desenvolvimento ao Vivo -






Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip
























DICAS 2568 WINDEV WEBDEV MOBILE Uninfe 38 Status Servico






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








Ao vivo 2569 - 17/12/2019 05:30 - Amarildo Terminando a Aula sobre uninfe - dll - status servico






Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip
























Teste

Teste
teste