Taksitli Satış Programında Şubat ayı sorunu

mehmetdemiral · 12 Ekim 2007

Konuya isterseniz burdan devam edelim.
ÖZET:
Taksitli satış programında Modalı'nın verdiği kodları uyguladım. Fakat aslında bir şey değişmedi.. Benim kodlar şöyle idi:

subat = yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0)
Select Case ay
Case 2
If subat Then gün = 29 Else gün = 28
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select

Buna karşılık sayın Modalı bana aşağıdaki kodları önermişti:

Select Case ay
Case 2
If yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0) Then
gün = 29
Else
gün = 28
End If
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select

Bu kodları diğerlerinin yerine uygulamam sonucu çok fazla değiştirmedi. Yine Şubat ayına kadar olan taksitler ilk girdiğim tarihte oluşuyor ama şubat ayından itibaren bir sapma oluşuyor ve mesela 01.01.2008 den başlattığım 1000 YTL lik 20 taksitin dökümü şöyle oluyor:

TAKSİT NO İŞLEM TARİHİ ÖDEME TARİHİ MİKTAR P.BİRİMİ
1. TAKSİT 12.10.2007 01.01.2008 50 YTL
2. TAKSİT 12.10.2007 30.01.2008 50 YTL
3. TAKSİT 12.10.2007 28.02.2008 50 YTL
4. TAKSİT 12.10.2007 30.03.2008 50 YTL
5. TAKSİT 12.10.2007 29.04.2008 50 YTL
6. TAKSİT 12.10.2007 30.05.2008 50 YTL
7. TAKSİT 12.10.2007 29.06.2008 50 YTL
8. TAKSİT 12.10.2007 30.07.2008 50 YTL
9. TAKSİT 12.10.2007 29.08.2008 50 YTL
10. TAKSİT 12.10.2007 29.09.2008 50 YTL
11. TAKSİT 12.10.2007 29.10.2008 50 YTL
12. TAKSİT 12.10.2007 29.11.2008 50 YTL
13. TAKSİT 12.10.2007 29.12.2008 50 YTL
14. TAKSİT 12.10.2007 29.01.2009 50 YTL
15. TAKSİT 12.10.2007 26.02.2009 50 YTL
16. TAKSİT 12.10.2007 29.03.2009 50 YTL
17. TAKSİT 12.10.2007 28.04.2009 50 YTL
18. TAKSİT 12.10.2007 29.05.2009 50 YTL
19. TAKSİT 12.10.2007 28.06.2009 50 YTL
20. TAKSİT 12.10.2007 29.07.2009 50 YTL

Dikkat ederseniz 01.01.2008 de ilk taksit 30.01.2008 de ikinci taksit 28.02.2008 de 3. taksit ve sonrası artık ayın 1'i değil 29 veya 30'una dönüyor. Başlangıç ayında da 2 taksit oluşuyor.

yeni54 · 12 Ekim 2007

Konuyu hiç takip etmediğim için, şimdi soracağım sorunun cevabı belki öncekiler içinde vardır. Hatalı taksit listesini vermişsin. Doğrusunu da verir misin?

Şundan dolayı tarih şu olmalı şeklinde minik açıklamalarla.

modalı · 12 Ekim 2007

Sayın mehmetdemiral,

Yukarıdaki kodları ben yazmıştım. Hatalı olarak gönderdiğiniz kısım artık yılların Şubat aylarını 29 yapmaya yarıyor. Taksitlendirmeyle bir ilişkisi yok. Yalnız bir şey dikkatimi çekti aylar da hata var şöyle değiştirip bir deneyin:

Kod:

Select Case ay
Case 2
If yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0) Then 
gün = 29 
Else 
gün = 28
End If
Case 4, 6, 9, 11
gün = 30
Case 1, 3, 5, 7, 8, 12
gün = 31
End Select

mehmetdemiral · 13 Ekim 2007

Sayın MOdalı . Yukardaki kodları kullanarak işlem yaptım. O zaman da şöyle bir sonuç çıktı. Çok saçma ama bir bakın:

