a) número de vias ou partes - 2 (duas), sendo: ( Obs: A ficha de caixa foi abolida)

I - Ficha de Compensação;
II - Recibo do Sacado.

b) disposições das vias ou partes:

I - se sob a forma de vias carbonadas ou auto-copiativas, a primeira via deve ser a Ficha de Compensação;
II - nos demais casos, a Ficha de Compensação deve ficar na parte inferior do papel;

Banco do Brasil

001-9

a) PRIMEIRO CAMPO - composto pelo código do Banco (posições 1 a 3 do código de barras), código da moeda (posição 4 do código de barras), as cinco primeiras posições do campo livre (posições 20 a 24 do código de barras) e dígito verificador deste campo;
Obs: editar com ponto, conforme exemplo - 00192.34566

b) SEGUNDO CAMPO - composto pelas posições 6 (sexta) à 15 (décima quinta) do campo livre (posições 25 a 34 do código de barras) e dígito verificador deste campo;
Obs: editar com ponto, conforme exemplo - 52800.783459

c) TERCEIRO CAMPO - composto pelas posições 16 (décima sexta) à 25 (vigésima quinta) do campo livre (posições 35 a 44 do código de barras) e dígito verificador deste campo;
Obs: editar com ponto, conforme exemplo - 97856.895335

d) QUARTO CAMPO - Dígito Verificador geral do Código de Barras (posição 5 do código de barras);
Obs: observar o método de cálculo de DV módulo 11 específico para Código de Barras, previsto do item 12;

e) QUINTO CAMPO - composto pelo fator de vencimento (posições 6 a 9 do código de barras) e pelo valor nominal do documento (posições 10 a 19 do código de barras), com a indicação de zeros entre eles até compor as 14 posições do campo e sem edição (sem ponto ou vírgula). Quando se tratar de bloqueto sem discriminação de valor no código de barras a representação deve ser com zeros;

f) editar os três primeiros campos com um ponto;

g) entre cada campo deverá haver espaço equivalente a 01 caracter;

h) a disposição dos dados na linha digitável não se apresenta na mesma ordem encontrada no código de barras;

i) os dígitos verificadores referentes aos PRIMEIRO, SEGUNDO e TERCEIRO campo não são representados no código de barras.

a) o Código de Barras utilizado é do tipo I-25 - (2 de 5) intercalado;

b) (2 de 5) intercalado significa que 5 (cinco) barras definem 01 (um) caracter, sendo que duas delas são barras largas;

c) intercalado significa que os espaços entre as barras também têm significado, de maneira análoga às barras;

d) deve ser observada a distância de 12 mm desde a margem inferior da Ficha de Compensação até o centro do Código de Barras;

e) comprimento total igual a 103 (cento e três) mm e altura total igual a 13 (treze) mm;

f) deixar espaço livre (zona de silêncio) de 5mm entre a margem esquerda do papel até o início do Código de Barras;

g) o código de barras é composto por dois campos: campo obrigatório e campo livre;

h) o conteúdo do campo obrigatório é determinado pelo Banco Central do Brasil e comum a todos os bancos;

i) o conteúdo do (Campo Livre) é específico para o Banco do Brasil;

Podem ser adotadas duas fórmulas para o cálculo:

a) data base de 07.10.1997, calculando o número de dias entre essa data e a do vencimento (data de vencimento menos data base é igual a fator):

VENCIMENTO - 04-07-2000
DATA BASE - 07-10-1997
FATOR DE VENCIMENTO 1001

b) tabela de correlação data X fator, iniciando pelo fator 1000, que corresponde à data de vencimento 03.07.2000, e assim sucessivamente:

Exemplo:

99997.77213 // 30530.150082 // 18975.000003 // 3 // 10010000035000
 1o campo    //   2o campo      //    3o campo    // dv // Fator venc/valor

Obs: quando a primeira posição do campo //valor// (fator de vencimento mais valor) for zero, significará que esse título não conterá o fator de vencimento no código de barras/linha digitável, tratando-se portanto as 14 (catorze) posições como valor.

a) O módulo 11 é utilizado para montagem dos campos nosso número, código do cedente e prefixo da agência, que serão impressos no fichamento de cobrança;

b) Cada algarismo que compõe o nosso número é multiplicado pelo respectivo multiplicador (peso). Os multiplicadores (pesos) variam de 9 a 2, da direita para a esquerda;

c) O primeiro dígito da direita para a esquerda deverá ser multiplicado por 9, o segundo por 8 e assim sucessivamente;

d) Os resultados das multiplicações são somados: 00 + 72 + 35.... + 8 + 0 (igual) 179. O total da soma é divido por onze, conforme segue: 179/11 resto igual a 3.

          - se o resto for menor que 10 (dez) o DV será igual ao resto;
          - se o resto for igual a 10 (dez) o DV será igual a X;
          - se o resto for igual a 0 (zero) o DV será igual a 0;
          - no exemplo acima o dígito verificador será igual a 3.

