Ir para conteúdo
  • Cadastre-se

dev botao

Divergências no Layout Banco SAFRA


Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 1360 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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!

  • Obrigado 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

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.

 

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

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

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

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

Att.

  • Curtir 2
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1360 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.