1. TAKSİT 13.10.2007 01.01.2008 50 YTL
2. TAKSİT 13.10.2007 30.01.2008 50 YTL
3. TAKSİT 13.10.2007 28.02.2008 50 YTL
4. TAKSİT 13.10.2007 30.03.2008 50 YTL
5. TAKSİT 13.10.2007 29.04.2008 50 YTL
6. TAKSİT 13.10.2007 30.05.2008 50 YTL
7. TAKSİT 13.10.2007 29.06.2008 50 YTL
8. TAKSİT 13.10.2007 30.07.2008 50 YTL
9. TAKSİT 13.10.2007 30.08.2008 50 YTL
10. TAKSİT 13.10.2007 29.09.2008 50 YTL
11. TAKSİT 13.10.2007 29.09.2008 50 YTL
12. TAKSİT 13.10.2007 29.09.2008 50 YTL
13. TAKSİT 13.10.2007 29.09.2008 50 YTL
14. TAKSİT 13.10.2007 29.09.2008 50 YTL
15. TAKSİT 13.10.2007 29.09.2008 50 YTL
16. TAKSİT 13.10.2007 29.09.2008 50 YTL
17. TAKSİT 13.10.2007 29.09.2008 50 YTL
18. TAKSİT 13.10.2007 29.09.2008 50 YTL
19. TAKSİT 13.10.2007 29.09.2008 50 YTL
20. TAKSİT 13.10.2007 29.09.2008 50 YTL

Dikkat ederseniz 29.09.2008 den sonrasında tarih sabitlenmiş.. Bu da 5 aylık taksit

1. TAKSİT 13.10.2007 01.01.2008 200 YTL
2. TAKSİT 13.10.2007 30.01.2008 200 YTL
3. TAKSİT 13.10.2007 28.02.2008 200 YTL
4. TAKSİT 13.10.2007 30.03.2008 200 YTL
5. TAKSİT 13.10.2007 29.04.2008 200 YTL

Burada da tarihler saçmalıyor..

Sevgili Yeni54.. Şöyle olmalıydı:

1. TAKSİT 13.10.2007 01.01.2008 200 YTL
2. TAKSİT 13.10.2007 01.02.2008 200 YTL
3. TAKSİT 13.10.2007 01.03.2008 200 YTL
4. TAKSİT 13.10.2007 01.04.2008 200 YTL
5. TAKSİT 13.10.2007 01.05.2008 200 YTL

Eğer ŞUBAT ayının sonuna veya 30 çeken bir ayın 31'ne taksit rasgelirse tarihi kaydırması, ama diğer aylar için yine normal şekilde devam etmesi gerekmez mi? Mesela ben ayın 30'una taksit yapınca şöyle oldu:

1. TAKSİT 13.10.2007 30.01.2008 100 YTL
2. TAKSİT 13.10.2007 28.02.2008 100 YTL
3. TAKSİT 13.10.2007 30.03.2008 100 YTL
4. TAKSİT 13.10.2007 29.04.2008 100 YTL
5. TAKSİT 13.10.2007 30.05.2008 100 YTL
6. TAKSİT 13.10.2007 29.06.2008 100 YTL
7. TAKSİT 13.10.2007 30.07.2008 100 YTL
8. TAKSİT 13.10.2007 30.08.2008 100 YTL
9. TAKSİT 13.10.2007 29.09.2008 100 YTL
10. TAKSİT 13.10.2007 29.09.2008 100 YTL

Dikkat edilirse ay 31 gün sürüyorsa 30'unu ay 30 gün sürüyorsa 29'u taksit yapmış. Şubat ayı 2008'de 29 gün olduğu için onu da 28 yapmış. Halbuki sadece şubatı 29 veya 1 Mart yapması gerekmez miydi?

mehmetdemiral · 13 Ekim 2007

Ve bir şey daha... Sevgili Modalı son gönderdiğin kod 29.09.2008 i geçemiyor.

