Erro no encerramento do MDF-e

[Leonardo Marcelino]

Bom dia.

É possível encerrar um MDF-e utilizando o ACBrNFeMonitor?

Qual o comando para encerramento e cancelamento?

Obrigado.

Leonardo

[Italo Giurizzato Junior]

Bom dia Leonardo,

Sim, é possível e os comandos são:

MDFe.EncerrarMDFe(<chave>, <dataEncerramento>, <códigoIBGEMunicipioEncerramento>, <CNPJ>, <numLoteEvento>)

MDFe.CancelarMDFe(<chave>, <justificativa>, <CNPJ>, <numLoteEvento>)

[Leonardo Marcelino]

Muito obrigado, Italo.

[Leonardo Marcelino]

Boa tarde, Italo.

Quando envio para o ACBrNFeMonitor:

MDFe.EncerrarMDFe("35150620451020000196580010000000151000000010, 29/06/2015, 1100205, 99999999999999, 1")

Recebo a mensagem:

ERRO: Chave 35150620451020000196580010000000151000000010, 29/06/2015, 1100205, 99999999999999, 1 inválida.

Estou passando uma chave válida e CNPJ também válido.

Obrigado.

Leonardo

[Italo Giurizzato Junior]

Boa noite Leonardo,

Esta errado da forma que você montou o comando, pois desta forma você esta passando apenas um parâmetro e não 5.

O correto é:

MDFe.EncerrarMDFe("35150620451020000196580010000000151000000010", "29/06/2015", "1100205", "99999999999999", "1")

[Leonardo Marcelino]

Boa tarde, Italo.

Obrigado mais uma vez.

Leonardo.

[DIMAS - DBSOFT]

Bom dia,

Estou testando o MDFe em homologação usando o ACBRMDFe, deu tudo certo, apenas no encerramento do MDFe em homologação na impressão do Encerramento o ambiente sempre aparece PRODUÇÃO, ai vc vai para imprimir o evento novamente, escolhe o xml do MDFe e depois o xml do evento do encerramento ele imprimi certo ambiente de homologação.

 

[Italo Giurizzato Junior]

Bom dia Dimas,

Ao realizar o encerramento você primeiro carrega o XML do MDF-e, ou simplesmente envia o evento de encerramento?

Acredito que se você:

1. Carregar o XML do MDF-e;

2. Efetuar o Encerramento;

3. imprimir o evento.

Deva funcionar sem nenhum problema.

[DIMAS - DBSOFT]

Bom dia Italo,

Sim, estou carregando o xml transmitido em Homologação mas sai Produção na impressão e quando gero o PDF também.

Depois de feito o encerramento, no imprimir Evento carregando o xml e o evento sai como homologação certo.

 

[Italo Giurizzato Junior]

Boa tarde Dimas,

Você gera o XML salva em disco, depois carrega ele para poder assinar, validar e enviar, é isso?

Se sim, porque você simplesmente alimenta o componente com os dados e manda assinar, validar, enviar ...?

[DIMAS - DBSOFT]

bom dia Italo,

Estou alimentando o componente com os dados e transmitindo neste seguencia:

     GerarMDFe( vAux );
     ACBrMDFe1.Manifestos.Assinar;
     ACBrMDFe1.Manifestos.Valida;
     ACBrMDFe1.Enviar( vNumLote );

e no encerramento assim:

    OpenDialog1.Title := 'Selecione o MDFe';
    OpenDialog1.DefaultExt := '*-MDFe.xml';
    OpenDialog1.Filter := 'Arquivos MDFe (*-MDFe.xml)|*-MDFe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
    OpenDialog1.InitialDir := ACBrMDFe1.Configuracoes.Arquivos.PathMDFe;
    if OpenDialog1.Execute then
      begin
        ACBrMDFe1.Manifestos.Clear;
        ACBrMDFe1.Manifestos.LoadFromFile(OpenDialog1.FileName);
        idLote := '1';
