BARRAS BOLETO

ARNALDOCRUZ 24/07/2009 20:12:09
#317783
Boa Noite

Colegas como eu faço para criar as barras do código de barras, no site eu tenho um mdb que já tem todos os dados,
linha digitavel, a numeração do código de barras, o nosso numero.

vou emitir somente a segunda via do boleto pelo site.

porem não sei como criar as barras.


Obrigado
JUNIORNET 25/07/2009 14:46:45
#317837 Resposta escolhida
Kra vc tem q chamar esta função passando o valor que vc precisa 
  
function fbarcode(valor)
Dim f, f1, f2, i
Dim texto
Const fino = 1
Const largo = 3
Const altura = 50
Dim BarCodes(99)

if isempty(BarCodes(0)) then
  BarCodes(0) = [Ô]00110[Ô]
  BarCodes(1) = [Ô]10001[Ô]
  BarCodes(2) = [Ô]01001[Ô]
  BarCodes(3) = [Ô]11000[Ô]
  BarCodes(4) = [Ô]00101[Ô]
  BarCodes(5) = [Ô]10100[Ô]
  BarCodes(6) = [Ô]01100[Ô]
  BarCodes(7) = [Ô]00011[Ô]
  BarCodes(8) = [Ô]10010[Ô]
  BarCodes(9) = [Ô]01010[Ô]
  for f1 = 9 to 0 step -1
    for f2 = 9 to 0 Step -1
      f = f1 * 10 + f2
      texto = [Ô][Ô]
      for i = 1 To 5
        texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
      next
      BarCodes(f) = texto
    next
  next
end if

[ô]Desenho da barra


[ô] Guarda inicial
%>
<img src=[Ô]../imagens/p.gif[Ô] width=<%=fino%> height=<%=altura%> border=0><img 
src=[Ô]../imagens/b.gif[Ô] width=<%=fino%> height=<%=altura%> border=0><img 
src=[Ô]../imagens/p.gif[Ô] width=<%=fino%> height=<%=altura%> border=0><img 
src=[Ô]../imagens/b.gif[Ô] width=<%=fino%> height=<%=altura%> border=0><img 

<%
texto = valor
if len( texto ) mod 2 <> 0 then
  texto = [Ô]0[Ô] & texto
end if


[ô] Draw dos dados
do while len(texto) > 0
  i = cint( left( texto, 2) )
  texto = right( texto, len( texto ) - 2)
  f = BarCodes(i)
  for i = 1 to 10 step 2
    if mid(f, i, 1) = [Ô]0[Ô] then
      f1 = fino
    else
      f1 = largo
    end if
    %>
    src=[Ô]../imagens/p.gif[Ô] width=<%=f1%> height=<%=altura%> border=0><img 
    <%
    if mid(f, i + 1, 1) = [Ô]0[Ô] Then
      f2 = fino
    else
      f2 = largo
    end if
    %>
    src=[Ô]../imagens/b.gif[Ô] width=<%=f2%> height=<%=altura%> border=0><img 
    <%
  next
loop

[ô] Draw guarda final
%>
src=[Ô]../imagens/p.gif[Ô] width=<%=largo%> height=<%=altura%> border=0><img 
src=[Ô]../imagens/b.gif[Ô] width=<%=fino%> height=<%=altura%> border=0><img 
src=[Ô]../imagens/p.gif[Ô] width=<%=1%> height=<%=altura%> border=0>

<% end function %>


Seguinte deu erro no envi do arquivo mas vc precisa de duas imagens uma chamada p.gif e a outra b.gif que sao as imagens das barras. Manda um email onde eu possa te enviar essas imagens que eu te mando

Espero ter ajudo

Se isto foi valido para vc favor me pontuar depois vlw. QQ coisa da um toque

Junior
ARNALDOCRUZ 26/07/2009 11:22:01
#317889
manda pra
joscru01@bol.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar