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.