Yavuz Selim Kart | SQL Server Eğitimleri

SQL Server’da Text Dosyasına Yazı Yazdıran Prosedür

Herkese merhaba, Bu yazıda SQL Server’da text dosyasına yazı yazdıran prosedür hakkında bilgi vereceğim. SQL Server’da bazı durumlarda text dosyası oluşturup içine veri yazdırmak isteyebiliriz. Bu işlemi yapmak için ilk olarak aşağıdaki ayarlamaları yapmanız ve test için bir veritabanı oluşturmanız gerekmekte.

Use Master
GO

EXEC master.dbo.sp_configure 'show advanced options', 1
RECONFIGURE WITH OVERRIDE
GO

EXEC master.dbo.sp_configure 'xp_cmdshell', 1
RECONFIGURE WITH OVERRIDE
GO


--Veritabanını oluşturuyoruz

CREATE DATABASE YoutubeDenemelerim --Kendi veritabanı isminizi burada değiştirin
GO 
USE YoutubeDenemelerim --Kendi veritabanı isminizi burada düzeltin
GO

Use Master

EXEC master.dbo.sp_configure 'show advanced options', 1

RECONFIGURE WITH OVERRIDE

EXEC master.dbo.sp_configure 'xp_cmdshell', 1

RECONFIGURE WITH OVERRIDE

--Veritabanını oluşturuyoruz

CREATE DATABASE YoutubeDenemelerim --Kendi veritabanı isminizi burada değiştirin

USE YoutubeDenemelerim --Kendi veritabanı isminizi burada düzeltin

İşlemi yaptıktan sonra aşağıdaki prosedürü oluşturalım.

-- Not : Windows'un kurulu olduğu sürücü için bu prosedür çalışmamaktadır. 

CREATE  PROC TextDosyasinaVeriYaz(
@BilgisayarHardDisk NVARCHAR(100),
@DosyaAdi NVARCHAR(100),
@YazilacakYazi NVARCHAR(1000)
)
AS
BEGIN
DECLARE @SQLKodu NVARCHAR(2000)
    SET @SQLKodu = N'echo ' + @YazilacakYazi + N' > ' + N'' + @BilgisayarHardDisk +':\' + @DosyaAdi + '.txt'
    EXEC master..xp_cmdshell @SQLKodu,no_output
END;


--Prosedürü çalıştıralım

EXEC dbo.TextDosyasinaVeriYaz @BilgisayarHardDisk = N'D', -- nvarchar(100)
                              @DosyaAdi = N'Pelin',           -- nvarchar(100)
                              @YazilacakYazi = N'Yavuz Selim Kart'       -- nvarchar(1000)

-- Not : Windows'un kurulu olduğu sürücü için bu prosedür çalışmamaktadır.

CREATE PROC TextDosyasinaVeriYaz(

@BilgisayarHardDisk NVARCHAR(100),

@DosyaAdi NVARCHAR(100),

@YazilacakYazi NVARCHAR(1000)

)

BEGIN

DECLARE @SQLKodu NVARCHAR(2000)

SET @SQLKodu = N'echo ' + @YazilacakYazi + N' > ' + N'' + @BilgisayarHardDisk +':\' + @DosyaAdi + '.txt'

EXEC master..xp_cmdshell @SQLKodu,no_output

END;

--Prosedürü çalıştıralım

EXEC dbo.TextDosyasinaVeriYaz @BilgisayarHardDisk = N'D', -- nvarchar(100)

@DosyaAdi = N'Pelin', -- nvarchar(100)

@YazilacakYazi = N'Yavuz Selim Kart' -- nvarchar(1000)

Prosedürü çalıştırdığınızda […]

SQL Server’da Tablodaki Sütuna Geçersiz Karakter Girilmesini Engelleyen Trigger

Herkese merhaba, Bu yazıda SQL Server’da tablodaki sütuna geçersiz karakter girilmesini engelleyen trigger hakkında bilgi vereceğim. SQL Server’da bazı durumlarda tabloya veri girişi yaparken triggerlarla geçersiz karakter girilmesini engelleyebiliriz. İşlemi anlamak adına ilk önce bir tablo oluşturuyoruz.

--Ürünler Tablosunun Oluşturulması

CREATE  TABLE Urunler(
id INT PRIMARY KEY IDENTITY(1,1),
UrunAdi NVARCHAR(200),
Miktar INT 
)

--Ürünler Tablosunun Oluşturulması

CREATE TABLE Urunler(

id INT PRIMARY KEY IDENTITY(1,1),

UrunAdi NVARCHAR(200),

Miktar INT

)

Ben burada id bilgisi, ürün adı ve miktarı bilgisini tuttum. Siz tabloda dilediğiniz […]

SQL Server’da Karakter Listeleme

Herkese merhaba, Bu yazıda SQL Server’da karakter listeleme hakkında bilgi vereceğim. Aslında bu bilgiyi veren ve kodları hazırlayan kişi Vedat Özer Bey. Sorguyu hazırlamış. Gerekli açıklamaları eklemiş. Bana da paylaşması kaldı. Kendisine bu çalışması için ayrıca teşekkürler. Aşağıdaki kodu kendi adınızla deneyebilirsiniz.

---=== SET TABANLI ÇÖZÜM
DECLARE @HARF VARCHAR(8000) = 'YAVUZ SELIM KART';
WITH DIZISAYI ([Sira No])
AS (SELECT ROW_NUMBER() OVER (ORDER BY (SELECT NULL))
    FROM
    (
        VALUES
            (0),
            (0),
            (0),
            (0),
            (0),
            (0),
            (0),
            (0),
            (0),
            (0)
    ) a (n)
        CROSS JOIN
        (
            VALUES
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0)
        ) c (n)
        CROSS JOIN
        (
            VALUES
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0)
        ) d (n)
        CROSS JOIN
        (
            VALUES
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0),
                (0)
        ) e (n) )
SELECT [Sira No],
       [Karakter]
FROM
(
    SELECT [Sira No],
           SUBSTRING(@HARF, [Sira No], 1) AS [Karakter]
    FROM DIZISAYI
    WHERE LEN(@HARF) >= [Sira No]
) a
WHERE [Karakter] IS NOT NULL;

---=== Döngü ile Çözüm;

IF OBJECT_ID('tempdb..#sonuc') IS NOT NULL
BEGIN
    DROP TABLE #sonuc;
END;
CREATE TABLE #sonuc
(
    [Sira No] INT IDENTITY(1, 1),
    [Karakter] VARCHAR(5)
);
DECLARE @UZUNLUK INT,
        @SAY INT = 1;
SET @UZUNLUK =
(
    SELECT LEN(@HARF)
);

WHILE @UZUNLUK <> 0
BEGIN

    INSERT INTO #sonuc
    SELECT SUBSTRING(@HARF, @SAY, 1);

    SET @UZUNLUK = @UZUNLUK - 1;
    SET @SAY = @SAY + 1;
END;

SELECT *
FROM #sonuc;

---=== SET TABANLI ÇÖZÜM

DECLARE @HARF VARCHAR(8000) = 'YAVUZ SELIM KART';

WITH DIZISAYI ([Sira No])

AS (SELECT ROW_NUMBER() OVER (ORDER BY (SELECT NULL))

FROM

(

VALUES

(0),

(0)

) a (n)

CROSS JOIN

(

VALUES

(0),

(0)

) c (n)

CROSS JOIN

(

VALUES

(0),

(0)

) d (n)

CROSS JOIN

(

VALUES

(0),

(0)

) e (n) )

SELECT [Sira No],

[Karakter]

FROM

