Sayfayı Yazdır | Pencereyi Kapat

191 ve 391 tarih aralikli veri çekme

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Temel Paketler
Forum Adı: ERP Muhasebe Modülü
Forum Tanımlaması: Muhasebe Modülü İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=4516
Tarih: 25 Kasım 2024 Saat 03:12
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com


Konu: 191 ve 391 tarih aralikli veri çekme
Mesajı Yazan: dbicer83
Konu: 191 ve 391 tarih aralikli veri çekme
Mesaj Tarihi: 25 Temmuz 2017 Saat 17:49
Merhaba,
SQL üzerinden tarih aralı belirterek (01/07/2017-31/07/2017) aşağıdaki rakamları çekmek istiyorum.
Nasıl bir kod yazmalı teşekkürler.

Devir Kdv
İndirilecek KDV
Hesaplanan KDV
Ödenecek KDV
Devir KDV



Cevaplar:
Mesajı Yazan: mbaykan
Mesaj Tarihi: 26 Temmuz 2017 Saat 06:18
where hesap_kodu like '[13]91-%'and tarih between '2017-07-01' and '2017-07-31'

-------------
Mehmet Baykan


Mesajı Yazan: dbicer83
Mesaj Tarihi: 26 Temmuz 2017 Saat 08:16
çalıştırdığımda yapamadım.
görmek istediğim
Bir önceki ayın kdv devri / tarih aralığının indiirlecek kdv ve hesaplanan kdv si sonuca göre devir yada çıkacak kdv miktarını görmek istiyorum.
tşk.

Devir Kdv
İndirilecek KDV
Hesaplanan KDV
Ödenecek KDV
Devir KDV


Mesajı Yazan: dbicer83
Mesaj Tarihi: 27 Temmuz 2017 Saat 22:59
Varmı yardımcı olabilecek


Mesajı Yazan: dbicer83
Mesaj Tarihi: 31 Temmuz 2017 Saat 16:27
konuyla ilgili fikri olan varmı?
teşekkürler.



Mesajı Yazan: dbicer83
Mesaj Tarihi: 03 Ağustos 2017 Saat 22:29
Destek olabilecek çıkarsa çok memnun olurum konu benim için çok önemli.
Teşekkürler.



Mesajı Yazan: Conari
Mesaj Tarihi: 08 Ağustos 2017 Saat 13:54
bir kaç sorguyu UNION ile birleştirmelisiniz.
Devir KDV iligli tarih aralığında olmaz. vs..


-------------
Netsisden vazgeçemiyorum. Beni engelliyor..


Mesajı Yazan: dbicer83
Mesaj Tarihi: 08 Ağustos 2017 Saat 13:59
Devir olmadan yapabilir miyiz peki.
Deviri manuel takip yaparsam .


Mesajı Yazan: Conari
Mesaj Tarihi: 08 Ağustos 2017 Saat 14:11
SQL den dönen sorgu nerede kullanılacak, daha farklı veya mantıklı çözümler gelebilir.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..


Mesajı Yazan: dbicer83
Mesaj Tarihi: 08 Ağustos 2017 Saat 14:15
Orjinalini yazan: Conari Conari Yazdı:

SQL den dönen sorgu nerede kullanılacak, daha farklı veya mantıklı çözümler gelebilir.
Şirket sayısı fazla olması nedeniyle ilgili ayın KDV takibini yapmak için.
SQL kodu yardımcı olabilirseniz Excele çekmek istiyorum.
Teşekkürler.


Mesajı Yazan: Conari
Mesaj Tarihi: 08 Ağustos 2017 Saat 16:57
Excele ne ile çekeceksiniz VBA, Extend, dış veri al??

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..


Mesajı Yazan: dbicer83
Mesaj Tarihi: 08 Ağustos 2017 Saat 16:59
Vba


