Nelson Santos

@Juliomar Marchetti, verifiquei que procedure ImprimirInternal em ACBrBoletoFCFortesFr.pas, na verdade está salvando como BMP...fiz umas alterações que gera efetivamente o JPG. Criei a função BmpToJpg que converte o Bitmap gerado em JPeg. Além disso, refiz a parte que grava o arquivo, fazendo com que só altere o nome do arquivo se tiver mais que 1 pagina para gravar...segue anexo...o arquivo "dfm" não foi alterado... ACBrBoletoFCFortesFr.pas

Agregando as informações já passdas, fiz um teste hoje nos clientes que estavam nesta situação, ou seja, ultima nota obtida foi Nov/2021. Este cliente em questão ficou até 15/01/2022 sem buscar nota...ou seja mais de 60 dias...o Ultimo NSU que tinha gravado no banco de dados era 9775...fizemos a primeira busca com o NSU 9775...o webservice retornou 137, mas também o NSU que está válido agora: 10102...assim, o WS retorna o NSU a partir do qual deverá ser utilizado para as buscas...isto está na NT 2015/002 de Cte, por exemplo....acredito que seja a mesma funcionalidade para NFe... Depois desta primeira consulta quando retornou o NSU 10102, eu somente consegui fazer nova consulta após 1 hora....e então viram todas as notas até Fev/2022... Obs: Este novo NSU somente será gerado para NFes emitidas a partir daquela primeira consulta que fiz ....ou seja, todas as notas entre Nov/2021 a Jan/2021 não geraram NSU e não consegue ser baixadas pelo DistribuicaoDFe... Seria interessante outras pessoas testarem isto...

Ainda dentro desta discussão, eu estou enfrentando outro problema...Faço um um looping com o DistribuicaoDFePorUltNSU...se me retorna cStat 138, tem mais lotes a buscar....se me retorna 137, não tem mais documentos...o problema é que está me retornando sempre 137 para dois clientes...mas temos notas para buscar...o ultimo NSU foi em Nov/2021...mas tem notas de Dez/2021, Jan/2022 e Fev/2022...Será que pode estar na mesma situação ???? ...estes clientes são do RJ...

@rhemasoftboa noite, fiz algumas alterações nos fotes para poder compilar no Delphi 2010...compilou normal ....não testei em versões menores que o Delphi 2010... BancoInter.zip

Eu consegui criar classes para acesso ao WebService do Banco Inter, mas por fora do Acbr.... Está funcionando muito bem... Hoje consigo Incluir boleto, Consultar boleto, Trazer uma lista de boletos, trazer o PDF de um boleto e Baixar boleto. Funciona desde o Delphi 7, acredito, pois uso somente units padrão....hoje está funcionando em um programa feito no Delphi 2010...

Achei outro link com o dito arquivo: https://github.com/bambucode/tfacturaelectronica/blob/master/OpenSSL/OpenSSLUtils.pas

@Juliomar Marchetti Boa noite, o ACBr já usa o Json4Delphi, que funciona desde a versão 6 do Delphi, além de ter para Lazarus também...acredito que dê para usar esta biblioteca para isto....

@Juliomar Marchetti Como mencionei, andei fazendo alguns ajustes nas classes dele.....hoje eu consigo rodar desde o Delphi 2010...

Sei que o post é antigo, mas estou com o mesmo problema descrito agora, depois que atualizei os fontes do ACBr ontem (19/09/2021). Alguém conseguiu solucionar este problema ? pode me ajudar ?

Para quem não progrediu ou está tendo dificuldades, vejam que o Giovani Mattos criou um componente para integração com o Banco Inter....estou testando e funciona muito bem. Inclusive já fiz várias alterações e acrescimos. O link no GitHub é https://github.com/giovanimattos/Delphi-API-Banco-Inter Como disse, já implementei coisas novas dentro disto que ele criou....

O Banco Inter disponibiliza também sua API via Webservices...estou com acesso para desenvolver solução para meu cliente...O Banco Inter somente disponibiliza os manuais de integração por dentro de seu Internet Banking, ou seja, somente cliente deste banco. O que já consegui foi acesso ao Postman: https://documenter.getpostman.com/view/316127/T1LFoWF1 Vou tentar verificar se consigo incluir esta API do Banco Integer no Acbr...se alguém poder ajudar, estamos juntos...

Boa noite, @Juliomar Marchetti com relação ao último post, referente à unit frxQRCode, fica em qual pasta ? Não tenho esta unit no FastReport, versão 5 que tenho instalada. Você consegue me ajudar nisto ? falta somente resolver esta utni para que eu teste a impressão da BP-e via FastReport...

Juliana, no meu caso, eu havia instalado uma outra versão do Json4Delphi em outra pasta e no Library Path do Delphi a referencia estava anterior à referência do path que o ACBr tem. Não sei porque esta versão nova instalada não é compativel com o ACBr. Esta versão do Json4Delphi eu baixei direto do github do projeto Json4Delphi. O que fiz foi excluir a pasta da versão nova do Library path, deixando somente a pasta do ACBr...

Consegui corrigir o erro....pode fechar por favor...

