Delphi Forum

fırsatını bulur bulmaz kaçırmayacam merak etmeyin

arkadaşlar sağ olun her şey için
hepsi tamam
takıldığım yer olursa sizi rahatsız etmeye devam edecem

merhaba
sorunu hallettim ama şimdi de
silme ve değer atama işlemlerinde
'database not edit or insert ' diyor.

kod aşağıda olduğu gibi.
yardımlarını bekliyorum sağolun

procedure TForm1.Button1Click(Sender: TObject);
var
oran,bolum:integer;
i:longint;
begin
oran:=114290;
bolum:=100;
Query1.First ...

vermiş olduğunuz kodlarla işlem yaptığımda o an seçili kayıtın değeri hesaplanıyor bu hesaplamayı hepsine birde nasıl uygularım şimdiden sağolun

evet yıllık artış oranları birbirinden farklı ve demirbaşın değer artışı ile amortismanın değer artışı birbirini yakaladığı yerde, her yeni yıl için amortisman hesabı yapılmıyor. ayrıca 3 yıllık değil de bu işlem demirbaşın üniteye girişinden hurda olup çıkışına kadar devam ediyor

procedure TForm1.Button1Click(Sender: TObject);
var
oran,bolum:integer;
begin
oran:=114290;
bolum:=100;
Query1.First;
while not Query1.Eof do
begin
form1.table1dem_amort:=form1.table1dem_fiat * oran / bolum;//burda hesaplama işlemleri yapılıyor;
Query1.Next;
end;
end;


burda table daki alnalar ...

arkadaşlar kusura bakmayın daha fazla detaylandırıp canınızı sıkmak istemedim.
işin aslı şu demirbaşların tutuluduğu bir table ım var
bu table da demirbaş no, ad giriş tarihi , giriş bedeli gibi bilgiler mevcut

1971 den bu yana her yıl bu demirbaşların giriş bedelleri oyılın artış oarnı ile ...

arkadaşlar table kayıtlı demirbaşlarım için giriş tarihlerini dikkate alarak
1971 yılından bu güne kadar tek tek tüm demirbaşların amortisman değerlerini hesaplayacak bir döngü istiyorum
her demirbaşın kendi giriş tarihi var ve her yılın kendine göre bir artış oranı var