taksit artığını yeni bir taksit olarak eklemek?

[karaayhan]

listeden kayıt seçip ödeme alırken diyelim ki 20 ytl taksit miktarı ve 10 ytl ödeme yapıldı. bu kalan 10 ytl miktarı yeni bir taksit olarak aynı tarihli olabilir eklemesini istiyorum bunu yapıyor ancak ikinci ödeme al işleminde defaten ekleme yapıyor....

 

[gulsum1]

alt formu bir sorgudan alırsın ve o sorguda ise benim eklediğim yürüyen bakiye mantığını tersine çevirerek uygularsan her taksit ödemesinde ödediği miktarı düşer ve bir sonraki kayıtta toplam borcundan kalan görünür son taksit gününde şayet yinede bakiyede kalan varsa oraya bir düğme koyarsın son kalanı taksit olarak bir sonraki aya aktar dersin ve zaten sen sorguda içinde bulunduğumuz ay ve sonraki ayları getir dedinmi sorunun çözülür

 

[karaayhan]

halihazırda örnek ekledim bunun üzerinden yaparsanız sevinirim. sorgu kaynağı olabilir yada herneyse öneriniz...

 

[karaayhan]

gulsum hanımın önerisinden başkaca bir çözüm yok mu?

ki zaten mevcut halinde artan taksiti ekliyor ancak ikinci defa işlem yapınca sanki daha önceki kayıt duruyormuş gibi mükerer işlem yapıyor sorun bu!!!!!

 

[karaayhan]

81 görüntüleme ve sadece bir öneri iyi bir sonuç yine de sağolun...

 

[karaayhan]

...????????????????

 

[gulsum1]

karaayhan kardeş peki taksitten kalanı bir sonraki ayın taksitine eklesen olmazmı daha kolay olur her ödeme yapıldığında eğer kalan varsa o kişinin bir sonraki ayını bulur ve kalanı ona ekler eğer bir sonraki ay yoksa ozaman son taksitin tarihinin ayının üzerine bir ekleyerek yeni bir taksit olarak kalanı ekler peki bunu nasıl yapacam dersen ado ile bu benim düşüncem en kolayı ad ile olur ödendimi checkinin tıklamasına kalanı kontrol et eğer veri varsa ado ile şu tablodan formdaki şu alana uyan kişinin taksitlerini bul sonra o taksitin bir sonraki ayı varmı kontrol et varsa kalanı ona ekle yoksa yeni bir taksit olarak ekle şu anda işlerim yoğun ondan senin örnek üzerinde çalışmadım ama en kolay yolu bu ado örnekleri kod deposunda var

 

[karaayhan]

olabilir neden olmasın mantıklı ama benim örneği bir incelersen sanki sorguda ekleme yaparken bir kayıt içinde kalıyor gibi tekrar ekleme yapıyor ikinci taksit alda eğer taksitten kalan varsa bunu çözemedim aslında neden mükerer ekliyor..
sizin çözüme gelince;
kod bilgimin çok iyi olduğunu söyleyemem ama yine de ilgilendiğin için teşekkürler gulsum kardeş,,,

bakayım bi ado örneklerinden yapabilecekmiyim....

 

[karaayhan]

güncel....

 

[modalı]

Sayın karaayhan,

Hatırladığım kadar ilk yaptığımda şimdi istediğiniz gibi yapmıştım.

Fazla kurcalamamak için (Daha basitleşebilir) şu şekilde deneyin:

Private Sub Komut17_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
msg = MsgBox([işlemtarihi] & " Tarihli işleme ait " & [toplam] & " YTL tutar için taksitlendirmeyi kabul ediyormusunuz", vbQuestion + vbYesNo, "İŞLEM İÇİN ONAY İSTENİYOR")
If (msg = vbYes) Then
Dim rs As New ADODB.Recordset
rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'burdan itibaren peşinse yeni bir kayıt ekleyecek....
If Me.pesin <> 0 Then
rs.AddNew
    rs("sırano") = Me.id
    rs("fiat") = Me.pesin
    rs("tarih") = Me.işlemtarihi
   ' rs("aciklama") = Me.açıklama
    rs("açıklama") = Me.açıklama
    rs("şekil") = "Peşin Ödendi!"
    rs("işlemtar") = Me.işlemtarihi
    rs("poltarihi") = Me.poliçetarihi
    rs("ödedi") = -1
    rs("ödemetarihi") = Me.işlemtarihi
    rs("ödememiktarı") = Me.pesin
    rs("formno") = Me.formno
    rs("özelmiktar") = Me.pesin
    rs("poltutarı") = Me.pesin
