Rejeição ao enviar Cancelamento e Carta de Correção NF-e 4.0

fnd · 6 Julho, 2018

Estou com problema para fazer a carta de correção na NFe 4.0

Ao depurar o código do componente chega na linha que parece que esta analisando apenas o evento teCancelamento, ao fazer a carta de correção usa o vento teCCe

if EventoNFe.Evento.Items[i].infEvento.tpEvento = teCancelamento then
begin
  EventoNFe.Evento.Items[i].infEvento.detEvento.nProt := NotasFiscais.Items[j].NFe.procNFe.nProt;

  if trim(EventoNFe.Evento.Items[i].infEvento.detEvento.nProt) = '' then
  begin
    WebServices.Consulta.NFeChave := EventoNFe.Evento.Items[i].InfEvento.chNfe;

    if not WebServices.Consulta.Executar then
    GerarException(WebServices.Consulta.Msg);

    EventoNFe.Evento.Items[i].infEvento.detEvento.nProt := WebServices.Consulta.Protocolo;
  end;
end;