mehmetdemiral · 13 Ekim 2007

kodlarımı tekrar aşağıdaki şekle döndürdüm.

subat = yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0)
Select Case ay
Case 2
If subat Then gün = 29 Else gün = 28
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select

29.09.2008 yılıyla ilgili hata düzeldi.. Bu kodlardaki ayların sayıları yanlış ama sonuçta bunlar da aynı saçmalığı yapıyorlar. İşte bu kodlarla yaptığım taksitlendirme:

1. TAKSİT 13.10.2007 30.08.2007 50 YTL
2. TAKSİT 13.10.2007 30.09.2007 50 YTL
3. TAKSİT 13.10.2007 30.10.2007 50 YTL
4. TAKSİT 13.10.2007 30.11.2007 50 YTL
5. TAKSİT 13.10.2007 30.12.2007 50 YTL
6. TAKSİT 13.10.2007 30.01.2008 50 YTL
7. TAKSİT 13.10.2007 28.02.2008 50 YTL
8. TAKSİT 13.10.2007 30.03.2008 50 YTL
9. TAKSİT 13.10.2007 29.04.2008 50 YTL
10. TAKSİT 13.10.2007 30.05.2008 50 YTL
11. TAKSİT 13.10.2007 29.06.2008 50 YTL
12. TAKSİT 13.10.2007 30.07.2008 50 YTL
13. TAKSİT 13.10.2007 29.08.2008 50 YTL
14. TAKSİT 13.10.2007 29.09.2008 50 YTL
15. TAKSİT 13.10.2007 29.10.2008 50 YTL
16. TAKSİT 13.10.2007 29.11.2008 50 YTL
17. TAKSİT 13.10.2007 29.12.2008 50 YTL
18. TAKSİT 13.10.2007 29.01.2009 50 YTL
19. TAKSİT 13.10.2007 26.02.2009 50 YTL
20. TAKSİT 13.10.2007 29.03.2009 50 YTL

Bu arada birşey dikkatimi çekti. Ne alakası var anlayamadım ama sorguda yaptırdığım 1.TAKSİT 2.TAKSİT eklemeleri sayısal değerleri bu işlemin sonucundan alıp sonuna "TAKSİT" ifadesi ekliyor. Sizin gönderdiğiniz kodlarla çalışınca neden bilmiyorum ama 1-2-3 sıralaması değişiyor. 9 dan sonra 11 geliyor ve 10, 20 nin üstüne yerleşiyor. Neden oluyor anlamış değilim..

mehmetdemiral · 13 Ekim 2007

Sevgili Modalı.. Siz 10.ncu ayı unutmuşsunuz. Bence şöyle olmalı:

subat = yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0)
Select Case ay
Case 2
If subat Then gün = 29 Else gün = 28
Case 4, 6, 9, 11
gün = 30
Case 1, 3, 5, 7, 8, 10, 12
gün = 31
End Select

Tabii saçmalama ile ilgili çözüm bununla ilgili değil. Bu uyarı sadece 9.ncu aydan sonraki hata içindi. En azından onun sebebini buldum.

mehmetdemiral · 13 Ekim 2007

Ben en iyisi kodlarımı olduğu gibi yapıştırayım tekrar. Modalı'nın dediği gibi bu hata bu işle ilgili olmayabilir.

Private Sub Komut23_Click()
If İŞLEM_NO = TAKSİT_SAYISI Then
Komut22.SetFocus
Komut23.Visible = False
MsgBox ("TAKSİT SAYISI İŞLEM NUMARASINDAN BÜYÜK OLAMAZ..İŞLEM TAMAMLANDI. KONTROL EDEREK CARİ HESABA AKTARMAK İÇİN HESABA AKTAR TUŞUNA BASINIZ")
Else
End If
Dim gün As Integer, ay As Integer, yıl As Long
Dim Tarih As Date, subat As Boolean
Dim MÜŞTERİNO As String
Dim TAKSİTBAŞLANGICI As Date
Dim TAKSİTTUTARI As String
Dim İŞLEMNO As String
Dim TAKSİTSAYISI As String

