Carteira - Leiaute Santander - CNAB 400

[Ronaldo Negreiros Danieli]

Boa tarde,

Já fazia alguns meses que eu não atualizava o código fonte do ACBr e ao fazê-lo vi que foram refatoradas várias classes (a grande maioria talvez).

Tenho clientes que fazem emissão de boletos pelo Santander usando código de carteira 1 e com as mudanças isso parou de funcionar.

Anexei o leiaute e na página 8 constam as seguintes opções de carteira:

1 = ELETRÔNICA COM REGISTRO
3 = PENHOR ELETRÔNICA
5 = RÁPIDA COM REGISTRO (BOLETO EMITIDO PELO CLIENTE)
6= PENHOR RÁPIDA
7 = DESCONTO ELETRÔNICO

Olhando o log de alteração do SVN a mudança ocorreu da revisão 20300 para a 20301.

Antes no início do método "GerarRegistroTransacao400" constava:

aCarteira := StrToIntDef(ACBrTitulo.Carteira, 0 );

e foi alterado para:

aCarteira := StrToIntDef( DefineCarteira(ACBrTitulo) , 0);

O método DefineCarteira só permite o uso das carteira 5, 6 e 4 (a carteira 4 não consta na versão do leiaute em anexo, mas isso pode constar em versões mais novas ou mais antigas).

Como antes era possível definir o código da carteira direto no componente então funcionava corretamente.

A solução é alterar o código fonte do método DefineCarteira para trabalhar da seguinte maneira:

    if ((Carteira = '101') or (Carteira = '005'))  then
      Result := '5'
    else if ((Carteira = '201') or (Carteira = '006')) then
      Result := '6'
    else if ((Carteira = '102') or (Carteira = '004')) then
      Result := '4'
    else if (Carteira = '001') then
      Result := '1'
    else if (Carteira = '003') then
      Result := '3'
    else if (Carteira = '007') then
      Result := '7';

 

H7800 Layout CNAB 400 com registro (padrão 353) Setembro 2017 v 2.17.pdf

[Juliomar Marchetti]

Pode anexar seu fonte alterado aqui que o alguém vai levar para a lista de tarefas e subiremos se estiver correto com o manual

[Ronaldo Negreiros Danieli]

Segue em anexo a versão com a correção.

ACBrBancoSantander.pas