Ir para conteúdo
  • Cadastre-se

dev botao
  • Este tópico foi criado há 204 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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 

  • 3 semanas depois ...
  • Este tópico foi criado há 204 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.