Erro no tamanho do nosso numero

[Luciano Fernandes]

boa tarde, estou gerando o codigo de barra utilizando o acbrboleto, ele gera normal o codigo de barra e o a linha digitável, o problema que quando vou gerar o arquivo remessa, ele dar um erro no tamanho do nosso numero , falando que nao pode se superior ao tamanh de 10 caracteres, e quando copio o codigo gerado e vou testar em algum site, diz que o codigo é invalido.

o banco é BBm carteira 17 

[Juliana Tamizou]

Boa tarde.

Se certifique de estar enviando na propriedade NossoNumero somente os dígitos que realmente se referem a esta informação.

Att.

[Luciano Fernandes]

CONVENIO: 7 DIGITOS  , carteira 17, ele proprio gera o nossonumero com 17 digitos, mas na validacao da remessa dar erro pois 

 if (Length(trim(NossoNumero)) > 10) and
      (((wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18'))) or
      ((wTamConvenio = 7) and (wCarteira = '18'))) then
      Result:= 17
   else if (wTamConvenio <= 4) then
      Result := 7
   else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or
           ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or
            (wCarteira = '17') or (wCarteira = '18'))) then
      Result := 5
   else if (wTamConvenio = 6) then
      Result := 11
   else if (wTamConvenio = 7) then
      Result := 10;

retorna o tamanho 10

 

[Juliana Tamizou]

Bom dia.

Qual o valor passado a propriedade NossoNumero?

19 horas atrás, Luciano Fernandes disse:

CONVENIO: 7 DIGITOS  , carteira 17, 

Considerado que você te parametrizado o convenio e a carteira desta forma, seria impossível que o nosso número seja setado com 17 posições...

Observe a validação feita no SetNossoNumero(), note como a quantidade de caracteres informada no NossoNumero é considerada

   wNossoNumero:= OnlyNumber(AValue);
   with ACBrBoleto.Banco do
   begin
      wTamNossoNumero:= CalcularTamMaximoNossoNumero(Carteira, wNossoNumero,
                                                     ACBrBoleto.Cedente.Convenio);

      if Length(trim(wNossoNumero)) > wTamNossoNumero then
         raise Exception.Create( ACBrStr('Tamanho Máximo do Nosso Número é: '+ IntToStr(wTamNossoNumero) ));

      fNossoNumero := PadLeft(wNossoNumero,wTamNossoNumero,'0');
   end;              

 

Att.