rs.Update
End If
'burda da bitecek peşin varsa yani...........
Z = taksay.Value
For I = 1 To Z Step 1
Dim işlemgünü As Variant
Dim aciklama As Variant
Dim ödeme As Variant
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim fazla As Variant
Dim Form As Variant
Dim polltarih As Variant
işlemgünü = Me.işlemtarihi
aciklama = Me.açıklama
ödeme = Me.ödeme_şekli
formno = Me.formno
tar1 = bastar.Value
par = Nz(Me.toplam) \ Nz(Me.taksay)
fazla = toplam.Value Mod taksay.Value
polltarih = Me.poliçetarihi
[B]'If I = Z Then
'par = par + fazla
'End If
[/B]n = id.Value
tar = DateAdd("m", I, tar1)
rs.AddNew
rs("sırano") = n
rs("fiat") = par
rs("tarih") = tar
rs("açıklama") = aciklama
rs("şekil") = ödeme
rs("işlemtar") = işlemgünü
rs("poltarihi") = Me.poliçetarihi
rs("formno") = formno
rs("özelmiktar") = par
rs("poltutarı") = geneltoplam
rs.Update
Next I
[B]If fazla > 0 Then
polltarih = Me.poliçetarihi
n = id.Value
tar = DateAdd("m", I, tar1)
rs.AddNew
rs("sırano") = n
rs("fiat") = fazla
rs("tarih") = tar
rs("açıklama") = aciklama
rs("şekil") = ödeme
rs("işlemtar") = işlemgünü
rs("poltarihi") = Me.poliçetarihi
rs("formno") = formno
rs("özelmiktar") = par
rs("poltutarı") = geneltoplam
rs.Update
End If[/B]
 
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Me.tarih_altformu.Requery
'TAKSİTLERİ CİRO İÇİ BİR TABLOYA EKLESİN (PEŞİN OLURSA DA BİR ZAHMET)
DoCmd.SetWarnings False
DoCmd.OpenQuery ("TAKSİTLENEN MÜŞTERİ EKLE")
Me.Komut61.SetFocus
Else
MsgBox "işlem iptal edildi", vbInformation, "İPTAL"
Cancel = True
'DoCmd.GoToControl ("formyazdır")
End If
'/////////////////////////////////////////////////////////
Me.TOPLAM_BORÇ.Requery
Me.Metin87.Requery
Me.KALBORÇ.Requery
End Sub

Yaptığım değişiklikler kalın yazılı.

İyi çalışmalar

 

[karaayhan]

sayın modalı,
çok şık olmuş ama isteğim taksit eklerken fazlalığın yeni bir taksit olarak eklenmesi değil eskisinde olduğu gibi olmalı yani fazlalığı son taksite eklenmeli.
Benim isteğim taksiti tahsil ederken (ÖDEME AL formundan) taksit miktarından daha az ödeme olursa kalan fazlalığı yeni bir taksit olarak eklemek tam olarak istediğim bundan ibaret....


teşekkürler ilginize saygılar...


Kolay gelsin

 

[modalı]

Sayın karaayhan,

Sanırım yarın sonuçlandırırım probleminizi.

Ancak düşünceme göre, eksik kalan kısmayine taksit ödeme tarihini ekleyip açıklamaya eksik ödeme olarak yazmak en uygunu sanırım.

Enflasyon rakkamları böyle devam ettikçe bu eksikliklere faiz işletme dönemleri tekrar geri gelecek.

İyi çalışmalar

 

[karaayhan]

kalan kısım için faiz işletme metodu mevcut bende başka bir uygulama için yine siz yardımcı olmuştunuz sayın modalı,
bunda dediğim gibi ödeme artığını yeni bir taksit gibi ekletmek istiyorum..

