PDF e XML na mesma pasta

[Filippe Maymone]

Estou com um problema..
Preciso deixar o PDF e XML da NFe na mesma pasta .. 

So que uso o agrupamento de MEs e CNPJ
  FE.Configuracoes.Arquivos.SepararPorMes              := True;           
  NFE.Configuracoes.Arquivos.SepararPorCNPJ             := True;  

Ja tentei de tudo e não consigo . .a configuração do acbr esta desta forma: 
 

 // caminhos de pastas gerais
  PathApp        := ExtractFilePath(ParamStr(0));
  PathSchemas    := IncludeTrailingPathDelimiter(PathApp + 'SCHEMAS');

  // caminhos de pastas especificos por cnpj
  PathArqNFe   := IncludeTrailingPathDelimiter(PathApp + 'NotasFiscais');
  PathPDF      := IncludeTrailingPathDelimiter(PathArqNFe);
  PathArquivos := IncludeTrailingPathDelimiter(PathArqNFe);
  PathTmp      := IncludeTrailingPathDelimiter(PathArqNFe + 'TMP');

  if not DirectoryExists(PathPDF) then
    ForceDirectories(PathPDF);

  if not DirectoryExists(PathArquivos) then
    ForceDirectories(PathArquivos);

  if not DirectoryExists(PathTmp) then
    ForceDirectories(PathTmp);

  // configuração do ACBRNFE
  NFE.Configuracoes.Arquivos.AdicionarLiteral           := False;           // adiciona o literal NFe ao nome do arquivo
  NFE.Configuracoes.Arquivos.EmissaoPathNFe             := True;           //
  NFE.Configuracoes.Arquivos.Salvar                     := True;           // salva os xml nos diretorios configurados
  NFE.Configuracoes.Arquivos.SalvarApenasNFeProcessadas := False;          // Se True salva somente as NF-es processadas e autorizadas/denegadas
  NFE.Configuracoes.Arquivos.SepararPorMes              := True;           // cria um diretorio para o mes
  NFE.Configuracoes.Arquivos.SepararPorCNPJ             := True;           // cria um diretorio para o cnpj do emitente
  NFE.Configuracoes.Arquivos.SepararPorModelo           := False;           // cria um diretorio por modelo de nota (65/55)
  NFE.Configuracoes.Arquivos.PathSalvar                 := PathArquivos;   // diretório raiz da NFe
  NFE.Configuracoes.Arquivos.PathNFe                    := PathArquivos;   // diretorio onde serão gravadas as NFes emitidas
  NFE.Configuracoes.Arquivos.PathInu                    := PathArquivos;   // diretorio onde serão gravadas as inutilizações
  NFE.Configuracoes.Arquivos.PathEvento                 := PathArquivos;   // diretorio onde serão gravados os eventos
  NFE.Configuracoes.Arquivos.PathSchemas                := PathSchemas;    // diretorio onde estão os schemas da NFe

  NFE.Configuracoes.Geral.Salvar   := True;                                // se true grava os arquivos enviados e recebidos para e do webservice
  NFE.Configuracoes.Geral.ModeloDF := moNFe;                               // modelo do DF-e (NFe ou NFCe
  NFE.Configuracoes.Geral.VersaoDF := ve400;                               // versão da NFe


  NFE.Configuracoes.geral.ForcarGerarTagRejeicao938 := fgtSempre;
  NFE.Configuracoes.Geral.SSLLib := libCustom;
  NFE.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
  NFE.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
  NFE.Configuracoes.Geral.SSLXmlSignLib := xsMsXml;
  NFE.Configuracoes.WebServices.SSLType := LT_TLSv1_2;

  NFE.Configuracoes.Geral.ExibirErroSchema := False; // se True retorna o erro completo do schema
  NFE.Configuracoes.Geral.FormatoAlerta    := '[ %TAGNIVEL%%TAG% ]   %DESCRICAO% - %MSG%';

  // certificado
  NFE.Configuracoes.Certificados.NumeroSerie := UpperCase(CertificadoDigital);
  NFE.Configuracoes.Geral.FormaEmissao := teNormal;

  // configurações gerais
  NFe.Configuracoes.Geral.FormaEmissao := teNormal;                        // tipo de emissão da NFe, usar quando deseja entrar em contingencia ou similar

  NFe.Configuracoes.WebServices.AguardarConsultaRet      := 5000; // tempo padrão que vai aguardar para consultar após enviar a NF-e
  NFe.Configuracoes.WebServices.IntervaloTentativas      := 3000; // Intervalo entre as tentativas de envio
  NFe.Configuracoes.WebServices.Tentativas               := 10;   // quantidade de tentativas de envio
  NFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; // ajustar "AguardarConsultaRet" com o valor retornado pelo webservice

  // webservice
   case fdEmpresaNFE_AMBIENTE.asinteger of
  1 : begin  //produção
       NFE.Configuracoes.WebServices.Ambiente :=taProducao ;
       NFE.Configuracoes.Geral.CamposFatObrigatorios := True;
      end;
  2 : begin //homologação
       NFE.Configuracoes.WebServices.Ambiente := taHomologacao;
       NFE.Configuracoes.Geral.CamposFatObrigatorios := True;
      end;
  end;
  NFe.Configuracoes.WebServices.Visualizar := False;      // se True mostra as mensagens de status durante a troca de informações com webservice


  // proxy de acesso (somente se a rede obrigar)
  NFE.Configuracoes.WebServices.ProxyHost := '';
  NFE.Configuracoes.WebServices.ProxyPort := '';
  NFE.Configuracoes.WebServices.ProxyUser := '';
  NFE.Configuracoes.WebServices.ProxyPass := '';

  // DANFE
  NFE.DANFE.TipoDANFE := tiRetrato;
  NFE.DANFE.PathPDF   := PathPDF;
  NFE.DANFE.Logo      := CaminhoLogo;
  NFE.DANFE.Sistema   := 'GECON DES. DE SISTEMAS - www.gecon.inf.br Versão 4.00';
  NFE.DANFE.Usuario   :=  frDm.xparametro.Operador;

  // DANFE fast Report
  DANFEFR.ExibeCampoFatura := false;
  DANFEFR.MostraPreview := false;
  DANFEFR.FastFile := ExtractFilePath(Application.ExeName)+ 'Report\DANFeRetrato.fr3';
  DANFEFR.FastFileEvento := ExtractFilePath(Application.ExeName)+ 'Report\EVENTOS.fr3';
  DANFEFR.FastFileInutilizacao :=ExtractFilePath(Application.ExeName)+ 'Report\INUTILIZACAO.fr3';

         O XML esta indo para o lugar correto:

que seria ExtractFilePath(ParamStr(0))+'NotasFiscais'+\CNPJ\MES

O PDF esta ficando na Raiz 
ExtractFilePath(ParamStr(0))+'NotasFiscais'

 

ja fiz de tudo e não vai 

[Juliomar Marchetti]

Tem que conferir nos fontes, mas senão me engano o path do pdf não segue o mesmo do xml

[Filippe Maymone]

e ai acabei montando manualmente o pathPDF para dar certo .. 
mas talvez, não sei se interessa a todos, colocar um propriedade para salvar na mesma pasta do XML .. 

 

grato, 

[Aggille Sistemas de Gestão]

porque deixar o pdf salvo ? eu sempre gero quando preciso e depois apago...