Ir para conteúdo
  • Cadastre-se

Laercio Amici

Membros
  • Total de ítens

    22
  • Registro em

  • Última visita

Contact Methods

  • Website URL
    http://www.viaregra.com

Últimos Visitantes

1.343 visualizações

Laercio Amici's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

21

Reputação

  1. Bom dia Elton. Desculpe a demora no retorno. Atualizei e testei, tudo OK. Obrigado. Laércio
  2. @Juliomar Marchetti, boa tarde. Acho que pode ser uma incompatibilidade com 2 novas funções introduzidas na unit jsonsUtilsEx.pas. Nas linhas 16 e 197, eu havia incluído o mesmo define utilizado na função GetDecimalSeparator. No entanto, parece que as funções abaixo utilizam rotinas de acesso à RTTI ainda não disponíveis nas versões citadas: Function __ObjectToJson(aObject : TObject) : String; Procedure __jsonToObject(Const aJSONString : String; Var aObject : TObject); Eu alterei o define aqui para {$IFDEF DELPHIXE6_UP} e compilei novamente no XE6 e D7. Funcionou. Não tenho as versões XE e XE2 para testar, mas segue o pas alterado para verificação. jsonsutilsEx.pas
  3. Sim, testei. No D7 funcionou perfeitamente, mas o @duardomribeiro usa o Delphi 2010, que não tenho aqui pra testar. O erro dele é o mesmo que eu estava tendo com o D7. Pesquisei no site da Embarcadero e havia encontrado referência ao record TFormatSettings a partir do Delphi 2009, e por isso incluí o {$IFDEF DELPHI2009_UP} na unit jsonsUtilsEx.pas. Fiz uma nova busca, e encontrei este link, dizendo que a var FormatSettings foi incluída no Delphi XE: http://delphiprogrammingdiary.blogspot.com/2019/04/formatsettings-or-tformatsettings-in.html Alterei a unit e troquei o ifdef anterior por {$IFDEF DELPHIXE_UP}, Compilei novamente com D7 e XE6, funcionou. Segue em anexo. Desculpe pelo equívoco, não tenho outras versões do Delphi instaladas. jsonsutilsEx.pas
  4. Bom dia Juliomar. Não uso o Lazarus, por isso não testei nele. Se alguém que usa o Lazarus puder testar, será bem-vindo. Obrigado.
  5. Boa noite. Estou usando a jsons.pas, contida na pasta de Terceiros do ACBr, e me deparei com uma falha no tratamento de strings com caracteres com notação Unicode. Recebi um json com a string abaixo: "produto_descricao":"M\u00e9dia 8 Peda\u00e7os" Ao utilizar a classe TJson para ler este valor, o resultado obtido foi convertido para: JSon['produto_descricao'].AsString; // 'Mé#0dia 8 Pedaç#0os' Ou seja, após os caracteres acentuados é inserido um byte 0, e ao atribuir para uma variável a string é truncada. sStr := JSon['produto_descricao'].AsString; // 'Mé' Consultei https://github.com/rilyu/json4delphi e verifiquei que existe uma versão mais recente, que corrige esta falha. Baixei os fontes, fiz algumas adequações para o ACBr, compilei e testei com o Delphi 7 e Delphi XE6. Estou disponibilizando em anexo os .pas atualizados da pasta ACBR\Fontes\Terceiros\json4delphi\src para que sejam analisados e atualizados no repositório do ACBr. Obrigado. json4delphi-src.rar
  6. Bom dia Juliomar. Sim, poderia ser um exemplo nativo. Mas a ideia seria fortalecer a comunidade ACBr, por isso pensei que um exemplo usando o componente seria melhor em termos de divulgação.
  7. Bom dia Juliana. Sim, compilei no Delphi 7 e Delphi XE6.
  8. Boa noite Gutemberg. Segue anexo com o componente ACBrFrenet. Gerei um rar somente com os arquivos alterados para a instalação do componente. Verifique o código do aplicativo de exemplo para ver como é realizado a chamada. Gostaria que os moderadores avaliassem a viabilidade de incorporar o componente ao ACBr. Tenho contato direto com a equipe do Frenet, e posso pleitear para eles incluírem o exemplo de chamada em ABCr Delphi no site da documentação (http://docs.frenetapi.apiary.io/). Tem várias linguagens de exemplo, mas nada em Delphi. Se precisarem de mais alguma informação ou ajuda, me avisem. ACBrFrenet.rar
  9. Boa tarde. O componente está disponível para doação sim. Estou ajustando algumas propriedades novas do serviço do Frenet, e assim que concluir posto aqui novamente.
  10. Boa noite Daniel. Já atualizei e testei novamente o componente. Funcionou corretamente. Obrigado.
  11. No meu caso, utilizo 850 porque a impressora LX-300 em que testei está configurada com a página de código PC-850.
  12. Boa noite a todos. Utilizamos o componente TACBrCHQ com o modelo chqImpressoraComum (classe TACBrCHQImpressoraComum) para imprimir cheques em uma Epson LX-300. Tivemos recentemente um cheque devolvido por motivo 31 (erro formal, normalmente relativo a erro de escrita) e foi quando notei que a acentuação não estava saindo correta na impressora (três estava sendo impresso como trÜs por exemplo). Para resolver este problema, criei uma nova propriedade TACBrCHQ.PaginaDeCodigo, que permite informar uma página de código para realizar a conversão de strings. Utilizei a TranslateString do próprio ACBr, e implementei a tradução apenas para a impressora comum, nos campos de extenso, mês e favorecido. Segue em anexo os fontes alterados e testados para serem incluídos no repositório, caso avaliem que esta implementação seja relevante. Obrigado, Laércio ACBrCHQ-PaginaDeCodigo.rar
  13. Bom dia. Falei com o Regys a um tempo atras sobre um componente que desenvolvi para comunicação com o web service do Frenet e gostaria de doar para o ACBr. O Frenet é um gateway para cotação de fretes, onde são enviados os volumes a serem transportados e o sistema retorna as transportadoras disponíveis para o Cep destino e o valor do frete. Para utilizar o componente, é necessário criar uma conta no site e obter um token que será validado na chamada ao WS. Eles possuem contas gratuitas e pagas, dependendo da quantidade de transportadoras e numero de cotações mensais disponíveis. O site é http://www.frenet.com.br, e o painel para criar a conta é https://painel.frenet.com.br. Criei o componente seguindo a mesma estrutura do ACBrSedex, compilei com Delphi XE6 e Delphi 7. Só não compilei no Lazarus porque não tenho instalado. O componente já está em uso e estável a mais de 8 meses. Segue fontes e demo de uso em anexo. ACBR_Frenet.rar
×
×
  • 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.