Amigos
Alguien sabe de algun link para descargar una font para codigo de barras que realmente funcione
He bajado varias de internet las pruebo y las lectora no las lee.
En cambio las que imprime la libreria de Cayetano bien que las lee.
El problema esta en que al usar una funcion para imprimirlas por pantalla saca un patron de codigo de barras
distinta a la de Cayetano cosa rara y no la reconoce la lectora.
Function DibujarCodebar( cdBarrasbruto, __nx, __ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla
Local oBrush, K := 0
Local cdBarras:=_code128(cdBarrasbruto)
//IF EMPTY ( nColor )
nColor := CLR_BLACK && Color negro para rellenar los retangulos
//ENDIF
Default lHorz := .T.
Default nAncho := 02.50/2 && Pixeles de Ancho
Default nAlto := 80.00/2 && Pixeles de Alto
//Define BRUSH oBrush COLOR nColor && Brocha de relleno para cada Barra
//DEFINE BRUSH oBrush COLOR RGB( 0, 0, 0 )
DEFINE BRUSH oBrush COLOR nrgb(0,150,0)
//DEFINE BRUSH oBrush COLOR oDlg:nClrtEXT
//MSGALERT( cdBarras )
//MSGALERT(ltrim(str(LEN ( cdBarras )) ))
//MSGALERT(ltrim(str(__Nx )))
//MSGALERT(ltrim(str(__Ny )))
FOR K := 1 TO LEN ( cdBarras ) && Dibujar retangulos rellenos del color seleccionado
IF SUBSTR ( cdBarras, K, 1 ) = '1' && Es una Barra Negra
//MSGALERT("ES NEGRA")
IF lHorz
FillRect ( oDlg:GetDC (), { __nx, __ny, __nx + nAlto , ( __ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles
ELSE
FillRect ( oDlg:GetDC (), { __nx, __ny, ( __nx += nAncho ), __ny + nAlto } , oBrush:hBrush ) && para Dibujar el código en pantalla
ENDIF
ELSEIF lHorz && es un 0, o un espacio en Blanco := Barras Blancas
__ny += nAncho
ELSE
__nx += nAncho
ENDIF
NEXT K
oBrush:end()
Return nil
* **************************************** ******************** ************************************************* *
Saludos
Alguien conoce FONT libre para codebar
-
- Posts: 225
- Joined: Tue Feb 28, 2006 4:25 pm
- Location: PERU
Alguien conoce FONT libre para codebar
ME INTERESA FW Y XHB POR SER OPEN SOURCE
Re: Alguien conoce FONT libre para codebar
Hola,Vladimir Zorrilla wrote:Amigos
Alguien sabe de algun link para descargar una font para codigo de barras que realmente funcione
He bajado varias de internet las pruebo y las lectora no las lee.
En cambio las que imprime la libreria de Cayetano bien que las lee.
El problema esta en que al usar una funcion para imprimirlas por pantalla saca un patron de codigo de barras
distinta a la de Cayetano cosa rara y no la reconoce la lectora.
Function DibujarCodebar( cdBarrasbruto, __nx, __ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla
Local oBrush, K := 0
Local cdBarras:=_code128(cdBarrasbruto)
//IF EMPTY ( nColor )
nColor := CLR_BLACK && Color negro para rellenar los retangulos
//ENDIF
Default lHorz := .T.
Default nAncho := 02.50/2 && Pixeles de Ancho
Default nAlto := 80.00/2 && Pixeles de Alto
//Define BRUSH oBrush COLOR nColor && Brocha de relleno para cada Barra
//DEFINE BRUSH oBrush COLOR RGB( 0, 0, 0 )
DEFINE BRUSH oBrush COLOR nrgb(0,150,0)
//DEFINE BRUSH oBrush COLOR oDlg:nClrtEXT
//MSGALERT( cdBarras )
//MSGALERT(ltrim(str(LEN ( cdBarras )) ))
//MSGALERT(ltrim(str(__Nx )))
//MSGALERT(ltrim(str(__Ny )))
FOR K := 1 TO LEN ( cdBarras ) && Dibujar retangulos rellenos del color seleccionado
IF SUBSTR ( cdBarras, K, 1 ) = '1' && Es una Barra Negra
//MSGALERT("ES NEGRA")
IF lHorz
FillRect ( oDlg:GetDC (), { __nx, __ny, __nx + nAlto , ( __ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles
ELSE
FillRect ( oDlg:GetDC (), { __nx, __ny, ( __nx += nAncho ), __ny + nAlto } , oBrush:hBrush ) && para Dibujar el código en pantalla
ENDIF
ELSEIF lHorz && es un 0, o un espacio en Blanco := Barras Blancas
__ny += nAncho
ELSE
__nx += nAncho
ENDIF
NEXT K
oBrush:end()
Return nil
* **************************************** ******************** ************************************************* *
Saludos
Es posible que los valores nAncho y nAlto sean centímetros? Son milímetros? Son pixels?
Mírate estas funciones a ver si te pueden ayudar:
http://forums.fivetechsupport.com/viewt ... 789#p95296
Un saludo.
Carlos G.
Nota: Por cierto, he conseguido crear una variante de la Barlib de Cayetano para mostrar códigos de barra por pantalla. En ventanas parece que funciona, he de probarlo en diálogos. Si finalmente lo consigo la subiré a algún lugar para que sea accesible.
Un Saludo
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
- Willi Quintana
- Posts: 859
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact: