Clarion - Template Barcode 3 of 9 para clarion 6.x

   
Vista:

Template Barcode 3 of 9 para clarion 6.x

Publicado por Osvaldo Zapata (53 intervenciones) el 08/02/2018 17:19:19
Hola Gente , alguien tiene el template para imprimir Cod de barras en clarion 6.x
ya que instalo la fuente Bar 3 of 9 en windows , pero el clarion no me lo toma a la fuente

Saludos osza36@gmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Template Barcode 3 of 9 para clarion 6.x

Publicado por Marcelo Madelón (89 intervenciones) el 09/02/2018 00:40:25
Osvaldo

Yo lo armo con el siguiente código y funciona.



! FUENTE USADA
IntHrP24DmTt

NORMAL
24
! FIN FUENTE USADA




! RURINA PARA FORMAR EL CÓDIGO DE BARRAS



! Armo Código de Barras
Clear(Char)
codebarre = ''
I = 0
H = 0
J = 1
CH[J] = CHR(33)
A# = 0
Loop I# = 1 to 14 by 2
IF Sub(codesaisi,I#,2) Not > ''
Break
END
J += 1
IF Sub(codesaisi,I#,2) Not < 0 and Sub(codesaisi,I#,2) Not > 91
CH[J] = CHR(Sub(codesaisi,I#,2) + 35)
END
IF Sub(codesaisi,I#,2) = 92
CH[J] = CHR(196)
END
IF Sub(codesaisi,I#,2) = 93
CH[J] = CHR(197)
END
IF Sub(codesaisi,I#,2) = 94
CH[J] = CHR(199)
END
IF Sub(codesaisi,I#,2) = 95
CH[J] = CHR(201)
END
IF Sub(codesaisi,I#,2) = 96
CH[J] = CHR(209)
END
IF Sub(codesaisi,I#,2) = 97
CH[J] = CHR(214)
END
IF Sub(codesaisi,I#,2) = 98
CH[J] = CHR(220)
END
IF Sub(codesaisi,I#,2) = 99
CH[J] = CHR(225)
END
END

J += 1
CH[J] = CHR(34)
codebarre = Char

Display


! FIN RURINA PARA FORMAR EL CÓDIGO DE BARRAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad