Bir Ka� G�zel Sql : TESEKKÜRLER...

Sat, 04 Oct 2008 11:25:01 +0000

Yazar: NETSYS
Konu: 1140
G�nderim Zaman�: 04 Ekim 2008 Saat 11:25

TESEKK�RLER...

Bir Ka� G�zel Sql : /** Merhaba Kolay Gelsin; Isinize...

Mon, 29 Sep 2008 00:14:15 +0000

Yazar: aykyazilim
Konu: 1140
G�nderim Zaman�: 29 Eyl�l 2008 Saat 00:14

/**

Merhaba Kolay Gelsin;

Isinize Yarayacagini d�s�nd�g�m bir ka� sql kodlama;

Sene Sonu Devir �zellikle Stok Hareket aktariminda yogun hareketi olan firmalarda �ok ge� bitiyor, bunun yerine sqlden yapmak ise bir dakikalik bir is.

**/

-- mevcut data altinda ilgili view olusturuluyoruz.

create view STOK_DEVIR
as
select stok_kodu,
yapkod,
sube_kodu,
depo_kodu,
Sum((case when sthar_gckod='G' Then sthar_gcmik else 0 end)+(case when sthar_gckod='C' Then sthar_gcmik*-1 else 0 end)) as bakiye
from tblsthar with (nolock)
where stok_kodu like 'y%'
group by stok_kodu, yapkod, sube_kodu, depo_kodu

--daha sonra ise

insert into 2007..tblsthar (stok_kodu, yapkod, sube_kodu, depo_kodu, sthar_gcmik, sthar_gckod, sthar_tarih, sthar_aciklama,sthar_htur,sthar_nf)
select a.stok_kodu, a.yapkod, a.sube_kodu, a.depo_kodu, abs(bakiye), (case when bakiye>0 Then 'G' Else 'C' End),'01/01/2005','Devir', 'A',
Satis_Fiat3
from 2006..STOK_DEVIR as a with (nolock)
inner join tblstsabit b with (nolock) on (a.stok_kodu = b.stok_kodu)
Where bakiye <> 0 AND a.Depo_Kodu = 200

-- netsis job �zerinde bir ka� sql c�mlesi--

-- VADESI GELMIS BOR� �EKLERININ ACILISTA LISTE HALINDE GELMESI --

DROP VIEW AYK_VADEGELMISBCEK
GO
CREATE VIEW AYK_VADEGELMISBCEK
AS
SELECT
TBLBCEK.SC_NO  AS SENET_NUMARASI ,
TBLBCEK.SC_VERILENK AS CARI_KOD ,
TBLCASABIT.CARI_ISIM AS CARI_ISIM ,
TBLBCEK.VADETRH  AS VADE_TARIHI ,
TBLBCEK.TUTAR  AS TUTAR
FROM TBLBCEK , TBLCASABIT
WHERE TBLBCEK.SC_VERILENK = TBLCASABIT.CARI_KOD AND
CONVERT(CHAR(10),VADETRH) = CONVERT(CHAR(10),GETDATE()) AND SC_SONDUR <> 'O'

-- VADESI GELMIS M�STERI �EKLERININ ACILISTA LISTE HALINDE GELMESI --

DROP VIEW AYK_VADEGELMISMCEK
GO
CREATE VIEW AYK_VADEGELMISMCEK
AS
SELECT
TBLMCEK.SC_NO  AS CEK_NUMARASI ,
TBLMCEK.SC_VERENK AS CARI_KOD ,
TBLCASABIT.CARI_ISIM AS CARI_ISIM ,
TBLMCEK.VADETRH  AS VADE_TARIHI ,
TBLMCEK.TUTAR  AS TUTAR
FROM TBLMCEK , TBLCASABIT
WHERE TBLMCEK.SC_VERENK = TBLCASABIT.CARI_KOD AND
CONVERT(CHAR(10),VADETRH) = CONVERT(CHAR(10),GETDATE()) AND SC_SONDUR <> 'O'

-- VADESI GELMIS BOR� SENETLERININ ACILISTA LISTE HALINDE GELMESI --