(

SELECT [Sira No],

SUBSTRING(@HARF, [Sira No], 1) AS [Karakter]

FROM DIZISAYI

WHERE LEN(@HARF) >= [Sira No]

) a

WHERE [Karakter] IS NOT NULL;

---=== Döngü ile Çözüm;

IF OBJECT_ID('tempdb..#sonuc') IS NOT NULL

BEGIN

DROP TABLE #sonuc;

END;

CREATE TABLE #sonuc

(

[Sira No] INT IDENTITY(1, 1),

[Karakter] VARCHAR(5)

);

DECLARE @UZUNLUK INT,

@SAY INT = 1;

SET @UZUNLUK =

(

SELECT LEN(@HARF)

);

WHILE @UZUNLUK <> 0

BEGIN

INSERT INTO #sonuc

SELECT SUBSTRING(@HARF, @SAY, 1);

SET @UZUNLUK = @UZUNLUK - 1;

SET @SAY = @SAY + 1;

END;

SELECT *

FROM #sonuc;

Sorguyu çalıştırdığınızda aşağıdaki gibi bir sonuç alacaksınız. Herkese […]

SQL Server’da FIFO Maliyetinin T-SQL ile Uygulanması

Herkese merhaba, Bu yazıda SQL Server’da fifo maliyetinin t-sql ile uygulanması hakkında bilgi vereceğim. Aslında bu bilgiyi veren ve kodları hazırlayan kişi Vedat Özer Bey. Sorguyu hazırlamış. Gerekli açıklamaları eklemiş. Bana da paylaşması kaldı. Kendisine bu çalışması için ayrıca teşekkürler. Aşağıdaki kod bloğunu yeni oluşturduğunuz veritabanı üzerinde deneyebilirsiniz.

/* 

Bu kısmı yorumdan çıkarıp çalıştırabilirsiniz. 
Bu sayede yeni database oluşup sonrasında sorgu çalışacaktır.

CREATE DATABASE YeniDB
USE YeniDB 

*/

SET NOCOUNT ON;
/**********************************************************************************************************************
Hesaplama Türü : Fifo Maliyet
Fifo Yöntemi (İlk Giren İlk Çıkar): Fifo değerleme yöntemi, üretime verilecek olan veya satılacak malların stoklara ilk önce giren 
mallardan olması gerektiği varsayımına dayanır. Stoktaki malların kullanılma sırası ilk alınan mallardan başlanarak sırasyla devam eder.
Yani stoklara giren malların yine giriş sırasıyla stoktan çıkarlar.

Sorguyu Yazan : VEDAT ÖZER

Tablo İsimleri

Stok Hareketler Tablosu   : STOK_DETAYLI
Stok Giriş Çıkış Eşlemesi : FIFOESLEME
Envanter Tablosu          : FIFOENVANTER
Negatif Bilgiler          : STOKNEGATIF

Stok Negatife düştüğünde maliyet hesabı yapılmıyacak. Eksiğe düştüğü tarihten itibaren aşağıdaki tabloya yazacaz.   
**********************************************************************************************************************/
IF
(
    SELECT COUNT(*)
    FROM dbo.sysobjects
    WHERE id = OBJECT_ID(N'STOKNEGATIF')
          AND OBJECTPROPERTY(id, 'IsUserTable') = 1
) > 0
BEGIN
    DROP TABLE [dbo].STOKNEGATIF;
END;
CREATE TABLE STOKNEGATIF
(
    [KODU] VARCHAR(150) NOT NULL,
    [ADI] VARCHAR(250) NOT NULL,
    [TARIH] DATETIME NOT NULL,
    [AMBAR] VARCHAR(150) NOT NULL,
    [GIRISCIKIS] VARCHAR(150),
    [FISTURU] VARCHAR(200),
    [MIKTAR] FLOAT NOT NULL,
    KALAN DECIMAL(38, 2)
);

CREATE CLUSTERED INDEX TANIMLAMA ON STOKNEGATIF (KODU, AMBAR, TARIH);
CREATE INDEX DENEME ON STOKNEGATIF (KODU);

/**********************************************************************************************************************
Maliyet hesaplamaların doğru bir şekilde yapmamız için Giriş ve Çıkış hareketlerin ilişkilendirmemiz lazım.
Aşağıdaki tabloya giriş ve çıkış bilgilerini yazacaz.
**********************************************************************************************************************/
IF
(
    SELECT COUNT(*)
    FROM dbo.sysobjects
    WHERE id = OBJECT_ID(N'FIFOESLEME')
          AND OBJECTPROPERTY(id, 'IsUserTable') = 1
) > 0
BEGIN
    DROP TABLE [dbo].FIFOESLEME;
END;
CREATE TABLE [dbo].FIFOESLEME
(
    [KODU] VARCHAR(150),
    [AMBAR] VARCHAR(50),
    GIRISID INT,
    CIKISID INT,
    MIKTAR FLOAT,
    GIRISFIYAT FLOAT,
    CIKISFIYAT FLOAT,
    ALIMTARIHI DATE,
    SATISTARIHI DATE
);

CREATE CLUSTERED INDEX ITANIMLAMADX11
ON FIFOESLEME (
                  [KODU],
                  AMBAR,
                  ALIMTARIHI,
                  GIRISID
              );
CREATE INDEX KART ON FIFOESLEME ([KODU]);

/**********************************************************************************************************************
Ambarlara göre elimizdeki stokğun bilgilerini yazacağımız tabloyu oluşturuyoruz.
**********************************************************************************************************************/
IF
(
    SELECT COUNT(*)
    FROM dbo.sysobjects
    WHERE id = OBJECT_ID(N'FIFOENVANTER')
          AND OBJECTPROPERTY(id, 'IsUserTable') = 1
) > 0
BEGIN
    DROP TABLE [dbo].FIFOENVANTER;
END;
CREATE TABLE [dbo].FIFOENVANTER
(
    [KODU] VARCHAR(150),
    [AMBAR] VARCHAR(100),
    GIRISID INT,
    MIKTAR FLOAT,
    GIRISFIYAT FLOAT,
    ALIMTARIHI DATE
);

CREATE CLUSTERED INDEX IDX11
ON FIFOENVANTER (
                    [KODU],
                    AMBAR,
                    ALIMTARIHI,
                    GIRISID
                );
CREATE INDEX DENEME ON FIFOENVANTER ([KODU]);

/**********************************************************************************************************************
Aşağıdaki alanlarda maliyet hesabını yapacağımız satırları ekliyoruz.
**********************************************************************************************************************/

IF
(
    SELECT COUNT(*) FROM sys.tables WHERE name = 'STOK_DETAYLI'
) > 0
BEGIN
    DROP TABLE STOK_DETAYLI;
END;
CREATE TABLE [dbo].[STOK_DETAYLI]
(
    [ID] [INT] IDENTITY(1, 1) NOT NULL,
    [KODU] VARCHAR(150) NOT NULL,
    [ADI] VARCHAR(250) NOT NULL,
    [TARIH] DATETIME NOT NULL,
    [AMBAR] VARCHAR(100) NOT NULL,
    [GIRISCIKIS] VARCHAR(100),
    [FISTURU] VARCHAR(200),
    [MIKTAR] FLOAT NOT NULL,
    [BIRIMFIYAT] FLOAT,
    [TUTAR] FLOAT,
    [MALIYET] FLOAT
);
CREATE CLUSTERED INDEX STOK ON [STOK_DETAYLI] (KODU, TARIH, AMBAR);
CREATE INDEX SIRA ON [STOK_DETAYLI] (KODU);

