Düzenle: SP_BARKOD_KAYIT

İlgili Uygulama

Nesne Türü

Nesne Adı

Bu nesne dönem devrinden etkileniyor mu? (Örn: İçinde _01_ gibi sabit dönem kodu var mı?)

Genel Kullanım Amacı ve Notlar

Tam SQL Kodu

CREATE PROC [dbo].[SP_BARKOD_KAYIT]
AS
BEGIN
    DECLARE @TOP INT
    DECLARE @LRF INT
    DECLARE @BRD VARCHAR(10)
    DECLARE @SAY INT
    DECLARE @CODE VARCHAR(100)
    DECLARE @REZERV_BARKOD VARCHAR(10)
    
    SET @SAY = 1
    SET @TOP = ISNULL((SELECT COUNT(*) FROM dbo.BARKOSUZ_SIRALI_URUN_LISTESI),0)
    
    WHILE @SAY <= @TOP
    BEGIN
        SET @LRF = ISNULL((SELECT LOGICALREF FROM dbo.BARKOSUZ_SIRALI_URUN_LISTESI WHERE SIRA=@SAY),0)
        SET @CODE = ISNULL((SELECT CODE FROM LG_011_ITEMS WHERE LOGICALREF=@LRF),'')
        
        -- Önce rezerv barkod kontrolü yap
        SET @REZERV_BARKOD = ISNULL((SELECT MalzemeBarkodu FROM dbo.malzemebarkodlari WHERE UrunKodu=@CODE),'')
        
        IF @REZERV_BARKOD <> ''
        BEGIN
            -- Rezerv barkod varsa, EXPCTGNO'ya ekle
            UPDATE LG_011_ITEMS 
            SET EXPCTGNO = @REZERV_BARKOD 
            WHERE LOGICALREF = @LRF
        END
        ELSE
        BEGIN
            -- Rezerv barkod yoksa, normal sirali barkod atama islemini yap
            SET @BRD = ISNULL((SELECT BARKOD FROM dbo.BARKOD_SIRALI_KAYIT WHERE LOGICALREF=@LRF),'')
            
            IF @BRD <> ''
            BEGIN
                UPDATE LG_011_ITEMS 
                SET PRODCOUNTRY = @BRD 
                WHERE LOGICALREF = @LRF
            END
        END
        
        SET @SAY = @SAY + 1
    END
    
    -- Normal sirali barkod atanan ürünlerde EXPCTGNO güncelleme islemi
    UPDATE LG_011_ITEMS 
    SET EXPCTGNO = PRODCOUNTRY 
    WHERE PRODCOUNTRY IS NOT NULL 
      AND PRODCOUNTRY <> '' 
      AND (EXPCTGNO = '' OR EXPCTGNO IS NULL)
    
    -- PRODCOUNTRY alanini temizle
    UPDATE LG_011_ITEMS 
    SET PRODCOUNTRY = '' 
    WHERE PRODCOUNTRY IS NOT NULL 
      AND PRODCOUNTRY <> ''
END

Oluşturulma: 23.12.2025 07:15 Son Güncelleme: 23.12.2025 17:28

İptal Nesneyi Sil