satışları taksitlendirme

[erdogan_ozkaya]

merhaba
daha önce forumda konuşulmuş tartışılmış açıklma getirilmiş fakat ben sql kullamıyorum onun yerine access veri tabanı adoquery kullanıyorum
yapmak istediğim net tutarı girdiğim edit1 e ve taksit sayısını belirttiğim edit2 ile
edit1 / edit diyip adoquery net tutarı edit2 le bölüp bölünen ay kadar taksiti bir seferde kayıt yapması her ayın 1 veya 10 na
yardımlarınız için teşekkür ederim

[conari]

Kodda bir yere gel, takıldığın yerde yardımcı oluruz.
Sen direk kodu yazmamızı istemişsin.
Biraz çabala, ilk olarak bir böl sonra döngüye sok sonra insert et bakalım nerede takılacaksın.

[erdogan_ozkaya]

bir kod buldum fakat çalıştıramadım
hata verdiği yer tabloTAKSİT:=birim_taksit; // taksit=35,000,000 , 35,000,000, 35,000,000, 35,000,000 burası

Kod: Tümünü seç

procedure button1.click;
var
birim_taksit:double;
taksit_sayi:integer;

begin
birim_taksit:=strtofloat(edit2.text);  // =>35.000.000
taksit_sayi:=strtoint(edit1.text);      // =>5

for i:= 1 to ( taksit_sayi - 1 ) do  //  4 defa işlem yapacak...
begin 
   tablo.insert; 
   tabloM_NO.value:='1';
   tabloTARIH.value:=IncMonth ( Date + i ) //tarihi her seferinde 1 ay sonrası ***
   tabloTAKSİTSAYİ.value:= i ; //taksitsayi=1,2,3,4
   tabloTAKSİT:=birim_taksit;   // taksit=35,000,000 , 35,000,000, 35,000,000, 35,000,000
   tablo.post; 
end; 

toplam:=( birim_taksit *  (taksit_sayi - 1) )  // 35,000,000 * 4 = 140,000,000
kalan:= genel_toplam - toplam;                  // 200,000,000 - 140,000,000 = 60,000,000

   tablo.insert; 
   tabloM_NO.value:='1';
   tabloTARIH.value:=IncMonth ( Date + taksit_sayi) //5 ay sonrasının tarihini atar  ***
   tabloTAKSİTSAYİ.value:= taksit_sayi  ;   //taksit sayi = 5
   tabloTAKSİT:=birim_taksit;                    //taksit = 60,000,000  
   tablo.post; 

[conari]

Hata aldığın yeri ve hata mesajını belirtmelisiniz.

tabloTAKSİT.value:= olarak düzenle bakalım.

[erdogan_ozkaya]

toplam için ne yapmalıyım hocam
kalan her yerinde hata

[conari]

Ne toplamı ? toplamı bilmeden nasıl böldün veya toplam ile ne yapmaya çalışıyorsun?

Net cevaplar için Net sorular sormalısınız

[erdogan_ozkaya]

Kod: Tümünü seç

var
  Form1: TForm1;
   toplam : integer;
   kalan : integer;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
birim_taksit:double;
taksit_sayi:integer;
begin
birim_taksit:=strtofloat(edit2.text);  // =>35.000.000
taksit_sayi:=strtoint(edit1.text);      // =>5
for i:= 1 to ( taksit_sayi - 1 ) do  //  4 defa işlem yapacak...
begin
   ADOTable1.insert;
   ADOTable1musteri_no.value:='1';
   ADOTable1tarih.value:=IncMonth ( Date + i );
   ADOTable1taksit_sayisi.Value:=i;
   ADOTable1taksit.Value:=birim_taksit;
   ADOTable1.post;
end;

  toplam:=( birim_taksit *  (taksit_sayi - 1))
  kalan  := genel_toplam - toplam;

   ADOTable1.Insert;
   ADOTable1musteri_no.value:='1';
   ADOTable1tarih.value:=IncMonth ( Date + taksit_sayi) //5 ay sonrasının tarihini atar  ***
   ADOTable1taksit_sayisi .value:= taksit_sayi  ;   //taksit sayi = 5
   ADOTable1taksit:=birim_taksit;                    //taksit = 60,000,000
   ADOTable1.post;
 end;

çalıştırdığımda "kalan" da hata veriyor
formda 2 adet edit var biri satış fiyatı biri taksit sayısı hata "kalan"da veriyor

[conari]

genel_toplam diye birşey yok.

[erdogan_ozkaya]

http://rapidshare.com/files/200304733/t ... _.rar.html
yardımın için çok teşekkür ederim

[conari]

birde integer kullanma ondalıklı olursa problem yaşarsın
Float, Currency , real double bunlardan birini tercih et.

[conari]

bu sefer hazır kod yok biraz ugraş bakalım.

[erdogan_ozkaya]

hocam çok bilen birisi değilim yeniyim vede öle derme çatma toparlayıp yapıyorum acaba gönderdiğim örnek kodlara baktınızmı

[conari]

sadece kodlar, vt ve exe yok

[erdogan_ozkaya]

teşekkür ederim yardımlarını unutmayacağım her soruma cevap verdin her cevabın sorunuma çözüm oldu

[erdogan_ozkaya]

merhaba ya son birşey daha

Kod: Tümünü seç

datem:=date;

belittiğmiz yani şimdiki zaman bunu datetimepicker ile nasıl ilişkilendiricem yani başnalgıç tarihini ben belirticem