INSERT INTO [STOK_DETAYLI]
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-01 09:34:00.000',
       'Merkez',
       'GIRIS',
       'Devir',
       '15',
       '1.25',
       '18.75',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-02 09:35:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '15',
       '2',
       '30',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-02 09:36:00.000',
       'Merkez',
       'CIKIS',
       'Satış',
       '22',
       '3',
       '66',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-02 09:38:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '20',
       '1.75',
       '35',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-03 10:35:00.000',
       'Antalya',
       'GIRIS',
       'SatınAlma',
       '15',
       '2.50',
       '37.50',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-03 10:36:00.000',
       'Antalya',
       'CIKIS',
       'Satış',
       '12',
       '3',
       '36',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-04 11:35:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '20',
       '1.75',
       '35',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-04 11:40:00.000',
       'Merkez',
       'CIKIS',
       'Satış',
       '15',
       '3',
       '45',
       '0'
UNION ALL
SELECT 'STOK.001',
       'Deneme Stok',
       '2018-01-05 11:41:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '8',
       '2.50',
       '20',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-01 09:34:00.000',
       'Merkez',
       'GIRIS',
       'Devir',
       '15',
       '1.25',
       '18.75',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-02 09:35:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '15',
       '2',
       '30',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-02 09:36:00.000',
       'Merkez',
       'CIKIS',
       'Satış',
       '22',
       '3',
       '66',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-02 09:38:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '20',
       '1.75',
       '35',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-03 10:35:00.000',
       'Antalya',
       'GIRIS',
       'SatınAlma',
       '15',
       '2.50',
       '37.50',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-03 10:36:00.000',
       'Antalya',
       'CIKIS',
       'Satış',
       '12',
       '3',
       '36',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-04 11:35:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '20',
       '1.75',
       '35',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-04 11:40:00.000',
       'Merkez',
       'CIKIS',
       'Satış',
       '15',
       '3',
       '45',
       '0'
UNION ALL
SELECT 'STOK.002',
       'Deneme',
       '2018-02-05 11:41:00.000',
       'Merkez',
       'GIRIS',
       'SatınAlma',
       '8',
       '2.50',
       '20',
       '0';


/**********************************************************************************************************************
Artık Gerekli maliyet hesaplamalarına başlıyacağız. Numaralı şekilde gideceğiz
**********************************************************************************************************************/

/**********************************************************************************************************************
1) Gerçek tabloda olan bütün verileri Geçiçi tabloya aktarıyoruz.
********************************************************************************************************************/
IF (OBJECT_ID('tempdb..##VERIDATA') IS NOT NULL)
BEGIN
    DROP TABLE ##VERIDATA;
END;
SELECT *,
       CAST(0 AS DECIMAL(38, 2)) AS KALAN
INTO ##VERIDATA
FROM [STOK_DETAYLI] WITH (NOLOCK, INDEX(STOK));
CREATE INDEX STOK ON ##VERIDATA (KODU);

IF (OBJECT_ID('tempdb..##FIFOESLEME') IS NOT NULL)
BEGIN
    DROP TABLE ##FIFOESLEME;
END;
CREATE TABLE ##FIFOESLEME
(
    [KODU] VARCHAR(150),
    [AMBAR] VARCHAR(50),
    GIRISID INT,
    CIKISID INT,
    MIKTAR FLOAT,
    GIRISFIYAT FLOAT,
    CIKISFIYAT FLOAT,
    ALIMTARIHI DATE,
    SATISTARIHI DATE
);

CREATE CLUSTERED INDEX ITANIMLAMADX11
ON ##FIFOESLEME (
                    [KODU],
                    AMBAR,
                    ALIMTARIHI,
                    GIRISID
                );
CREATE INDEX KART ON ##FIFOESLEME (GIRISID);

/**********************************************************************************************************************
2) Geçiçi tabloda Yürüyen bakiye işlemini yapıyoruz. Eksi değer veren varmı diye 
Normal şartlarda 2012 versiyonda Partıtıon By fonksiyonu ile gidilebilir.
**********************************************************************************************************************/
DECLARE @STOKKODU VARCHAR(150),
        @AMBAR VARCHAR(50),
        @KALAN DECIMAL(38, 2);
SET @STOKKODU = '';
SET @AMBAR = '';
SET @KALAN = 0;
UPDATE a
SET @KALAN=KALAN = CASE
                       WHEN GIRISCIKIS = 'GIRIS' THEN
                           MIKTAR
                       ELSE
                           -MIKTAR
                   END + CASE
                             WHEN KODU = @STOKKODU
                                  AND AMBAR = @AMBAR THEN
                                 @KALAN
                             ELSE
                                 0
                         END,
    @STOKKODU = KODU,
    @AMBAR = AMBAR
FROM ##VERIDATA a WITH (TABLOCKX, INDEX(STOK))
OPTION (MAXDOP 5);

/**********************************************************************************************************************
3) Döngü ile verileri yazacağımız geçiçi tabloyu oluşturuyoruz.
**********************************************************************************************************************/
IF (OBJECT_ID('tempdb..#GECICI') IS NOT NULL)
BEGIN
    DROP TABLE #GECICI;
END;
CREATE TABLE #GECICI
(
    ID INT,
    TARIH DATETIME,
    [KODU] VARCHAR(150),
    [AMBAR] VARCHAR(50),
    GIRISCIKIS VARCHAR(35),
    BIRIMFIYAT FLOAT,
    MIKTAR DECIMAL(38, 2)
);

CREATE CLUSTERED INDEX SIRALAMA ON #GECICI ([KODU], AMBAR, TARIH);
CREATE INDEX VEDAT ON #GECICI ([KODU]);
CREATE INDEX SATIR
ON #GECICI (ID)
INCLUDE (
            [KODU],
            AMBAR,
            TARIH,
            MIKTAR
        );

/**********************************************************************************************************************
4) Negatif olan stokları toplu olarak tabloya aktarıyoruz.
**********************************************************************************************************************/
TRUNCATE TABLE STOKNEGATIF;
INSERT INTO STOKNEGATIF
SELECT KODU,
       ADI,
       TARIH,
       AMBAR,
       GIRISCIKIS,
       FISTURU,
       MIKTAR,
       KALAN
FROM ##VERIDATA
WHERE KALAN < 0;

/**********************************************************************************************************************
5) Malıyet Hesabını yapıyoruz.
**********************************************************************************************************************/

DECLARE @KODU VARCHAR(150),
        @AMBARR VARCHAR(50);
DECLARE STOK CURSOR FOR
SELECT DISTINCT
       KODU,
       AMBAR
FROM ##VERIDATA
ORDER BY KODU,
         AMBAR;

OPEN STOK;
FETCH NEXT FROM STOK
INTO @KODU,
     @AMBAR;
