Correção No Boleto Do Santander

[Rafael Cruz]

Depois de tentar homologar o boleto no Santander, precisei corrigir um detalhe no arquivo, peço que seja analisado e incrementado na atualização

 

ACBrBancoSantander.pas --> linha 257 

 

Atual    : Copy(NossoNumero,6,7) + DigitoNossoNumero

correto : Copy(NossoNumero,2,7) + DigitoNossoNumero 

 

 

Espero ter ajudado;;;

 

 

Daniel Pio

Programador

[Rafael Cruz]

Estou tendo problema com a linha digitável, vi em outro tópico que era necessário colocar o numero da carteira no caso "101" no campo Cedente->Modalidade, ele ate apareceu mais ainda esta dando um problema no tamanho das linhas, abaixo esta o esperado pelo banco e o que o componente esta gerando.

 

Gerado pelo componente : 0339962086827????000100033701012757300000001644 -> as '?' indicam a possível falta de 4 dígitos 

Esperado pelo banco        : 03399620868270000000100025601014157510000032000

 

se alguém souber como corrigir isso ???

[Rafael Cruz]

Graças a mais um post encontrei o erro da linha digitável

 

no arquivo ACBrBancoSantander.pas corrigir a seginte linha :

 

CodigoBarras := '033'+'9'+ FatorVencimento +

                       IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +

                       '9'+ padR(Cedente.CodigoCedente,7,'0') +

                       padR(ACBrTitulo.NossoNumero + DigitoNossoNumero,13,'0') +

                       '0'+ padR(trim(Cedente.Modalidade),3,'0');

 

o erro esta nessa linha em negrito

[Juliana Tamizou]

Bom dia.

 

Fiz uma modificação um pouco diferente para garantir que sejam copiados sempre os 7 dígitos do  Nosso Número.

 

Quanto ao erro na montagem do código de barras, observe que o manual do banco  orienta a preencher com  13 caracteres, considerando o DV do Nosso Número.

 

O layout do código de barras deve ter as seguintes características:

 

Posição Tamanho Picture       Conteúdo

01-03         3          9 (03)        Identificação do Banco = 033

04-04         1          9 (01)        Código da moeda = 9 (real)

05-05         1          9 (01)        DV do código de barras (cálculo abaixo)

06-09         4          9 (04)        Fator de vencimento

10-19        10         9 (08)V99 Valor nominal

20-20         1          9 (01)        Fixo “9”

21-27         7          9 (07)        Código do cedente padrão Santander Banespa

28-40        13         9 (13)        Nosso Número

41-41         1          9 (01)        IOS – Seguradoras (Se 7% informar 7. Limitado a 9%) Demais clientes usar 0 (zero)

42-44         3          9 (03)        Tipo de Modalidade Carteira (101-Cobrança Simples Rápida COM Registro,102- Cobrança simples – SEM Registro,201- Penhor Rápida com Registro)

 

Quais foram os valores configurados no componente?

 

Att.

[Rafael Cruz]

Sim, mas caso isso não ocorra, precisa garantir que a linha tenha o tamanho correto, é só acrescentar o ,'0' depois do 13, como nas linhas anteriores

Editado 28 Agosto, 2013 por Rafael Cruz

[Juliana Tamizou]

Boa tarde.

 

Ajuste disponivel no svn.

 

Att.

[carlosmarian]

Juliana,

  referente a este alteração, procurei no histórico do SVN e encontrei um outro ajuste que foi feito no método "TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);".

  Na descrição do post fala somente da necessidade de ajuste na geração da linha digitada, e não na remessa.

 

  Antes estava assim:

   "Copy(NossoNumero,6,7) + DigitoNossoNumero               +"

  Agora esta assim:

   "padR(LeftStr(NossoNumero,7),7,'0') + DigitoNossoNumero  +"

 

  Este ajuste gerou falha(divergência) no meu teste unitário após a atualização.

  Minha pergunta qual necessidade gerou esta alteração, é que preciso verificar se realmente tenho que revisar meu teste 

 

  Obrigado pela atenção.

 

at+

[Juliana Tamizou]

Boa tarde.

 

A modificação foi feita para garantir que fossem sempre copiados os 7 últimos dígitos do NossoNumero, uma vez que devido a haver locais onde o campo fica maior na implementação anterior poderia ocorrer de não serem copiados exatamente os últimos dígitos.

 

Att.

[carlosmarian]

Olá,

   mas o correto então não seria RightStr?

   Imagine um campo nosso nro com o seguinte valor "000000000004"

     Da forma como foi implementado hj ele iria trazer "0000000" e não  "0000004" como estava trazendo antes.

 

 

No aguardo.

[Juliana Tamizou]

Bom dia.

 

Você tem razão..irei aplicar a correção

 

Att.