Classe Banco Santander

[renato.pavan]

Boa tarde,

 

Emitimos boletos deste banco com a opção onde o Banco envia o boleto para o cliente, na geração da remessa, procedure:

procedure TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);

Fiz uma alteração para nos atender:

 

De:

   if aCarteira = 101  then
      aCarteira:= 5

Para:

   if aCarteira = 101  then
   begin
     case ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao of
       tbBancoEmite: aCarteira := 1;
       tbCliEmite: aCarteira:= 5;
     end;

Conforme instrução da empresa que faz a homologação dos boletos, segue trecho da página 8 do manual:

108 108 9(001) Código da carteira
1 = ELETRÔNICA COM REGISTRO
3 = CAUCIONADA ELETRÔNICA
4 = COBRANÇA SEM REGISTRO
5 = RÁPIDA COM REGISTRO
(BLOQUETE EMITIDO PELO CLIENTE)
6 = CAUCIONADA RAPIDA
7 = DESCONTADA ELETRÔNICA

Outra alteração que a empresa me passou foi com relação a agência cobradora quando carteira = 5, alterei

 

De:

   if aCarteira = 5 then
      aAgencia := padR(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
                       ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')
   else
      aAgencia:= '00000';

Para:

   if aCarteira = 5 then
      aAgencia := padR(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia),5,'0')
   else
      aAgencia:= '00000';

Pois conforme orientação da empresa que faz a homologação, a agência deve ir sem o dígito.

 

Caso estejam de acordo, favor subir as alterações para o SVN.

 

Obrigado.

[Juliomar Marchetti]

Anexe os arquivos ao post para efetuar o merge!