HSBC - Cedente do arquivo inválido

[SaraHidalgo]

Bom dia!

Estou no processo de homologação da carteira Com Registro do HSBC em um cliente, e encontrei um problema ao ler o arquivo de retorno no padrão CNAB400.

A mensagem original era "Cedente do arquivo inválido. Informado = '11251477284' Esperado = '' ".
Trecho do código da leitura do cedente:
rCodigoCedente := Copy(ARetorno[0], 109, 11);
Mas, no manual do banco da cobrança registrada, este campo é reservado ao banco.

Fiz uma alteração no código, de acordo com o manual do site do banco, prevendo ainda o caso da carteira sem registro:
  if Trim(Copy(ARetorno[0], 12, 15)) = 'COBRANCA' Then
    rCodigoCedente := Copy(ARetorno[0], 34, 11)        
  else
    rCodigoCedente := Copy(ARetorno[0], 109, 11);

Além disso, precisei alterar o código onde os campos são comparados, pois era realizada uma conversão de string para inteiro estourando o valor máximo permitido para este tipo de dado:

DE:
     if not(LeCedenteRetorno) and
       (StrToIntDef(rCodigoCedente, -1) <> StrToIntDef(OnlyNumber(Cedente.CodigoCedente), 0)) then
        raise Exception.Create(ACBrStr('Cedente do arquivo inválido' + #13 + #13 +
                                       'Informado = ' + OnlyNumber(Cedente.CodigoCedente) + #13 +
                                       'Esperado = '+ rCodigoCedente));
PARA:
     if Trim(Copy(ARetorno[0], 12, 15)) = 'COBRANCA CNR' Then
       if not(LeCedenteRetorno) and
         (StrToIntDef(rCodigoCedente, -1) <> StrToIntDef(OnlyNumber(Cedente.CodigoCedente), 0)) then
          raise Exception.Create(ACBrStr('Cedente do arquivo inválido' + #13 + #13 +
                                         'Informado = ' + OnlyNumber(Cedente.CodigoCedente) + #13 +
                                         'Esperado = '+ rCodigoCedente))
     else
       if not(LeCedenteRetorno) and
         (rCodigoCedente <> OnlyNumber(Cedente.CodigoCedente)) then
          raise Exception.Create(ACBrStr('Cedente do arquivo inválido' + #13 + #13 +
                                         'Informado = ' + OnlyNumber(Cedente.CodigoCedente) + #13 +
                                         'Esperado = '+ rCodigoCedente));


Em anexo a unit alterada para análise e aprovação.
Abaixo o link com o manual do banco.

https://www.hsbc.com.br/1/PA_esf-ca-app-content/content/hbbr-pws-gip16/portugues/business/comum/pdf/cob400_jan.pdf 


Obrigada!

ACBrBancoHSBC.pas

[SaraHidalgo]

Bom dia!

 

Algum retorno sobre essa alteração?

 

Obrigada.

[SaraHidalgo]

Bom dia!

Continuo no aguardo de uma resposta sobre a solução proposta!

Obrigada.

 

 

[Juliana Tamizou]

Boa tarde.

Ainda não foi analisado.

Att.

[Graziele Rocha Serafim]

Boa tarde @SaraHidalgo,

Seria mais interessante identificar o tipo de remessa por meio de alguma informação constante no arquivo ao invés da posição da string "COBRANCA", não existe um campo com esta informação no retorno?

Att.