Manifesto Eletrônico de Documentos Fiscais

[LeoSlander]

Valeu Italo, compreendi perfeitamente a necessidade do MDF. Muito obrigado pela atenção.

[Italo Giurizzato Junior]

Boa noite a todos,

 

Encontra-se disponivel no repositório trunk os fontes dos componentes: ACBrMDFe, ACBrMDFeDAMDFEQR, os pacotes de instalação dos mesmos e um programa exemplo.

 

Nos próximos dias vou remover do repositório branches.

 

Estou migrando para o repositório trunk, para facilitar a instalação dos componentes e para que mais desenvolvedores possam implementar em suas aplicações e realizar os testes.

 

Visto que já encontram-se liberados os ambientes de homologação e produção e segundo o Ajuste SINIEF 15/2012 determina o calendário de obrigatoriedade.

 

 “Cláusula décima sétima A obrigatoriedade de emissão do MDF-e será imposta aos contribuintes de acordo com o seguinte cronograma:

I – na hipótese de contribuinte emitente do CT-e de que trata o Ajuste SINIEF 09/07, no transporte interestadual de carga fracionada, a partir das seguintes datas:

 

a ) 1º de julho de 2013, para os contribuintes obrigados a emissão do CT-e de que trata o inciso I da cláusula vigésima quarta do Ajuste SINIEF 09/07;

 

b ) 1º de novembro de 2013, para os contribuintes obrigados a emissão do CT-e de que trata o inciso III da cláusula vigésima quarta do Ajuste SINIEF 09/07;

 

c ) 1º de abril de 2014, para os contribuintes obrigados a emissão do CT-e de que trata o inciso IV da cláusula vigésima quarta do Ajuste SINIEF 09/07;

 

d ) 1º de agosto de 2014, para os contribuintes obrigados a emissão do CT-e de que trata o inciso V da cláusula vigésima quarta do Ajuste SINIEF 09/07;

 

II – na hipótese de contribuinte emitente de NF-e de que trata o Ajuste SINIEF 07/05, no transporte interestadual de bens ou mercadorias acobertadas por mais de uma NF-e,
realizado em veículos próprios ou arrendados, ou mediante contratação de transportador autônomo de cargas, a partir das seguintes datas:

 

a ) 1º de novembro de 2013, para os contribuintes não optantes pelo regime do Simples Nacional;

 

b ) 1º de abril de 2014, para os contribuintes optantes pelo regime do Simples Nacional.

 

Parágrafo único. A partir de 1º de janeiro de 2013, legislação estadual poderá dispor sobre a obrigatoriedade de emissão de MDF-e para os contribuintes indicados nos
incisos “I” e “II”, em cujo território tenha:

 

I - sido iniciada a prestação do serviço de transporte;

 

II - ocorrido a saída da mercadoria, na hipótese do inciso II da cláusula terceira.”.

 

[fbarbozabr]

Bom dia Italo,

 

Não encontrei a rotina para Enviar Evento de Cancelamento, ela já está implementada ? Eu atualizei hoje pela manhã os fontes.

 

sds,

 

 

Fábio.

[Italo Giurizzato Junior]

Bom dia Fábio,

 

O Cancelamento por evento que você se refere é sobre o Manifesto Eletrônico de Documentos Fiscais?

 

Se sim, veja este exemplo:

 

   with ACBrMDFe.EventoMDFe.Evento.Add do

    begin

     infEvento.chMDFe   := sChave;

     infEvento.CNPJ     := sCNPJ;

     infEvento.dhEvento := now;

//  TpcnTpEvento = (teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia,

//                  teManifDestDesconhecimento, teManifDestOperNaoRealizada,

//                  teEncerramento);

     infEvento.tpEvento   := teCancelamento;

     infEvento.nSeqEvento := 1;

     infEvento.detEvento.nProt := sProtocolo;

     infEvento.detEvento.xJust := sJustificativa;

    end;

 

   DMMDFe.MDFe.EnviarEventoMDFe(idLote);

