XML salvos em pastas erradas

[MarcosRWeimer]

Ola!

Estou configurando o ACBrCTe da seguinte forma:

class procedure TCTeFunc.ConfigurarACBrCTe(var AACBrCTe: TACBrCTe; AModelo, AtpAmb: Integer);
var
  fOrd: TOrdenacaoPath;
begin
  if (not Assigned(AACBrCTe)) then
    AACBrCTe := TACBrCTe.Create(Application);

  AACBrCTe.Configuracoes.Geral.SSLLib              := libWinCrypt;
  AACBrCTe.Configuracoes.Arquivos.PathSchemas      := ExtractFilePath(Application.ExeName) + 'Schemas\CTe\';
  AACBrCTe.Configuracoes.Arquivos.PathSalvar       := AConexao.Parametro('NFE_CAMINHO_XML');
  AACBrCTe.Configuracoes.Arquivos.SepararPorCNPJ   := True;
  AACBrCTe.Configuracoes.Arquivos.SepararPorMes    := True;
  AACBrCTe.Configuracoes.Arquivos.SepararPorModelo := True;
  AACBrCTe.Configuracoes.Arquivos.Salvar           := True;
  AACBrCTe.Configuracoes.Arquivos.EmissaoPathCTe   := True; //se baseia pela data de emissão para montar o path
  AACBrCTe.Configuracoes.WebServices.Visualizar    := False;
  AACBrCTe.Configuracoes.WebServices.Salvar        := False;
  AACBrCTe.Configuracoes.WebServices.UF            := AFilial.xUF;
  AACBrCTe.Configuracoes.Certificados.NumeroSerie  := AFilial.CertSerie;
  AACBrCTe.Configuracoes.Geral.VersaoDF            := ve300;
  AACBrCTe.EventoCTe.VersaoDF                      := ve300;
  AACBrCTe.EventoCTe.Versao                        := '3.00';

  //Configura sequencia para montar o path (cnpj\anomes\modelo)
  AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Clear;

  with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do
    Item := opCNPJ;

  with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do
    Item := opData;

  with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do
    Item := opModelo;

  //Modelo
  if AModelo = 67 then
    AACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS
  else
    AACBrCTe.Configuracoes.Geral.ModeloDF := moCTe;

  //Ambiente
  if AtpAmb = 1 then
    AACBrCTe.Configuracoes.WebServices.Ambiente := taProducao
  else
    AACBrCTe.Configuracoes.Webservices.Ambiente := taHomologacao;

  //Mail
  if (not Assigned(AACBrCTe.MAIL)) then
    AACBrCTe.MAIL := TACBrMail.Create(Application);

  AACBrCTe.MAIL.From                := AFilial.Mail_Endereco;
  AACBrCTe.MAIL.FromName            := AFilial.Mail_NomeEmpresa;
  AACBrCTe.MAIL.Host                := AFilial.Mail_Servidor;
  AACBrCTe.MAIL.Username            := AFilial.Mail_Endereco;
  AACBrCTe.MAIL.Password            := AFilial.Mail_Senha;
  AACBrCTe.MAIL.Port                := IntToStr(AFilial.Mail_Porta);
  AACBrCTe.MAIL.IsHTML              := True;
  AACBrCTe.MAIL.SetSSL              := AFilial.Mail_SSL;
  AACBrCTe.MAIL.ReadingConfirmation := False;

  AACBrCTe.MAIL.ReplyTo.Clear;
  AACBrCTe.MAIL.AddReplyTo(AFilial.Mail_ResponderPara);

  AACBrCTe.Conhecimentos.Clear;
  AACBrCTe.EventoCTe.Evento.Clear;
end;

Mas estou tendo problemas com o arquivos, os arquivos "-procEventoCTe", "-cte" estão sendo salvos corretamente pasta/cnpj/anomes/cte/ porem alguns arquivos ("-inu", "-ped-inu",  "-env-lot", "-rec", "-pro-rec", "-ped-rec") estão sendo salvos direto dentro da pasta, sem separar.

Pelo que entendi, os arquivos sem valor fiscal estão sendo salvos na pasta configurada no ACBrCTe.Configuracoes.Arquivos.PathSalvar e os demais não.

Estou errando em alguma configuração para salvar na mesma pasta?

para não salvar os arquivos basta setar esta propriedade: ACBrCTe.Configuracoes.Arquivos.Salvar := False ?

P.S. Atualizei o ACBr a pouco  (rev. 13749)

 

 

[Italo Giurizzato Junior]

Boa noite Marcos,

A sua interpretação esta quase correta.

A propriedade Salvar de Arquivos defini se os arquivos com validade jurídica devem ser salvos ou não.

Já a propriedade Salvar de Geral defini se os arquivos de envio e retorno (não tem validade jurídica) devem ser salvos ou não.

Configuracoes.Geral.Salvar := True / False;  ===> Geral -> arquivos XML sem validade jurídica

Configuracoes.Arquivos.Salvar := True / False;  ===> Arquivos -> arquivos XML com validade jurídica

[MarcosRWeimer]

Obrigado @Italo Jurisato Junior

 

E para salvar na mesma pasta, como seria ? ou não tem essa possibilidade ?

 

[Italo Giurizzato Junior]

Bom dia Marcos,

Os arquivos de Envio/Retorno no meu entendimento por não ter validade jurídica, depois de um certo tempo é interessante excluir para não acumulando espaço em disco.

Neste caso aconselho deixar eles separados dos arquivos com validade jurídica.

Pois desta forma evita excluir acidentalmente algum XML que não deveria ser excluído.

[MarcosRWeimer]

Bom Dia Italo!

Certo, concordo, só não ficou claro como altero este caminho. (dos arquivos sem valor fiscal)

[Italo Giurizzato Junior]

Marcos,

Eu faço da seguinte forma:

 // Configurações -> Arquivos
 DMDFe.CTe.Configuracoes.Arquivos.AdicionarLiteral := True;
 DMDFe.CTe.Configuracoes.Arquivos.EmissaoPathCTe   := True;
 DMDFe.CTe.Configuracoes.Arquivos.SepararPorMes    := True;
 DMDFe.CTe.Configuracoes.Arquivos.SepararPorModelo := False;
 DMDFe.CTe.Configuracoes.Arquivos.SepararPorCNPJ   := False;
 DMDFe.CTe.Configuracoes.Arquivos.Salvar           := True;
 DMDFe.CTe.Configuracoes.Arquivos.PathCTe          := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.CTe.Configuracoes.Arquivos.PathInu          := Trim(DM_CTA.ParamDFePathSalvar.AsString); 
 DMDFe.CTe.Configuracoes.Arquivos.PathEvento       := Trim(DM_CTA.ParamDFePathSalvar.AsString); 
 DMDFe.CTe.Configuracoes.Arquivos.PathSchemas      := Trim(DM_CTA.ParamDFePathSchema.AsString);

 PathMensal := DMDFe.CTe.Configuracoes.Arquivos.GetPathCTe(0);

 DMDFe.CTe.Configuracoes.Arquivos.PathSalvar := PathMensal;

Onde DMDFe é um Data Module e o componente ACBrCTe1 foi renomeado para CTe.

[MarcosRWeimer]

Blz, esclarecido. Obrigado.