DROP VIEW AYK_VADEGELMISBSEN
GO
CREATE VIEW AYK_VADEGELMISBSEN
AS
SELECT
TBLBSEN.SC_NO  AS SENET_NUMARASI ,
TBLBSEN.SC_VERILENK AS CARI_KOD ,
TBLCASABIT.CARI_ISIM AS CARI_ISIM ,
TBLBSEN.VADETRH  AS VADE_TARIHI ,
TBLBSEN.TUTAR  AS TUTAR
FROM TBLBSEN , TBLCASABIT
WHERE TBLBSEN.SC_VERILENK = TBLCASABIT.CARI_KOD AND
CONVERT(CHAR(10),VADETRH) = CONVERT(CHAR(10),GETDATE()) AND SC_SONDUR <> 'O'

--VADESI GELMIS M�STERI SENETLERININ ACILISTA LISTE HALINDE GELMESI --

DROP VIEW AYK_VADEGELMISMSEN
GO
CREATE VIEW AYK_VADEGELMISMSEN
AS
SELECT
TBLMSEN.SC_NO  AS SENET_NUMARASI ,
TBLMSEN.SC_VERENK AS CARI_KOD ,
TBLMSEN.SC_ABORCLU AS CARI_ISIM ,
TBLMSEN.VADETRH  AS VADE_TARIHI ,
TBLMSEN.TUTAR  AS TUTAR
FROM TBLMSEN , TBLCASABIT
WHERE TBLMSEN.SC_VERENK = TBLCASABIT.CARI_KOD AND
CONVERT(CHAR(10),VADETRH) = CONVERT(CHAR(10),GETDATE()) AND SC_SONDUR <> 'O'

-- FATURA ODEME VADESI GELMIS FATURALARIN ACILISTA GELMESI--

DROP VIEW AYK_FATURAVADE
GO
CREATE VIEW AYK_FATURAVADE
AS
SELECT
TBLFATUIRS.FATIRS_NO  AS FATURA_NO ,
TBLFATUIRS.CARI_KODU  AS CARI_KODU ,
TBLCASABIT.CARI_ISIM  AS CARI_ISIM ,
TBLFATUIRS.TARIH  AS TARIH ,
TBLFATUIRS.ODEMETARIHI  AS VADE_TARIHI ,
TBLFATUIRS.GENELTOPLAM  AS TOPLAM
FROM TBLFATUIRS , TBLCASABIT
WHERE TBLFATUIRS.CARI_KODU = TBLCASABIT.CARI_KOD AND
CONVERT ( CHAR (10) , ODEMETARIHI ) = CONVERT ( CHAR (10) , GETDATE())

-- OZELLIKLE SUBELI CALISAN MUSTERILERDE KULLANABILECEGINIZ BIR SQL

-- TRIGGER FONKSIYONU AMACI MERKEZDE SIFRESI DEGISMIS OLAN KULLANICININ

-- CALISTIGI DIGER SUBELERDE OTOMATIK OLARAK SIFRELERININ DEGISMESI

CREATE TRIGGER PTR_KULSIFRE_U ON TBLKULLANP FOR UPDATE
AS
   IF UPDATE(SIFRE) AND
   (SELECT SUBE_KODU FROM INSERTED) = 0
BEGIN
   UPDATE TBLKULLANP
   SET SIFRE = INSERTED.SIFRE,
       SIFRE1 = INSERTED.SIFRE1,
       SIFRE2 = INSERTED.SIFRE2,
       SIFRE3 = INSERTED.SIFRE3,
       SIFRE4 = INSERTED.SIFRE4,
       SIFRE5 = INSERTED.SIFRE5,
       SIFRE6 = INSERTED.SIFRE6,
       SIFRE7 = INSERTED.SIFRE7,
       SIFRE8 = INSERTED.SIFRE8,
       ENSON_SIFRETAR = INSERTED.ENSON_SIFRETAR,
       ENSON_SIFRESAAT = INSERTED.ENSON_SIFRESAAT,
       MAX_SIFRE_TAR = INSERTED.MAX_SIFRE_TAR,
       SIFRE_DEGIS = INSERTED.SIFRE_DEGIS,
       DUZELTMETARIHI = INSERTED.DUZELTMETARIHI,

       YENIYONTEM = INSERTED.YENIYONTEM
   FROM INSERTED
   WHERE TBLKULLANP.KULLANICI_NO = INSERTED.KULLANICI_NO
   AND TBLKULLANP.SUBE_KODU <> 0

ERP Nedir? | Türkiye'nin ERP Forum Platformu : Bir Ka� G�zel Sql

Bir Ka� G�zel Sql : TESEKKÜRLER...

Bir Ka� G�zel Sql : /** Merhaba Kolay Gelsin; Isinize...