Lowry David da Silva Pereira Reis

eu to usando o 10.3, essa pode ser uma boa solução.

entendi... to pensando ainda em qual será a melhor forma de resolver esse problema...

Bom dia, não achei nenhum tópico sobre esse assunto... desculpa caso tenha sido duplicado... Existe alguma forma de setar uma fonte padrão para a impressão? me deparei com uma situação aonde maquinas na mesma empresa imprimem o danfe com configurações diferentes, fui analisar a situação e algumas maquinas estão com a visualização em 150% e outras tiveram seu pacote de fontes alterado por algum programa instalado...

não mexi no acbrboleto, apenas no ACBrBancoSafra, como tenho clientes em vários bancos, não posso fazer uma alteração no acbrboleto, isso pode provocar erros nos outros.

no final do nosso numero o componente gera o digito verificador, estou trabalhando utilizando ele, então nas minhas configurações eu comecei com o nosso numero setado em 1.

essa linha não fui eu que alterei, já herdei essa Unit alterada nesse ponto minhas alterações foram para os campos da agencia que no meu caso começavam com 0... aconselho a pegar essa Unit e tentar a homologação.

você baixou essa Unit para testar?

Conforme prometi, acabo de receber a mensagem de Homologação, acabo de recebe-la, estou enviando a Unit que foi alterada para esse caso aonde a agencia começa com 0. ACBrBancoSafra.pas

verifique que na verdade não existe digito da agencia e ele utiliza apenas os 4 primeiros dígitos para escrever a linha digitável, ou seja, se é 05200 ele vai escrever apenas 0520... não foi a melhor forma de alterar, mas a linha digitável ficou exatamente igual ao que eles estão pedindo, agora estou esperando a resposta do banco, caso ela seja de homologado, vou fazer uma alteração "decente".

Muito obrigado pela atenção testei novamente com a sua Unit e agora ela escreve corretamente a agencia na impressão e na remessa. só precisei alterar a function abaixo para poder gerar a linha digitável corretamente. function TACBrBancoSafra.MontarCodigoBarras(const ACBrTitulo: TACBrTitulo): string; var CodigoBarras, FatorVencimento, DigitoCodBarras , valorDocumento, agencia, agenciaDigito, conta, ContaDigito, NossoNumero: string; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); valorDocumento := IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10); agencia := PadRight(RightStr(Cedente.Agencia, 5), 5, '0'); //***ALTERADO DE 4 PARA 5****// aqui 4 posicoes da agencia + 1 posicao do digito pagina 23 agenciaDigito := PadLeft(Cedente.AgenciaDigito, 1, '0'); conta := PadLeft(Cedente.Conta, TamanhoConta, '0'); ContaDigito := PadLeft(Cedente.ContaDigito, 1, '0'); NossoNumero := PadLeft(RightStr(ACBrTitulo.NossoNumero,TamanhoMaximoNossoNum),TamanhoMaximoNossoNum,'0') + CalcularDigitoVerificador(ACBrTitulo); CodigoBarras := IntToStr(Banco.Numero) + '9' + FatorVencimento + valorDocumento + '7' + agencia + trim(agenciaDigito) + trim(conta) + ContaDigito + NossoNumero + '2'; DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result := IntToStr(Numero) + '9' + DigitoCodBarras + Copy(CodigoBarras, 5, 39); end;

Testei com a sua Unit e o problema infelizmente é o mesmo, no meu caso a agencia é 05200 e deve ter o 0 a esquerda.

conforme a página 23 do manual CNAB400, a agencia é representada pelos 4 primeiros dígitos, então deveria estar 0520. link manual: https://www.safra.com.br/data/files/92/E1/A0/49/B7C39510FDF7C195181808FF/Leiaute de Arquivos - Cobranca CNAB 400.pdf

Bom dia, estou mantendo esse tópico pois ainda não consegui terminar as validações, mesmo com a Unit do companheiro acima, que esta validada e em produção e eu continuo tendo problemas... agora o dilema esta na linha digitável, a agencia do meu meu cliente é 05200 porem a agencia esta sendo informada na linha digitável sem o 0 a esquerda (apenas 5200), conforme a imagem abaixo.

Enviei a remesse utilizando a sua Unit, e eles me questionaram as seguintes coisas: alterar campos marcados em vermelho no boleto modelo abaixo: o campo nosso número informado no boleto está divergente do informado na remessa, o mesmo deve ser idêntico contendo 9 números sem cálculo do dígito final; -- (ou seja, o nosso numero deve conter 9 digitos + o digito verificador, na Unit do ACBR ele imprime 9 dígitos sem o digito verificar e preenche na remessa 9 dígitos contando com o dígito verificador) ag e conta deve seguir o formato 05200 / 005834915 ; -- (na Unit do ACBR ele escreveu correto) o nome do banco não deve conter logo, somente BANCO SAFRA S/A.; -- (em nenhuma das duas units saiu escrito)

Bom dia, ainda não, vou enviar uma remessa de teste utilizando ela ainda hoje