Jump to content

dev botao

Rejeição Carta de Correção


  • Este tópico foi criado há 2968 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

Edited by clerisonb
Link to comment
Share on other 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 to comment
Share on other sites

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".

Link to comment
Share on other sites

  • 2 months later...

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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.