ConsultarLoteRps não respeita a configuração de PastaMensal

[Endrigo Rodrigues]

Quando mando executar o ConsultarLoteRps ele não está procurando na pasta correta do mês.

Sugestão de código abaixo:

function TACBrNFSe.ConsutarLoteRps(ANumLote, AProtocolo: String): Boolean;

var

 wDia, wMes, wAno : Word;

 aPath: String;

begin

 aPath := FConfiguracoes.Geral.PathSalvar;


 // Acrescentado por Endrigo Rodrigues

 if FConfiguracoes.Arquivos.PastaMensal

  then begin

   DecodeDate(Now, wAno, wMes, wDia);

   if Pos(IntToStr(wAno)+IntToStrZero(wMes,2),aPath) <= 0

    then aPath := PathWithDelim(aPath)+IntToStr(wAno)+IntToStrZero(wMes,2) + '\';

  end;


 // Alterado por Rodrigo Cantelli

 if FConfiguracoes.Arquivos.AdicionarLiteral

  then NotasFiscais.LoadFromFile(aPath+'Ger\'+ANumLote+'-env-lot.xml')

  else NotasFiscais.LoadFromFile(aPath+ANumLote+'-env-lot.xml');


 if NotasFiscais.Count <= 0

  then begin

   if Assigned(Self.OnGerarLog)

    then Self.OnGerarLog('ERRO: Nenhum RPS adicionado');

   raise Exception.Create('ERRO: Nenhum RPS adicionado');

   exit;

  end;


 Result := WebServices.ConsultaLoteRps(AProtocolo);

end;

[Endrigo Rodrigues]

Ítalo, alguma novidade se o código será implementado?

[Italo Giurizzato Junior]

Bom dia Endrigo,

Desculpe a demora,

Já disponibilizei a alteração.

[Endrigo Rodrigues]

Muito obrigado Ítalo.