Carta De Correção - Ct-E Nao Consta Na Base De Dados Da Sefaz

[sesistemas]

Bom dia,

 

Estou tentando fazer uma Carta de Correção em produção e estou tendo a seguinte Rejeição: CT-e nao consta na base de dados da SEFAZ.

 

Porém, este CT-e está autorizado no site da receita, e se eu realizar a consulta pelo componente, eu obtenho os dados corretos da autorização.

 

Em outros conhecimentos eu não tenho este problema.

 

Gostaria da ajuda de vocês para identificar este problema.

 

Segue como estou preenchendo as informações no componente e o XML do CT-e em questão:

FrmPrincipal.ACBrCTe1.EventoCTe.Evento.Clear;
With FrmPrincipal.ACBrCTe1.EventoCTe.Evento.Add Do
Begin
  if (UpperCase(cbbAmbiente.Properties.Items.Items[cbbAmbiente.ItemIndex].Value) = 'P') then
    InfEvento.tpAmb            :=  taProducao
  else
    InfEvento.tpAmb               := taHomologacao;
  infEvento.cOrgao               := StrToIntDef(Copy(EmpCodCidade, 1, 2), 0);
  InfEvento.chCTe                := edtChaveCTe.Text;
  infEvento.CNPJ                 := EmpCNPJ;
  infEvento.tpEvento             := teCCe;
  infEvento.nSeqEvento           := StrToInt(edtNumSequencial.Text);
  infEvento.dhEvento             := now;  
  infEvento.detEvento.descEvento := 'Carta de Correcao';
  infEvento.detEvento.xCondUso   := 'A Carta de Correção é disciplinada pelo Art. 58-B do CONVÊNIO/SINIEF 06/89: '+
    'Fica permitida a utilização de carta de correção, para regularização de erro '+
    'ocorrido na emissão de documentos fiscais relativos à prestação de serviço de '+
    'transporte, desde que o erro não esteja relacionado com: I - as variáveis que '+
    'determinam o valor do imposto tais como: base de cálculo, alíquota, diferença de '+
    'preço, quantidade, valor da prestação;II - a correção de dados cadastrais que '+
    'implique mudança do emitente, tomador, remetente ou do destinatário;III - a '+
    'data de emissão ou de saída.';
  infEvento.detEvento.infCorrecao.Clear;

  dsCCE.DataSet.First;
  while NOT dsCCE.DataSet.Eof do
  begin
    With infEvento.detEvento.infCorrecao.Add Do
    Begin
       grupoAlterado   := dsCCE.DataSet.FieldByName('GRUPO_ALT').AsString;
       campoAlterado   := dsCCE.DataSet.FieldByName('CAMPO_ALT').AsString;

       valorAlterado   := dsCCE.DataSet.FieldByName('VALOR_ALT').AsString;

       if(Trim(edtNumItemAlterado.Text) <> '')then
       nroItemAlterado := dsCCE.DataSet.FieldByName('NO_IT_ALT').AsInteger;
       dsCCE.DataSet.Next;
    end;
  End;
End;

FrmPrincipal.ACBrCTe1.EnviarEventoCTe( StrToInt(edtNumSequencial.Text));

Atenciosamente

 

Wislei

[sesistemas]

Consegui identificar o problema!

 

Este CT-e foi emitido a mais de 30 dias e por isso não é possível fazer uma carta de correção pra ele.

 

A mensagem retornada pelo WebService não está muito sugestiva, e por isso vou ter que fazer um tratamento no meu sistema ao enviar a carta de correção.

 

Atenciosamente.

[EMBarbosa]

Obrigado pelo retorno.