Ir para conteúdo
  • Cadastre-se

dev botao

Rejeição Carta de Correção


  • Este tópico foi criado há 2794 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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 por clerisonb
Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

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

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores

Bom dia Ornei,

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

Consultor SAC ACBr

Italo Giurizzato 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

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2794 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.