Atualizei hoje, 16/06/2021 Erro na instalação no arquivo JsonsUtilsEx.pas - Delphi 2010, alguém poderia ajudar ? Segue log... Compiling package D:\Desenvolvimento\ACBr\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\bin\dcc32.exe" "D:\Desenvolvimento\ACBr\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk" Embarcadero Delphi for Win32 compiler version 21.0 Copyright (c) 1983,2009 Embarcadero Technologies, Inc. D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(288) Error: E2089 Invalid typecast D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(501) Error: E2003 Undeclared identifier: 'DynUnitNameFld' D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(501) Error: E2029 ')' expected but identifier 'Tail' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(503) Error: E2066 Missing operator or semicolon D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(505) Error: E2003 Undeclared identifier: 'TypeData' D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(524) Error: E2026 Constant expression expected D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(534) Error: E2029 ':=' expected but ':' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(535) Error: E2029 Expression expected but 'BEGIN' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(539) Error: E2029 'END' expected but 'ELSE' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(540) Error: E2066 Missing operator or semicolon D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(552) Error: E2026 Constant expression expected D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(554) Error: E2029 'END' expected but 'ELSE' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(555) Error: E2066 Missing operator or semicolon D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(564) Error: E2125 EXCEPT or FINALLY expected D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(565) Error: E2014 Statement expected, but expression of type 'TTypeKind' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(573) Error: E2029 '.' expected but ';' found D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(17) Error: E2065 Unsatisfied forward or external declaration: '__ObjectToJson' D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\jsonsutilsEx.pas(18) Error: E2065 Unsatisfied forward or external declaration: '__jsonToObject' D:\Desenvolvimento\Delphi32\Componentes\Json4Delphi\Jsons.pas(38) Fatal: F2063 Could not compile used unit 'jsonsutilsEx.pas' Compilation failure Erro ao compilar o pacote "ACBr_TCP.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

@Daniel SimoesSimoes Vc fez alterações em alguma UNIT do ACBr (AcbrSocket ou AcbrUtil) ?

@Daniel SimoesSimoes Sim, eu sei que ele compila sem problemas...mostra o CAPTCHA...mas não recebe os dados do CNPJ quando em Android... Se funcionou tudo, beleza...quando subir pro Trunk, me fala...

@Daniel SimoesSimoes Mas ainda está com o problema que comentei ??? Se colocar no Trunk, só vai funcionar no Windows....o Android está ainda com aquele problema que vc disse que não tem como verificar ...

@Daniel Simoes Veja está solução http://delphinotes.innovasolutions.com.au/posts/ansistring-on-an-android-device/

@Daniel Simoes Veja este link da Embarcadero que explica sobre os tipos que devem ser convertidos: http://docwiki.embarcadero.com/RADStudio/Rio/en/Migrating_Delphi_Code_to_Mobile_from_Desktop

O que eu acho é que os equipamentos mobile usam padrão do Linux e que isto é UTF8. Quem trabalha com Java, e qualquer variante, como JAVAME, ANDROID JAVA, BLACKBERRY JAVA, e todos os demais, tem uma preocupação muito grande quando pegamos um arquivo codificado em ASCII/ANSI pois temos que converter para UTF8 para não ficar aparecendo aqueles caracteres "doidos" na tela do editor. Quando trabalhamos com webservices feitos em alguma linguagem Windows, como ASP.NET, isto também acontece com os dados retornados. O compilador Nexgen deve ter herdado ou foi obrigado a herdar está característica que é do Kernel dos Mobiles. Posso estar completamente errado, mas é o que penso agora. Sendo assim, como falei em meu primeiro post, declarações AnsiString são usadas em vários lugares no ACBr, principalmente nas units ACBrUtil e ACBrSocket, usadas por todos os outros componentes. O refactoring é grande.

@Daniel Simoes Se ajudar, será que a declaração do parâmetro da função StripHtml, sendo AnsiString não está causando isto ? Será que o compilador Android não seria melhor PAnsiChar, ou WideString, ou até mesmo somente string ? O problema é que a declaração AnsiString está em vários locais como ACBr Socket e ACBrUtil...

Si lembrando, precisa colocar no Path (Windows) ou em ./assets/internal/ no deploy do Android as DLLs OpenSSL

@Daniel Simoes segue anexo aquivo com fontes zipado. Compilei com Delphi Rio. Conforme mencionei, no Windows 32, funciona tudo normal. No Android, só não está funcionando o retorno. ConsultaCNPJ.zip

Boa noite, Desenvolvi um exemplo para o ACBrConsultaCNPJ para FMX, baseado no exemplo já existente para Windows. Roda perfeitamente em Windows 32 e Android. No Windows 32 mostra o Captcha e traz normalmente os dados do CNPJ consultado. Portanto, está perfeitamente OK. Entretanto, quando compilo e instalo no Android, mostra o Captcha normalmente, mas na hora de consultar o CNPJ não traz os dados, dando um erro que não foi possível retornar os dados. Na verdade, pelo debug, verifiquei que existe alguma coisa a mais para fazer nas units ACBrSocket e ACBrUtil. Quando chama a função StripHtml, parece que o retorno é cortado logo depois do <head> do html de resposta. Este problema não ocorre quando compilado para Windows 32. Consequência disto, a parte onde o ACBrConsultaCNPJ lê as tags de CNPJ, Razão Social ,etc no retorno não existem porque esta função StripHtml corta o retorno conforme descrevi. Gostaria de passar o exemplo funcionando perfeitamente para você colocar no trunk. Entretanto, estou com este problema. Eu não sei quem é o Consultor dentro do ACBr que poderia me ajudar nessa... Caso queira, posso te passar o exemplo. Nelson Santos