Biraz Mantık sorusu gibi Fatura vadesi

[kuntay]

Hal müd. için bir program yazıyorum.

Hal esnafı programa kaydediliyor cari olarak.
ve her esnafın kestiği faturalar bilgisayara işlenecek
ve bu faturalar üzerinden rusum vergisi alınacak.
Buraya kadar herşey yolunda.

şimdi diyelim bir aylık rusum toplamı hesaplatıldı programa
Örneğin 2. ayın rusum toplam tutarı 2.000 YTL bu paranın vadesi
bir sonraki ayın 25 olacak ve aylık faiz uygulanacak.

Sorun ben 2. ay içerisinde işlediğim faturaların rusum tutarını bir hareket tablosunu işletecem
2. ay rusum tutarı 2000 YTL Vadesi 25.03.2008
3. ay rusum tutarı 1500 YTL Vadesi 25.03.2008

yani vade hesabını nasıl yaptıracağım bu durumda.

[kuntay]

Sadece fikir lazım arkadaşlar fikir bile üretseniz galiba bişeyler yapabileceğim

Konuyu tekrar özetleyim :

işlem tarihi tutarı rusum tutarı
01.01.2008 20 2
04.01.2008 40 3
07.01.2008 25 2
05.02.2008 60 6
11.02.2008 70 7

şimdi bu tabloya göre rusum hesap tablosuna

1. ay toplam rusum 7 lira vadesi 25.02.2008 (Yani işlemtarihinden bir sonraki ayın 25 i olacak vade)
2. ay toplam rusum 13 lira vadesi 25.03.2008

şimdi ben veritabanı tarafında nasıl bir kod kullanırsam yada program tarafında da olur fatura tablosundan bilgileri çekip
aylık toplam rusumları kayda alabilirim ve vadesini bir sonraki ayın 25 ine ayarlarım

[conari]

Veritabanı nı söylemişsiniz.?

Kod: Tümünü seç

select [b]firma[/b], sum([b]rusum tutarı[/b]) from [b]faturalar[/b] where month(işlem tarihi)=2 group by [b]firma,işlem tarihi[/b]

bu sana aylık rusumları verir.
bundan dönen değerleri tablonuza yazabilirsin.

[kuntay]

Peki bir sonraki ayın 25 ine nasıl vade tarihi kaydedeceğim.

Firebird veritabanım bu arada.

[conari]

tabloya,
Ay , Tutar, Vade olarak insert edecekseniz.
basit olarak vadeyi 25&Ay+1&Yıl olarak bularak atabilirsiniz.

[tanerileri]

sorduğunuz soru programlama hakkında değilde , programın algoritması sanki. (mantığı / hesabı ne derseniz artık)

site yöneticisi daha iyi bilir ama bence algoritma soruları sorulmamalı burada.

Size söylebileceğim şu olabilir , belki faydası olur.

Ben bir hesabı önce elle yaparım . hesap makinasıyla yada excelle. sonra değişik değerlerle sağlamasını yaparım. hesaplama mantığını kafamda oluşturduğum andada delphiye geçer bunu delphide yapacak kodu yazarım. bu sorudada bunu yapmanızı öneririm.

Kolay gelsin.

[aslangeri]

offtopic:
algoritma programlamanın temellerinden biri olduğu için algoritmalarla ilgili soru sorulmasında bir sakınca yoktur.

[kuntay]

Aslangariye katılıyorum;

Bu siteyi yıllardır takip ederim ve en önemli özelliği sanki bir aile ortamı gibi ekip çalışması oluşturabilmek ve
birbirimize yardımcı olmak. algoritma sayılmaz aslında işin mantığı belli sadece bunu nasıl ve hangi kodlarla üreteceğim

yani ay sonunda tüm faturalardaki rusumları toplayacağım bir aylık ve

şu ayın rusum tutarı şu vade tarihi de bri sonraki ayın 25 i olarak

aylık rusum tablosuna kayıt yaptırmak

şimdi sıkıntı nerde bir aylık tüm faturaları veritabanın dan çekiyoruz rusumların toplamını buluyoruz

ve rusum tablosunda

örneğin bu ay nisan ayı olsun nisan ayı boyunca tüm faturaların rusumları hesaplanıyor ve aşağıdaki tabloya yazılacak

Ay Adı Rusum toplamı Vade tarihi
nisan 1300 YTL 25.05.2008

işte tek sorun nisan ayının fatura rusumlarının bir sonraki ay olan mayıs ayının 25 i vadesini yazdırmak.


Tabi yinede eğer Bu tarz bir soru paylaşımı yanlışsa site yöneticimiz ve moderatör arkadaşlarda böyle düşünüyorlarsa site kurallarına uymuyorsa
eee yapacak bişey yok bakacaz bir çaresine. Kurallar ve sisteme uymak sistemin işleyişine katkı sağlayacaktır

[aslangeri]

s.a.
problem nisan ayından bir sonraki ayı bulmak mı?
dateutils unitindeki fonksiyonlar işine yarayacaktır.

Kod: Tümünü seç

formatdatetime('25'+dateseperator+'mm'+dateseparator+'yyyy',incmonth(nisan ayındaki faturalardan her hangi birinin tarihi));

böyle birşey işini görebilir.
kodları afaki yazdım hata verebilir.
birde şubat ayında veya herhangi bir ayın 31 inde inc month bir sonraki ayı es geçmesini sağlayabilir. kontrol etmek lazım.
kolay gelsin.

[ofenX]

Merhaba,
RecodeDay fonksiyonu işinizi görecektir. Aşağıdaki örneği programınıza uyarlayabilirsiniz.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
tarih:tdatetime;
begin

  tarih:=strtodate('30.04.2008');

    tarih:=RecodeDay(incmonth(tarih),25);

       label1.Caption:=datetostr(tarih);

end;

Yukarıdaki örnekte sonuç 25.05.2008 gelir.

*** Formunuzun başındaki uses kısmına DateUtils i eklemeyi unutmayın.

Kolay gelsin.