Orana Göre Dağılım Yapma
#1
access-sql-7 
Merhabalar,

Bu işlemle yapmak istediğim bir faturayı üç ayrı firmaya oransal olarak bölmek.

Ekte data adlı veritabanında yapılan kayıtlar var.

Bu data klasöründe;
Genel giderler
Gider oranları
Olmak üzere iki adet tablo var yapmak istediğim şey şu;

Genel giderler tablosuna yapılan kayıtları oranlar tablosundaki oranlarla karşılaştırıp fatura numarasına göre oranlara bölünmesi. (Oranlar Firma_a Firma_b Firma_c diye üç firmaya bölünmüştür. Oranlara bakarak firmalara bölmesi.)

Bu benim izlemek istedeğim yol fakat sizin fikirleriniz doğrultusunda değişik yöntemlerlede yapabiliriz.,

İlginiz için şimdiden teşekkür ederim.


Eklenti Dosyaları
.rar   Data.rar (Boyut: 42,09 KB / İndirilme: 38)



  Alıntı
Bu mesajı beğenenler:
#2
Sayın Unalh yapılacak işlemin sonucu hakkında bilgi vermediğiniz için form üzerine bir uygulama ile gösterdim kayıtları değiştirerek kullanabilirsiniz iyi çalışmlar


Eklenti Dosyaları
.rar   adnData.rar (Boyut: 49,34 KB / İndirilme: 45)
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#3
Adnan bey ilginiz için teşekkürler.

Haklısınız sonucun nasıl alınacağına dair bir bilgi vermemişim.

Sonucu sorgu şeklinde almam gerekiyor.
Aşağıda yaptığım bir sorgu var sizin kodları bu sorgu içersinde yazabilirseniz çok sevinirim.
Burada dikkat edilmesi gereken Gider oranları tablosunda olan kayıtları baz alarak listeleme yapacak.


SQL
  1. SELECT GIDER_ORANLARI.ID, GIDER_ORANLARI.ABONE_ISMI,
  2. GIDER_ORANLARI.ABONE_NO, GENEL_GIDERLER.FAT_NO,
  3. GENEL_GIDERLER.FAT_TARIHI, GENEL_GIDERLER.AY, GENEL_GIDERLER.YIL, GIDER_ORANLARI.FIRMA_1, TUTAR_1,
  4. GIDER_ORANLARI.FIRMA_2, TUTAR_2, GIDER_ORANLARI.FIRMA_3,
  5. TUTAR_3 INTO GENEL_GIDERLER
  6. FROM GIDER_ORANLARI, GENEL_GIDERLER;



Visual Basic
  1. Dim ilkfirmaOranı, ikifirmaOranı, sonfirmaOranı As Double
  2. ilkfirmaOranı = DLookup("ORAN_1", "GIDER_ORANLARI", "ABONE_ISMI='" & ABONE_ISMI & "'")
  3. Debug.Print ilkfirmaOranı
  4. ikifirmaOranı = DLookup("ORAN_2", "GIDER_ORANLARI", "ABONE_ISMI='" & ABONE_ISMI & "'")
  5. sonfirmaOranı = DLookup("ORAN_3", "GIDER_ORANLARI", "ABONE_ISMI='" & ABONE_ISMI & "'")
  6. Metin17 = (TUTAR_KDVLI * ilkfirmaOranı) / 100
  7. Metin19 = (TUTAR_KDVLI * ikifirmaOranı) / 100
  8. Metin21 = (TUTAR_KDVLI * sonfirmaOranı) / 100






  Alıntı
Bu mesajı beğenenler:
#4
sorgunuzu aşağıdaki şekilde yapın
SQL
  1. SELECT GIDER_ORANLARI.ID, GIDER_ORANLARI.ABONE_ISMI, GIDER_ORANLARI.ABONE_NO,
  2. GENEL_GIDERLER.FAT_NO, GENEL_GIDERLER.FAT_TARIHI, GENEL_GIDERLER.AY, GENEL_GIDERLER.YIL,
  3. GIDER_ORANLARI.FIRMA_1, ([TUTAR_KDVLI]/[ORAN_1])/100 AS TUTAR_1, GIDER_ORANLARI.FIRMA_2,
  4. ([TUTAR_KDVLI]/[ORAN_2])/100 AS TUTAR_2, GIDER_ORANLARI.FIRMA_3,
  5. ([TUTAR_KDVLI]/[ORAN_3])/100 AS TUTAR_3, GIDER_ORANLARI.ORAN_1, GIDER_ORANLARI.ORAN_2,
  6. GIDER_ORANLARI.ORAN_3
  7. FROM GENEL_GIDERLER LEFT JOIN GIDER_ORANLARI ON GENEL_GIDERLER.ABONE_NO = GIDER_ORANLARI.ABONE_NO;


Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#5
Hocam cevabınız için çok teşekkür ederim.

Küçük bir ayrıntı / ile değil * ile yaparsak tam istediğimiz sonucu veriyor.

SQL
  1. ([TUTAR_KDVLI]*[ORAN_1])/100



İlginize teşekkürler.

Hayırlı işler.





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Tablolar Arası Dağılım benuva 1 196 09-02-2024, 00:56
Son Mesaj: halily
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 140 10-11-2023, 13:22
Son Mesaj: yahyamacit
  Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. OGUZTURKYILMAZ 1 161 22-04-2023, 23:48
Son Mesaj: OGUZTURKYILMAZ
  [FORM] Forum Kapandığında Otomatik Tablo Yapma Sorgusunun çalışması Ahmet51 5 217 07-11-2022, 18:58
Son Mesaj: alperalper
  [TABLO] Döviz Cinsine Göre Tablo Yapma blumanx 9 437 08-03-2022, 21:56
Son Mesaj: blumanx
  Im Değerine Göre - Tag Değerine Göre Işlem Yapma alikagan 5 340 09-12-2021, 09:06
Son Mesaj: halily
  [FORM] Ana Menü Oluşturma Ve Iç Içe Formlar Yapma.... rerdem1903 2 415 19-11-2021, 13:26
Son Mesaj: rerdem1903
  Sosyal Medyalarda Paylaşım Yapma adnnfrm 3 252 20-10-2021, 15:52
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi