Erro ao Salvar XMLs

[cueiogordo]

Bom dia

Estou desenvolvendo a rotina de Distribuição de Documento Eletrônico e me deparei com um errinho na função

function TACBrDFe.Gravar(NomeArquivo: String; ConteudoXML: String; aPath: String; ConteudoEhUTF8: Boolean): Boolean;

Hoje a mesma encontra-se assim:

    if EstaVazio(SoPath) then
      SoPath := aPath;
    if EstaVazio(SoPath) then
      SoPath := FPConfiguracoes.Arquivos.PathSalvar;

 

Acertando ficaria assim:

    if not (EstaVazio(SoPath)) then
      SoPath := aPath;
    if EstaVazio(SoPath) then
      SoPath := FPConfiguracoes.Arquivos.PathSalvar;

 

Espero ter ajudado.

[BigWings]

Bom dia,

Acredito que a alteração seja indevida.

SoPath é o path passado no nome do arquivo, então o aPath só será usado caso ele não seja informado junto ao nome do arquivo.

Além disso, essa função é usada em várias classes do componente, inclusive internamente, precisaria de testes completos nas classes ACBrDFe.

[cueiogordo]

Favor desconsiderar esse tópico, meus fontes estavam com problema.

Eu exclui a pasta e sincronizei novamente e tudo voltou a funcionar.

Peço desculpas pelo inconveniente.

Grato.