Font del codigo de barras

[Claudio]

Hola a todos, alguien tendra el font interleaved 2 of 5 para windows?

[Andres Frei]

Hola Claudio. Todos los que vi son pagos.

En mi caso yo genero la factura desde mi app, calculo que así debes hacerlo vos también. Una solución simple que encontré para el código de barras fue utilizar la libreria PyI25, y cuando abro el reporte genero el archivo y lo vinculo al control.

Dim PyI25 As Object

Set PyI25 = CreateObject("PyI25")

barras = me.cuit & Me.tpo_doc_afip & Left(Me.DocNro, 4) & Me.vta_cae_nro & Format(Me.vta_cae_vto, "yyyymmdd")

barras = barras & PyI25.DigitoVerificadorModulo10(barras)

Me.ncodigo = barras

Ok = PyI25.GenerarImagen(barras, CurrentProject.Path & "\AFIP\barras.jpg", 9, 0, 90, "JPEG")

Me.pathBarCode = CurrentProject.Path & "\AFIP\barras.jpg"

Me.BarCode.Requery

Un amor =)

Saludos

[Claudio]

Muchas gracias Andres por la respuesta, si yo tambien genero mi factura desde mi aplicacion con crystal report y no queria depender de PyI25, seguire buscando. Muchas gracias nuevamente! 

[Clemar Litre]

Hola Claudio: 

Yo uso el Dobson que es gratuito y funciona muy bien: http://freebarcodefonts.dobsonsw.com/

aunque la solución que dá Andrés aquí mismo por supuesto que es muy válida.

Si necesitas ayuda con los cálculos avisame.

Saludos!!

El jueves, 23 de julio de 2015, 19:57:26 (UTC-3), Claudio escribió:

[Claudio]

Hola nuevamente, alguien tiene un ejemplo en VB6 de como compilar el string para el codigo de barras, en una de las preguntas hay uno pero esta en Visual Fox y hay algunas sentencias que no las entiendo.

Muchas gracias a todos!!!!!!!!!!!

Esta es la de VFox

// * FUNCTION _StrToI2of5(tcString) * INTERLEAVED 2 OF 5

// *------------------------------------------------------

// * Convierte un string para ser impreso con

// * fuente True Type "PF Interleaved 2 of 5"

// * ó "PF Interleaved 2 of 5 Wide"

// * ó "PF Interleaved 2 of 5 Text"

// * Solo caracteres numéricos

// * USO: _StrToI2of5('1234567890')

// * RETORNA: Caracter

// *------------------------------------------------------

LOCAL lcStart, lcStop, lcRet, lcCheck, lcCar, lnLong, lnI, lnSum, lnAux

lcStart = Chr(40)

lcStop = Chr(41)

lcRet = ALLTRIM([!tcString!])

//   *--- Genero dígito de control

lnLong = Len(lcRet)

lnSum = 0

lnCount = 1

For lnI = lnLong To 1 Step -1

    lnSum = lnSum + VAL(SUBSTR(lcRet,lnI,1)) *  IIF(MOD(lnCount,2) = 0,1,3)

    lnCount = lnCount + 1

ENDFOR

   lnAux = MOD(lnSum,10)

   lcRet = lcRet + ALLTRIM(Str(IIf(lnAux = 0, 0, 10 - lnAux)))

   lnLong = Len(lcRet)

//   *--- La longitud debe ser par

   IF MOD(lnLong,2) # 0

     lcRet = '0' + lcRet

     lnLong = Len(lcRet)

   End If

//   *--- Convierto los pares a caracteres

   lcCar = ''

   For lnI = 1 To lnLong Step 2

     IF VAL(SUBS(lcRet,lnI,2)) < 50

       lcCar = lcCar + Chr(Val(SUBS(lcRet, lnI, 2)) + 48)

     Else

       lcCar = lcCar + Chr(Val(SUBS(lcRet, lnI, 2)) + 142)

     End If

   ENDFOR

//   *--- Armo código

  lcRet = lcStart + lcCar + lcStop

[Pedro Scarselletta]

El jueves, 23 de julio de 2015, 19:57:26 (UTC-3), Claudio escribió:

Hola a todos, alguien tendra el font interleaved 2 of 5 para windows?

Te comento que yo lo estoy haciendo con iReport (JasperReports) y la libreria está en los repositorios maven.
iReport te da la posibilidad de trabajar con 2 librerias distintas, Berbecue y Barcode4j.

Yo use barbecue, y no está con el nombre 2 of 5, se llama Int2of5!! Y la libreria la añadí a mi proyecto incluyendo la siguiente dependencia en mi archivo POM.xml (Ya que estoy trabajando en un Maven Project).

<dependency>

                    <groupId>net.sourceforge.barbecue</groupId>

                    <artifactId>barbecue</artifactId>

                    <version>1.5-beta1</version>

            </dependency>


Genero mi string en mi app y la mando como parametro al reporte mediante el cual imprimo las facturas
Si necesitas ayuda con el tema del codigo de barras, escribime !