WHILE @@FETCH_STATUS = 0
BEGIN

    DELETE #GECICI WITH (TABLOCK)
    WHERE KODU = @KODU
          AND AMBAR = @AMBAR;

    IF
    (
        SELECT COUNT(*)
        FROM STOKNEGATIF WITH (NOLOCK, INDEX(DENEME))
        WHERE KODU = @KODU
              AND AMBAR = @AMBAR
              AND KALAN < 0 ) = 0 BEGIN DECLARE @ID INT, @TARIH DATETIME, @GIRISCIKIS VARCHAR(10), @FISTUR VARCHAR(60), @MIKTAR DECIMAL(38, 2), @BIRIMFIYAT DECIMAL(38, 2); DECLARE @GIRENID INT, @GIRENTARIH DATETIME, @GIRENFISTUR VARCHAR(60), @GIRENMIKTAR DECIMAL(38, 2), @GIRENBIRIMFIYAT DECIMAL(38, 2); DECLARE FIFOMALIYET CURSOR FOR SELECT ID, TARIH, GIRISCIKIS, FISTURU, MIKTAR, BIRIMFIYAT FROM ##VERIDATA WHERE KODU = @KODU AND AMBAR = @AMBAR; OPEN FIFOMALIYET; FETCH NEXT FROM FIFOMALIYET INTO @ID, @TARIH, @GIRISCIKIS, @FISTUR, @MIKTAR, @BIRIMFIYAT; WHILE @@FETCH_STATUS = 0 BEGIN IF @GIRISCIKIS = 'GIRIS' BEGIN INSERT INTO #GECICI VALUES (@ID, @TARIH, @KODU, @AMBAR, @GIRISCIKIS, @BIRIMFIYAT, @MIKTAR); END; IF @GIRISCIKIS = 'CIKIS' BEGIN WHILE (1 = 1) BEGIN SELECT TOP 1 @GIRENID = ID, @GIRENTARIH = TARIH, @GIRENMIKTAR = MIKTAR, @GIRENBIRIMFIYAT = BIRIMFIYAT FROM #GECICI WHERE KODU = @KODU AND AMBAR = @AMBAR AND GIRISCIKIS = 'GIRIS' AND MIKTAR > 0
                    ORDER BY TARIH ASC;
                    IF @GIRENMIKTAR >= @MIKTAR
                       AND @MIKTAR <> 0
                    BEGIN
                        INSERT INTO ##FIFOESLEME
                        (
                            KODU,
                            AMBAR,
                            GIRISID,
                            CIKISID,
                            MIKTAR,
                            GIRISFIYAT,
                            CIKISFIYAT,
                            ALIMTARIHI,
                            SATISTARIHI
                        )
                        VALUES
                        (@KODU, @AMBAR, @GIRENID, @ID, @MIKTAR, @GIRENBIRIMFIYAT, @BIRIMFIYAT, @GIRENTARIH, @TARIH);
                        UPDATE #GECICI WITH (TABLOCK)
                        SET MIKTAR = COALESCE(MIKTAR, 0) - COALESCE(@MIKTAR, 0)
                        WHERE ID = @GIRENID;
                        BREAK;
                    END;
                    ELSE
                    BEGIN
                        INSERT INTO ##FIFOESLEME
                        (
                            KODU,
                            AMBAR,
                            GIRISID,
                            CIKISID,
                            MIKTAR,
                            GIRISFIYAT,
                            CIKISFIYAT,
                            ALIMTARIHI,
                            SATISTARIHI
                        )
                        VALUES
                        (@KODU, @AMBAR, @GIRENID, @ID, @GIRENMIKTAR, @GIRENBIRIMFIYAT, @BIRIMFIYAT, @GIRENTARIH, @TARIH);
                        UPDATE #GECICI WITH (TABLOCK)
                        SET MIKTAR = COALESCE(MIKTAR, 0) - COALESCE(@GIRENMIKTAR, 0)
                        WHERE ID = @GIRENID;
                        SET @MIKTAR = @MIKTAR - @GIRENMIKTAR;
                    END;



                END;

            END;

            FETCH NEXT FROM FIFOMALIYET
            INTO @ID,
                 @TARIH,
                 @GIRISCIKIS,
                 @FISTUR,
                 @MIKTAR,
                 @BIRIMFIYAT;

        END;

        /**********************************************************************************************************************
5) Malıyet Hesabını bitti. Elimizde kalan malzemeleri envanter bölümüne aktarıyoruz.
**********************************************************************************************************************/
        DELETE FIFOENVANTER WITH (TABLOCK)
        WHERE KODU = @KODU
              AND AMBAR = @AMBAR;
        INSERT INTO FIFOENVANTER
        (
            KODU,
            AMBAR,
            GIRISID,
            MIKTAR,
            GIRISFIYAT,
            ALIMTARIHI
        )
        SELECT KODU,
               AMBAR,
               ID,
               MIKTAR,
               BIRIMFIYAT,
               TARIH
        FROM #GECICI
        WHERE ISNULL(MIKTAR, 0) > 0
              AND GIRISCIKIS = 'GIRIS'
              AND KODU = @KODU
              AND AMBAR = @AMBAR;

        /**********************************************************************************************************************
6) Çıkışların maliyetini hesaplaması aşağıdaki şekilde yapılmaktadır. 
İlk İşlemde  ; (MIKTAR * GIRISFIYAT) TUTAR
Sonrasında   ; (TUTAR / MIKTAR) 
**********************************************************************************************************************/
        UPDATE V
        SET V.MALIYET = CAST(F.MALIYET AS DECIMAL(38, 8))
        FROM STOK_DETAYLI V
            LEFT JOIN
            (
                SELECT CIKISID,
                       AMBAR,
                       KODU,
                       ISNULL(SUM(TUTAR) / NULLIF(SUM(MIKTAR), 0), 0) MALIYET
                FROM
                (
                    SELECT CIKISID,
                           AMBAR,
                           KODU,
                           CAST(MIKTAR * GIRISFIYAT AS DECIMAL(38, 8)) TUTAR,
                           (MIKTAR) AS MIKTAR
                    FROM ##FIFOESLEME
                    WHERE KODU = @KODU
                          AND AMBAR = @AMBAR
                ) AS YHP
                GROUP BY CIKISID,
                         KODU,
                         AMBAR
            ) AS F
                ON F.CIKISID = V.ID
        WHERE GIRISCIKIS = 'CIKIS'
              AND V.KODU = @KODU
              AND V.AMBAR = @AMBAR;

        /**********************************************************************************************************************
7) Geçiçi tabloda olan Giriş ve Çıkış eşleşmelerini gerçek tabloya yazıyoruz.
**********************************************************************************************************************/
        DELETE FIFOESLEME WITH (TABLOCK)
        WHERE KODU = @KODU
              AND AMBAR = @AMBAR;
        INSERT INTO FIFOESLEME
        SELECT *
        FROM ##FIFOESLEME
        WHERE KODU = @KODU
              AND AMBAR = @AMBAR;
        DELETE ##FIFOESLEME WITH (TABLOCK)
        WHERE KODU = @KODU
              AND AMBAR = @AMBAR;

        CLOSE FIFOMALIYET;
        DEALLOCATE FIFOMALIYET;

    END;

    FETCH NEXT FROM STOK
    INTO @KODU,
         @AMBAR;
END;

CLOSE STOK;
DEALLOCATE STOK;


SELECT *
FROM FIFOENVANTER;
SELECT *
FROM FIFOESLEME;
SELECT *
FROM STOK_DETAYLI;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

Bu kısmı yorumdan çıkarıp çalıştırabilirsiniz.

Bu sayede yeni database oluşup sonrasında sorgu çalışacaktır.

CREATE DATABASE YeniDB

USE YeniDB

SET NOCOUNT ON;

/**********************************************************************************************************************

Hesaplama Türü : Fifo Maliyet

Fifo Yöntemi (İlk Giren İlk Çıkar): Fifo değerleme yöntemi, üretime verilecek olan veya satılacak malların stoklara ilk önce giren

mallardan olması gerektiği varsayımına dayanır. Stoktaki malların kullanılma sırası ilk alınan mallardan başlanarak sırasyla devam eder.

Yani stoklara giren malların yine giriş sırasıyla stoktan çıkarlar.

Sorguyu Yazan : VEDAT ÖZER

Tablo İsimleri

Stok Hareketler Tablosu : STOK_DETAYLI

Stok Giriş Çıkış Eşlemesi : FIFOESLEME

Envanter Tablosu : FIFOENVANTER

Negatif Bilgiler : STOKNEGATIF

Stok Negatife düştüğünde maliyet hesabı yapılmıyacak. Eksiğe düştüğü tarihten itibaren aşağıdaki tabloya yazacaz.

**********************************************************************************************************************/