' Gelecek ay Kaç Gün?
Tarih = Me![TAKSİT_BAŞLANGICI]
ay = Month(Tarih) + 1
yıl = Year(Tarih)
If ay > 12 Then ay = ay - 12

MÜŞTERİNO = Me![MÜŞTERİ_NO]
TAKSİTBAŞLANGICI = Me![TAKSİT_BAŞLANGICI]
TAKSİTTUTARI = Me![TAKSİT_TUTARI]
İŞLEMNO = Me![İŞLEM_NO] + 1
TAKSİTSAYISI = Me![TAKSİT_SAYISI]

Select Case ay
Case 2
If yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0) Then
gün = 29
Else
gün = 28
End If
Case 4, 6, 9, 11
gün = 30
Case 1, 3, 5, 7, 8, 10, 12
gün = 31
End Select

DoCmd.GoToRecord , , acNewRec

Me![MÜŞTERİ_NO] = MÜŞTERİNO
Me![İŞLEM_NO] = İŞLEMNO
Me![TAKSİT_BAŞLANGICI] = TAKSİTBAŞLANGICI + gün
Me![TAKSİT_TUTARI] = TAKSİTTUTARI
Me![TAKSİT_SAYISI] = TAKSİTSAYISI

yeni54 · 13 Ekim 2007

Burada amaç ne tam anlamadım.
Soru şu mu?
"Adamın 7500 YTL borcu var ve 22/07/2007 tarihi itibariyle 20 aylık taksite bağla" mı?
Eğer bu şekildeyse, dağılım nasıl oluyor?
a-) 22/07/2007 tarihinden itibaren, sürekli 30 veya 31 gün ileriki tarihlere gelecek şekilde mi tarihler elde edilecek?
b-) bu 20 taksit boyunca her ayın 22 sine gelecek şekilde mi taksitlendirilecek?
Bu soruya göre tarih dizilimini yapar mısın?

Yoksa soru başka şekilde mi?

modalı · 13 Ekim 2007

Sayın mehmetdemiral,

Bu işe kökünden bir çözüm vereyim. Baştan beri benim verdiğim cevaplar taksitlendirmeyle ilgili değildi. Verdiğiniz kodlar üzerinden düzeltmeler yaptım. Taksitlendirme şu kodla rahatça yapılır:
(Eğer bir zamanlar Gülsüm ün kod deposu uygulaması varsa içinde taksitlendirme kodu var, ondan örnek alabilirsiniz. Sayın karaayhan önceki soru başlığında kullandı bu kodu onu da inceleyebilirsiniz)

Kod:

For i=1 To taksitsayısı
tar = DateAdd("m", i, tar1)
Next i

Burada tar taksit ödeme tarihleri tar1 ise işlem tarihi DateAdd fonksiyonuda tar1 e döngü içinde otomatik olarak ay ekliyor, yani artık yıl vs önemli değil. Zaten ben o kodları izin takip ile ilgili bir konuda yazmıştım. Orada değişik bir durum vardı.

İyi çalışmalar

mehmetdemiral · 13 Ekim 2007

Sevgili Modalı.. Ben kodları nerden aldığımı bilmiyorum ama uzun zaman önce kullanmaya başladım. Yaklaşık 2 yıl önce bu kodları -nerden aldığımı hatırlamadan- kullanıyorum. O zamanlar bu siteyi kullanmıyordum. Herneyse.. Amaç bir form üzerinde müşteriye ait bir işlem yapmak. Ama benim bulduğum yol yanlış olabilir, sizin verdiğiniz yeni kodu deneyeceğim. Fakat benim oluşturduğum yapı içinde kullanmılır mı bilmiyorum. Ama bu arada diğer kodların da benim dediğim gibi çalışması gerekmez mi? +1 gün ilave mi etmemiz gerekiyor? Hata nerede sadece merak ettim..

