Bir Kaç Güzel Sql


   /**
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

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
aykyazilim Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 02 Nisan 2008 Konum: İzmir Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı aykyazilim Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Bir Kaç Güzel Sql 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

NETSYS Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 30 Ekim 2007 Durum: Aktif Değil Puanlar: 3	Mesaj Seçenekleri Yanıt Yaz Alıntı NETSYS Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Ekim 2008 Saat 11:25
	TESEKKÜRLER...