Fragmento de código: ¿Cómo puedo crear una marca de tiempo para un ID de paquete único?

Fragmento de código: ¿Cómo puedo crear una marca de tiempo para un ID de paquete único?

El uso de marcas de tiempo es una solución alternativa si no puede usar campos de serie persistentes. La siguiente expresión crea una marca de tiempo alfanumérica de 12 dígitos para un ID de paquete único (incrementado con cada trabajo de impresión).

CStr(Chr(65 + Year(Now()) % 26)) +
CStr(Chr(65 + CLng(Format(Now(), "MM")) - 1)) +
CStr(Chr(47 + CLng (IIF (Day(Now()) >10, 7, 0)) + Day(Now()))) +
CStr(Chr(65 + Hour(Now()))) +
Format(Now(), "mmss") +
Format(PrintedItems, "0000")

• Convierte el año, mes y hora a A-Z para ahorrar espacio.
• Convierte el día a A-Z, 0..7
• Incluye la copia de etiqueta actual como contador de 4 dígitos

Coloque esta expresión en un campo calculado como clPackageID (tipo de datos texto). Si usa copias de etiqueta individuales, calcúlelo por Record Copy.

Versión de 8 dígitos

Con 8 dígitos podemos eliminar el año y los segundos, y limitar la parte de serie a 3 dígitos.

CStr(Chr(65 + CLng(Format(Now(), "MM")) - 1)) +
CStr(Chr(47 + CLng (IIF (Day(Now()) >10, 7, 0)) + Day(Now()))) +
CStr(Chr(65 + Hour(Now()))) +
Format(Now(), "mm") +
Format(PrintedItems, "000")

Este ID de paquete automático consiste en una marca de tiempo de 5 dígitos (mes/día/hora/minuto) seguida de un número de secuencia de 3 dígitos. Eso significa que el número de artículos/palés en un trabajo está limitado a 999 y el tiempo mínimo entre trabajos de impresión debe ser de 1 minuto. El ID de paquete puede repetirse cada año.