[fbarbozabr]

Bom dia Italo,

 

Era isso mesmo, o cancelamento do MDF-e. Já estava conseguindo enviar e consultar sem

problemas no ambiente de homologação, mas no sistema de demonstração estava faltando

essa parte do cancelamento. Agora vou poder finalizar os testes e me programar para

entrar em produção.

 

sds.

[walter faria]

Tenho uma transportadora que carregas varias mercadorias de SP para fora do estado.
 

Ele Emite CT-e , a minha duvida é se a transportadora que tem de emitir o MDF-e?

 

Obrigado

[Italo Giurizzato Junior]

Boa tarde Walter,

 

Leia o ajuste SINIEF 15 de 28/09/2012 na integra através do link abaixo:

 

http://www.fazenda.gov.br/confaz/confaz/ajustes/2012/AJ_015_12.htm

 

Mais precisamente:

 

“Cláusula décima sétima A obrigatoriedade de emissão do MDF-e será imposta aos contribuintes de acordo com o seguinte cronograma:

 

I – na hipótese de contribuinte emitente do CT-e de que trata o Ajuste SINIEF 09/07, no transporte interestadual de carga fracionada, a partir das seguintes datas:

 

a) 1º de julho de 2013, para os contribuintes obrigados a emissão do CT-e de que trata o inciso I da cláusula vigésima quarta do Ajuste SINIEF 09/07;

1º de novembro de 2013, para os contribuintes obrigados a emissão do CT-e de que trata o inciso III da cláusula vigésima quarta do Ajuste SINIEF 09/07;

c) 1º de abril de 2014, para os contribuintes obrigados a emissão do CT-e de que trata o inciso IV da cláusula vigésima quarta do Ajuste SINIEF 09/07;

d) 1º de agosto de 2014, para os contribuintes obrigados a emissão do CT-e de que trata o inciso V da cláusula vigésima quarta do Ajuste SINIEF 09/07;

 

Acho que responde a sua pergunta.

[walter faria]

Italo, boa tarde.

 

Responde sim, muito obrigado.

[Márcio B.]

Estou tentando instalar o MDFe mais esta me apresentando o seguinte erro: [DCC Error] ACBr_MDFe.dpk(30): E2202 Required package 'visualclx' not found.

ps: Delphi 2007

Grato!

Adailson

 

Apenas para registro... no Delphi 2010 resolvi este problema mudando a linha {$IMPLICITBUILD OFF} para {$IMPLICITBUILD ON}.

 

Abraço.

 

Márcio B.

Editado 4 Março, 2013 por W32Blood

[Márcio B.]

Bom dia,

 

Alguém conseguiu fazer o recebimento do manifesto?

 

Márcio B.

[Italo Giurizzato Junior]

Boa tarde Márcio,

 

O que vem a ser o Recebimento do Manifesto?

[Márcio B.]

Bom dia, Me desculpem,

 

 

Foi gíria interna de transportadora. Como recebimento quis dizer encerramento.

Usei a palavra recebimento porque quando o caminhão chegar numa filial ele vai lançar a o recebimento desta carga e o sistema vai encerrar o manifesto.

 

Então refazendo a pergunta: Alguém conseguiu fazer o encerramento? Tentei de várias formas mas não tive sucesso.

 

Márcio B.

[Italo Giurizzato Junior]

Bom dia Márcio,

 

E encerramento é um evento como o Cancelamento, mas vai ai usa sugestão de como fazer:

 

 // Carregar o xml do MDF-e

 

 ACBrMDFe.Manifestos.Clear;
 ACBrMDFe.Manifestos.LoadFromFile(NomeArquivo);
 

