Kod: Tümünü seç
Adotable1 (stok) = stokkod,cinsi,bakiye
Adatable2 (hareket) = stokkod,islem,miktar
stokkartında bakiyeyi tutmak için şu yöntemi buldum:
adotable2 yi adotable1 e bağlıyorum;
procedure hareketkayitbuton ...
begin
adotable1bakiye.value:=0;
for i=1 to do adotable2.reccount do begin
adatable2.recno:=i;
if islem='giris' then
adotable1bakiye.value := adotable1bakiye.value + adotable2miktar.value
if islem='cikis' then
adotable1bakiye.value := adotable1bakiye.value - adotable2miktar.value
end;
deneme yanılma yoluyla bir sürü kod yazarak stok bakiyesinin doğru çıkmasını sağlıyorum.
bu tür işlemler için başka yöntemler varmı?daha basitleşecek