Ir para conteúdo
  • Cadastre-se

dev botao

Contribuição para unit ACBrSpedTabelas.pas


Waldir Paim
  • Este tópico foi criado há 2932 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores

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

Link para o comentário
Compartilhar em outros sites

Obrigado.

No repositório.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

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

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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?

Link para o comentário
Compartilhar em outros sites

Correção feita, subirá ainda hoje.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2932 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.