Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado (editado)

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

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

  • 2 meses depois ...
Postado

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

  • 2 semanas depois ...
  • Este tópico foi criado há 3064 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.

The popup will be closed in 10 segundos...