Mesajı Yazan: Conari
Mesaj Tarihi: 08 Ağustos 2017 Saat 17:20
VBA ile çekecekseniz  Hesap kodları sabit, Ay kodunu SQL e excel hücrelerinden birinden parametre ile gönderin, veya nasıl bir taslak oluşturdunuz paylaşın, onun üstünden gidelim, SQL cümleleri basit.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..


Mesajı Yazan: dbicer83
Mesaj Tarihi: 08 Ağustos 2017 Saat 17:32
Burada kullandığım bir dosya var ama kasa ve dekonttan yapılan işlemleri dahil etmiyor. Mizan ile kontrol ettiğimde rakamlar tutmuyor.

http://dosya.co/du2g9oe2quwp/KDV.rar.html


Mesajı Yazan: mbaykan
Mesaj Tarihi: 08 Ağustos 2017 Saat 18:30
ben aşağıdaki View'ı oluşturup dış veri ile Özet Tablo yapıyorum
Özet Tablo için AY Filtre'ye, FT satırlara, BA sütunlara, MATRAH,KDV ve TUTAR değerler'e konuyor.

CREATE VIEW [dbo].[MY_KDV] AS 
--ALIS/SATIS FT.IADE ALIS/IADE SATIS FT
SELECT CONVERT(VARCHAR(5),TARIH,2) AY,CASE WHEN TIPI <> 4 THEN
    CASE FTIRSIP 
WHEN '1' THEN CASE WHEN C.STOK_KODU NOT LIKE 'HIZ%' THEN 'SFT' ELSE 'SF2' END
WHEN '2' THEN CASE WHEN C.STOK_KODU NOT LIKE 'HIZ%' THEN 'AFT' ELSE 'AF2' END
WHEN '3' THEN 'SIR'
WHEN '4' THEN 'AIR' 
ELSE FTIRSIP END 
ELSE CASE FTIRSIP 
WHEN '1' THEN 'A-FT'
WHEN '2' THEN 'S-FT' 
WHEN '3' THEN 'A-IR'
WHEN '4' THEN 'S-IR' 
ELSE FTIRSIP END 
END FT,
CASE WHEN FTIRSIP LIKE '[24]' THEN 'B' ELSE 'A' END BA, 
--(GENELTOPLAM - KDV) MATRAH,KDV,CASE WHEN FTIRSIP LIKE '[24]' THEN KDV ELSE -KDV END KDV1,GENELTOPLAM TUTAR,
SUM(ROUND(ABS(STHAR_NF) * (CASE WHEN STHAR_GCMIK=0 THEN 1 ELSE STHAR_GCMIK END),2)) MATRAH,
SUM(ROUND(ABS(STHAR_NF) * STHAR_KDV/100 * (CASE WHEN STHAR_GCMIK=0 THEN 1 ELSE STHAR_GCMIK END),2)) KDV,
CASE WHEN FTIRSIP LIKE '[24]' THEN SUM(ROUND(ABS(STHAR_NF) * STHAR_KDV/100 * (CASE WHEN STHAR_GCMIK=0 THEN 1 ELSE STHAR_GCMIK END),2)) 
ELSE SUM(-1 * ROUND(ABS(STHAR_NF) * STHAR_KDV/100 * (CASE WHEN STHAR_GCMIK=0 THEN 1 ELSE STHAR_GCMIK END),2)) END KDV1,
SUM(ROUND(ABS(STHAR_NF) * (1+STHAR_KDV/100) * (CASE WHEN STHAR_GCMIK=0 THEN 1 ELSE STHAR_GCMIK END),2)) TUTAR,
TARIH,FATIRS_NO,CARI_ISIM
FROM TBLFATUIRS A
JOIN TBLCASABIT B ON A.CARI_KODU=B.CARI_KOD
JOIN TBLSTHAR C ON A.FTIRSIP=C.STHAR_FTIRSIP AND A.FATIRS_NO=C.FISNO AND A.CARI_KODU=C.STHAR_ACIKLAMA
WHERE FTIRSIP LIKE '[1-4]' AND /*KDV > 0 and*/ ISNULL(A.ACIKLAMA,'') <> '-KDV' AND C.STHAR_HTUR<>'N'
GROUP BY A.FTIRSIP,CONVERT(VARCHAR(5),TARIH,2),CASE WHEN TIPI <> 4 THEN
    CASE FTIRSIP 
