=?iso-8859-1?Q?Re:_=5Bjava-list=5D_Codigo_de_Barras_padr=E3o_FEBRABAN?=

Mon, 25 Nov 2002 12:33:17 -0800

Ol� Roni,
 
Recentemente tamb�m estava precisando de umas fontes para c�digo de barras padr�o FEBRABAM, encontrei algumas fontes de Licensa GNU, mas n�o s�o true type, vc ir� precisar dee um programa da Adobe Type Manager (free assim como Acrobat Reader) para poder intstalar as fontes corretamente.
 
 
Este dois arquivos "Ai______.pfb e Ai______.pfm" s�o as fontes 2 de 5 intercalado que � o padr�o usado pela FEBRABAM, as fontes funcionam perfeitamente, pois j� estou imprimindo boletos atrav�s do Crystal 8 com elas que j� est�o sendo pagos. O �nico por�m � que vc precisa criar um m�todo para fazer a decodifica��o dos digitos para a fonte poder interpret�-los, junto com as fontes vem todas essas explica��es e um exemplo de como fazer essa decodifica��o em VBScript E Pearl.
 
Eu criei uma dll no VB para poder us�-las com o Crystal, estou lhe enviando o fonte como anexo.
 
Espero ter ajudado.
 
Abra�os
 
Atenciosamente,
 Cristiano Jos� da Silva
 
"A mente que se abre a uma nova id�ia jamais volta ao seu tamanho original."
                                                                                        (Albert Einstein)
----- Original Message -----
Sent: Thursday, November 21, 2002 12:48 PM
Subject: [java-list] Codigo de Barras padr�o FEBRABAN

Caros Amigos Javaneses....
 
    Preciso gerar um codigo de  barras no padrao dos bancos (FEBRABAN) para impressao de boleto bancario, se alguem poder me ajudar, por favor ......
 
Muito Obrigado
 
Roni C�sar
 
____________________________________________________
  IncrediMail - O mundo do correio eletr�nico finalmente desenvolveu-se - Clique aqui 
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Intercalado"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'Desenvolvido por Cristiano 12/11/2002

Option Explicit

Private strSaida As String
Private strCodBarras As String
Private strAux As String
Private strChar As Long
Private intContador As Integer
                
'Fun��o geradora da decodifica��o para gera��o de c�digo de barras
'padr�o 2 de 5 intercalado usando fonte de c�digo aberto
Public Function Gnu_2_de_5(ByRef strEntradaGnu As String) As String
   
    ' Incializa vari�veis de entrada e sa�da
    strSaida = ""
    strEntradaGnu = Trim(strEntradaGnu)
    
    ' Somente faz se valor for num�rico
    strAux = ""
    For intContador = 1 To Len(strEntradaGnu)
      If IsNumeric(Mid(strEntradaGnu, intContador, 1)) Then
        strAux = strAux & Mid(strEntradaGnu, intContador, 1)
      End If
    Next
    
    ' Se o n�mero de d�gitos for impar adicona zero inicial
    If (Len(strAux) Mod 2) = 1 Then
      strAux = "0" & strAux
    End If
      
    ' Quebra os pares de d�gitos e converte para �nico caracter ASCII e monta a cadeia 
de sa�da
    For intContador = 1 To Len(strAux) Step 2
        'Quebra os pares de d�gitos e pega o valor
        strChar = Mid(strAux, intContador, 2)
        ' Converte para �nico caracter ASCII  e salva em strSaida
        If strChar < 95 Then
          strSaida = strSaida & Chr(strChar + 32)
        Else
          strSaida = strSaida & Chr(strChar + 97)
        End If
    Next
    
    'Constr�i cadeia de sa�da, adicona caracteres de inicio e fim
    strCodBarras = Chr(197) & strSaida & Chr(198)
    
    'Retorna o valor
    Gnu_2_de_5 = strCodBarras
End Function


------------------------------ LISTA SOUJAVA ----------------------------
http://www.soujava.org.br  -  Sociedade de Usu�rios Java da Sucesu-SP
d�vidas mais comuns: http://www.soujava.org.br/faq.htm
regras da lista: http://www.soujava.org.br/regras.htm
historico: http://www.mail-archive.com/java-list%40soujava.org.br
para sair da lista: envie email para [EMAIL PROTECTED]
-------------------------------------------------------------------------

Responder a