Novos acertos Boleto HSBC

[cloudcon]

Bom dia,

Segue algumas alterações que eu tive que realizar para que a cobrança não registrada funcionasse corretamente.

Agradeço por ter comittado as outras alterações que eu havia feito, fico honrado em ajudar o projeto.

Segue mais algumas alterações que eu havia esquecido de colocar no post anterior

Código do motivo as vezes vem como vazio, dependendo da Ocorrencia.

O ifthen estava assim

CodMotivo := StrToInt(IfThen(copy(Linha, MotivoLinha, 2) = '00', '00', copy(Linha, MotivoLinha, 2)));

ou seja se '00' então '00' ??

Alterei e funcionou,

os outro iftthen após esses também foram alterados

linha 492

  //Andre Faria

  CodMotivo := StrToInt(IfThen(copy(Linha, MotivoLinha, 2) = '  ', '00', copy(Linha, MotivoLinha, 2)));

linha 498

  MotivoRejeicaoComando.Add(IfThen(copy(Linha, MotivoLinha, 2) = '  ', '00', copy(Linha, MotivoLinha, 2)));

Linha 510

  MotivoRejeicaoComando.Add(IfThen(copy(Linha, MotivoLinha, 2) = '  ', '00', copy(Linha, MotivoLinha, 2)));

Linha 519

  MotivoRejeicaoComando.Add(IfThen(copy(Linha, MotivoLinha, 2) = '  ', '00', copy(Linha, MotivoLinha, 2)));

Essas foram as alterações que eu fiz, mas analisando a UNIT, eu notei que a parte seguinte

        MotivoLinha := 319;

        For i := 0 To 4 Do

        Begin

          //MotivoRejeicaoComando.Add(IfThen(copy(Linha,MotivoLinha,2) = '00','00',copy(Linha,MotivoLinha,2)));

          CodMotivo := StrToInt(IfThen(copy(Linha, MotivoLinha, 2) = '  ', '00', copy(Linha, MotivoLinha, 2)));

....

...

..

Essa coluna 319 não existe em nenhum dos manuais pois no manual cobrança registrada é somente um registro de rejeição

que fica na linha 302 até linha 303

//Esses são os manuais que estão disponiveis para download no site do HSBC

CAMPO SIGNIFICADO INICIAL FINAL SIGNIFICATIVOS CONTEÚDO

Banco Uso do Banco 305 388 084 Uso do Banco

//Cobrança Registrada

CAMPO SIGNIFICADO INICIAL FINAL SIGNIFICATIVOS CONTEÚDO

Complemento da Ocorrência Complemento da Ocorrência 302 303 002 Alfanumérico ( ver nota explicativa 14 )

//Cobrança Não Registrada

CAMPO SIGNIFICADO INICIAL FINAL SIGNIF. CONTEÚDO

Motivo dao corrência Identifica o motivo da rejeição do título 123 131 009 Numérico, conteúdo a ser retornado com os códigos dos motivos da rejeição do título (Vide Nota Complementar 06)

Link dos arquivos

Cobrança Registrada

http://www.hsbc.com.br/1/2/portal/pt/pa ... registrada

Cobrança não registrada

http://www.hsbc.com.br/1/2/portal/pt/pa ... registrada

ACBrBancoHSBC.pas