Imprimir evento carta de correção pdf

[Daniel Alves Barreto]

Boa Noite, preciso imprimir o evento carta de correção, para tanto estou usando o seguinte codigo 

 

if msgError = '' then
        begin
          dmt.NFePrincipal.imprimirEventoPdf;

          tipoEvento := dmt.NFePrincipal.EventoNFe.Evento[0].InfEvento.tpEvento;
          ArqEvento  := dmt.NFePrincipal.EventoNFe.ObterNomeArquivo(tipoEvento);
          ArqEvento  := PathWithDelim(dmt.NFePrincipal.Configuracoes.Arquivos.GetPathEvento(tipoEvento))+ArqEvento;

          with dmt.NFePrincipal.WebServices.EnvEvento do
          begin

            ArqEvento :=  EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe
                    + TpEventoToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpEvento)
                    + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.nSeqEvento)
                    +'-procEventoNFe.xml';
          end;

 

mais nao esta apontando para o local real do arquivo que e C:\NFE\PDF, preciso que os arquivos fiquem na pasta cnpj / data como as nfes pdf, como posso fazer isso e recuperar via codigo o local e nome do arquivo ?

[Daniel Alves Barreto]

Boa tarde, consegui salvar na pasta que precisava.

 

YearMonth := FormatDateTime('yyyymm', Now);
          FormattedCNPJ := TRegEx.Replace(dmt.QryEmpresaNFe.FieldByName('cpf_cnpj').AsString, '[./-]', '');
          path_nfe := 'c:\nfe\pdf\' + FormattedCNPJ + '\' + YearMonth + '\';
          dmt.NFePrincipal.DANFE.PathPDF := path_nfe;
          dmt.NFePrincipal.imprimirEventoPdf;

 

Mais continuo sem saber como pegar o nome do arquivo pdf, alguem pode me ajudar? 

[Daniel Alves Barreto]

consegui encontra com a linha:

OnlyNumber(dmt.NFePrincipal.EventoNFe.Evento.Items[0].InfEvento.ID) + '-procEventoNFe.pdf'; 

obrigado a todos pela ajuda.

[Cleber Ferreira]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.