WHEN '1' THEN CASE WHEN C.STOK_KODU NOT LIKE 'HIZ%' THEN 'SFT' ELSE 'SF2' END
WHEN '2' THEN CASE WHEN C.STOK_KODU NOT LIKE 'HIZ%' THEN 'AFT' ELSE 'AF2' END
WHEN '3' THEN 'SIR'
WHEN '4' THEN 'AIR' 
ELSE FTIRSIP END 
ELSE CASE FTIRSIP 
WHEN '1' THEN 'A-FT'
WHEN '2' THEN 'S-FT' 
WHEN '3' THEN 'A-IR'
WHEN '4' THEN 'S-IR' 
ELSE FTIRSIP END 
END,
CASE WHEN FTIRSIP LIKE '[24]' THEN 'B' ELSE 'A' END,TARIH,FATIRS_NO,CARI_ISIM
--ALISTA FAT_ALTM1 <> 0 OLANLAR
UNION ALL
SELECT CONVERT(VARCHAR(5),TARIH,2) AY,CASE WHEN TIPI <> 4 THEN
    CASE FTIRSIP 
WHEN 1 THEN 'SFT' 
WHEN 2 THEN 'AFT' 
WHEN 3 THEN 'SIR'
WHEN 4 THEN 'AIR' 
ELSE '' END 
ELSE CASE FTIRSIP 
WHEN 1 THEN 'A-FT'
WHEN 2 THEN 'S-FT' 
WHEN 3 THEN 'A-IR'
WHEN 4 THEN 'S-IR' 
ELSE '' END 
END FT,
CASE WHEN FTIRSIP LIKE '[24]' THEN 'B' ELSE 'A' END BA, 
--(GENELTOPLAM - KDV) MATRAH,KDV,CASE WHEN FTIRSIP LIKE '[24]' THEN KDV ELSE -KDV END KDV1,GENELTOPLAM TUTAR,
FAT_ALTM1 MATRAH, ROUND(FAT_ALTM1*0.18,2) KDV, CASE WHEN FTIRSIP LIKE '[24]' THEN ROUND(FAT_ALTM1*0.18,2) ELSE -ROUND(FAT_ALTM1*0.18,2) END KDV1, FAT_ALTM1 + ROUND(FAT_ALTM1*0.18,2) TUTAR,
TARIH,FATIRS_NO,CARI_ISIM
FROM TBLFATUIRS A
JOIN TBLCASABIT B ON A.CARI_KODU=B.CARI_KOD
WHERE FTIRSIP='2' AND KDV > 0 and ISNULL(A.ACIKLAMA,'') <> '-KDV' AND FAT_ALTM1 <> 0
--DEKONTLAR
UNION ALL
SELECT CONVERT(VARCHAR(5),TARIH,2),'MAS','B',
CASE WHEN YEDEK3 > 0 THEN TUTAR ELSE ROUND(TUTAR/(KDV_ORAN)*100,2) END, --MATRAH
CASE WHEN YEDEK3 > 0 THEN YEDEK3 ELSE TUTAR END, CASE WHEN YEDEK3 > 0 THEN YEDEK3 ELSE TUTAR END, --KDV
(CASE WHEN YEDEK3 > 0 THEN TUTAR ELSE ROUND(TUTAR/(KDV_ORAN)*100,2) END) + (CASE WHEN YEDEK3 > 0 THEN YEDEK3 ELSE TUTAR END),
--TUTAR,YEDEK3,YEDEK3,TUTAR + YEDEK3,
TARIH,FISNO,SERI_NO+'-'+CONVERT(VARCHAR(10),DEKONT_NO) + ' '+ COALESCE(SUBSTRING(ACIKLAMA2,5,50),SUBSTRING(ACIKLAMA1,LEN(SERI_NO+'/'+CAST(DEKONT_NO AS VARCHAR))+2,50))
FROM TBLDEKOTRA
WHERE  KDV_ORAN > 0 and B_A='B' AND SERI_NO<>'FT' AND ISNULL(GENEL_KDV,'')<>'G'
UNION ALL
SELECT CONVERT(VARCHAR(5),TARIH,2),'MAS','B',
CASE WHEN YEDEK3 > 0 THEN TUTAR ELSE ROUND(TUTAR/(KDV_ORAN)*100,2) END, --MATRAH
CASE WHEN YEDEK3 > 0 THEN YEDEK3 ELSE TUTAR END, CASE WHEN YEDEK3 > 0 THEN YEDEK3 ELSE TUTAR END, --KDV
(CASE WHEN YEDEK3 > 0 THEN TUTAR ELSE ROUND(TUTAR/(KDV_ORAN)*100,2) END) + (CASE WHEN YEDEK3 > 0 THEN YEDEK3 ELSE TUTAR END),
--TUTAR,YEDEK3,YEDEK3,TUTAR + YEDEK3,
TARIH,FISNO, SERI_NO+'-'+CONVERT(VARCHAR(10),DEKONT_NO)+' '+COALESCE(SUBSTRING(ACIKLAMA2,5,50),SUBSTRING(ACIKLAMA1,LEN(SERI_NO+'/'+CAST(DEKONT_NO AS VARCHAR))+2,50))
FROM TBLDEKOTRA
WHERE  KDV_ORAN > 0 and B_A='B' AND SERI_NO='FT' AND GENEL_KDV='K'

