Funções GerarMDFE e Enviar.

[fdsilva.desenv]

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.

[Italo Giurizzato Junior]

Boa tarde Silva,

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

[fdsilva.desenv]

Obrigado Italo, era isso mesmo.

=]

[Juliana Tamizou]

Obrigado por reportar.

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