jerrivaldo

Para resolver o problema, agora vai ter que testar a data function CalcularFatorVencimento(DataDesejada : TDateTime) : string; begin if (DataDesejada < StrToDate('22/02/2025')) then Result := IntToStr( Trunc(DataDesejada - EncodeDate(1997,10,07))) else Result := IntToStr(Trunc(DataDesejada) - 44710); end;

O "Fator de Vencimento" das linhas digitáveis dos Boletos de Cobrança, atingirá o seu limite máximo em 21/02/2025. A partir dessa data, a sequência do fator de vencimento deverá ser reiniciada para o algoritmo 1000 para os boletos com vencimento a partir de 22/02/2025, somando uma unidade para cada dia subsequente, a fim de não impactar a emissão dos boletos. Veja o exemplo: Vencimento 21/02/2025 = 9999 Vencimento 22/02/2025 = 1000 Vencimento 23/02/2025 = 1001 Vencimento 24/02/2025 = 1002 Essa adequação no sistema do cliente é importante para que os bancos possam processar os pagamentos corretamente quando o cliente for realizá-los.

Tem algum video ou tutorial de como posso fazer para ter o QRCode na impressão local? Realmentel não consegui imprimir o boleto local com QRCode

Sim, tenho a impressão local mas sem o QRCode, por isso fiz a modificação pois o Pix domina os meios de pagamentos e precisamos oferecer essa praticidade para os nossos clientes. Vou continuar usando a versão modificada por mim. Só disponibilizei aqui para deixar isso disponível para todos que usam o componente. Posso fazer uma modificação para usar uma propriedade que o componente já tem sem ter que criar uma propriedade nova...

para ficar compatível com o lazarus pode salvar o boleto em qualquer variável (propriedade) string que já tem no componente. Vi que tem uma propriedade para uso do banco. Pode colocar o pdf em nessa variável para uso do banco para ficar compatível com o lazarus. Isso aí é simples de resolver. Se não quiser criar uma propriedade nova, a classe TACBrBoletoTituloRet tem uma propriedade chamada UsoBanco Na Unit ACBrBoletoRet_Inter_API a procedure TRetornoEnvio_Inter_API.LerRetornoPix() poderia ficar assim procedure TRetornoEnvio_Inter_API.LerRetornoPix(const ARetornoWS: TACBrBoletoRetornoWS; AIndex: Integer); ARetornoWS.DadosRet.TituloRet.UsoBanco := LJsonObjectItem.asstring['pdf']; O importante é ter essa função que elimina a necessidade de imprimir o boleto localmente.

Mas foi exatamente a baixa do PDF que eu acrescentei. O registro do boleto já estava corrreto. Fiz umas correções no momento em que dava erro de boleto já registrado e a pessoa estava tentando registrar novamente e o componente não retornava a mensagem de erro retornada pela Api pois dava access violation. para ficar compatível com o lazarus pode salvar o boleto em qualquer variável (propriedade) string que já tem no componente. Vi que tem uma propriedade para uso do banco. Pode colocar o pdf em nessa variável para uso do banco para ficar compatível com o lazarus.

Fiz modificações no componente ACBr boleto para funcionar com a nova versão da API do banco Inter e já imprimir o boleto com QRCode para pagamento com pix. ACBrBoletoRet_Inter_API.pas ACBrBoletoW_Inter_API.pas ACBrBoletoRetorno.pas

Recebi um comunicado do Banco Inter de que a partir de 31/10/2024 a API Cobrança V2 será descontinuada.

Não compila no Firemonkey. Fiz uma modificação para compilar no Fiemonkey mas só funciona no Windows. Quando tenta rodar no Android não funciona

Eu tive a idéia de recriar essa função de pegar os dados da empresa no site da receita federal refazendo tudo do zero. A idéia seria usar TWebBrowser para carregar a página. Depois era só ler o HTML de resultado no TWebBrowser e pegar as informações da empresa como nome, endereço, etc. Só que o TWebBrowser deu erro ao carregar a página. Segue código-fonte em anexo. Parece que tem que habilitar Cookies no TWebBrowser mas não sei como se faz isso. ConsultaCNPJ.rar