Arquivo Retorno HSBC - HOMOLOGADO CNR

[cloudcon]

Boa tarde Galera,

Estou compatilhando a minha UNIT do HSBC com a importação do arquivo de retorno CNAB 400, importando corretamente cobrança registrada e não registrada.

Alguns if's foram adicionados

  //No arquivo de CNR não retorna essas informações

  If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then

    ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[0], 120, 2) + '/' +

                                                                Copy(ARetorno[0], 122, 2) + '/' +

                                                                Copy(ARetorno[0], 124, 2), 0, 'DD/MM/YY');


    If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then

      Cedente.CNPJCPF := rCNPJCPF;


    If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then

    Begin

      Case StrToIntDef(Copy(ARetorno[1], 2, 2), 0) Of

        11: Cedente.TipoInscricao := pFisica;

      Else

        Cedente.TipoInscricao := pJuridica;

      End;

    End;


      If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then

        SeuNumero := copy(Linha, 38, 25)

      else

      begin

        //Verificar se é melhor copiar com os 3 ultimos digitos que são digitos verificadores ou não

        Titulo.SeuNumero := copy(Linha, 38, 13)


      If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then

        NossoNumero := Copy(Linha, 127, 11)

      Else

      Begin

        //Verificar se é melhor copiar com os 3 ultimos digitos que são digitos verificadores ou não

        NossoNumero := Copy(Linha, 63, 13);

      End;


      If Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then

      Begin

      {if StrToIntDef(Copy(Linha,111,6),0) <> 0 then

         DataCredito:= StringToDateTimeDef( Copy(Linha,296,2)+'/'+

                                            Copy(Linha,298,2)+'/'+

                                            Copy(Linha,300,2),0, 'DD/MM/YY' );  }

      End

      else

      Begin

      if StrToIntDef(Copy(Linha,83,6),0) <> 0 then

         DataCredito:= StringToDateTimeDef( Copy(Linha,83,2)+'/'+

                                            Copy(Linha,85,2)+'/'+

                                            Copy(Linha,87,2),0, 'DD/MM/YY' );


      End;

    End;

Todas essas modificações foram necessárias para a importação do CNR pelo componente.

Espero ter ajudado

ACBrBancoHSBC.pas

[Juliana Tamizou]

Boa tarde.

Reparei que o CPNJ e o Tipo de Inscrição do Cedente só estão sendo lidos caso a cobrança seja diferente de "Cobranca CNR", estes campos nãoe xistem no manual do CNR?

O CNR, seria a cobrança sem registro?

Att.

[cloudcon]

No manual da cobrança CNR (Cobrança sem Registro, você está correta), Não existem essas informações no retorno.

Por isso que tive que fazer o teste, revirei o manual inteiro atras dessas informações e não as encontrei.

O que existe é somente o código do cedente e as informações da conta.

Espero te ajudado

[Juliana Tamizou]

Bom dia.

Você poderia anexar aqui o manual utilizado?

Att.

[j2c9m7]

Tenho aqui o manual CNR do HSBC

Abraços

CNR.pdf

[Juliana Tamizou]

Bom dia Jair.

Eu gostaria do manual, onde consta o retorno da cobrança sem registro...

Att.

[j2c9m7]

Juliana

Segue manual retorno CNR HSBC

Abraços

RetornoCNR.pdf

[Juliana Tamizou]

Bom dia Jair.

Estamos quase lá com o manual...oque vc anexou aqui é o CNAB240, precisamos do CNAB400...

Att.

[j2c9m7]

Juliana

Segue manual retorno CNR 400 HSBC

Abraços

RetornoCNR400.pdf

[Juliana Tamizou]

Boa tarde.

Alterações disponíveis no svn.

Att.