(...)

 

   // Alimentar o componente com os dados do Evento.

 

   with ACBrMDFe.EventoMDFe.Evento.Add do
    begin
     infEvento.chMDFe   := sChave;
     infEvento.CNPJ     := sCNPJ;
     infEvento.dhEvento := now;
     //  TpcnTpEvento = (teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia,
     //                  teManifDestDesconhecimento, teManifDestOperNaoRealizada,
     //                  teEncerramento);
     infEvento.tpEvento   := teEncerramento;
     infEvento.nSeqEvento := 1;
 

     infEvento.detEvento.nProt := sProtocolo;
     infEvento.detEvento.dtEnc := Date;
     infEvento.detEvento.cUF   := CodUF; // exemplo 35 - SP
     infEvento.detEvento.cMun  := CodMunicipio; // exemplo 3557105 - Votuporanga/SP
    end;

 

   // Envio do evento

 

   ACBrMDFe.EnviarEventoMDFe(idLote);

 

  // Retorno da SEFAZ

 

   sProtocolo := DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

   sStat      := IntToStr(DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat);
   sMotivo    := DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;
   sDataHora  := DateTimeToStr(DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento);

 

Espero ter ajudado.

[Márcio B.]

Bom dia Márcio,

 

E encerramento é um evento como o Cancelamento, mas vai ai usa sugestão de como fazer:

 

 // Carregar o xml do MDF-e

 

 ACBrMDFe.Manifestos.Clear;

 ACBrMDFe.Manifestos.LoadFromFile(NomeArquivo);

 

(...)

 

   // Alimentar o componente com os dados do Evento.

 

   with ACBrMDFe.EventoMDFe.Evento.Add do

    begin

     infEvento.chMDFe   := sChave;

     infEvento.CNPJ     := sCNPJ;

     infEvento.dhEvento := now;

     //  TpcnTpEvento = (teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia,

     //                  teManifDestDesconhecimento, teManifDestOperNaoRealizada,

     //                  teEncerramento);

     infEvento.tpEvento   := teEncerramento;

     infEvento.nSeqEvento := 1;

 

     infEvento.detEvento.nProt := sProtocolo;

     infEvento.detEvento.dtEnc := Date;

     infEvento.detEvento.cUF   := CodUF; // exemplo 35 - SP

     infEvento.detEvento.cMun  := CodMunicipio; // exemplo 3557105 - Votuporanga/SP

    end;

 

   // Envio do evento

 

   ACBrMDFe.EnviarEventoMDFe(idLote);

 

  // Retorno da SEFAZ

 

   sProtocolo := DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

   sStat      := IntToStr(DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat);

   sMotivo    := DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

   sDataHora  := DateTimeToStr(DMMDFe.MDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento);

 

Espero ter ajudado.

 

Bom dia,

 

Entre a última postagem e agora eu consegui fazer... fiz mais simples mas funcionou. O que eu estava errando era simples: A uUF e UMun que deviam ser do município de destino independente se a Transportadora tem ou não filial naquele munícipio e sim o que esta dentro do xml do manifesto. Então fica a dica para o pessoal.

 

Muito obrigado pela atenção.

 

 

Márcio B.

[Italo Giurizzato Junior]

Márcio,

 

Se eu entendi, devemos informar ao encerrar um Manifesto é:

 

cUF e cMun informado no XML como sendo o destino final da carga?

 

Mas, segundo o manual devemos efetuar o encerramento não só quando a carga chega ao seu destino, também devemos efetuar o encerramento quando ocorre alguma alteração, por exemplo troca do motorista.

 

Exemplo:

 

O caminhão parte da origem "A" e tem como destino "C", mas passa pelo ponto "B", digamos que "A, B e C" são cidades por onde o caminhão passa sendo que "A e B" ficam no estado de São Paulo e "C" fica no Rio de Janeiro.

 

Logo na cidade "A", origem do trajeto é emitido o MDF-e, mas ao chegar em "B" ocorre a mudança do motirista, sendo assim devemos encerrar o Manifesto e emitir um outro com os dados do novo motorista, ao chegar em "C" destino da carga, devemos encerrar esse segundo Manifesto.

 

