Header C400 Com Erro

[IGNACIO RODRIGUES]

procedure TACBrBancoHSBC.GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList);

var

  wLinha: String;

begin

   with ACBrBanco.ACBrBoleto.Cedente do

   begin

      wLinha:= '0'                                             + // ID do Registro

               '1'                                             + // ID do Arquivo( 1 - Remessa)

               'REMESSA'                                       + // Literal de Remessa

               '01'                                            + // Código do Tipo de Serviço

               padL( 'COBRANCA', 15 )                          + // Descrição do tipo de serviço

               '0'                                             + // Zero

               padR(OnlyNumber(Agencia), 4, '0')               + // Agencia cedente

               '55'                                            + // Sub-Conta

               padR(OnlyNumber(Conta)+ContaDigito, 11, '0')    + // Conta Corrente //Removi agencia repetido //ALFEU MOTA //

               padL( '', 2,' ')                                + // Uso do banco

               padL( Nome, 30,' ')                             + // Nome da Empresa

               '399'                                           + // Número do Banco na compensação

               padL('HSBC', 15)                                + // Nome do Banco por extenso

               FormatDateTime('ddmmyy',Now)                    + // Data de geração do arquivo

               '01600'                                         + // Densidade de gravação

               'BPI'                                           + // Literal  Densidade

               padL( '', 2,' ')                                + // Uso do banco

               'LANCV08'                                       + // Sigla Layout

               padL( '', 277,' ')                              + // Uso do Banco

               '000001' ;                                        // Número Seqüencial

      aRemessa.Text:= aRemessa.Text + UpperCase(wLinha);

   end;

end;

 

 

 

 

Na linha onde informa o numero da conta com a contaDigito esta errado "padR(OnlyNumber(Conta)+ContaDigito, 11, '0') ", o correto é padR(Agencia + Conta, 11, '0'), tem que ser 4 digitos do numero da agencia, mais 7 digitos com o numero da conta, completando com zero a esquerda depois do numero da agencia e antes do numero da conta, formando assim 7 digitos com o numero da conta e 4 dígitos com o numero da agencia.

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

 

ver nota explicativa 1