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

eu só tenho o retorno do e-mail com todos os dizeres, alguns eu ja resolvi, ficaram apenas esses dois citados. NO BOLETO: 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; ag e conta deve seguir o formato 05200 / 005834915; o nome do banco não deve conter logo, somente BANCO SAFRA S/A.; alterar mensagem de local de pagamentos; recalcular linha digitável e código de barras conforme orientação abaixo:

eu vou testar com a sua Unit mas eu tenho medo de precisar atualizar o ACBR e acabar esquecendo de voltar a unit.... ai causar um stress desnecessário....

Bom dia, iniciei um processo de homologação do banco safra (cobBancoSafra) e me deparei com dois problemas que não estou conseguindo resolver... 1º o nosso numero gerado no arquivo de remessa esta divergente do impresso pois ele esta adicionando um digito verificador na 9ª posição do NN. IfThen(NossoNumero = '000000000', '000000000', PadLeft(RightStr(NossoNumero,8),8,'0') + CalcularDigitoVerificador(ACBrTitulo)) + não consegui realizar a impressão utilizando esse digito verificador. 2º o banco esta obrigando que não tenha uma logo e esteja escrito 'BANCO SAFRA S/A' em seu lugar, esse eu posso simplesmente alterar para que escreva o texto, mas na próxima vez que o ACBR for atualizado eu teria que alterar novamente.

eu consegui fazer aqui de uma forma um tanto quanto "burra", mas esta me resolvendo por enquanto, eu mando imprimir cada via separadamente da seguinte forma: DM.ACBrNFeDANFCeFortes1.ViaConsumidor := false; DM.ACBrNFe1.NotasFiscais.Imprimir; DM.ACBrNFeDANFCeFortes1.ViaConsumidor := true; DM.ACBrNFe1.NotasFiscais.Imprimir; não é a forma mais inteligente mas resolveu minha urgência, depois eu vou tentar implementar de uma forma melhor.

Entendi, vou fazer aqui, muito obrigado!

Boa tarde, Abri este tópico pois não achei nenhum já feito.... Estou implementando a emissão offline e nos meus testes no ambiente de homologação, não estou conseguindo imprimir a segunda via, apenas a via da empresa... na impressão a aparece a seguinte mensagem: "NFC-e nº 000008993 Série 002 14/03/2019 16:42:23 Via Empresa", mas não consigo imprimir a via do cliente. aaaaaaaa.pdf