Até onde sei quando é emitido o MDF-e devemos informar a UF origem e destino e se necessário as demais UF entre a origem e destino caso seja esse o trajeto do caminhão.

 

Pelo o que você disse, ao efetuar o encerramento a UF e Municipio tem que ser a origem, ou destino ou um intermediário.

 

É isso?

[jose geraldo]

Bom dia Ítalo.

 

Estou criando uma rotina para atualizar o status de um MDF-e que por ventura possa ter acorrido algum erro (internet por exemplo) no processo de um evento como cancelamento por exemplo, pelo consultar eu tenho essas informações, já as informações do evento como por exemplo protocolo, existe alguma maneira de ler a informação pelo componente sem ter que ler o XML de retorno realizando a consulta ?

 

Desde já Agradeço.

[Italo Giurizzato Junior]

Bom dia José Geraldo,

 

Esta disponivel uma alteração, favor baixar e testar.

 

Para obter o numero do protocolo veja se o comando abaixo vai resolver:

 

   sProtocolo := ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

 

[jose geraldo]

Boa Tarde Italo.

 

Atualizei e testei, mas porem ocorre o erro por não existir tal evento, acho que me expressei errado na pergunta acima, no caso eu queria ler a informação do evento que retorna o ACBrMDFe.Consultar vou anexar um xml de retorno onde consta a informação do evento incluisive com protocolo.

 

Desde ja Agradeço a Atenção.

temp.xml

[Gr@c@]

Fiz a atualização do ACBr hoje e estou tentando compilar o demo do ACBrMDFe, mas está dando o erro

TACBrMDFeDAMDFeQR not found

 

Uso o quickreport 3. Copiei as units que estão na pasta do DAMDFE_QR3 para cima das outras, tentei compilar o component ACBrMDFeDAMDFEQRRetrato mas está dando erro

error creating form: Ancestor for 'TfqrDAMDFeQR' not found

 

O ACBrInstall.exe não instala o componente do relatorio do MDFe?

 

Quais são os procedimentos para instalar manualmente?

[Italo Giurizzato Junior]

Boa tarde Graça,

 

O componente ACBrMDFe já esta instalado, correto?

 

Muito bem dentro da pasta ...\Pacotes\Delphi\ACBrNFe2 temos o pacote de instalação chamado: ACBrMDFeDAMDFEQRpkg

 

Abra ele com o Delphi compile e instale.

 

Como você utiliza a versão 3.0 do Quick Report você poderá ter problemas com versões, sendo assim siga os procedimentos deste post.

 

 

Ele se refere ao DACTE mas o procedimento é o mesmo para resolver o problemas de propriedades inexistentes com o DAMDFE.

[Gr@c@]

Bom dia Italo,

ao compilar deu erro no QR5RunD7, dizendo ser requerido. Comentei a linha e depois deu o erro abaixo:
 

[Error] ACBrMDFeDAMDFEQRRetrato.pas(323): Undeclared identifier: 'FormatarPlaca'

[Italo Giurizzato Junior]

Boa dia Graça,

 

Se não me falha a memória inclui o FormatarPlaca na Unit ACBrDFe que encontra-se na pasta ACBrComum.

 

Verifique se essa Unit esta atualizada e se no Library Path o Path da pasta ACBrComum vem antes do ACBrMDFe.

[Gr@c@]

Sim, está no ACBrDFe, mas na unit ACBrMDFeDAMDFEQRRetrato ainda está pegando do MDFeUtil

 

qrmPlaca.Lines.Add(MDFeUtil.FormatarPlaca(FMDFe.rodo.veicPrincipal.placa));

[NVTech]

Bom dia.

 

Qual o caminho do SVN para baixar o pacote do MDF-e ?

 

Não consegui encontrar, obrigado.

[NVTech]

Desculpe, encontrei estava baixando do local errado.