Gerar Linha Digitável Hsbc

[Valdemir Jacon Sanches]

Estou com um problema que ao imprimir o boleto, a linha digitável do boleto HSBC está vindo com uma divergência.

 

Na posição 22 a 28 do Campo 3 da Composicao da Linha Digitável Pag em anexo N° 19

 

De    Ate   Posição        Conteúdo 

22  a  28        7              Conta da Agência - Final da Conta Cobrança

 

Nessa informação esta vindo o numero da conta sem o digito

 

 

Na posição 29 a 30 do Campo 3 da Composicao da Linha Digitável Pag em anexo N° 19

De    Ate   Posição        Conteúdo 

29  a  30        2              Código da carteira = '00'

Na rotina não tem esse '00' igual ao layout.

 

 

Na rotina atual esta assim na Class: ACBrBancoHSBC, na linha 214 a 223

 

      {'CSB' Cobranca Registrada}

      if aCarteira = '1' then

       begin

         Parte2 := CalcularFatorVencimento(Vencimento) +

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

                   RightStr(padR(ANossoNumero, 13, '0'),11) +       // precisa passar nosso numero + digito

                   padR(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') +

                   padR(OnlyNumber(ACBrBoleto.Cedente.Conta), 7, '0')+

                   padR(ACBrBoleto.Cedente.ContaDigito,2,'0');

       end

 

Observei que no layout do banco que esta em anexo, essa rotina deveria fazer o seguinte

 

Parte2 := CalcularFatorVencimento(Vencimento) +

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

                   RightStr(padR(ANossoNumero, 13, '0'),11) +       // precisa passar nosso numero + digito

                   padR(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') +

                  // as linha acima da rotina estão corretas

                   

                   //a linha abaixo esta vindo somente o numero da conta sem o digito, por padrao esta indo  isso ocorrre divergencia 

                   padR(OnlyNumber(ACBrBoleto.Cedente.Conta), 7, '0')+ 

                  

                  //Nessa linha abaixo deveria vir '00', que esta padrão no layout do banco

                   padR(ACBrBoleto.Cedente.ContaDigito,2,'0');

 

ou seja nessas divergencia acima deveria vir

       Numero da conta do banco + //

       Digito da Conta                   +

       '00'  que é o padrão do Layout

 

    

    

Boleto HSBC.PDF

[Juliana Tamizou]

Realmente será necessário efetuar um ajuste para atender este banco..alteração estará disponível nos próximos dias.

 

Att.

[Juliana Tamizou]

Alteração disponibilizada no svn.

 

Att.

[Valdemir Jacon Sanches]

Alteração Feita

 

Class ACBrBancoHSBC

 

217        Parte2 := CalcularFatorVencimento(Vencimento) +

218                        IntToStrZero(Round(ValorDocumento * 100), 10) +

219                        RightStr(padR(ANossoNumero, 13, '0'),11) +       // precisa passar nosso numero + digito

220                        padR(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') +

221                        padR(OnlyNumber(ACBrBoleto.Cedente.Conta) +

222                        OnlyNumber(ACBrBoleto.Cedente.ContaDigito) , 7, '0')+

223                        '00'

 

 

So que nesse caso na linha 221 e 222, esta tirando um numero que seria o numero do digito, pois no Create dessa Class o Tamanho da Conta esta com 7

Fiz um teste deixando o tamanho da Conta com 6 e assim deu certo, pois na linha 221 padR(OnlyNumber(ACBrBoleto.Cedente.Conta) ele ja traz o numero da conta com zero a esquerda dando 7 digitos, e e assim ignora a linha 222 que seria do digito, logo a linha digitável fica diferente

 

 

Create da Class:

   fpDigito                                      := 9;

   fpNome                                      := 'HSBC';

   fpNumero                                   := 399;

   fpTamanhoMaximoNossoNum    := 16;

   fpTamanhoAgencia                    := 4;

   fpTamanhoConta                        := 7;   aqui eu fiz um teste e deixei 6

   fpTamanhoCarteira                     := 3;

[Juliana Tamizou]

Bom dia.

 

Devido a possibilidade de alguns usuários utilizarem o componente hoje informando o DV no Campo Conta, a alteração realizada foi a verificação se o primeiro digito da conta é 0 e neste caso são utilizados somente os 6 últimos.

 

Alteração já está no svn.

 

Att.

[Valdemir Jacon Sanches]

Juliana, dei update no ACBr, e deu tudo certo.

 

Obrigado....