//        if not(InputQuery('WebServices Eventos: Encerramento', 'Identificador de controle do Lote de envio do Evento', idLote)) then
//               exit;

        ACBrMDFe1.EventoMDFe.Evento.Clear;
        with ACBrMDFe1.EventoMDFe.Evento.Add do
          begin
            infEvento.tpEvento            := teEncerramento;
            infEvento.nSeqEvento       := StrToInt(idLote);
            infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt;
            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;

        ACBrMDFe1.EnviarEventoMDFe(  StrToInt(idLote) ); // 1 = Numero do Lote

        MemoResp4.Lines.Text   := UTF8Encode(ACBrMDFe1.WebServices.EnvEvento.RetWS);
        LoadXML(MemoResp4, wbRespWS4);
        Msg.MsgWarning('Start: '+IntToStr(ACBrMDFe1.WebServices.EnvEvento.cStat)+#13+#10+
                       'Nº protocolo encerramento: '+ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);

        ACBrMDFe1.ImprimirEvento;
        ACBrMDFe1.ImprimirEventoPDF;

      end;

 

 

 

Italo, 

Outra coisa é o seguinte, como faço para incluir uma nota fiscal modelo 1 e um Cupom Fiscal no MDFe?

 

[DIMAS - DBSOFT]

Bom dia Italo,

Revolvi o problema colocando assim no evento,

infEvento.tpAmb    := ACBrMDFe1.Manifestos.Items[0].MDFe.Ide.tpAmb;

Agora preciso saber se como incluir uma nota fiscal modelo 1/A1 e um Cupom Fiscal no MDFe?

 

 

 

[Italo Giurizzato Junior]

Bom dia Dimas,

Para informar uma nota fiscal de papel você tem que alimentar a lista infNF e não a infNFe, não deve se esquecer que totalizar as quantidades de notas em qNF.

[DIMAS - DBSOFT]

Bom dia Italo, estou fazendo assim mas esta retornando erro, estou te enviando tudo isto por que ja tentei de tudo e não consegui nada.

quando informando NFE ou CTe da certinho.

with infDoc.infMunDescarga.Add do
  begin
          // municipios de descarga
         DM2.IBQDescarrega.First;
         while not DM2.IBQDescarrega.Eof do
                 begin
                       cMunDescarga := DM2.IBQDescarrega.FieldByName('CODIGO_MUNICIPIO').AsInteger; //3503208;
                       xMunDescarga := DM2.IBQDescarrega.FieldByName('NOME_MUNICIPIO').AsString; //'ARARAQUARA';
                       DM2.IBQDescarrega.Next
                 end;

         DM2.IBQMdfeNF.First;
         while not DM2.IBQMdfeNF.Eof do
              begin
                       with infNF.Add do
                          begin
                                  CNPJ  := DM2.IBQMdfeNF.fieldbyname('CNPJ').AsString;
                                  UF      := DM2.IBQMdfeNF.fieldbyname('UF_NF').AsString;
                                  nNF    := DM2.IBQMdfeNF.fieldbyname('NUMERO_NF').AsInteger;
                                  serie   := DM2.IBQMdfeNF.fieldbyname('SERIE_NF').AsInteger;
                                  dEmi   := DM2.IBQMdfeNF.fieldbyname('DATA_NF').AsDateTime;
                                  vNF    := DM2.IBQMdfeNF.fieldbyname('TOTAL_NFE').AsDouble;

                                  with infUnidTransp.Add do
                                  begin
                                      case DM2.IBQMdfeNF.fieldbyname('TIPO_TRANSPORTE').AsInteger of
                                         1:tpUnidTransp := utRodoTracao;
                                         2:tpUnidTransp := utRodoReboque;
                                      end;
                                      idUnidTransp := DM2.IBQMdfeNF.fieldbyname('IDENTIFICACAO_TRANSPORTE').AsString;

                                 end;

                          end;

                    DM2.IBQMdfeNF.Next; 
              end;

  end;

- Será que estou preenchendo os campos errados ou ta faltando um campo?

- Poderia ser uma nota fiscal a-1 ou cupom fiscal, certo ?

- No caso do cupom fiscal poderia ser com o CPF? , acho que não por que nao aceita CPF, diz "Tamanho menor que o permitido", ai não poderia usar cupom fiscal para entrega?

segue imagem dos erros quando coloco CPF e outra com CNPJ que da erro apenas InfNF inesperado.

 

31150803754648000141580010000000141000000335-mdfe.xml

Editado 10 Agosto, 2015 por DIMAS - DBSOFT
Incluir xml do MDFe

[Italo Giurizzato Junior]

Boa tarde Dimas,

O seu XML aparentemente esta correto, agora se ao validar diz que o elemento infNF é inesperado significa que os schemas que você esta usando estão desatualizados.

[DIMAS - DBSOFT]

Bom dia Italo,

