Boleto Cresol Cnab 240 com erro

[Grupo FS]

Bom dia Senhoras e Senhores.. após a atualização dos fontes do ACBR em 06/07/2022 tive o seguinte problema nas remessas do Banco Cresol ( Banco 133 ) image.png

Alerado a Linha 413 do Fonte AcbrBancoCresol.pas de 

'0000000000 '; para '00000000000'; ou seja alterado o espaço em branco por 0 (zero) no final.

Desde ja Obrigado pela parceria e pelos excelentes componentes.

Pablo Cerbaro

ACBrBancoCresol.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3020

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Grupo FS]

Bom dia Senhoras e Senhores... 

A remessa esta validada. OK, Porem... o retorno não esta lendo correto a propriedade Nosso Numero.

Vi que foi alterado para uma metrica global a identificação do Nosso Numero.... porém no caso do Cresol ( Manual em anexo )

a Posição Inicial do Nosso Número é a 38...  e na nova função esta setado para 46

Na unit ACBrBoleto

function TACBrBancoClass.DefinePosicaoNossoNumeroRetorno: Integer;
begin
  if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
    Result := 46
  else
    Result := 71;
end;

Assim.. fazendo a Leitura incorreta do Nosso Numero.... 

como não tenho entendimento, da magnitude, desta alteração .... apenas, no meu fonte, adicionei a linha

           NossoNumero    := DefineNossoNumeroRetorno(Linha);
           NossoNumero    := copy(Linha, 38, 20);

para a correta leitura.

desde ja obrigado pelos excelentes componentes.

Abraços 

Pablo Cerbaro

 

Manuais-CNAB.zip

[Juliana Tamizou]

Boa tarde,

Em 10/09/2022 at 09:32, Grupo FS disse:

Vi que foi alterado para uma metrica global a identificação do Nosso Numero.... porém no caso do Cresol ( Manual em anexo )

a Posição Inicial do Nosso Número é a 38...  e na nova função esta setado para 46

Adicionado no bacjlog sob a TK-3020-1

[Victor H. Gonzales - Panda]

Em 10/09/2022 at 09:32, Grupo FS disse:

Bom dia Senhoras e Senhores... 

A remessa esta validada. OK, Porem... o retorno não esta lendo correto a propriedade Nosso Numero.

Vi que foi alterado para uma metrica global a identificação do Nosso Numero.... porém no caso do Cresol ( Manual em anexo )

a Posição Inicial do Nosso Número é a 38...  e na nova função esta setado para 46

Na unit ACBrBoleto

function TACBrBancoClass.DefinePosicaoNossoNumeroRetorno: Integer;
begin
  if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
    Result := 46
  else
    Result := 71;
end;

Assim.. fazendo a Leitura incorreta do Nosso Numero.... 

como não tenho entendimento, da magnitude, desta alteração .... apenas, no meu fonte, adicionei a linha

           NossoNumero    := DefineNossoNumeroRetorno(Linha);
           NossoNumero    := copy(Linha, 38, 20);

para a correta leitura.

desde ja obrigado pelos excelentes componentes.

Abraços 

Pablo Cerbaro

 

Manuais-CNAB.zip 1 MB · 2 downloads

Bom dia,

faça revert nos seus fontes e ative a propriedade para ler o código do nosso número completo caso o queira na integralidade.

o componente já usa essas posições que foi pontuada, faça os testes por favor, obrigado