(

SELECT COUNT(*)

FROM dbo.sysobjects

WHERE id = OBJECT_ID(N'STOKNEGATIF')

AND OBJECTPROPERTY(id, 'IsUserTable') = 1

) > 0

BEGIN

DROP TABLE [dbo].STOKNEGATIF;

END;

CREATE TABLE STOKNEGATIF

(

[KODU] VARCHAR(150) NOT NULL,

[ADI] VARCHAR(250) NOT NULL,

[TARIH] DATETIME NOT NULL,

[AMBAR] VARCHAR(150) NOT NULL,

[GIRISCIKIS] VARCHAR(150),

[FISTURU] VARCHAR(200),

[MIKTAR] FLOAT NOT NULL,

KALAN DECIMAL(38, 2)

);

CREATE CLUSTERED INDEX TANIMLAMA ON STOKNEGATIF (KODU, AMBAR, TARIH);

CREATE INDEX DENEME ON STOKNEGATIF (KODU);

/**********************************************************************************************************************

Maliyet hesaplamaların doğru bir şekilde yapmamız için Giriş ve Çıkış hareketlerin ilişkilendirmemiz lazım.

Aşağıdaki tabloya giriş ve çıkış bilgilerini yazacaz.

**********************************************************************************************************************/

(

SELECT COUNT(*)

FROM dbo.sysobjects

WHERE id = OBJECT_ID(N'FIFOESLEME')

AND OBJECTPROPERTY(id, 'IsUserTable') = 1

) > 0

BEGIN

DROP TABLE [dbo].FIFOESLEME;

END;

CREATE TABLE [dbo].FIFOESLEME

(

[KODU] VARCHAR(150),

[AMBAR] VARCHAR(50),

GIRISID INT,

CIKISID INT,

MIKTAR FLOAT,

GIRISFIYAT FLOAT,

CIKISFIYAT FLOAT,

ALIMTARIHI DATE,

SATISTARIHI DATE

);

CREATE CLUSTERED INDEX ITANIMLAMADX11

ON FIFOESLEME (

[KODU],

AMBAR,

ALIMTARIHI,

GIRISID

);

CREATE INDEX KART ON FIFOESLEME ([KODU]);

/**********************************************************************************************************************

Ambarlara göre elimizdeki stokğun bilgilerini yazacağımız tabloyu oluşturuyoruz.

**********************************************************************************************************************/

(

SELECT COUNT(*)

FROM dbo.sysobjects

WHERE id = OBJECT_ID(N'FIFOENVANTER')

AND OBJECTPROPERTY(id, 'IsUserTable') = 1

) > 0

BEGIN

DROP TABLE [dbo].FIFOENVANTER;

END;

CREATE TABLE [dbo].FIFOENVANTER

(

[KODU] VARCHAR(150),

[AMBAR] VARCHAR(100),

GIRISID INT,

MIKTAR FLOAT,

GIRISFIYAT FLOAT,

ALIMTARIHI DATE

);

CREATE CLUSTERED INDEX IDX11

ON FIFOENVANTER (

[KODU],

AMBAR,

ALIMTARIHI,

GIRISID

);

CREATE INDEX DENEME ON FIFOENVANTER ([KODU]);

/**********************************************************************************************************************

Aşağıdaki alanlarda maliyet hesabını yapacağımız satırları ekliyoruz.

**********************************************************************************************************************/

(

SELECT COUNT(*) FROM sys.tables WHERE name = 'STOK_DETAYLI'

) > 0

BEGIN

DROP TABLE STOK_DETAYLI;

END;

CREATE TABLE [dbo].[STOK_DETAYLI]

(

[ID] [INT] IDENTITY(1, 1) NOT NULL,

[KODU] VARCHAR(150) NOT NULL,

[ADI] VARCHAR(250) NOT NULL,

[TARIH] DATETIME NOT NULL,

[AMBAR] VARCHAR(100) NOT NULL,

[GIRISCIKIS] VARCHAR(100),

[FISTURU] VARCHAR(200),

[MIKTAR] FLOAT NOT NULL,

[BIRIMFIYAT] FLOAT,

[TUTAR] FLOAT,

[MALIYET] FLOAT

);

CREATE CLUSTERED INDEX STOK ON [STOK_DETAYLI] (KODU, TARIH, AMBAR);

CREATE INDEX SIRA ON [STOK_DETAYLI] (KODU);

INSERT INTO [STOK_DETAYLI]

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-01 09:34:00.000',

'Merkez',

'GIRIS',

'Devir',

'15',

'1.25',

'18.75',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-02 09:35:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'15',

'2',

'30',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-02 09:36:00.000',

'Merkez',

'CIKIS',

'Satış',

'22',

'3',

'66',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-02 09:38:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'20',

'1.75',

'35',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-03 10:35:00.000',

'Antalya',

'GIRIS',

'SatınAlma',

'15',

'2.50',

'37.50',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-03 10:36:00.000',

'Antalya',

'CIKIS',

'Satış',

'12',

'3',

'36',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-04 11:35:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'20',

'1.75',

'35',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-04 11:40:00.000',

'Merkez',

'CIKIS',

'Satış',

'15',

'3',

'45',

'0'

UNION ALL

SELECT 'STOK.001',

'Deneme Stok',

'2018-01-05 11:41:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'8',

'2.50',

'20',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-01 09:34:00.000',

'Merkez',

'GIRIS',

'Devir',

'15',

'1.25',

'18.75',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-02 09:35:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'15',

'2',

'30',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-02 09:36:00.000',

'Merkez',

'CIKIS',

'Satış',

'22',

'3',

'66',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-02 09:38:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'20',

'1.75',

'35',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-03 10:35:00.000',

'Antalya',

'GIRIS',

'SatınAlma',

'15',

'2.50',

'37.50',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-03 10:36:00.000',

'Antalya',

'CIKIS',

'Satış',

'12',

'3',

'36',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-04 11:35:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'20',

'1.75',

'35',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-04 11:40:00.000',

'Merkez',

'CIKIS',

'Satış',

'15',

'3',

'45',

'0'

UNION ALL

SELECT 'STOK.002',

'Deneme',

'2018-02-05 11:41:00.000',

'Merkez',

'GIRIS',

'SatınAlma',

'8',

'2.50',

'20',

'0';

/**********************************************************************************************************************

Artık Gerekli maliyet hesaplamalarına başlıyacağız. Numaralı şekilde gideceğiz

**********************************************************************************************************************/

/**********************************************************************************************************************

1) Gerçek tabloda olan bütün verileri Geçiçi tabloya aktarıyoruz.

********************************************************************************************************************/

IF (OBJECT_ID('tempdb..##VERIDATA') IS NOT NULL)

BEGIN

DROP TABLE ##VERIDATA;

END;

SELECT *,

CAST(0 AS DECIMAL(38, 2)) AS KALAN

INTO ##VERIDATA

FROM [STOK_DETAYLI] WITH (NOLOCK, INDEX(STOK));

CREATE INDEX STOK ON ##VERIDATA (KODU);

IF (OBJECT_ID('tempdb..##FIFOESLEME') IS NOT NULL)

BEGIN

DROP TABLE ##FIFOESLEME;

END;

CREATE TABLE ##FIFOESLEME

