Correção

[Pablo Cordeiro]

Bom dia senhores,

Com o intuito de fazer com que o ACBrReinf grave os arquivos por CNPJ e separe por mês, tive que comentar o seguinte trecho no "\Fontes\ACBrDFe\ACBrReinf\PCNReinf\pcnEventosReinf.pas", na procedure "TReinfEventos.SaveToFiles":

  with TACBrReinf(Self.Owner) do
  begin
//    Path := Configuracoes.Arquivos.PathSalvar;
//    if trim(Path) = '' then
      Path := PathWithDelim(Configuracoes.Arquivos.GetPathReinf(Now, Configuracoes.Geral.IdContribuinte));
  end;
 

Quando eu não comentava essas linhas, ele gerava no PathSalvar e se eu deixasse sem preencher o PathSalvar, o GetPathSalvar preenche com a pasta do executável \Docs conforme código abaixo:

function TArquivosConf.GetPathSalvar: String;
begin
  if FPathSalvar = '' then
    if Assigned(fpConfiguracoes.Owner) then
      if not (csDesigning in fpConfiguracoes.Owner.ComponentState) then
        FPathSalvar := ApplicationPath + 'Docs';

  FPathSalvar := PathWithDelim(Trim(FPathSalvar));
  Result := FPathSalvar;
end;
 

Ao conferir no ACBrEsocial, essas linhas não existiam, por isso comentei.

[Juliomar Marchetti]

Anexar os fontes com a sugestão de correção.

[Pablo Cordeiro]

Segue em anexo o .pas do trecho que foi comentado.

pcnEventosReinf.pas

[Italo Giurizzato Junior]

Bom dia Pablo,

Dependendo do que foi informado a PathSalvar e PathReinf corremos o risco de gerar em duplicidade a pasta AnoMes.

Dai o motivo das linhas que você comentou.