Divergências no Layout Banco SAFRA

[Diego Dualbox]

Bom dia pessoal

O banco me enviou o layout do boleto estou postando em anexo.

Importante:

O arquivo  remessa não possui apontamentos.

Erro no boleto:

Campo agência e código beneficiario esta com erro no numero da agência, por gentileza colocar 04200 e nao 42000

Verificar o calculo da linha digitavél e código de barras.

Layout Boleto SAFRA.pdf

[José M. S. Junior]

Em 24/06/2020 at 09:44, Diego Dualbox disse:

Bom dia pessoal

O banco me enviou o layout do boleto estou postando em anexo.

Importante:

O arquivo  remessa não possui apontamentos.

Erro no boleto:

Campo agência e código beneficiario esta com erro no numero da agência, por gentileza colocar 04200 e nao 42000

Verificar o calculo da linha digitavél e código de barras.

Layout Boleto SAFRA.pdf 580 kB · 1 download

Vamos verificar para realização desse ajuste Diego. Obrigado!

[Diego Dualbox]

Agradeço Jose voce e a toda equipe 

se puder me avisar quando estiver pronto os ajustes, assim ja envio para eles, pra a cabar esse sofrimento.

[Mailson.Dragon]

Boa tarde, estou com o mesmo problema na formatação da agência, seque em anexo o manual do banco onde informa a agência com 5 dígitos sem a necessidade do digito verificador.

Pude observar que no arquivo ..\Fontes\ACBrBoleto\ACBrBancoSafra.pas

A função "MontarCodigoBarras", trata agencia com 4 dígitos mais 1 digito verificador

Já na função: "GerarRegistroHeader240", Posições 53-57 trata a agencia com 5 dígitos

Gerando inconsistências nas informações.

Ex: minha agencia é "19700"

 

500.pdf

[lmdsistemas]

36 minutos atrás, Mailson.Dragon disse:

Boa tarde, estou com o mesmo problema na formatação da agência, seque em anexo o manual do banco onde informa a agência com 5 dígitos sem a necessidade do digito verificador.

Pude observar que no arquivo ..\Fontes\ACBrBoleto\ACBrBancoSafra.pas

A função "MontarCodigoBarras", trata agencia com 4 dígitos mais 1 digito verificador

Já na função: "GerarRegistroHeader240", Posições 53-57 trata a agencia com 5 dígitos

Gerando inconsistências nas informações.

Ex: minha agencia é "19700"

 

500.pdf 387 kB · 0 downloads

Eu homologuei em 2019, desde então venho mantendo uma versão antiga do Safra pois a versão do SVN realmente tem este problema de calcular o digito verificador. Não sei se é um problema de algumas agências pois só tenho apenas DOIS clientes com este "banco" em produção.

 

Quando homologuei o código do ACBR era:

Linha 113  fpTamanhoAgencia        := 5;

Linha 1226     Result := PadLeft(RightStr(NossoNumero,9),9,'0');

Linha 1244     NossoNumero      := PadLeft(RightStr(ACBrTitulo.NossoNumero,9),9,'0');

 

Com o ACBR versão do SVN o Safra não aceita os boletos e não gera rejeição, apenas não aceita. Detalhe o suporte do banco não é dos melhores.

 

[Mailson.Dragon]

Meu problema é com o código da agência, resolvi quando mudei a função "MontarCodigoBarras", se poderem atualiza-la ficarei grato.

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          := PadLeft(RightStr(Cedente.Agencia,fpTamanhoAgencia), fpTamanhoAgencia, '0');
    //agenciaDigito    := PadLeft(Cedente.AgenciaDigito, 1, '0');
    conta            := Cedente.Conta;
    ContaDigito      := PadLeft(Cedente.ContaDigito, 1, '0');
    NossoNumero      := PadLeft(RightStr(ACBrTitulo.NossoNumero,fpTamanhoMaximoNossoNum),fpTamanhoMaximoNossoNum,'0');

    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;

[Diego Dualbox]

Bom dia Mailson

Eles ja estão verificando esse problema, eu uso o acbrmonitorplus e aqui tambem deu essa divergencia, o problema é aguentar as cobranças do cliente

Vamos Aguardar

[lmdsistemas]

11 minutos atrás, Mailson.Dragon disse:

Meu problema é com o código da agência, resolvi quando mudei a função "MontarCodigoBarras", se poderem atualiza-la ficarei grato.

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          := PadLeft(RightStr(Cedente.Agencia,fpTamanhoAgencia), fpTamanhoAgencia, '0');
    //agenciaDigito    := PadLeft(Cedente.AgenciaDigito, 1, '0');
    conta            := Cedente.Conta;
    ContaDigito      := PadLeft(Cedente.ContaDigito, 1, '0');
    NossoNumero      := PadLeft(RightStr(ACBrTitulo.NossoNumero,fpTamanhoMaximoNossoNum),fpTamanhoMaximoNossoNum,'0');

    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;

Mailson,

Linha 1244     NossoNumero      := PadLeft(RightStr(ACBrTitulo.NossoNumero,9),9,'0');

Mesma linha que tenho que alterar, buscando versão de maio/2019

 

[Diego Dualbox]

@José M. S. Junior a equipe tem alguma previsao para solução desse problema, ja acabou minhas desculpas para o cliente, ja entrei no desespero.

Obrigado

[Juliana Tamizou]

Bom dia.

Já está previsto para ser analisado durante esta semana.

Att.

[Diego Dualbox]

Bom dia pessoal

Alguma novidade sobre o boleto, o banco nao para de me cobrar, estao mais desesperados que eu.

Obrigado

[José M. S. Junior]

Bom dia Diego, disponibilizamos este ajuste na ultima versão do ACBrMonitor, favor atualizar a versão.

[Diego Dualbox]

Obrigado a todos da equipe

O boleto foi homologado com sucesso !!!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.