--KASA
UNION ALL
SELECT CONVERT(VARCHAR(5),TARIH,2),'MAS',CASE WHEN IO='C' THEN 'B' ELSE 'A' END,
ROUND(YEDEK5/(KDV_ORAN)*100,2),YEDEK5,CASE WHEN IO='C' THEN YEDEK5 ELSE -YEDEK5 END,
ROUND(YEDEK5/(KDV_ORAN)*100,2)+YEDEK5,TARIH,FISNO,
'KS'+RIGHT(KSMAS_KOD,1)+'-'+FISNO +' '+ SUBSTRING(ACIKLAMA,PATINDEX('%/%',ACIKLAMA)+1,100)
FROM TBLKASA
WHERE YEDEK5>0
--MY_KDV ORDER BY AY,FT,BA DESC,FATIRS_NO,CARI_ISIM


GO

devir için bu view'ı sorguda kullanan başka bir dış veri al sayfası hazırlıyorum

;WITH CTE_T AS (
SELECT AY,SUM(CASE WHEN BA='A' THEN KDV ELSE -KDV END) TOPLAM
FROM MY_KDV
WHERE FT NOT LIKE '_IR'
GROUP BY AY
SELECT CONVERT(VARCHAR(5),CONVERT(NUMERIC(6,2),AY)+0.01) AY,TOPLAM
FROM CTE_T
-- Yorumlanan sorgu Muhasebe'den devir rakamını alır
--UNION ALL
--SELECT (SELECT RIGHT(SIRKETYILI,2) FROM NETSIS..SIRKETLER30 WHERE SIRKET=DB_NAME())+'.01' AS AY,BOAY_TUT1 AS TOPLAM
--from TBLMUPLANSUBE WHERE HESAP_KODU='190-01-001' AND SUBE_KODU=0

-- Manuel Devir girişi
UNION ALL
SELECT '17.01',0.0 --bu sayı geçen yıldan alacak devreden KDV'yi manuel yazdığım yer (-) negatif olarak
ORDER BY AY

Özet tablo sayfasında
Devreden . Formülü Devirler sayfasından düşeyara fonksiyonu yardımı ile Filtrelenen AY değeri ile
Aylık . Formülü =GETPIVOTDATA("Toplam KDV";$A$5;"BA";"A")-GETPIVOTDATA("Toplam KDV";$A$5;"BA";"B") (ingilizce office kulladığımdan türkçe fonksiyonunu bilmiyorum)
Sonuç (Devir/Ödenecek) . Formülü Devreden + Aylık

Bu kadar ....
yazdıklarım özetle, bir view yaratmak.
bu view ile özet tablo yapmak.
yeni bir sayfada; view'dan yararlanıp, dışveri al ile tablo oluştur. (aylık devir rakamlarını hesaplamak için.) bu Tabloda yürüyen toplam ile devir rakamlarını hesaplarsınız.
bu sütundaki veriyi düşeyara ile Özettablo sayfasında gösterdim.



-------------
Mehmet Baykan


Mesajı Yazan: dbicer83
Mesaj Tarihi: 08 Ağustos 2017 Saat 19:48
Mehmet Bey,
ilginizden dolayı çok teşekkürler.
Fakat kodları çalıştırmak istediğimde hata alıyorum. 
Örnek dosya ekleneniz mümkün olur mu?
Teşekkürler.



Mesajı Yazan: mbaykan
Mesaj Tarihi: 08 Ağustos 2017 Saat 21:40
create ile başlayan, go ile biten
kısmı ben test ettim. SORUNSUZ çalıştı.

siz hata aldığınız satırlar KDV_ORAN isimli sütunu işaret ediyor. Bu şirket'te DBUPDATE yapın (TBLDEKOTRA tablosunda KDV_ORAN isimli kolon olmalı)



-------------
Mehmet Baykan


Mesajı Yazan: dbicer83
Mesaj Tarihi: 09 Ağustos 2017 Saat 08:56
VİEW oluşturuldu. Excel özet tablo örneğini eklemeniz mümkün olur mu?
Dosyayı yapamadım.
Teşekkürler.



Mesajı Yazan: mbaykan
Mesaj Tarihi: 09 Ağustos 2017 Saat 09:32
biraz saygı,
Google da dışveri al ve özet tablo için küçük bir araştırma yap, dosyaya mosyaya gerek kalmaz
Armut'u pişirdim ama ağzına düşmeyecek..Tongue bekleme



-------------
Mehmet Baykan


Mesajı Yazan: mbaykan
Mesaj Tarihi: 09 Ağustos 2017 Saat 09:34
google dan dışverial ve özet tablo ile bir araştırıversen....



-------------
Mehmet Baykan


Mesajı Yazan: Conari
Mesaj Tarihi: 09 Ağustos 2017 Saat 16:41
Orjinalini yazan: mbaykan mbaykan Yazdı:

biraz saygı,
Google da dışveri al ve özet tablo için küçük bir araştırma yap, dosyaya mosyaya gerek kalmaz
Armut'u pişirdim ama ağzına düşmeyecek..Tongue bekleme

Hocam eline sağlık..


-------------
Netsisden vazgeçemiyorum. Beni engelliyor..


Mesajı Yazan: dbicer83
Mesaj Tarihi: 09 Ağustos 2017 Saat 22:49
Üslüp olarak size saygısızlığım olmamıştır. Bilmemek öğrenmeye çalışmak ayrıca yapamamak da kabahat olmamalıdır. Sizlere işimi yaptırma gibi bir anlayışımda yok. Burası forum ortamı soru cevap olmayacaksa soru da sormam sorun değil. Vermiş olduğum rahatsızlıktan dolayı kusura bakmayın. Bir daha soru sormayız sizlerede zahmet vermemiş oluruz.



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 11.10 - http://www.webwizforums.com
Copyright ©2001-2017 Web Wiz Ltd. - https://www.webwiz.net