Carta de Correção não aparece as informações Condição de Uso no DANF - CC-e

[Jhonlenon Ribeiro]

Estou emitindo uma carta de correção eletronica..mais a informação de condição de uso não está aparecendo.....sai todas as informações menos ela..teria que sair essa mensagem que já grava no xml...

A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido na emissao de documento fiscal, desde que o erro nao esteja relacionado com: I - as variaveis que determinam o valor do imposto tais como: base de calculo, aliquota, diferenca de preco, quantidade, valor da operacao ou da prestacao; II - a correcao de dados cadastrais que implique mudanca do remetente ou do destinatario; III - a data de emissao ou de saida.

Meu código abaixo...e o XML da carta abaixo

procedure TF_cartacorrecao.btn_enviarClick(Sender: TObject);
var  idLote, nSeqEvento: String;
var CARTA_XML :String;
begin
   idLote := '0';
   nSeqEvento := '0';
   DM.ACBrNFe1.EventoNFe.Evento.Clear;
  with DM.ACBrNFe1.EventoNFe.Evento.Add do
   begin
     infEvento.chNFe := DM.SQL_nfeChaveAcessoNfe.AsString;
     infEvento.CNPJ   := DM.TB_empresaCNPJ.Value;
     infEvento.dhEvento := now;
     infEvento.tpEvento := teCCe;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.detEvento.xCorrecao := txt_Correcao.Text;
   end;
  DM.ACBrNFe1.EnviarEvento(StrToInt(idLote));
  CARTA_XML   := DM.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
  DM.ACBrNFe1.NotasFiscais.Clear;
  DM.ACBrNFe1.NotasFiscais.LoadFromString(DM.SQL_nfeXmlNfe.AsString,true);
  DM.ACBrNFe1.ImprimirEvento;
  //DM.ACBrNFe1.DANFE.PathPDF := DM.sPathArq;
  //DM.ACBrNFe1.ImprimirEventoPDF;

  with SQL_update do
    begin
     close;
     sql.Clear;
     sql.Add('update nfe set CartaCorrecao = :CARTA');
     sql.Add('where ChaveAcessoNfe  = :CHAVE');
     sql.Add('and CPF_CNPJ  = :CPF_CNPJ');
     ParamByName('CHAVE').Value      := DM.SQL_nfeChaveAcessoNfe.Value;
     ParamByName('CARTA').Value      := CARTA_XML;
     ParamByName('CPF_CNPJ').Value   := DM.SQL_nfeCPF_CNPJ.Value;
     ExecSQL;
    end;
  Close;
end;

 

1101101716100954237900013655001000000036100000036601-procEventoNFe.xml

[BigWings]

Bom dia,

Está usando Fast ou Fortes?