Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Ganhe o curso Tributação NF-e para Desenvolvedores

Assinando o SAC Anual este mês
botao.png

 

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

fdsilva.desenv

ANSWERED Funções GerarMDFE e Enviar.

Recommended Posts

Galera, bom dia.

Do começo de setembro pra cá, estamos com uma situação um pouco diferente.

Quando chamamos o componente ACBrMDFe e chamamos as funções "ACBrMDFe1.Manifestos.GerarMDFe" e "ACBrMDFe1.Enviar(numero_do_manifesto,False)" ele faz o envio corretamente, porém já traz a impressão desta nota como encerrada.

 

Para imprimir, fazemos da seguinte forma:

ACBrMDFe1.Manifestos.LoadFromString(XML);
ACBrMDFe1.Manifestos.Imprimir;

 

O processo de encerramento é um processo posterior que chamamos quando o transporte chega ao destino. Para fazer o encerramento utilizamos a função:

    ACBrMDFe1.Manifestos.Clear;
    ACBrMDFe1.Manifestos.LoadFromString(XML);

    ACBrMDFe1.EventoMDFe.Evento.Clear;

    with ACBrMDFe1.EventoMDFe.Evento.Add do
    begin

      InfEvento.chMDFe := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);
      infEvento.CNPJCPF := SomenteNumero(Cnpj);
      infEvento.dhEvento := now;

      infEvento.tpEvento := teEncerramento;
      infEvento.nSeqEvento := 1;

      infEvento.detEvento.nProt := VarToStr(QryImpressao['PROTOCOLO']);
      infEvento.detEvento.dtEnc := Date;
      infEvento.detEvento.cUF := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga), 1, 2));
      infEvento.detEvento.cMun := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga;

    end;

    try

      Resultado := False;
      Erro := '';

      Resultado := ACBrMDFe1.EnviarEvento(1); // 1 = Numero do Lote

    except

      on e: Exception do
      begin

        Resultado := False;
        Erro := e.Message;

      end;

    end;

 

Alguém sabe me dizer, por gentileza, o por quê dessa nota quando enviada já aparecer encerrada?

Desde já agradeço a atenção.

Share this post


Link to post
Share on other sites

Boa tarde Silva,

É bem provável que a propriedade de configuração Encerrado do componente DAMDFE esteja com o valor True.

  • Like 1

Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...