Rejeição Carta de Correção

[clerisonb]

Boa tarde pessoal!

Antes de mais nada, pesquisei bastante aqui e no google por carta de correção e não encontrei a solução para o meu problema.

Estou implementando essa função no meu sistema, para um cliente do DF, e quando envio a carta de correção, está sempre retornando o cStat 491 com erro "Rejeicao: O tpEvento informado invalido".

Esse é o trecho do código que estou usando, que foi escrito praticamente copiando o exemplo do demo do Acbr:

  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

  ACBrNFe1.NotasFiscais.Clear;

  //Cria o evento
  ACBrNFe1.EventoNFe.Evento.Clear;

  with ACBrNFe1.EventoNFe.Evento.Add do
  begin
    infEvento.chNFe := ChaveNotaFiscal;
    infEvento.CNPJ := DadosEmitente.CNPJ;
    infEvento.dhEvento := NOW;
    infEvento.tpEvento := teCCe;
    infEvento.nSeqEvento := SequenciaCorrecao;
    infEvento.detEvento.xCorrecao := TextoCorrecao;
    infEvento.detEvento.nProt := ProtocoloEnvioNF;
  end;

  try
    Commited := False;
    dmsis.IniciaTransacao(IdTrans);

    // Enviar o evento
    if ACBrNFe1.EnviarEvento(NumeroLote) then
    begin
      with ACBrNFe1.WebServices.EnvEvento do
      begin
        if (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135) then
        begin
          raise Exception.CreateFmt(
            'Ocorreu o seguinte erro ao enviar a carta de correção eletrônica:'  + sLineBreak +
            'Código:%d' + sLineBreak +
            'Motivo: %s', [
              EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,
              EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo
          ]);
        end;

        //Retornos
        ProtocoloCCe := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
        TextoXMLCCe := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
        //CodigoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;
        //MotivoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;
      end;

Anexei os arquivos de envio e retorno. Se puderem dar uma olhada, toda ajuda será bem vinda!

Obrigado.

0-ped-eve.xml

1605181659-eve.xml

Editado 18 Maio, 2016 por clerisonb

[JoaoPauloRicardo]

 

infEvento.cOrgao := strtoint(copy(ChaveNotaFiscal, 1, 2));

faltou a linha

[Juliomar Marchetti]

Se usar o demo vai ocorrer o mesmo?

[clerisonb]

55 minutos atrás, 3Soft Sistemas disse:

 

infEvento.cOrgao := strtoint(copy(ChaveNotaFiscal, 1, 2));

faltou a linha

Se olhar no XML vai ver que o cOrgao foi informado. É que essa configuração eu faço antes globalmente no componente do acbr.

[clerisonb]

17 horas atrás, Juliomar Marchetti disse:

Se usar o demo vai ocorrer o mesmo?

Bom dia Juliomar!

 

Sim, acabei de fazer um teste com o demo do ACBr e também retornou o mesmo erro 491, "Rejeicao: O tpEvento informado invalido".

[Régys Silveira]

Eu testei aqui é está tudo normal, ao menos para MG, então não é o componente, tentou contato com o suporte ao Webservice da UF para a qual está enviando?

[ornei]

Bom dia, enviei uma NFe para SEFAZ de MG no dia 22/07/2016, e agora preciso enviar uma CCe, a SEFAZ nos dias 23 e 24 vai estar em manutenção, tentei enviar utilizando contingencia SVC-AN, esta retornando o erro 491 - Rejeição: O Evento Informado Invalido. Alem de mudar o tipo de emissão, tem outra configuração a fazer para que não retorne este erro. Obrigado

[Italo Giurizzato Junior]

Bom dia Ornei,

Favor ler a Nota Técnica 2013/007 versão 1.03 - página 6 item 04.4