Gravação do nome do XML de Eventos CTe

[Luiz Carlos de Lima]

Boa Noite,

Estou precisando de uma ajuda, ao fazer uma carta de correção o XML vem com o nome   0-ped-eve, acredito que no lugar do  Zero possa ser informado

a Chave, se for possível como fazer? Dá forma como esta ele sempre sobrepõe ao outro.

Agradeço a atenção

[Juliomar Marchetti]

Bom dia!

você está informando a chave da nf-e ou o xml dele antes de fazer a carta de correção?

[Luiz Carlos de Lima]

2 horas atrás, Juliomar Marchetti disse:

Bom dia!

você está informando a chave da nf-e ou o xml dele antes de fazer a carta de correção?

Bom dia Juliomar,

Não entendi o que a NFe possa influir, veja que estamos falando de Cte.  Faço a carta de correção de um Cte já existente, envio para a Sefaz, se for autorizada

faço a impressão.

[Juliomar Marchetti]

Perdão o xml do CT-e que está sendo emitido a CC-e!

[Luiz Carlos de Lima]

4 horas atrás, Juliomar Marchetti disse:

Perdão o xml do CT-e que está sendo emitido a CC-e!

deixe ver se explico melhor

Quando emite um CTe, ele guarda na pasta docs o XML com o nome ex: 51151215950025000123570010000988961000988962-cte, assim você sabe qual o CTe este XML Pertence. Mas quando faz o envio de um evento deste Cte,  por exemplo corrigindo o endereço ele guarda o XML deste evento na pasta docs como 0-ped-eve. Se você faz outra correção ele grava com o mesmo nome 0-ped-eve, assim não consegue ter o XML, pois um sobrepõe o outro.

[Luiz Carlos de Lima]

Bom dia, Estava realmente sendo passado a chave zerada, problema resolvido. Grato.

[André Franco]

Olá! comigo também acontece, onde passo essa chave:

Meu código:

 

 CTe.EventoCTe.Evento.Clear;

  with CTe.EventoCTe.Evento.Add do
    begin
      infEvento.chCTe := DM1.QRconhecichavecte.AsString;
      infEvento.CNPJ := DM1.QRconheciemitentecnpj.AsString;
      infEvento.dhEvento := now;
      infEvento.tpEvento := teCCe;
      infEvento.nSeqEvento := DM1.QRcartacorrcodigo.Value;

      infEvento.detEvento.xCondUso := '';

      CTe.EventoCTe.Evento.Items[0].infEvento.detEvento.infCorrecao.Clear;

      with CTe.EventoCTe.Evento.Items[0].infEvento.detEvento.infCorrecao.Add do
        begin
          grupoAlterado := DM1.QRitenscartagrupo.AsString;
          campoAlterado := DM1.QRitenscartasubgrupo.AsString; ;
          valorAlterado := DM1.QRitenscartanovovalor.AsString; ;
          nroItemAlterado := 0;
        end;
    end;