İzlenebilirlik (1) - Otomatik Stok Barkod Çözümü 

İzlenebilirliğin ilk adımı var olan ERP sisteminde tanımlanacak olan stok koduna ait barkod kodlamasının oluşturulmasıdır.

Bu kapsamda NETSIS üzerinde tanımlanan her stok için ayrı ayrı barkod tanımlamak, ayrca bu kodlamada ölçü biriminn kontrol edilebilir olması süreci dahada karmaşık hale getirecektir.

​

Netsis üzerinde stok tanımlamalarının gerçekleştirildiği TBLSTSABIT tablosuna aşağıda belirtlen Triger tanımlaması ile tüm bu işlemler otomatik olarak tanımlanacak ve olası hatalarında önüne geçilecektir.

​

Triger üzerinde "KG" ve "ADET" öçlü birimleri esas alınarak kodlama standartı oluşturulmuştur.

​

​

==================================================================================CREATE TRIGGER [dbo].[BARKODOLUSTUR] ON
[dbo].[TBLSTSABIT] FOR INSERT,UPDATE
AS BEGIN
DECLARE @STOKKODU      TDBSTOKKOD
DECLARE @OLCUBR1       VARCHAR(2)
DECLARE @BARKODNO      VARCHAR(35)
DECLARE @TARIH         SMALLDATETIME
SELECT @TARIH= CAST(FLOOR(CAST(GETDATE()AS FLOAT))AS SMALLDATETIME)
DECLARE STOKKODU_CRS cursor for
SELECT STOK_KODU,OLCU_BR1
FROM INSERTED with ( NOLOCK ) 
OPEN STOKKODU_CRS 
FETCH STOKKODU_CRS into 
@STOKKODU,@OLCUBR1
WHILE ( @@FETCH_STATUS <> -1 )  BEGIN
IF ISNULL((SELECT COUNT(*) FROM TBLSTOKBAR WHERE STOK_KODU=@STOKKODU) ,0)<>0
GOTO BITTI
IF UPPER(ISNULL(@OLCUBR1,''))='KG' or UPPER(ISNULL(@OLCUBR1,''))='MT' or UPPER(ISNULL(@OLCUBR1,''))='LT' or UPPER(ISNULL(@OLCUBR1,''))='M2' 
GOTO ILKMADDE_28
IF UPPER(ISNULL(@OLCUBR1,''))='KT' OR UPPER(ISNULL(@OLCUBR1,''))='TK' OR UPPER(ISNULL(@OLCUBR1,''))='VR' OR UPPER(ISNULL(@OLCUBR1,''))='TB' OR UPPER(ISNULL(@OLCUBR1,''))='PK' OR UPPER(ISNULL(@OLCUBR1,''))='AD' OR UPPER(ISNULL(@OLCUBR1,''))='PL'   
GOTO ILKMADDE_29
---------------------------------------------------------------------------------------------------------------
GOTO BITTI
---------------------------------------------------------------------------------------------------------------
ILKMADDE_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)
INSERT INTO TBLSTOKBAR
(STOK_KODU,BARKOD,BARTIP,BARTARIH,I_YEDEK1)
VALUES (@STOKKODU,@BARKODNO,'T',@TARIH,'1')
GOTO BITTI
---------------------------------------------------------------------------------------------------------------
ILKMADDE_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)
INSERT INTO TBLSTOKBAR
(STOK_KODU,BARKOD,BARTIP,BARTARIH,I_YEDEK1)
VALUES (@STOKKODU,@BARKODNO,'T',@TARIH,'1')
GOTO BITTI
---------------------------------------------------------------------------------------------------------------
BITTI:
    fetch STOKKODU_CRS into 
@STOKKODU,@OLCUBR1
  end
  close STOKKODU_CRS
  deallocate STOKKODU_CRS
end