(

[KODU] VARCHAR(150),

[AMBAR] VARCHAR(50),

GIRISID INT,

CIKISID INT,

MIKTAR FLOAT,

GIRISFIYAT FLOAT,

CIKISFIYAT FLOAT,

ALIMTARIHI DATE,

SATISTARIHI DATE

);

CREATE CLUSTERED INDEX ITANIMLAMADX11

ON ##FIFOESLEME (

[KODU],

AMBAR,

ALIMTARIHI,

GIRISID

);

CREATE INDEX KART ON ##FIFOESLEME (GIRISID);

/**********************************************************************************************************************

2) Geçiçi tabloda Yürüyen bakiye işlemini yapıyoruz. Eksi değer veren varmı diye

Normal şartlarda 2012 versiyonda Partıtıon By fonksiyonu ile gidilebilir.

**********************************************************************************************************************/

DECLARE @STOKKODU VARCHAR(150),

@AMBAR VARCHAR(50),

@KALAN DECIMAL(38, 2);

SET @STOKKODU = '';

SET @AMBAR = '';

SET @KALAN = 0;

UPDATE a

SET @KALAN=KALAN = CASE

WHEN GIRISCIKIS = 'GIRIS' THEN

MIKTAR

ELSE

-MIKTAR

END + CASE

WHEN KODU = @STOKKODU

AND AMBAR = @AMBAR THEN

@KALAN

ELSE

END,

@STOKKODU = KODU,

@AMBAR = AMBAR

FROM ##VERIDATA a WITH (TABLOCKX, INDEX(STOK))

OPTION (MAXDOP 5);

/**********************************************************************************************************************

3) Döngü ile verileri yazacağımız geçiçi tabloyu oluşturuyoruz.

**********************************************************************************************************************/

IF (OBJECT_ID('tempdb..#GECICI') IS NOT NULL)

BEGIN

DROP TABLE #GECICI;

END;

CREATE TABLE #GECICI

(

ID INT,

TARIH DATETIME,

[KODU] VARCHAR(150),

[AMBAR] VARCHAR(50),

GIRISCIKIS VARCHAR(35),

BIRIMFIYAT FLOAT,

MIKTAR DECIMAL(38, 2)

);

CREATE CLUSTERED INDEX SIRALAMA ON #GECICI ([KODU], AMBAR, TARIH);

CREATE INDEX VEDAT ON #GECICI ([KODU]);

CREATE INDEX SATIR

ON #GECICI (ID)

INCLUDE (

[KODU],

AMBAR,

TARIH,

MIKTAR

);

/**********************************************************************************************************************

4) Negatif olan stokları toplu olarak tabloya aktarıyoruz.

**********************************************************************************************************************/

TRUNCATE TABLE STOKNEGATIF;

INSERT INTO STOKNEGATIF

SELECT KODU,

ADI,

TARIH,

AMBAR,

GIRISCIKIS,

FISTURU,

MIKTAR,

KALAN

FROM ##VERIDATA

WHERE KALAN < 0;

/**********************************************************************************************************************

5) Malıyet Hesabını yapıyoruz.

**********************************************************************************************************************/

DECLARE @KODU VARCHAR(150),

@AMBARR VARCHAR(50);

DECLARE STOK CURSOR FOR

SELECT DISTINCT

KODU,

AMBAR

FROM ##VERIDATA

ORDER BY KODU,

AMBAR;

OPEN STOK;

FETCH NEXT FROM STOK

INTO @KODU,

@AMBAR;

WHILE @@FETCH_STATUS = 0

BEGIN

DELETE #GECICI WITH (TABLOCK)

WHERE KODU = @KODU

AND AMBAR = @AMBAR;

(

SELECT COUNT(*)

FROM STOKNEGATIF WITH (NOLOCK, INDEX(DENEME))

WHERE KODU = @KODU

AND AMBAR = @AMBAR

AND KALAN < 0 ) = 0 BEGIN DECLARE @ID INT, @TARIH DATETIME, @GIRISCIKIS VARCHAR(10), @FISTUR VARCHAR(60), @MIKTAR DECIMAL(38, 2), @BIRIMFIYAT DECIMAL(38, 2); DECLARE @GIRENID INT, @GIRENTARIH DATETIME, @GIRENFISTUR VARCHAR(60), @GIRENMIKTAR DECIMAL(38, 2), @GIRENBIRIMFIYAT DECIMAL(38, 2); DECLARE FIFOMALIYET CURSOR FOR SELECT ID, TARIH, GIRISCIKIS, FISTURU, MIKTAR, BIRIMFIYAT FROM ##VERIDATA WHERE KODU = @KODU AND AMBAR = @AMBAR; OPEN FIFOMALIYET; FETCH NEXT FROM FIFOMALIYET INTO @ID, @TARIH, @GIRISCIKIS, @FISTUR, @MIKTAR, @BIRIMFIYAT; WHILE @@FETCH_STATUS = 0 BEGIN IF @GIRISCIKIS = 'GIRIS' BEGIN INSERT INTO #GECICI VALUES (@ID, @TARIH, @KODU, @AMBAR, @GIRISCIKIS, @BIRIMFIYAT, @MIKTAR); END; IF @GIRISCIKIS = 'CIKIS' BEGIN WHILE (1 = 1) BEGIN SELECT TOP 1 @GIRENID = ID, @GIRENTARIH = TARIH, @GIRENMIKTAR = MIKTAR, @GIRENBIRIMFIYAT = BIRIMFIYAT FROM #GECICI WHERE KODU = @KODU AND AMBAR = @AMBAR AND GIRISCIKIS = 'GIRIS' AND MIKTAR > 0

ORDER BY TARIH ASC;

IF @GIRENMIKTAR >= @MIKTAR

AND @MIKTAR <> 0

BEGIN

INSERT INTO ##FIFOESLEME

(

KODU,

AMBAR,

GIRISID,

CIKISID,

MIKTAR,

GIRISFIYAT,

CIKISFIYAT,

ALIMTARIHI,

SATISTARIHI

)

VALUES

(@KODU, @AMBAR, @GIRENID, @ID, @MIKTAR, @GIRENBIRIMFIYAT, @BIRIMFIYAT, @GIRENTARIH, @TARIH);

UPDATE #GECICI WITH (TABLOCK)

SET MIKTAR = COALESCE(MIKTAR, 0) - COALESCE(@MIKTAR, 0)

WHERE ID = @GIRENID;

BREAK;

END;

ELSE

BEGIN

INSERT INTO ##FIFOESLEME

(

KODU,

AMBAR,

GIRISID,

CIKISID,

MIKTAR,

GIRISFIYAT,

CIKISFIYAT,

ALIMTARIHI,

SATISTARIHI

)

VALUES

(@KODU, @AMBAR, @GIRENID, @ID, @GIRENMIKTAR, @GIRENBIRIMFIYAT, @BIRIMFIYAT, @GIRENTARIH, @TARIH);

UPDATE #GECICI WITH (TABLOCK)

SET MIKTAR = COALESCE(MIKTAR, 0) - COALESCE(@GIRENMIKTAR, 0)

WHERE ID = @GIRENID;

SET @MIKTAR = @MIKTAR - @GIRENMIKTAR;

END;

FETCH NEXT FROM FIFOMALIYET

INTO @ID,

@TARIH,

@GIRISCIKIS,

@FISTUR,

@MIKTAR,

@BIRIMFIYAT;

END;

/**********************************************************************************************************************

5) Malıyet Hesabını bitti. Elimizde kalan malzemeleri envanter bölümüne aktarıyoruz.

**********************************************************************************************************************/

DELETE FIFOENVANTER WITH (TABLOCK)

WHERE KODU = @KODU