mehmetdemiral · 13 Ekim 2007

Yeni 54.. Senin soruna da şöyle yanıt vereyim. Aynen dediğin gibi.. Adamın borcu var ve taksit yapacağız. Örneğin 1000 ytl yi 20 ay taksitlendireceğiz. Hangi gün istiyorsa o günü ilk tarih olarak yazıyoruz ve program +1 ay şeklinde taksitleri oluşturuyor. Her bir taksit üzerinde değişiklik yapma şansımız olsun diye taksitleri teker teker görebiliyoruz ve her taksiti onaylamak için enter tuşuna basıyoruz.

yeni54 · 13 Ekim 2007

mehmetdemiral' Alıntı:
Hangi gün istiyorsa o günü ilk tarih olarak yazıyoruz ve program +1 ay şeklinde taksitleri oluşturuyor.

Eğer istenilen buysa, sayın modalının 3 satırlık kodu bu işi çok güzel yapıyor.

Acaba dedim farklı birşeyler mi var anlamadığım.

Bu arada, bu otomatik tarhlendirme olayında, elde edilen tarihlerin
haftasonuna gelip gelmediği, resmi tatil günlerine gelip gelmediği de kontrol edilmeli diye düşünüyorum.

modalı · 13 Ekim 2007

Sayın mehmetdemiral,

Mesajınızdan sonra tekrar baktım kodlara. Mantıksal hata var:

Kod:

ay = Month(Tarih) + 1

satırında bir sonraki ayın kaç gün olduğunu hesaplıyor. Hata oradan oluşuyor oradaki +1 kaldırırsanız sanırım tarih oynamaları düzelecek. Çünkü önemli olan işlem tarihinin ayının son günü. Bir sonraki ayın değil.

İyi çalışmalar:hey:

mehmetdemiral · 13 Ekim 2007

Sayın Modalı.. Teşekkürler. Bu kez her ayın istenen gününe taksit yaptı fakat şöyle bir ilginç durum oldu

1. TAKSİT 13.10.2007 30.08.2007 50 YTL
2. TAKSİT 13.10.2007 30.09.2007 50 YTL
3. TAKSİT 13.10.2007 30.10.2007 50 YTL
4. TAKSİT 13.10.2007 30.11.2007 50 YTL
5. TAKSİT 13.10.2007 30.12.2007 50 YTL
6. TAKSİT 13.10.2007 30.01.2008 50 YTL
7. TAKSİT 13.10.2007 01.03.2008 50 YTL
8. TAKSİT 13.10.2007 01.04.2008 50 YTL
9. TAKSİT 13.10.2007 01.05.2008 50 YTL
10. TAKSİT 13.10.2007 01.06.2008 50 YTL
11. TAKSİT 13.10.2007 01.07.2008 50 YTL
12. TAKSİT 13.10.2007 01.08.2008 50 YTL
13. TAKSİT 13.10.2007 01.09.2008 50 YTL
14. TAKSİT 13.10.2007 01.10.2008 50 YTL
15. TAKSİT 13.10.2007 01.11.2008 50 YTL
16. TAKSİT 13.10.2007 01.12.2008 50 YTL
17. TAKSİT 13.10.2007 01.01.2009 50 YTL
18. TAKSİT 13.10.2007 01.02.2009 50 YTL
19. TAKSİT 13.10.2007 01.03.2009 50 YTL
20. TAKSİT 13.10.2007 01.04.2009 50 YTL

6 ile 7. taksit arasında şubat yok gördüğünüz gibi. 7.nci taksitte bir viraj almış ayın 1.ine kaymış taksitler ama Şubat taksitini de yemiş.

)

modalı · 13 Ekim 2007

Örneğinizi niçin yollamıyorsunuz?

En baştan yapmanız gereken di sanırım.

mehmetdemiral · 13 Ekim 2007

