Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

Laercio Amici

Membros
  • Content Count

    22
  • Joined

  • Last visited

Community Reputation

21 Excellent

About Laercio Amici

  • Rank
    Novato

Contact Methods

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

Profile Information

  • Sexo
    Masculino
  • Location
    Birigui/SP

Recent Profile Visitors

950 profile views
  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.
  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 anterio
  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'].As
  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
  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 p
  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 si
×
×
  • Create New...