Atualizei os schemas e da o mesmo erro na validação.

Por favor, você poderia validar este xml que te enviei e verificar a tag InfNF se esta correto?

 

[Italo Giurizzato Junior]

Boa tarde Dimas,

Você pode validar o seu XML em:

https://mdfe-portal.sefaz.rs.gov.br/Site/ValidadorXml

Validei e esta OK.

Portanto volto a dizer que os seus schemas não estão corretos.

Se você estiver já usando o trunk2 pegue os schemas da pasta: ...\Exemplos\ACBrDFe\ACBrMDFe\Schemas

Agora se você ainda esta usando o trunk pegue os schemas da pasta: ...\Exemplos\ACBrMDFe\Delphi\Schemas

[DIMAS - DBSOFT]

Bom dia Italo,

Deu uma consultada no Manual_MDFe_ v 1.00 - 29.08.2012, neste consta informações da nota Mod. 1 e 1A, mas

no Manual_MDFe_v1.00a ja não consta mais este tipo de informação para mod,1 e 1A.

• 06/02/2015 - Manual de Orientações do Contribuinte, versão 1.00a de 11/12/2014 (PDF)

  Define as especificações e critérios técnicos necessários para a integração entre Ambiente Autorizador e os sistemas de informações das empresas emissoras de Manifesto Eletrônico de Documentos Fiscais - MDF-e. Dentre as novidades no MOC, destacam-se a atualização do Manual com as Notas Técnicas já implantadas e a retirada das informações referentes a Nota Fiscal em Papel (MOD 1 e 1A) com as regras referentes a esse tipo de documento.

Então não será mais possivel especificar mod.1 e 1A, só CTe e NFe.

Obrigado pelo atenção Italo e desculpa fazer perder seu tempo com isto.

[DIMAS - DBSOFT]

Boa tarde a todos,

Revolvi mudar meus fontes para o trunc2 ja que o trunc não vai ter mais suporte. 

Quase tudo ja revolvi mas ainda ficou um problema com o DAMDFE que o ACBrMDFe1 que no trunc usava o QReport e agora usa o FastReport,

mesmo no exemplo do do MDFE do trunc2 ainda ta com QReport ai como não tem mais não abre.

então alterei para o ACBrMDFeDAMDFEFR1 e no FastFile ficou com o arquivo DAMDFe_Retrato.fr3 ou DAMDFe_Paisagem.fr3, mas

na geração do relatório da erro falando que ta faltando campos e depois começou a da erro de conversão de string para double.

Só consegui usar com DAMDFe_Retrato-copia.fr3 mas esta apresentando campos que não usa mais.

Existe alguma coisa que eu possa fazer para funcionar com os arquivos  certos ou falta mesmo corrigir no trunc2?

quando abre o Preview es tudo em Inglês os hints e o botão Close, ha como traduzir para o Português?

Não consigo tambem gerar o xml do MDFe, da erro:  "ID invalido.Impossível salvar XML", como resolvo isto?

ACBrMDFe1.Manifestos.Items[0].GravarXML('','');

 

Editado 13 Agosto, 2015 por DIMAS - DBSOFT

[Italo Giurizzato Junior]

Bom dia Dimas,

Quanto ao DAMDFE em Fast Report vou ficar lhe devendo pois não o conheço.

Com relação a gerar o XML, tentou apenas alimentar o componente e depois executar o método Assinar?

[DIMAS - DBSOFT]

Bom dia Italo, 

Desculpa a demora pelo resposta e que tive internado por dias para tomar um medicamento. Felizmente ja esta tudo certo.

Com relação ao gerar o xml e assinar funcionou sim.

Em relação ao DAMDFE se alguem puder me ajudar ainda não consegui gerar o relatorio com os DAMDFe_Paisagem.fr3 e DAMDFe_Retrato.fr3,

consegui usar o DAMDFe_Retrato-copia.fr3 mas mostra campos que não se usa mais, como por ex. total de NF.

[Italo Giurizzato Junior]

Boa tarde Dimas,

Quanto ao DAMDFe feito em Fast Report, por não conhece-lo vou ficar lhe devendo, por favor aguarde alguém com mais propriedade possa analisar e efetuar as devidas correções. 

[Leao]

Olá Dimas, como ficou a questão do

ACBrMDFe1.Manifestos.Items[0].GravarXML('','');

estou com o mesmo problema

Obrigado,

Leão