Windev21 Aulas,Estudos e Desenvolvimento: _Curso

System.Reflection.TargetInvocationException: Uma exceção foi acionada pelo destino de uma chamada. ---> System.NullReferenceException: Referência de objeto não definida para uma instância de um objeto.

em Unimake.Business.DFe.Servicos.NFe.RecepcaoEvento.DefinirConfiguracao()

em Unimake.Business.DFe.Servicos.ServicoBase.Inicializar()

em Unimake.Business.DFe.Servicos.ServicoBase..ctor(XmlDocument conteudoXML, Configuracao configuracao)

em Unimake.Business.DFe.Servicos.NFe.ServicoBase..ctor(XmlDocument conteudoXML, Configuracao configuracao)

em Unimake.Business.DFe.Servicos.NFe.RecepcaoEvento..ctor(XmlDocument conteudoXML, Configuracao configuracao)

em Unimake.Business.DFe.Servicos.NFe.RecepcaoEvento..ctor(EnvEvento envEvento, Configuracao configuracao)

--- Fim do rastreamento de pilha de exceções internas ---

em System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)

em System.Reflection.RuntimeConstructorInfo.Invoke(BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

em CDotNetType.vpgcrInvokeConstructor(CDotNetType* , ConstructorInfo pclConstructorInfo, CSLevel* pclPile, Int32 nNbParamPile, STOperationDotNet* pstOperation)

em CDotNetType.vpgcrInvokeConstructor(CDotNetType* , STMethodeDotNet* pstMethode, UInt32* pdwIdentifiant, CSLevel* pclPile, Int32 nNbParamPile, STOperationDotNet* pstOperation)

em CDotNetInstance.bExecuteConstructeur(CDotNetInstance* , STMethodeDotNet* pstMethode, UInt32* pdwIdentifiant, CSLevel* pclPile, Int32 nNbParamPile, STOperationDotNet* pstOperation)

Additional information:

EIT_PILEWL :

Global procedure CANCELAMENTO_NFE (GlobalProcedures.CANCELAMENTO_NFE), line 67

Click BTN_CANCELAMENTO (WIN_UNINFE.BTN_CANCELAMENTO), line 10

EIT_DATEHEURE : 27/12/2019 09:20:46

EIT_TYPE_WDFILE : <7>

EIT_IDCODE : <458752>

Exemplo: C#

// ---------------------------------------------------------------------------------------------------------
//Enviando XML de eventos
// ---------------------------------------------------------------------------------------------------------

try
{
var xml = new EnvEvento
{
Versao = "1.00",
IdLote = "000000000000001",
Evento = new[] {
new Evento
{
Versao = "1.00",
InfEvento = new InfEvento(new DetEventoCanc
{
NProt = "141190000660363",
Versao = "1.00",
XJust = "Justificativa para cancelamento da NFe de teste"
})
{
COrgao = CUF,
ChNFe = "41190806117473000150550010000579131943463890",
CNPJ = "06117473000150",
DhEvento = DateTime.Now,
TpEvento = TipoEventoNFe.Cancelamento,
NSeqEvento = 1,
VerEvento = "1.00",
TpAmb = TpAmb
}
}
}
};

var configuracao = new Configuracao
{
CertificadoDigital = CertificadoSelecionado
};

var recepcaoEvento = new RecepcaoEvento(xml, configuracao);
recepcaoEvento.Executar();
MessageBox.Show(recepcaoEvento.RetornoWSString);
MessageBox.Show(recepcaoEvento.Result.XMotivo);

//Gravar o XML de distribuição se a inutilização foi homologada
if (recepcaoEvento.Result.CStat == 128) //128 = Lote de evento processado com sucesso
{
switch (recepcaoEvento.Result.RetEvento[0].InfEvento.CStat)
{
case 135: //Evento homologado com vinculação da respectiva NFe
case 136: //Evento homologado sem vinculação com a respectiva NFe (SEFAZ não encontrou a NFe na base dela)
case 155: //Evento de Cancelamento homologado fora do prazo permitido para cancelamento
recepcaoEvento.GravarXmlDistribuicao(@"c:\testenfe\");
break;

default: //Evento rejeitado
recepcaoEvento.GravarXmlDistribuicao(@"c:\testenfe\");
break;
}
}
}
catch (Exception ex)
{
CatchException(ex);
}

Exemplo Windev

======================================
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 CANCELAMENTO_NFE(sRecebe_NProt is string="",sRecebe_justificativa is string="",recebe_IdLote is int=0, ...
nrecebe_COrgao_cuf is int=0,sRecebe_ChNFe is string="",sRecebe_CNPJ is string="", ...
nrecebe_tipo_ambiente is int=0,recebe_tipo_evento is int=0,recebe_sequencia_evento is int=0)

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_EnvEvento is EnvEvento
O_EnvEvento.Versao = "1.00"
O_EnvEvento.IdLote = recebe_IdLote // "000000000000001"

o_Evento is Evento
o_Evento.Versao = "1.00"

o_DetEventoCanc is DetEventoCanc
o_DetEventoCanc.NProt=sRecebe_NProt
o_DetEventoCanc.Versao = "1.00"
o_DetEventoCanc.XJust=sRecebe_justificativa

o_InfEvento is InfEvento(o_DetEventoCanc)
o_InfEvento.COrgao = nrecebe_COrgao_cuf //43
o_InfEvento.ChNFe = sRecebe_ChNFe
o_InfEvento.CNPJ = sRecebe_CNPJ

data_transmissao is DateTime=""
dDate is Date = DateSys()

hora is Time=Now()

data_transmissao..Day=dDate..Day
data_transmissao..Month=dDate..Month
data_transmissao..Year=dDate..Year

data_transmissao..Hour=hora..Hour
data_transmissao..Minute=hora..Minute
data_transmissao..Second=hora..Second

o_InfEvento.DhEvento = data_transmissao
o_InfEvento.TpEvento = recebe_tipo_evento // 110110
o_InfEvento.NSeqEvento = recebe_sequencia_evento // 1
o_InfEvento.VerEvento = "1.00"
o_InfEvento.TpAmb = nrecebe_tipo_ambiente// 2 = homologacao

WHEN EXCEPTION IN

O_RecepcaoEvento is Unimake.Business.DFe.Servicos.NFe.RecepcaoEvento(O_EnvEvento, O_CONFIGURACAO)
O_RecepcaoEvento.Executar()
retorno_xml=O_RecepcaoEvento.RetornoWSString
retorno_cstat=O_RecepcaoEvento.Result.CStat
retorno_xmotivo=O_RecepcaoEvento.Result.XMotivo

SWITCH retorno_cstat
CASE "128"
Info("128 - LOTE PROCESSADO COM SUCESSO")
CASE "135"
Info("135 - Evento homologado com vinculação da respectiva NFe")
CASE "136"
Info("136 - Evento homologado sem vinculação com a respectiva NFe (SEFAZ não encontrou a NFe na base dela)")
CASE "155"
Info("155 - Evento de Cancelamento homologado fora do prazo permitido para cancelamento")
OTHER CASE
Info("Evento rejeitado")

END

O_RecepcaoEvento.GravarXmlDistribuicao("c:\TEMP\");

DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)

END

RESULT(retorno_xml,retorno_cstat,retorno_xmotivo)
====================================

// btn_ nfe_cancelar_cancelarnota

tipo_ambiente is int=EDT_AMBIENTE
nTipo_evento is int=110110
nSequencia_evento is int=EDT_cancelar_sequencia_Evento
nnumero_lote is int=EDT_cancelar_numero_lote
ncuf is int=EDT_CUF

(EDT_RESULTADO,EDT_RETORNO_CSTAT,EDT_RETORNO_xMotivo)=CANCELAMENTO_NFE(EDT_cancelar_NProt,EDT_cancelar_Justificativa, ...
nnumero_lote,ncuf, ...
EDT_cancelar_eChave,EDT_cancelar_cnpj_emitente,tipo_ambiente,nTipo_evento, ...
nSequencia_evento)
=================================

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
DICAS 2580 - WINDEV WEBDEV MOBILE - Uninfe 41 - Inutilizacao Nota com uninfe dll
DICAS 2584 WINDEV WEBDEV MOBILE Uninfe 42 Consulta Recibo dll
DICAS 2590 WINDEV WEBDEV MOBILE Uninfe 43 Cancelamento Nota

segunda-feira, 23 de dezembro de 2019

DICAS 2584 WINDEV WEBDEV MOBILE Uninfe 42 Consulta Recibo dll

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

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

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

Boa Tarde, Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 18:00 do dia 23/12/2019.
Dica 2584. Vamos fazer consulta Recibo pelo uninfe Dll.

DICAS 2584 - WINDEV WEBDEV MOBILE - Uninfe 42 - Consulta Recibo Dll

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

https://youtu.be/F39V28B9n1U

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

=====================================
// ---------------------------------------------------------------------------------------------------------
//Enviando XML de consulta recibo do lote de nfe enviado
// ---------------------------------------------------------------------------------------------------------

try
{
var xml = new ConsReciNFe
{
Versao = "4.00",
TpAmb = TpAmb,
NRec = UF + "3456789012345"
};

var configuracao = new Configuracao
{
CertificadoDigital = CertificadoSelecionado
};

var retAutorizacao = new RetAutorizacao(xml, configuracao);
retAutorizacao.Executar();
MessageBox.Show(retAutorizacao.RetornoWSString);
MessageBox.Show(retAutorizacao.Result.XMotivo);
}
catch (Exception ex)
{
CatchException(ex);
}
=========================================
PROCEDURE CONSULTA_RECIBO_NFE(RECEBE_VERSAO is string="",RECEBE_TP_AMBIENTE is int=0,RECEBE_UF is string="",RECEBE_NUM_RECIBO 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_ConsReciNFe is ConsReciNFe
o_ConsReciNFe.Versao=RECEBE_VERSAO
o_ConsReciNFe.TpAmb=RECEBE_TP_AMBIENTE
o_ConsReciNFe.NRec=RECEBE_NUM_RECIBO

WHEN EXCEPTION IN

O_RetAutorizacao is Unimake.Business.DFe.Servicos.NFe.RetAutorizacao(o_ConsReciNFe, o_configuracao)
O_RetAutorizacao.Executar()
retorno_xml=O_RetAutorizacao.RetornoWSString
retorno_cstat=O_RetAutorizacao.Result.CStat
retorno_xmotivo=O_RetAutorizacao.Result.XMotivo

DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)

END

RESULT(retorno_xml,retorno_cstat,retorno_xmotivo)
======================================
// BTN_CONSULTA_RECIBO

n_ambiente is int=EDT_AMBIENTE

(EDT_RESULTADO,EDT_RETORNO_CSTAT,EDT_RETORNO_xMotivo)=CONSULTA_RECIBO_NFE(EDT_VERSAO,n_ambiente,EDT_uf,EDT_CONSULTA_RECIBO_NRec)

NOME_ARQUIVO is string="C:\TEMP\"+EDT_CONSULTA_RECIBO_NRec+".XML"
fSaveText(NOME_ARQUIVO,EDT_RESULTADO)
ShellExecute(NOME_ARQUIVO)

domingo, 22 de dezembro de 2019

DICAS 2580 - WINDEV WEBDEV MOBILE - Uninfe 41 - Inutilizacao Nota com uninfe dll

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

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

boa noite

https://youtu.be/mCAuBzvBM4A

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

Boa Noite

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 23:00 do dia 22/12/2019.

Dica 2580. Vamos fazer Inutilizacao Nfe pelo Uninfe Dll Integrado com Windev.

DICAS 2580 - WINDEV WEBDEV MOBILE - Uninfe 41 - Inutilizacao Nota com uninfe dll

Compartilhe Canal Youtube Amarildo Matos

Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando

sonhos em realidades.

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

==================================
PROCEDURE INUTILIZACAO_NOTA_NFE(Srecebe_cnpj is string="",nRECEBE_TIPO_AMBIENTE is int=0,nRECEBE_EDT_CUF is int=0, ...
NRECEBE_EDT_INUTILIZA_MODELO is int=0,nDT_INUTILIZA_NUMERO_INICIAL is int=0, ...
nDT_INUTILIZA_NUMERO_FINAL is int= 0,nNEDT_INUTILIZA_SERIE is int=0, ...
SEDT_INUTILIZA_JUSTIFICATIVA is string="", ...
SEDT_INUTILIZA_ANO_DOIS_ULTIMOS_DIGITOS is string="")
retorno_xml is string=""
ver_certificado is Variant=SELECIONA_CERTIFICADO()
O_CONFIGURACAO is Configuracao
O_CONFIGURACAO.CertificadoDigital=ver_certificado
O_InutNFe is InutNFe
O_InutNFe.Versao="4.00"
o_InutNFeInfInut is InutNFeInfInut
o_InutNFeInfInut.Ano=SEDT_INUTILIZA_ANO_DOIS_ULTIMOS_DIGITOS // "19"
o_InutNFeInfInut.CNPJ = Srecebe_cnpj
o_InutNFeInfInut.CUF = nRECEBE_EDT_CUF// 43
o_InutNFeInfInut.Mod = NRECEBE_EDT_INUTILIZA_MODELO // 55
o_InutNFeInfInut.NNFIni =nDT_INUTILIZA_NUMERO_INICIAL// 2140
o_InutNFeInfInut.NNFFin = nDT_INUTILIZA_NUMERO_FINAL// 2140
o_InutNFeInfInut.Serie = nNEDT_INUTILIZA_SERIE // 1
o_InutNFeInfInut.TpAmb = nRECEBE_TIPO_AMBIENTE // 2// RECEBE_TIPO_AMBIENTE
o_InutNFeInfInut.XJust = SEDT_INUTILIZA_JUSTIFICATIVA //"Justificativa da inutilizacao de teste"
O_InutNFe.InfInut=o_InutNFeInfInut
WHEN EXCEPTION IN
O_inutilizacao is Unimake.Business.DFe.Servicos.NFe.Inutilizacao(O_InutNFe, O_CONFIGURACAO)
O_inutilizacao.Executar();
retorno_xml=O_inutilizacao.RetornoWSString
DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)
END
RESULT(retorno_xml)
========================================

// BTN NFE INUTILIZAR

n_ambiente is int=EDT_AMBIENTE
n_EDT_CUF is int=EDT_CUF
ano_dois_ultimos_digitos is string=EDT_INUTILIZA_ANO[[3 TO 4]]

(EDT_RESULTADO)=INUTILIZACAO_NOTA_NFE(EDT_INUTILIZA_CNPJ,n_ambiente,n_EDT_CUF,EDT_INUTILIZA_MODELO, ...
EDT_INUTILIZA_NUMERO_INICIAL,EDT_INUTILIZA_NUMERO_FINAL, ...
EDT_INUTILIZA_SERIE,EDT_INUTILIZA_JUSTIFICATIVA,ano_dois_ultimos_digitos)
=========================================

// ---------------------------------------------------------------------------------------------------------
//Enviando XML de inutilização
// ---------------------------------------------------------------------------------------------------------

try
{
    var xml = new InutNFe
    {
        Versao = "4.00",
        InfInut = new InutNFeInfInut
        {
            Ano = "19",
            CNPJ = "06117473000150",
            CUF = CUF,
            Mod = ModeloDFe.NFe,
            NNFIni = 57919,
            NNFFin = 57919,
            Serie = 1,
            TpAmb = TpAmb,
            XJust = "Justificativa da inutilizacao de teste"
        }
    };

    var configuracao = new Configuracao
    {
        CertificadoDigital = CertificadoSelecionado
    };

    var inutilizacao = new Inutilizacao(xml, configuracao);
    inutilizacao.Executar();
    MessageBox.Show(inutilizacao.RetornoWSString);
    MessageBox.Show(inutilizacao.Result.InfInut.XMotivo);

    //Gravar o XML de distribuição se a inutilização foi homologada
    switch (inutilizacao.Result.InfInut.CStat)
    {
        case 102: //Inutilização homologada
            inutilizacao.GravarXmlDistribuicao(@"c:\testenfe\");
            break;

        default: //Inutilização rejeitada
            inutilizacao.GravarXmlDistribuicao(@"c:\testenfe\");
            break;
    }

}
catch (Exception ex)
{
    CatchException(ex);
}