Tracciabilità (1) - Soluzione automatizzata per codici a barre delle scorte

Il primo passo della tracciabilità è creare la codifica barcode del codice inventario da definire nel sistema ERP esistente.

In questo contesto, la definizione di codici a barre separati per ogni stock definito su NETSIS e la controllabilità dell'unità di misura in questa codifica renderanno il processo ancora più complicato.

Tutte queste operazioni verranno definite automaticamente con la definizione Triger data di seguito alla tabella TBLSTSABIT dove le definizioni di inventario vengono eseguite su Netsis e saranno prevenuti possibili errori.

È stato stabilito uno standard di codifica sul trigger basato su unità di dimensioni "KG" e "PCS".

================================================== ================================ CREATE TRIGGER [dbo]. [BARCODOLUSTUR] ON
[dbo]. [TBLSTSABIT] PER INSERIRE, AGGIORNARE
COME INIZIARE
DICHIARARE @STOKKODU TDBSTOKKOD
DICHIARARE @ OLCUBR1 VARCHAR (2)
DICHIARARE @BARKODNO VARCHAR (35)
DICHIARARE @TARIH SMALLDATETIME
SELECT @ TARIH = CAST (FLOOR (CAST (GETDATE () AS FLOAT)) AS SMALLDATETIME)
DICHIARARE STOCK CODE_CRS cursore per
SELEZIONA STOCK_ CODE, OLCU_BR1
DA INSERITO con (NOLOCK)
APRIRE STOCK CODE_CRS
FETCH STOKKODU_CRS in
@ CODICE AZIONE, @ OLCUBR1
MENTRE (@@ FETCH_STATUS <> -1) INIZIA
IF ISNULL ((SELECT COUNT (*) FROM TBLSTOKBAR WHERE STOCK_ CODE = @ STOCK CODE), 0) <> 0
GOTO FATTO
IF UPPER (ISNULL (@ OLCUBR1, '')) = 'KG' o UPPER (ISNULL (@ OLCUBR1, '')) = 'MT' o UPPER (ISNULL (@ OLCUBR1, '')) = 'LT' o UPPER (ISNULL (@ OLCUBR1, '')) = 'M2'
VAI AL PRIMO ARTICOLO_28
IF UPPER (ISNULL (@ OLCUBR1, '')) = 'KT' OR UPPER (ISNULL (@ OLCUBR1, '')) = 'TK' OR UPPER (ISNULL (@ OLCUBR1, '')) = 'VR' O UPPER (ISNULL (@ OLCUBR1, '')) = 'TB' OR UPPER (ISNULL (@ OLCUBR1, '')) = 'PK' OR UPPER (ISNULL (@ OLCUBR1, '')) = 'AD' OR UPPER (ISNULL (@ OLCUBR1, '')) = 'PL'
VAI AL PRIMO ARTICOLO_29
-------------------------------------------------- -------------------------------------------------- -----------
GOTO FATTO
-------------------------------------------------- -------------------------------------------------- -----------
PRIMO ARTICOLO_28:
SELECT @BARKODNO = '28' + RIGHT ('00000' + (SELECT CAST (CAST (MAX (RIGHT (BARKOD, 5)) AS INT) +1 AS VARCHAR) FROM TBLSTOKBAR WHERE LEN (BARKOD) = 7 AND BARKOD LIKE ' 28% '), 5)
INSERIRE IN TBLSTOKBAR
(STOK_KODU, BARCODE, BARTIP, BARTARIH, I_YEDEK1)
VALORI (@ STOKKODU, @ BARKODNO, 'T', @ DATE, '1')
GOTO FATTO
-------------------------------------------------- -------------------------------------------------- -----------
PRIMO ARTICOLO_29:
SELECT @BARKODNO = '29' + RIGHT ('00000' + (SELECT CAST (CAST (MAX (RIGHT (BARKOD, 5)) AS INT) +1 AS VARCHAR) FROM TBLSTOKBAR WHERE LEN (BARKOD) = 7 AND BARKOD LIKE ' 29% '), 5)
INSERIRE IN TBLSTOKBAR
(STOK_KODU, BARCODE, BARTIP, BARTARIH, I_YEDEK1)
VALORI (@ STOKKODU, @ BARKODNO, 'T', @ DATE, '1')
GOTO FATTO
-------------------------------------------------- -------------------------------------------------- -----------
FATTO:
recupera STOKKODU_CRS in
@ CODICE AZIONE, @ OLCUBR1
fine
chiudi STOK CODE_CRS
deallocare STOCK CODE_CRS
fine