Dim intNumero As Integer

Dim intTotalNumero As Integer

Dim intMultiplicador As Integer

Dim intResto As Integer

' se nao for um valor numerico sai da função
If Not IsNumeric(strNumero) Then
  Calculo_DV11 = ""
  Exit Function
End If

'inicia o multiplicador
intMultiplicador = 9

'pega cada caracter do numero a partir da direita
For intcontador = Len(strNumero) To 1 Step -1

'extrai o caracter e multiplica prlo multiplicador
intnumero = Val(Mid(strNumero, intcontador, 1)) * intMultiplicador

'soma o resultado para totalização
intTotalNumero = intTotalNumero + intnumero

'se o multiplicador for maior que 2 decrementa-o caso contrario atribuir valor padrao original
intMultiplicador = IIf(intMultiplicador > 2, intMultiplicador - 1, 9)

Next

'calcula o resto da divisao do total por 11
intResto = intTotalNumero Mod 11

'verifica as exceções ( 0 -> DV=0    10 -> DV=X (para o BB) e retorna o DV
Select Case intResto
  Case 0
    Calculo_DV11 = "0"
  Case 10
    Calculo_DV11 = "X"
  Case Else
    Calculo_DV11 = str(intResto)
End Select

End Function

a) o módulo 10 deverá ser utilizado para calcular o DV dos 03 (três) primeiros campos da linha digitável;

b) os multiplicadores começam com o número 2 (dois), sempre pela direita, alternando-se 1 e 2;

c) multiplicar cada algarismo que compõe o número pelo seu respectivo peso (multiplicador);

d) caso o resultado da multiplicação seja maior que 9 (nove) deverão ser somados os algarismos do produto, até reduzi-lo a um único algarismo;

e) fazer o somatório dos resultados obtidos: no exemplo a soma é igual a 25;

f) subtrair o total apurado no item anterior, da dezena imediatamente superior ao total apurado: 30 - 25 é igual a 5;

g) o resultado obtido será o dígito verificador do número. DV é igual a 5;

h) se o resultado da subtração for igual a 10 (dez), o dígito verificador será igual a 0 (zero).

Dim intNumero As Integer

Dim intTotalNumero As Integer

Dim intMultiplicador As Integer

Dim intResto As Integer

' se nao for um valor numerico sai da função
If Not IsNumeric(strNumero) Then
  Calculo_DV10 = ""
  Exit Function
End If

'inicia o multiplicador
intMultiplicador = 2

'pega cada caracter do numero a partir da direita
For intContador = Len(strNumero) To 1 Step -1

'extrai o caracter e multiplica pelo multiplicador
intNumero = Val(Mid(strNumero, intContador, 1)) * intMultiplicador

' se o resultado for maior que nove soma os algarismos do resultado
If intNumero > 9 Then
  intNumero = Val(Left(intNumero, 1)) + Val(Right(intNumero, 1))
End If

'soma o resultado para totalização
intTotalNumero = intTotalNumero + intNumero

'se o multiplicador for igual a 2 atribuir valor 1 se for 1 atribui 2
intMultiplicador = IIf(intMultiplicador = 2, 1, 2)

Next

    Dim DezenaSuperior As Integer
    If intTotalNumero < 10 Then
        DezenaSuperior = 10
    Else
        DezenaSuperior = 10 * (Val(Left(CStr(intTotalNumero), 1)) + 1)
    End If
    intResto = DezenaSuperior - intTotalNumero

'verifica as exceções ( 0 -> DV=0 )
Select Case intResto
  Case 0
     Calculo_DV10 = "0"
  Case Else
     Calculo_DV10 = Str(intResto)
End Select

End Function

b) para calcular o D.V. considerar 43 posições do Código de Barras, sendo: da posição 1 a 4 e da posição 6 a 44;

c) multiplicar cada algarismo que compõe o número pelo seu respectivo multiplicador (peso), iniciando-se pela 44 posição e saltando a 5 posição;

d) os multiplicadores (pesos) variam de 2 a 9;

e) o primeiro dígito da direita para a esquerda deverá ser multiplicado por 2, o segundo por 3 e assim sucessivamente;

f) os resultados das multiplicações devem ser somados.

g) o total da soma deverá ser dividido por 11

h) o resto da divisão deverá ser subtraído de 11

i) especificamente para o D.V. do Código de Barras, considerar:

I - se o resultado da subtração for:

          - igual a 10....................D.V. igual a 1;
          - igual a 11....................D.V. igual a 1;
          - diferente de 10 e 11..........D.V. será o próprio dígito.

II- o resultado deste cálculo deverá ser incluído na 5^a posição do Código de Barras.

ATENÇÃO - Não será admitido o dígito 0 (zero) na quinta posição, pois indicaria que o código de barras não possui dígito verificador;

j) nas posições 43 a 44 do código de barras deverá ser informado, sempre, o tipo de serviço 21.

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas