Windev21 Aulas,Estudos e Desenvolvimento: DICAS 2580 - WINDEV WEBDEV MOBILE - Uninfe 41

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);
}