Contribuição para unit ACBrSpedTabelas.pas

[Waldir Paim]

Precisei utilizar a unit ACBrSpedTabelas.pas e funcionou perfeitamente.

Mas encontrei a possibilidade de deixar ela melhor ainda.

Quando passa um caminho para salvar as tabelas e esse caminho não existisse a função de downalod não conseguia salvar o arquivo e não me apresentava o motivo.

Segue anexo uma proposta para tentar resolver isso.

ACBrSpedTabelas.pas

[Isaque Pinheiro]

Obrigado.

No repositório.

[Waldir Paim]

Oi Isaque,

Fiz mais uma pequena melhoria na unit.

Se poder depois avaliar, foi uma correção ortográfica na mensagem de erro e removi um Hints / Warning apresentada na unit.

Segue anexo.   

ACBrSpedTabelas.pas

[Isaque Pinheiro]

Bom dia, disponível no repositório, com alguns ajustes, obrigado.

[Waldir Paim]

Isaque, bom dia.

Você manteve o hint.

Ele é do tipo:

H2077 value assigned to never used.

function TACBrSpedTabelas.Download(const aId, aVersao, aName: string): boolean;
var
  Dow: TACBrDownload;
begin
  Result := False;  //<< ele reclama disso aqui
  if not fListou then
    raise EACBrTabelasSpedxception.Create(ACBrStr('Falta listar as tabelas'));

Não fiz o cast nas mensagens sem acentuação propositalmente pois a mesma na precisa do mesmo.

Mas seguimos.

Ou devo tratar no tópico especifico?

[Isaque Pinheiro]

Correção feita, subirá ainda hoje.

[Waldir Paim]

Valeu, agora ficou 100%.