Kdv Ana Para

[zengin]

merhaba degerli arkadaşlar herkese kolay gelsin

programımda kullandıgım kdv toptutar alanına örnek 1000.000 TL ana parasını 847.45762711864 olarak de ana parayı nasıl bulabilirim

bana bu konuda yardımcı olun lütven saygılarımla

Ftable1toptutar.Value:=fTable1tutar.Value/1.18;

[Misafir]

son yazdıgın formul doğru. ama bir konuya dikkat etmelisin. türkiyede üç değişik kdv ve bunlara ilaveten ötv uygulaması var. yani oran her zaman yüzde 18 değildir. 1 veya 8 de olabilir. ötv de 6,7 dir. dolayısı ile vergi tanımları içinde bir tablo oluşturmalısın ve stok tanımları içinden stoğun vergi grubunu belirlemelisin.

kolay gelsin

[zengin]

hocam ilgilendigin icin teşekkürler bende aynı düşüncede oldugum icin
yazmış oldugum kodun yalnızca 18 hitap ettigini biliyorum fakat

dogru kodu tanımlayamadım oyüzden siz degerli üstatların bilgilerine
ihtiyacım var dogru kod hakkında bana yardımlarınızı bekliyorum

[Misafir]

şimdi iki tane tablo olsun bir kdv diğeri stok

kdv :

KDV_ID...KDV_KOD....KDV_ACIKLAMA......KDV_ORAN
1.............01..............%1 kdvlı mallar........1
2.............02..............%8 kdv li mallar.......8
3.............03..............%18 kdvli mallar......18


stok :

STOK_ID...STOK_KOD.....STOK_ISIM......STOK_FIYAT.......STOK_KDV
1..............S001...............EKMEK............1000....................01
2..............S002...............ZEYTIN............2000...................02
3..............S003...............UN..................3500....................01
4..............S004...............SAKIZ.............100.....................03


şimdi diyelimki fiyatlar kdv dahil fiyatlar, biz kdv hariç fiyatları bulacağız;

Kod: Tümünü seç

var 
kdvharicfiyat,kdvoran:extended;
begin
kdv.locate('KDV_KOD',stok.fieldbyname('STOK_KDV').asstring,[loartialkey])  // stok kartından kdv grubunu buluyoruz.
kdvoran:=kdv.fieldbyname('KDV_ORAN').asfloat;
kdvharicfiyat:=stok.fieldbyname('STOK_FIYAT').asfloat/(1+(kdvoran/100));
end;

end;