Kaynak: KB-v1
08_SupportPlaybooks/Processes/PROC-115.md←Surecler/*.doc(destek süreç dokümanı; parola/IP/terminal maskelenmiş). Gerçeklik: DOCUMENTED — kodla doğrulanmış değil.
ERP FATURA BİLGİLERİ
Kimlik: PROC-115 · Ürün: ERPGOLDV2 · Kategori: Fatura, e-belge ve resmi işlemler · Katalog: ERP Fatura Bilgileri
Kaynak: AifaSoft destek süreç dokümanı (Word). Şifre, kullanıcı adı, terminal no ve IP bilgileri kaynak aşamasında maskelenmiştir; görseller resimli süreç kitabındadır.
Doküman TipiERPGOLDV2Doküman NoHazırlayanCihan Burak TurgutYayın Tarihi21.09.2021Revize YapanMert Berke SEZERRevizyon Tarihi06.05.2022
1) İsim Beyan Edilmemiştir Cari Hesabı' ndan işlem yapıldığında müşteri İsim Soyisim ve TC No bilgilerinin girişinin yapılması gerektiği zamanlarda aşağıdaki görseldeki alanlar doldurulmalıdır.
-
Unvan alanında yazan "İsim Beyan Edilmemiştir" silip, müşterinin Ad ve Soyad bilgisini giriniz.
-
VKN alanına müşterinin TCNo bilgisini giriniz.
(görsel — süreç kitabında)
ALTER View [Cari].[FaturaBilgileri]
as
---------- ÖNEMLİ ! ----------
-- BSMVTipi 0 ise BSMV DIŞINDA
-- BSMVTipi 1 ise BSMV İÇİNDE
------------------------------
Select
I.IslemKodu,
I.IslemTipi,
I.KasaId,
IslemId,
Yon,
IsNull(D.FaturaUnvan,H.HesapAdi) as HesapAdi,
IsNull(D.FaturaAdres,H.Adres) as Adres,
IsNull(D.FaturaIl,H.Il) as Il,
IsNull(D.FaturaIlce,H.Ilce) as Ilce,
H.Telefon1,
I.Tarih,
--I.Vade as Tarih, -- //Eğer Faturanın üzerine vade tarihinin basılması isteniyorsa//
Isnull(D.FaturaVergiDairesi,
Case When H.VergiNo \<>'' Then H.VergiDairesi When TCNo \<>'' Then '' When PassaportNo \<>'' Then '' End) as VergiDairesi,
IsNull(D.FaturaVergiNo,Case When H.VergiNo \<>'' Then H.VergiNo When TCNo \<>'' Then H.TCNo When PassaportNo \<>'' Then H.PassaportNo End) as VergiNo,
Left(KS.Kodu,1) + Case When Yon ='+' Then 'A' Else 'S' End + '/' + D.RefNo + '-' + CONVERT(nvarchar(max),KasaId) as Refno,
D.SiraNo,
FaturaSeri as Seri,
FaturaNo [No],
IsNull(D.FaturaSeri ,'') + '-' + convert(nvarchar(max), D.FaturaNo) as FaturaNo,
Case When Yon ='+' Then 'Alış Faturası' Else 'Satış Faturası' End as Islem ,
Fn.GetIstatistikKodu(H.HesapTuru,H.HukukiKod,IslemKodu,IslemTuru,IslemTipi, IsNull(I.IsArbitiraj,0)) as Istatistik,
I.Kodu,
Case When IslemKodu=2 Then M.Aciklama When IslemKodu=6 Then V.Aciklama Else I.Kodu End as Aciklama,
Miktar,
I.SubeId,
I.Birim,
I.Tutar,
Case When Left(I.Kodu,3) ='USD' then Miktar When Birim ='USD' Then Tutar Else FN.Bol ( (Miktar*Fiyat) * BirimKur ,UsdKur) end as USDTutar,
Case When I.IslemKodu =1 And (IslemTipi =1 or IslemTipi =11) Then (I.FaturaIscilikTL *Adet) Else 0 end as Iscilik,
Case When I.IslemKodu =1 And (IslemTipi =1 or IslemTipi =11) Then (I.FaturaIscilikTL * Adet) * 0.18 Else 0 end as Kdv,
Case When I.IslemKodu =1 And (IslemTipi =1 or IslemTipi =11) Then Tutar - (I.FaturaIscilikTL *Adet) * 0.18 Else 0 end as KdvHaricTutar,
dbo.YaziIle(Tutar,1) as YaziIle ,
Case When SS.BSMVTipi=0 Then I.Fiyat Else (Case When (H.HesapTuru in (0,3) and Isnull(H.HukukiKod,'')='') and I.Yon='-' and IslemKodu\<>2 Then Fn.bol(I.Fiyat,(1+(Sistem.BSMVHesapla(I.Tarih,I.Tutar)/I.Tutar))) Else I.Fiyat end) end as Fiyat,
Case When SS.BSMVTipi=0 Then I.BSMV Else (Case When (H.HesapTuru in (0,3) and Isnull(H.HukukiKod,'')='') and I.Yon='-' and IslemKodu\<>2 Then Sistem.BSMVHesapla(I.Tarih,I.Tutar) Else 0 end) end as BSMV,
Case When SS.BSMVTipi=0 Then Tutar-I.BSMV Else (Case When (H.HesapTuru in (0,3) and Isnull(H.HukukiKod,'')='') and I.Yon='-' and IslemKodu\<>2 Then Miktar*Fn.bol(I.Fiyat,(1+(Sistem.BSMVHesapla(I.Tarih,I.Tutar)/I.Tutar))) Else Tutar end) end as BSMVHaricTutar
from Cari.Islemler I with (nolock)
Left Join Cari.IslemDetaylari D on I.Id =D.IslemId
Left Join Cari.Hesaplar H on H.Id =I.HesapId
Left Join Cari.Kartlar K on K.Id =H.KartId
Left Join Sistem.Vadeli V on V.Id=I.StokId
Left Join Stok.Maden M on M.Id=I.StokId
Left Join Sistem.Kasalar KS on KS.Id=I.KasaId
Left Join Sistem.Settings SS on SS.OnsCarpan=H.OnsCarpan
Where I.IsDeleted ='False'
GO
Kaynaklar
- SRC-PROC-DOC — süreç dokümanı #115