Justificativa do Evento de CCe não aparece no DaCTe_Eventos

[Djean Carlos Duarte]

Boa Tarde, 

A xJust do evento de CCe não esta aparecendo para impressão, tampouco no xml.

Trecho do código onde alimento o componente referente ao campo xJust

              vdhevento := DateTimeToStr(Now);
//              vdhevento := Copy(vdhevento,1,11)+IntToStr(StrToInt(Copy(vdhevento,12,2))-2)+Copy(vdhevento,14,6);
              infEvento.chCTe                := ChaveCTe;
              infEvento.CNPJ                 := copy(ChaveCTe,7,14);
              infEvento.cOrgao               := StrToInt(copy(ChaveCTe,1,2));
              infEvento.dhEvento             := StrToDateTime(vdhevento);
              infEvento.tpEvento             := teCCe;
              infEvento.nSeqEvento           := nSeq; //<Numero Sequencial>;
              infEvento.versaoEvento         := '1.00';
              infEvento.detEvento.descEvento := 'Carta de Correção';
              infEvento.detEvento.xJust      := sCorrecao;

O componente foi atualizado dia 13.10.2017 e a Revision/Author: 13990 / regyssilveira
Estou usando o DACTE_EVENTOS.fr3 desta mesma versão.

 

1101104217107685508900013057001000000883100000883708-procEventoCTe.pdf

1101104217107685508900013057001000000883100000883708-procEventoCTe.xml

[Juliomar Marchetti]

Mas o xJust não é só para Cancelamento?

quando correção tu informa os dados alterados no conhecimento.

[Italo Giurizzato Junior]

Boa noite Djean,

A carta de correção do CT-e não é igual a da NF-e.

Vide exemplo:

 ACBrCTe.EventoCTe.Evento.Clear;

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

   infEvento.detEvento.xCondUso := '';

   ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear;

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do
    begin
     grupoAlterado   := sGrupo;
     campoAlterado   := sCampo;
     valorAlterado   := sValor;
     nroItemAlterado := iNumItem;
    end;
  end;

 ACBrCTe.EnviarEventoCTe(iNumLote);