DistribuicaoDFe: Erro na gravação com propriedade SepararPorNome habilitado

[Leonardo Gregianin]

Boa tarde,

Quando utilizo a DistribuicaoDFe com a propriedade SepararPorNome habilitado ocorre erro na gravação do XML quando o nome da empresa contem barra, por exemplo: "Empresa Teste S/A".

O ACBr quando busca o Path em TArquivosConfNFe.GetPathDownload é adicionado mais um sub-diretório por causa do "S/A" e ao executar o FPDFeOwner.Gravar ocorre o erro.

Talvez em ACBrUti.TiraAcento adicionar outra opção para limpar a barra ou outra função.

[Leonardo Gregianin]

Poderia utilizar a função RemoveStrings do ACBrUtil.

Por exemplo: RemoveStrings(TiraAcentos(xNome),['/','\'])

A função ficaria desta forma:

function TArquivosConfNFe.GetPathDownload(xNome: String = ''; CNPJ: String = ''; Data: TDateTime = 0): String;
var
  rPathDown: String;
begin
  rPathDown := '';
  if EstaVazio(FDownloadNFe.PathDownload) then
     FDownloadNFe.PathDownload := PathSalvar;

  if (FDownloadNFe.SepararPorNome) and (NaoEstaVazio(xNome)) then
     rPathDown := rPathDown + PathWithDelim(FDownloadNFe.PathDownload) + RemoveStrings(TiraAcentos(xNome),['/','\'])
  else
     rPathDown := FDownloadNFe.PathDownload;

  Result := GetPath(rPathDown, 'Down', CNPJ, Data);
end;

 

[Leonardo Gregianin]

Boa tarde,

Se alguém puder dar uma olhada nisso.

[Juliomar Marchetti]

Bom dia

se está sugerindo correções favor postar em anexo a alteração que avaliamos.

[Leonardo Gregianin]

Em 21/03/2017 at 10:47, Juliomar Marchetti disse:

Bom dia

se está sugerindo correções favor postar em anexo a alteração que avaliamos.

Eu não tenho a solução. Somente informei o erro que tem no componente.

[Juliomar Marchetti]

certo! como só houve você com esse relato sugiro efetuar testes e aplicar soluções para que possa resolver o problema e depois anexar aqui pode ser?

[Leonardo Gregianin]

Bom dia,

Pode ser Juliomar, obrigado pela resposta.

É uma solução simples utilizando a função RemoveStrings do próprio ACBr.

Segue alteração anexo.

-     rPathDown := rPathDown + PathWithDelim(FDownloadNFe.PathDownload) + TiraAcentos(xNome)
+     rPathDown := rPathDown + PathWithDelim(FDownloadNFe.PathDownload) + RemoveStrings(TiraAcentos(xNome),['/','\'])

Att.

ACBrNFeConfiguracoes.pas

[Leonardo Gregianin]

@Juliomar Marchetti, poderia analisar essa alteração?

Att.

 

[Juliomar Marchetti]

Apliquei uma possível alteração que vai resolver a situação citada!

Em 3/30/2017 at 14:37, Leonardo Gregianin disse:

@Juliomar Marchetti, poderia analisar essa alteração?

Att.