24 Jul 2020 19:08
25 Jul 2020 13:03
Shark escreveu:Minha dúvidas é: o código de barras é uma real encriptação da linha digitáveis ou é necessário fazer algum ajuste?
Shark escreveu:Existe alguma lib que possa ser utilizada num ambiente xHarbour / Fivewin que gere a imagem desse código de barras?
28 Ago 2020 05:14
28 Ago 2020 10:33
30 Abr 2021 22:58
Exemplo de utilização:
CodigoBarra2I5( cLinhaDigitavel, oPrn, { 2750, 000 } )
FUNCTION CodigoBarra2I5( CodigoAuxiliar, oPrn, aCantos, nTamBarra )
LOCAL obr
LOCAL X := Col := Lar := nWidth := 0
LOCAL oPen //2.549 7.647
LOCAL nComprimentoBarraFina := 3, nComprimentoBarraGrossa := 7.1
DEFAULT nTamBarra := 130
DEFAULT aCantos := { 30, 30 }
CodigoAuxiliar := Intercalado25( CodigoAuxiliar )
DEFINE brush oBr color CLR_BLACK
FOR X := 1 to Len( CodigoAuxiliar )
IF SUBSTR( CodigoAuxiliar, X, 1 ) = '0'
IF MOD( X, 2 ) <> 0
oPrn:fillRect( { aCantos[1], aCantos[2], aCantos[1] + nTamBarra, aCantos[2] + nComprimentoBarraFina }, oBr )
ENDIF
aCantos[2] += nComprimentoBarraFina
ELSE
IF MOD( X, 2 ) <> 0
oPrn:fillRect( { aCantos[1], aCantos[2], aCantos[1] + nTamBarra, aCantos[2] + nComprimentoBarraGrossa }, oBr )
ENDIF
aCantos[2] += nComprimentoBarraGrossa
ENDIF
NEXT
oBr:End()
RETURN