Çok yönlü bir programın içindeki bir birim sadece taksit tablosu. Hem boyutu çok fazla hem de o kadar ayrıntı var ki kafa karıştırır. Benim uzun zamandır üzerinde çalıştığım ve geliştirdiğim bir projenin küçük bir parçası.. Tamamını gönderdiğimde çok amatörce gelebilir size.. Eleştiriler bu kez başka yönlere kayacaktır. .. Ama sadece taksitlendirme kısmı için yeni bir örnek oluşturuyorum. Onu göndereceğim. Bu arada sadece şubat ayının 30 ve 31 tarihli taksitlerde saçmaladığını söyleyeyim. Onun dışında problem yok. ama ayın 31'ine taksit yap dediğimde

1. TAKSİT 13.10.2007 31.01.2007 100 YTL
2. TAKSİT 13.10.2007 03.03.2007 100 YTL
3. TAKSİT 13.10.2007 03.04.2007 100 YTL
4. TAKSİT 13.10.2007 03.05.2007 100 YTL
5. TAKSİT 13.10.2007 03.06.2007 100 YTL
6. TAKSİT 13.10.2007 03.07.2007 100 YTL
7. TAKSİT 13.10.2007 03.08.2007 100 YTL
8. TAKSİT 13.10.2007 03.09.2007 100 YTL
9. TAKSİT 13.10.2007 03.10.2007 100 YTL
10. TAKSİT 13.10.2007 03.11.2007 100 YTL

oluyor. Sanki bu artık yıl kodlarında bir gariplik var. Aslında bu kodlar Ayın 31'i sende yoksa o zaman 4-6-9 ve 11.nci aylar için ayın 30'u 2.nci ay için 28İ olsun denmesi mümkün değil mi? Bu kodlar aslında bunu yapmak için yazılmamış mı? Şubat'ın 4 yılda bir 29 olmasını boş verip her zaman 30 ve 31. günler için taksit oluşturulduğunda şubat ayının bu tarihi 28'e getirmesi sağlanıp diğer aylar için de yukarda dediğim gibi olması sağlanamaz mı?

modalı · 13 Ekim 2007

Sağlanır ama o kodlarda hata yok. Başka bir noktada bir terlik var.

Kod:

Select Case ay
Case 2
gün = 28
Case 4, 6, 9, 11
gün = 30
Case 1, 3, 5, 7, 8, 10, 12
gün = 31
End Select

Olarak değiştirin o zaman şubatta 28 olacak.

Ancak inceledim hata yok. 30 Ocak tan sonra 1 Martta taksit ödemede hata yok. Bir ay geçiyor sonuçta.

Siz yine de DateAdd li çözüme yönelin.

İyi çalışmalar

assenucler · 13 Ekim 2007

Sn. mehmetdemiral

iyi bayramlar. Bu konuda epey yoğunlaştınız. Tam çözüme ulaştığınızda son halini yüklermisiniz. Teşekkürler ve kolay gelsin.

mehmetdemiral · 14 Ekim 2007

Evet haklısınız. Kodda bence de bir hata yok. Benim kurduğum yapıya uyarsa DateAdd li kodlara geçmeye çalışayım en iyisi. Ama neden olmadığı ile ilgili merak oluştu bende.. O yüzden bu kadar yoğunlaştım üzerinde. Bir de hazır yapılmış ve kullanılmakta olan bir program olduğu için yapıyı tamamen değiştirmek güncellemelerde sorun yaratacak ve belki tablo yapılarını da değiştirmek gerekecek. Oysa ben programı kurduktan sonra içerisine verilen de girildiği için tabloların bulunduğu data klasörüne dokunmadan bağlı formları güncelliyorum. Böylece verilerin güncellenmesi veya yedeklenip geri alınması gerekmiyor. Sadece bir kurulum dosyası hazırlayıp kurulum klasörünün içindeki mdb dosyasını güncelliyorum. O açıdan hazır yapıyı bozmak istemedim. Yine de yardımlarınız için teşekkürler. Ben örnek ekleyince belki çözüm bulabilirsiniz. Kolay gelsin...