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