SQL Veri Tabanı İşlemleri - Bir Kaç Güzel Sql

Bir Kaç Güzel Sql

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: SQL
Forum Adı: SQL Veri Tabanı İşlemleri
Forum Tanımlaması: Table,View,Trigger,SELECT,UPDATE,INSERT...
URL: http://www.erpne.org/forum_posts.asp?TID=1140
Tarih: 23 Kasım 2024 Saat 13:29
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Bir Kaç Güzel Sql

Mesajı Yazan: aykyazilim
Konu: Bir Kaç Güzel Sql
Mesaj Tarihi: 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

Cevaplar:

Mesajı Yazan: NETSYS
Mesaj Tarihi: 04 Ekim 2008 Saat 11:25

TESEKKÜRLER...