Abierto de navegación

Crear dígitos de comprobación personalizados

Crear un dígito de comprobación personalizado con VBScript, mediante un algoritmo de dígito de comprobación existente o creando un algoritmo personalizado.

ClosedCrear 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. Remove any existing expression text from the Editor pane.

  8. In the Script Assistant pane, expand the Functions node, followed by the Check Digit node.

  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.

ClosedCrear 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. Select Edit with Script Editor to open the Script Editor.

  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