AND AMBAR = @AMBAR;

INSERT INTO FIFOENVANTER

(

KODU,

AMBAR,

GIRISID,

MIKTAR,

GIRISFIYAT,

ALIMTARIHI

)

SELECT KODU,

AMBAR,

ID,

MIKTAR,

BIRIMFIYAT,

TARIH

FROM #GECICI

WHERE ISNULL(MIKTAR, 0) > 0

AND GIRISCIKIS = 'GIRIS'

AND KODU = @KODU

AND AMBAR = @AMBAR;

/**********************************************************************************************************************

6) Çıkışların maliyetini hesaplaması aşağıdaki şekilde yapılmaktadır.

İlk İşlemde ; (MIKTAR * GIRISFIYAT) TUTAR

Sonrasında ; (TUTAR / MIKTAR)

**********************************************************************************************************************/

UPDATE V

SET V.MALIYET = CAST(F.MALIYET AS DECIMAL(38, 8))

FROM STOK_DETAYLI V

LEFT JOIN

(

SELECT CIKISID,

AMBAR,

KODU,

ISNULL(SUM(TUTAR) / NULLIF(SUM(MIKTAR), 0), 0) MALIYET

FROM

(

SELECT CIKISID,

AMBAR,

KODU,

CAST(MIKTAR * GIRISFIYAT AS DECIMAL(38, 8)) TUTAR,

(MIKTAR) AS MIKTAR

FROM ##FIFOESLEME

WHERE KODU = @KODU

AND AMBAR = @AMBAR

) AS YHP

GROUP BY CIKISID,

KODU,

AMBAR

) AS F

ON F.CIKISID = V.ID

WHERE GIRISCIKIS = 'CIKIS'

AND V.KODU = @KODU

AND V.AMBAR = @AMBAR;

/**********************************************************************************************************************

7) Geçiçi tabloda olan Giriş ve Çıkış eşleşmelerini gerçek tabloya yazıyoruz.

**********************************************************************************************************************/

DELETE FIFOESLEME WITH (TABLOCK)

WHERE KODU = @KODU

AND AMBAR = @AMBAR;

INSERT INTO FIFOESLEME

SELECT *

FROM ##FIFOESLEME

WHERE KODU = @KODU

AND AMBAR = @AMBAR;

DELETE ##FIFOESLEME WITH (TABLOCK)

WHERE KODU = @KODU

AND AMBAR = @AMBAR;

CLOSE FIFOMALIYET;

DEALLOCATE FIFOMALIYET;

END;

FETCH NEXT FROM STOK

INTO @KODU,

@AMBAR;

END;

CLOSE STOK;

DEALLOCATE STOK;

SELECT *

FROM FIFOENVANTER;

SELECT *

FROM FIFOESLEME;

SELECT *

FROM STOK_DETAYLI;

Sorguyu çalıştırdığınızda […]

SQL Server’da Kısaltılmış Ay Adını Getiren Fonksiyon

Herkese merhaba, Bu yazıda SQL Server’da kısaltılmış ay adını getiren fonksiyon hakkında bilgi vereceğim. SQL Server’da bazı durumlarda kısa ay adlarını kullanmak isteyebiliriz. Aşağıdaki fonksiyonu kullanarak bu işlemi kolaylıkla yapabilirsiniz.

CREATE FUNCTION KisaAyBilgisiGetir
(
    @AyNumarasi INT
)
RETURNS NVARCHAR(3)
AS
BEGIN
    RETURN
    (
        SELECT SUBSTRING('OCA ŞUB MAR NİS MAY HAZ TEM AĞU EYL EKİ KAS ARA ', (@AyNumarasi * 4) - 3, 3) AS Ay
    );
END;

--Kullanımı

SELECT dbo.KisaAyBilgisiGetir(9) AS KısaAyAdi

CREATE FUNCTION KisaAyBilgisiGetir

(

@AyNumarasi INT

)

RETURNS NVARCHAR(3)

BEGIN

RETURN

(

SELECT SUBSTRING('OCA ŞUB MAR NİS MAY HAZ TEM AĞU EYL EKİ KAS ARA ', (@AyNumarasi * 4) - 3, 3) AS Ay

);

END;

--Kullanımı

SELECT dbo.KisaAyBilgisiGetir(9) AS KısaAyAdi

Kodu çalıştırdığınızda aşağıdaki sonucu alacaksınız. Görüldüğü üzere kısa ay adı bilgisi gelmiş oldu. Herkese çalışma hayatında ve yaşamında başarılar kolaylıklar.

SQL Server’da Tarih Bilgisini Gün-Ay Adı-Sene Şeklinde Türkçe Getirmek

Herkese merhaba, Bu yazıda SQL Server’da tarih bilgisini gün-ay adı-sene şeklinde Türkçe getirmek hakkında bilgi vereceğim. SQL Server’da bazı durumlarda tarih bilgisi gün-ay adı-sene şeklinde Türkçe getirmek isteyebiliriz. Aşağıdaki kodu kullanarak bu işlemi kolaylıkla yapabilirsiniz.

SET LANGUAGE Turkish;
SELECT CAST(DATEPART(DAY, GETDATE()) AS NVARCHAR(2)) + '-' + FORMAT(GETDATE(), 'MMMM') + '-'
       + CAST(DATEPART(YEAR, GETDATE()) AS NVARCHAR(4)) AS TarihBilgisi;

SET LANGUAGE Turkish;

SELECT CAST(DATEPART(DAY, GETDATE()) AS NVARCHAR(2)) + '-' + FORMAT(GETDATE(), 'MMMM') + '-'

+ CAST(DATEPART(YEAR, GETDATE()) AS NVARCHAR(4)) AS TarihBilgisi;

Kodu çalıştırdığınızda aşağıdaki sonucu alacaksınız. Görüldüğü üzere gün-ay adı-sene bilgisi Türkçe olarak gelmiş oldu. Herkese […]

SQL Server’da Tarih Bilgisini Gün-Ay Adı-Sene Şeklinde Türkçe Getiren Prosedür

Herkese merhaba, Bu yazıda SQL Server’da tarih bilgisini gün-ay adı-sene şeklinde Türkçe getiren prosedür hakkında bilgi vereceğim. SQL Server’da bazı durumlarda tarih bilgisi gün-ay adı-sene şeklinde Türkçe getirmek isteyebiliriz. Aşağıdaki prosedürü kullanarak bu işlemi kolaylıkla yapabilirsiniz.

CREATE PROCEDURE TarihTurkcelestir
(@Tarih VARCHAR(11))
AS
BEGIN
    SET LANGUAGE Turkish;
    DECLARE @SonTarih VARCHAR(20);
    SET @SonTarih
        = CAST(DATEPART(DAY, CONVERT(DATETIME, @Tarih, 120)) AS NVARCHAR(2)) + '-'
          + FORMAT(CONVERT(DATETIME, @Tarih, 120), 'MMMM') + '-'
          + CAST(DATEPART(YEAR, CONVERT(DATETIME, @Tarih, 120)) AS NVARCHAR(4));
    SELECT @SonTarih;
END;

--Kullanımı

DECLARE @Tarih1 DATETIME
SET @Tarih1=GETDATE()
EXEC dbo.TarihTurkcelestir @Tarih1  -- datetime


DECLARE @Tarih2 VARCHAR(11)
SET @Tarih2='2019-10-03'
EXEC dbo.TarihTurkcelestir @Tarih2 -- datetime

CREATE PROCEDURE TarihTurkcelestir

(@Tarih VARCHAR(11))

BEGIN

SET LANGUAGE Turkish;

DECLARE @SonTarih VARCHAR(20);

