Boleto Vortex - Calculo digito verificador do codigo de barras quando resultado 0, 1 ou maior que 9

[Igor Cibiac]

Boa tarde.

Ao gerar boletos bancarios, estava sendo retornado informação do DV calculado incorretamente.

Verifiquei que no calculodv, foi alterado para sempre seta o 0(zero) quando modulo final 0, 10 e 11. Essa informação está certa para nosso numero, mas como o calculodv é utilizado para codigo de barras, está gerando conflito.

Ajustado para quando o dv do codigo e barras for 0, 1 ou maior que > 9, deverá ser indicado 1(um), conforme previsto no manual em anexo,página 21

 

Para o cálculo do Dígito verificador do Código de Barras, proceder 
da seguinte forma: 
Cálculo através do módulo 11, com base de cálculo igual a 9. 
Exemplo: 
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
43 Posições com todos os dados: 
Para calcular o dígito considerar 43 Posições, 
Sendo: da Posição 1 a 4 e da Posição 6 a 44. 
4329876543298765432987654329876543298765432 { Índice de Multiplicação - - - - < - - - - < - - - - < - - - < - - - 
{ Sentido do Cálculo 
● O primeiro dígito da direita para a esquerda será multiplicado por 2, o segundo por 3, e assim 
sucessivamente. 
● Os resultados das multiplicações devem ser acumulados. 
● No final, o valor acumulado deverá ser dividido por 11. 
● O resto da divisão deverá ser subtraído de 11. - se o resultado da subtração for igual a 0 Zero, 1 (um) ou maior que 9 (nove) deverão assumir o  dígito 
igual a 1 (um). - caso contrário, o resultado da subtração será o próprio dígito.  <<<<<<<<<<<<<<<<<< AQUI
● Este resultado é o digito verificador do código de barras, e deverá ser lançada para a quinta posição. 
● O dígito 0 Zero na quinta posição indicará que o código de barras não possui dígito verificador. Montagem e 
Impressão do Código de Barras 
Obs.: „2 de 5 intercalado‟ significa que 5 barras definem um caracter, sendo que duas delas são barras largas; 
„intercalado‟ significa que os espaços entre as barras tem significado, de maneira análoga as barras. 

 

.ACBrBancoVortx.pas

Grafeno_Vórtx CNAB 400 - Remessa.docx.pdf