Idlote

[kzarlopes]

Boa tarde a todos.

 

Gostaria de dois esclarecimentos:

 

1º o IdLote solicitado ao enviar a Carta de Correção é o nº do lote de conhecimentos?

 

2º Não é permitido enviar mais de uma carta de correção para um mesmo CT-e?

 

No 2º caso, tentei enviar uma correção de um item e uma CFOP e me retornou o erro: Conjunto de Eventos transmitidos (máximo de

 

1) excedido. Quantidade atual: 2'.

 

Então, se uma nova CCe substitui a anterior e eu só posso substituir uma informação de cada vez, o usuário só poderá errar em uma

 

informação a cada CT-e? Caso contrário terá de cancelá-lo? É isso?

 

Obrigado.

Editado 18 Fevereiro, 2014 por kzarlopes

[Italo Giurizzato Junior]

Boa tarde kzarlopes,

 

Vamos verificar, se for erro na implementeção, com certeza vai ser corrigido.

 

kzarlopes,

 

Veja a explicação abaixo:

 

 

 

A SEFAZ aceita somente um evento por lote, dai a mensagem de erro:

 

"ERRO: Conjunto de Eventos transmitidos (máximo de 1) excedido."

 

Como resolver o problema da carta de correção?

 

Simples, uma coisa é adicionar mais de um evento e outra coisa é adicionar mais de uma Informação de correção.

 

Se é enviado uma CC-e  contendo a correção do campo X e depois temos que enviar uma segunda CC-e com a correção do campo Y, devemos adicionar 2 infCorrecao. 

 

O primeiro contendo novamente a correção do campo X e o segundo contendo a correção do campo Y.

 

Vamos a um exemplo:

 

Primeira CC-e:

 

 ACBrCTe.EventoCTe.Evento.Clear;

 with ACBrCTe.EventoCTe.Evento.Add do
  begin
   infevento.chCTe    := Chave;
   infEvento.CNPJ     := sCNPJ;
   infEvento.dhEvento := now;
   infEvento.tpEvento := teCCe;

 

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do
    begin
     grupoAlterado   := sGrupo1;
     campoAlterado   := sCampo1;
     valorAlterado   := sValor1;
     nroItemAlterado := iNumItem1;
    end;

  end;

 ACBrCTe.EnviarEventoCTe(iNumLote);

 

 

 

Segunda CC-e contem a primeira correção e a segunda:

 

 ACBrCTe.EventoCTe.Evento.Clear;

 with ACBrCTe.EventoCTe.Evento.Add do
  begin
   infevento.chCTe    := Chave;
   infEvento.CNPJ     := sCNPJ;
   infEvento.dhEvento := now;
   infEvento.tpEvento := teCCe;

 

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do
    begin
     grupoAlterado   := sGrupo1;
     campoAlterado   := sCampo1;
     valorAlterado   := sValor1;
     nroItemAlterado := iNumItem1;
    end;

 

  with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do
   begin
    grupoAlterado := sGrupo2;
    campoAlterado := sCampo2;
    valorAlterado := sValor2;
    nroItemAlterado := iNumItem2;
  end;

 

  end;

 ACBrCTe.EnviarEventoCTe(iNumLote);

 

 

 

Note que o ADD do Evento é executado apenas 1 vez na rotina, por outro lado o ADD do infCorreção é executado uma para cada correção.

 

Espero ter ajudado.

[kzarlopes]

Bom dia Italo, como sempre você foi preciso.

 

Obrigado.