WSSENASA2 codigo qr

La identificación de productos senasa se hace mediante un código QR generado según el manual de senasa (al pie). El código QR contiene la URL indicada por el senasa y los parametros código de producto y lote. Al escanear el código llevará directamente a la página de senasa que devolverá el estado de ese producto.

Como se muestra en el ejemplo para generar el código QR según SENASA los datos necesarios son:

la URL de la página de senasa.

QRformato: el formato del archivo: 1 BMP (por defecto), 2 EMF, 3 EXIF, 4 GIF, 5 ICON, 6 JPG (JPEG), 7 MEM, 8 PNG, 9 TIFF, 10 WMF. Asegurarse que el formato usado coincida con la extensión en el nombre del archivo. Recomendado 6.

QRResolucion: de 1 a 100 (20 por defecto) a mayor resolución mayor definición y mayor tamaño de archivo (20 equivale a una imagen de 400x400 piexeles aprox.). Recomendado 4.

QRTolerencia: 0, 1, 2 (por defecto) o 3 a mayor tolerancia (al error) mayor tamaño de archivo y más probabilidad que el lector lea el código si la tinta o el papel es deficiente. Recomendado 0.

qrArchivo: la ruta y nombre del archivo generado.

Los parámetros con los que se genera el QR son la URL, la acción, el código del producto senasa y el número de lote tal como se muestra en el ejemplo.

Ejemplo

Dim mio As New WSAFIPFE.pami

Dim bresultado As Boolean

If mio.iniciar(0, "CUIT", "", "") Then

mio.tls = 12

bresultado = mio.senasaCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("URLSERVIDOR", "QR", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("URLMETODO", "https://aps2.senasa.gov.ar/agrotraza/src/app/", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("qrFormato", "6", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("qrtolerancia", "3", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("qrresolucion", "4", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("qrArchivo", "d:\miarchivo.jpg", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.action", "showDetailPublicProduct", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.productCode", "1", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.batchId", "0005", 0, 0)

IF bresultado Then

bresultado = mio.senasaEjecutar()

If bresultado Then

MsgBox("resultado verdadero")

Else

MsgBox("resultado falso")

End If

If mio.UltimoMensajeError = "" Then

MsgBox("codigo qr generado")

Else

MsgBox("error " + mio.UltimoMensajeError)

End If

Else

MsgBox("error en carga de datos" + mio.UltimoMensajeError)

End If

ELSE

msgbox "fallo iniciar"+fe.ultimomensajeerror

ENDIF