SET @SonTarih

= CAST(DATEPART(DAY, CONVERT(DATETIME, @Tarih, 120)) AS NVARCHAR(2)) + '-'

+ FORMAT(CONVERT(DATETIME, @Tarih, 120), 'MMMM') + '-'

+ CAST(DATEPART(YEAR, CONVERT(DATETIME, @Tarih, 120)) AS NVARCHAR(4));

SELECT @SonTarih;

END;

--Kullanımı

DECLARE @Tarih1 DATETIME

SET @Tarih1=GETDATE()

EXEC dbo.TarihTurkcelestir @Tarih1 -- datetime

DECLARE @Tarih2 VARCHAR(11)

SET @Tarih2='2019-10-03'

EXEC dbo.TarihTurkcelestir @Tarih2 -- datetime

Prosedürü oluşturup örnek kullanımı çalıştırdığınızda aşağıdaki sonucu alacaksınız. Görüldüğü üzere gün-ay adı-sene bilgisi Türkçe […]

SQL Server’da Seçili Ay ve Yıldaki Tüm Günleri Listeleyen Prosedür

Herkese merhaba, Bu yazıda SQL Server’da seçili ay ve yıldaki tüm günleri listeleyen prosedür hakkında bilgi vereceğim. SQL Server’da bazı durumlarda seçili ay ve yıla ait tüm günlerin listelenmesini isteyebiliriz. Aşağıdaki prosedürü kullanarak bu işlemi kolaylıkla yapabilirsiniz.

CREATE PROC AydakiTumGunleriGetir
    @Aybilgisi TINYINT,
    @YilBilgisi INT
AS
BEGIN
    -- SET LANGUAGE TURKISH --Ay bilgisi Türkçe gelsin istiyorsanız
    DECLARE @BaslangicTarihi DATETIME
        = CAST(CAST(@YilBilgisi AS CHAR(4)) + RIGHT('0' + CAST(@Aybilgisi AS VARCHAR(2)), 2) + '01' AS DATETIME);

    DECLARE @BitisTarihi DATETIME = DATEADD(MONTH, 1, @BaslangicTarihi);
    WITH mycte
    AS (SELECT @BaslangicTarihi AS dt
        UNION ALL
        SELECT dt + 1
        FROM mycte
        WHERE dt + 1 < @BitisTarihi)
    SELECT REPLACE(CONVERT(CHAR(11), dt, 106), ' ', '-') AS [Günler]
    FROM mycte;


END;

--Kullanımı

EXEC dbo.AydakiTumGunleriGetir @Aybilgisi = 10,    -- tinyint
                               @YilBilgisi = 2016; -- int

CREATE PROC AydakiTumGunleriGetir

@Aybilgisi TINYINT,

@YilBilgisi INT

BEGIN

-- SET LANGUAGE TURKISH --Ay bilgisi Türkçe gelsin istiyorsanız

DECLARE @BaslangicTarihi DATETIME

= CAST(CAST(@YilBilgisi AS CHAR(4)) + RIGHT('0' + CAST(@Aybilgisi AS VARCHAR(2)), 2) + '01' AS DATETIME);

DECLARE @BitisTarihi DATETIME = DATEADD(MONTH, 1, @BaslangicTarihi);

WITH mycte

AS (SELECT @BaslangicTarihi AS dt

UNION ALL

SELECT dt + 1

FROM mycte

WHERE dt + 1 < @BitisTarihi)

SELECT REPLACE(CONVERT(CHAR(11), dt, 106), ' ', '-') AS [Günler]

FROM mycte;

END;

--Kullanımı

EXEC dbo.AydakiTumGunleriGetir @Aybilgisi = 10, -- tinyint

@YilBilgisi = 2016; -- int

Prosedürü oluşturup örnek kullanımı çalıştırdığınızda aşağıdaki sonucu alacaksınız. Görüldüğü üzere seçilen ay ve […]

SQL Server’da The Following Tables Will Be Saved To Your Database. Do You Want To Continue? Hatası

Herkese merhaba, Bu yazıda sizlere SQL Server’da the following tables will be saved to your database. Do you want to continue? hatasından bahsedeceğim. SQL Server’da daha önceden bir tablo oluşturduk diyelim. Bu tablo üzerinde oluşturduğumuz alanlardan herhangi biri varchar(50) olsun. Bu alanı varchar(500) yapmak istediğimizde aşağıdaki gibi bir hata alabiliriz. Bu […]

SQL Server’da Seçilen Aya Ait Haftanın Başlangıç ve Bitiş Tarihlerini Göstermek

Herkese merhaba, Bu yazıda SQL Server’da seçilen aya ait haftanın başlangıç ve bitiş tarihlerini göstermek hakkında bilgi vereceğim. SQL Server’da bazı durumlarda seçilen aya ait haftanın başlangıç ve bitiş tarihlerini göstermek isteyebiliriz. Aşağıdaki kodu kullanarak bu işlemi kolaylıkla yapabilirsiniz.

SET DATEFIRST 2; --Haftanın ilk günü ülkeye göre ya da kullanılan sisteme göre değişiklik gösterebilir.

DECLARE @Tarih DATE = '2019-10-01'; --
DECLARE @Yil INT = DATEPART(YEAR, @Tarih);
DECLARE @Ay INT = DATEPART(MONTH, @Tarih);

CREATE TABLE #TmpTarih
(
    SiraNo INT IDENTITY,
    HaftaBaslangicGunu DATE,
    HaftaBitisGunu DATE
);

IF DATEPART(dw, @Tarih) <> 7
BEGIN
    SET @Tarih = DATEADD(d, -DATEPART(dw, @Tarih), @Tarih);
END;
INSERT INTO #TmpTarih
VALUES
(@Tarih, DATEADD(D, 6, @Tarih));
SET @Tarih = DATEADD(D, 7, @Tarih);

WHILE YEAR(@Tarih) = @Yil AND MONTH(@Tarih) = @Ay
BEGIN
    INSERT INTO #TmpTarih
    VALUES
    (@Tarih, DATEADD(D, 6, @Tarih));
    SET @Tarih = DATEADD(D, 7, @Tarih);
END;

SELECT *
FROM #TmpTarih;

DROP TABLE #TmpTarih;

SET DATEFIRST 2; --Haftanın ilk günü ülkeye göre ya da kullanılan sisteme göre değişiklik gösterebilir.

DECLARE @Tarih DATE = '2019-10-01'; --

DECLARE @Yil INT = DATEPART(YEAR, @Tarih);

DECLARE @Ay INT = DATEPART(MONTH, @Tarih);

CREATE TABLE #TmpTarih

(

SiraNo INT IDENTITY,

HaftaBaslangicGunu DATE,

HaftaBitisGunu DATE

);

IF DATEPART(dw, @Tarih) <> 7

BEGIN

SET @Tarih = DATEADD(d, -DATEPART(dw, @Tarih), @Tarih);

END;

INSERT INTO #TmpTarih

VALUES

(@Tarih, DATEADD(D, 6, @Tarih));

SET @Tarih = DATEADD(D, 7, @Tarih);

WHILE YEAR(@Tarih) = @Yil AND MONTH(@Tarih) = @Ay

BEGIN

INSERT INTO #TmpTarih

VALUES

(@Tarih, DATEADD(D, 6, @Tarih));

SET @Tarih = DATEADD(D, 7, @Tarih);

END;

SELECT *

FROM #TmpTarih;

DROP TABLE #TmpTarih;

Kodu çalıştırdığınızda aşağıdaki sonucu göreceksiniz. Görüldüğü üzere seçilen aya ait haftanın […]