Frammento di codice: come posso creare un timestamp per un ID pacco univoco?

Frammento di codice: come posso creare un timestamp per un ID pacco univoco?

L'uso di timestamp è una soluzione alternativa se non potete utilizzare campi seriali persistenti. La seguente espressione crea un timestamp alfanumerico a 12 cifre per un ID pacco univoco (incrementato a ogni lavoro di stampa).

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")

• Converte anno, mese, ora in A-Z per risparmiare spazio.
• Converte il giorno in A-Z, 0..7
• Include la copia etichetta attuale come contatore a 4 cifre

Inserite queste espressioni in un campo calcolato come clPackageID (tipo di dati Text). Se utilizzate copie etichetta individuali, calcolatelo per Record Copy.

Versione a 8 cifre

Con 8 cifre, possiamo rimuovere l'anno e i secondi e limitare la parte seriale a 3 cifre.

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")

Questo ID pacco automatico è composto da un timestamp a 5 cifre (mese/giorno/ora/minuto) seguito da un numero di sequenza a 3 cifre. Ciò significa che il numero di articoli/pallet in un lavoro è limitato a 999 e il tempo minimo tra i lavori di stampa deve essere di 1 minuto. L'ID pacco può ripetersi ogni anno.