dikkat ettiyseniz bunu yapıyor kalan kısmından çıkınca ancak kodlarda birsorun var sanırım ikinci tahsilatta yine eksik ödeme varsa kalanı ekliyor ancak ilkindeki kalanı da tekrar ekleme yapıyor...:???:

 

[assenucler]

Sayın karaayhan;

Merhabalar.. Programın çalışan en son halini, sayın Modalı'nın yarın yapacağı en son eklemeden sonra rica etsem, yükleyebilir misiniz?

Teşekkürler ve iyi hafta sonları..

 

[karaayhan]

yine hüsrana uğradı benim sorularım....

 

[gulsum1]

cevap

senin örneğin benim kapasitemi aştığı için ben kendi örneğimde senin istediğini yaptım örnek şu mantıkta çalışyor en son taksite kadar ödemelerini alıyorsun ekranda sadece ödenmemiş taksitleri görüyorsun sen ödendi checkine tıklağında kod o kişiye ait taksitlerin sonuna gidiyor şayet son taksit cheklenmiş ve kalandada bkiye varsa en son taksitin üzerine bir ay ekleyip kalan miktarı yeni bir taksit olarak ekliyor peki bu örneğin bir iki eksiği yokmu var onuda zamanım olmadığı için halledemedim problemi biraz deneyince göreceksiniz geri kalan senin istediğini yapıyor hemde canavar gibi yani anlayacağın kısaca mantığı bu şekilde olacak o bahsettiğim arızasını düzelttiğin zaman taksitlendirme olayının son aşamasınıda halletmiş olursun bu arada unutmadan sana daha önce bahsettiğim şekilde yaptım nasıl yapıldığını o nedenden dolayı tekrar anlatmıyorum

 

[karaayhan]

sayın gules, ellerinize sağlık güzel bir çalışma olmuş ...
ama kalan miktarlar toplanıp yeni bir taksit olsun istemiyorum!
her taksit ödendiğinde artan kısmı yeni bir taksit gibi eklesin istiyorum.
Belki uygulamada sizinki geçerlidir; yani kırık kırtık kalanlar her seferinde taksit olur mu? diyebilirsiniz ancak istenilen şey maalesef ki bu ...
Yani özetle ; her satır taksit tahsilatında artan kısmı(kalan) yeni bir taksit olarak aynı tarihli olarak eklemek istiyoruz...

teşekkürler kolay gelsin...

 

[Taruz]

Merhaba..

Mevcut yapınızdan dolayı ekleme sorgusunda where şartlarını düzgün kurmuş olsak bile birincil anahtarla olan ilişkilerden dolayı null hatası alıyoruz.. Yeni bir ekleme sorgusu yazmaktan da açıkçası bu yapıda sonuç alamayacağımı düşündüğümden vazgeçtim..

Bende, bu tablo yapınızı bozmadan isteğinizi gerçekleştiren ayrı bir düzenek hazırladım.. Sonuç sanırım arzu ettiğiniz gibi oldu:

Ödeme eksik olunca kalan tutarı, eksik yapılan ödeme ile aynı vadede yeni bir taksit olarak tablonuza ekliyor.. Sonradan oluşan bu taksit tutarının da ödemesi eksik kaldığında aynı şekilde yeni bir taksit tutarı olarak kaydediyor.. İşleyişte problem yok..

Null hatasından kurtarmak içinse başta açılan formu köprü olarak kullandım.. Siz isterseniz hareketi farklılaştırabilirsiniz..

 

[modalı]

Sayın karaayhan ın isteği üzeri örnekleri kaldırdım.

Kendisi tekrar ekleyecek.

İyi çalışmalar

 

[karaayhan]

Örnek Uygulamanın Son Hali...

Öncelikle sayın taruz , "Nerdeydin kardeşim bunca zamandır" çok şugar olmuş, ben gidişatı ayarlarım artıkın TEŞEKKÜRLER'imi kabul edin lütfen...

sayın modalı, ilginize ve anlayışınızdan ötürü ayrıca size de teşekkür ederim...

sayın üyeler, örneğin son halini ekliyorum .... herkese teşekkür ederim....