Open topic with navigation

Crear dígitos de comprobación personalizados

Crear un dígito de comprobación personalizado con comandos de Visual Basic (VBScript), mediante un algoritmo de dígito de comprobación existente o creando un algoritmo personalizado.

CerradoCrear un dígito de comprobación personalizado con VBScript utilizando un algoritmo existente

  1. Haga doble clic en el código de barras deseado para abrir el cuadro de diálogo Propiedades de código de barras. Alternativamente, seleccione Propiedades en el menú contextual del objeto.

  2. En la barra de navegación, seleccione el origen de datos que contenga los datos que desea codificar.

  3. Seleccione el icono , situado en la barra de herramientas del origen de datos para lanzar el Asistente para nuevo origen de los datos.

  4. Para Tipo, seleccione Comando Visual Basic.

  5. Haga clic en Terminar para cerrar el Asistente para nuevo origen de los datos.

  6. Manteniendo el Tipo de archivo de comandos como Expresión de una sola línea, seleccione Editar con el editor de archivos de comandos.

  7. Borre cualquier texto que aparezca en el panel Editor.

  8. En el panel Ayudante para archivos de comando abra el nodo Funciones, seguido del nodo Dígito de comprobación.

  9. Doble clic en el tipo de dígito de comprobación deseado.

  10. En el panel Editor, sustituya el texto resaltado («Cadena») con el nombre compartido del origen de datos definido en el Paso 4.

  11. Haga clic en Aceptar para cerrar el Editor de archivos de comandos.

CerradoCrear un dígito de comprobación personalizado con VBScript utilizando un algoritmo personalizado

  1. Haga doble clic en el código de barras deseado para abrir el cuadro de diálogo Propiedades de código de barras. Alternativamente, seleccione Propiedades en el menú contextual del objeto.

  2. En la barra de navegación, seleccione el origen de datos que contenga los datos que desea codificar.

  3. Seleccione el icono , situado en la barra de herramientas del origen de datos para lanzar el Asistente para nuevo origen de los datos.

  4. Para Tipo, seleccione Comando Visual Basic.

  5. Haga clic en Terminar para cerrar el Asistente para nuevo origen de los datos.

  6. Cambie el Tipo de comando para Archivo de comandos de múltiples líneas.

  7. Seleccione Editar con el Editor de archivos de comando para abrir el Editor de archivos de comando.

  8. Borre cualquier comando que aparezca en el panel Editor.

  9. Introduzca un algoritmo de cálculo de dígito de comprobación personalizado, similar al que se muestra a continuación:

    'Create a Mod43 check digit

    charSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"

    For i + 1 ToLen(C39)

    total = InStr(charSet, Mid(C39,i,1)) - 1 + total

    Next

    Value = Mid(charSet, (total Mod 43 + 1), 1)

  10. Haga clic en Aceptar para cerrar el Editor de archivos de comandos.

Temas relacionados