Código GTIN-128 QR con identificadores de aplicacion y FoxBarcode 2.1

78 views
Skip to first unread message

oscarg...@gmail.com

unread,
Nov 28, 2022, 5:31:54 PM11/28/22
to Comunidad de Visual Foxpro en Español
Estoy armando de la cadena de un código QR basado en el estándar GS1-128  pero tengo inconveniente que al incluir el código para los IA (identificadores de Aplicacion) que son variables el escáner o lector QR aunque lee no es una lectura valida.

Asi es la cadena que preparo

cCadena = "(10)116188<FNC1>(91)00004<FNC1>"


en donde <FNC1>   es el indicador del fin del campo del IA
también coloca \F pero el código tampoco se genera correctamente
utilizo FoxBarcode 2.1   uqe dicen que tiene ya incluido esta funcionalidad.

Asi envio el parametro
cfileQWR  = QRFbc.QRBarcodeImage(cCadena, , 4, 0)

gracias.


Comunidad de Visual Foxpro en Español

unread,
Nov 30, 2022, 8:59:31 AM11/30/22
to Comunidad de Visual Foxpro en Español
Hola, solo debes configurar la propiedad lUseAppId = .T.  y utilizando el código GS1-128 con la propiedad nBarcodeType = 159 && EAN-128

Tu no debes poner el caracter <FNC1>, ya que si configuraste la propiedad lUseAppId = .T. FoxBarcode lo hace automáticamente

EJ:
  *-- Set properties
  m.loFbc.nBarcodeType = 159 && EAN-128
  m.loFbc.lUseAppId = .T.
  m.loFbc.nFactor = 2
  m.loFbc.nImageWidth = 80
  m.lcImage = m.loFbc.BarcodeImage(" (10)116188(91)00004")

Luis María Guayán
YB (TUC) Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com


Oscar Bonet

unread,
Dec 1, 2022, 1:33:57 PM12/1/22
to Comunidad de Visual Foxpro en Español
voy a probarlo.  gracias.

Oscar Bonet

unread,
Dec 1, 2022, 4:00:06 PM12/1/22
to Comunidad de Visual Foxpro en Español
Funciona, pero esto es un código de barras, lo que quería era generar el mismo, pero en un código QR
en QRFbc = CREATEOBJECT("FoxBarcodeQR")   no existen esas propiedades

lUseAppId  y nBarcodeType 


El miércoles, 30 de noviembre de 2022 a las 8:59:31 UTC-5, Comunidad de Visual Foxpro en Español escribió:
Reply all
Reply to author
Forward
0 new messages