Banco Sicoob erro no nosso número

[Cleomar Pacheco]

Bom dia!

  Estou validando o banco Sicoob código do banco 756.

Busca no acbr o ABCrBancoBancoob

na função abaixo, ele monta o nosso número usando o '-'.

function TACBrBancoob.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String;
begin
  Result := ACBrTitulo.NossoNumero + '-' + CalcularDigitoVerificador(ACBrTitulo);
end;

no GerarRegistroTransacao240(

  aqui ele remove o '-'

 

e aqui onde ele calcula o digito verificador ele da erro que '-' não é integer

function TACBrBancoob.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;
var
  Num, Res :String;
  i, base, digito : Integer;
const
  indice = '319731973197319731973';
begin

   Result := '0';

   Num :=  PadLeft(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 4, '0') +
           PadLeft(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente, 10, '0') +
           PadLeft(trim(ACBrTitulo.NossoNumero), 7, '0');

   base := 0;
   for i := 1 to Length(Num) do
     base := base + ( StrToInt(copy(Num,i,1)) * StrToInt(copy(indice,i,1)) );
 

 

 

 

 

 

  

[José M. S. Junior]

Boa tarde, seria possível simular o problema utilizando o aplicativo exemplo ACBrBoleto? Até o momento não foi identificado esse problema no uso desse banco.

[Cleomar Pacheco]

Boa tarde!

 

  Utilizei e explodiu o erro

 

[Victor H. Gonzales - Panda]

1 hora atrás, Cleomar Pacheco disse:

Boa tarde!

 

  Utilizei e explodiu o erro

 

Boa tarde,

Consegue anexar o projeto do programa exemplo aqui, com a simulação deste erro ?

Se tiver informação sensível, por favor, coloque alguma fictícia, mas que não fere as regras de validação para geração do mesmo.

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário