Alış Fiyatı İle Satış Fiyatını Oluşturma

//Yüzde hesabının yapılması için değişken tanımlanır.

   Konu: Aktif kodlama ile alış fiyatına girilen değerin
üzerinde %20 eklenerek satış fiyatı alanına yazma
Örnek Uygulama: 

Stok sabit kartları
ekranında 

Alış Fiyatı 1
alanının çıkış(ALIS_FIYAT1.OnExit) olayına yazılması gereken kod satırı;

var

x:Extended;  //Yüzde
hesabının yapılması için değişken tanımlanır.

begin   

IF
ALIS_FIYAT1.GETASFLOAT>0 THEN

BEGIN                     

x:=FloatToStr((ALIS_FIYAT1.GetAsFloat/100)*20);
// Alış fiyatının yüzde 20’si alınıyor.      

SATIS_FIYAT1.TEXT:=FloatToStr(ALIS_FIYAT1.GetAsFloat+x);
//Satış fiyatı 1 alanına alış fiyatının yüzde 20’si eklenerek yazılıyor.

END             

end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
mervenur.demic Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Ekim 2018 Durum: Aktif Değil Puanlar: 262	Mesaj Seçenekleri Yanıt Yaz Alıntı mervenur.demic Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Alış Fiyatı İle Satış Fiyatını Oluşturma Gönderim Zamanı: 26 Ekim 2018 Saat 14:19
	Konu: Aktif kodlama ile alış fiyatına girilen değerin üzerinde %20 eklenerek satış fiyatı alanına yazma Örnek Uygulama: Stok sabit kartları ekranında Alış Fiyatı 1 alanının çıkış(ALIS_FIYAT1.OnExit) olayına yazılması gereken kod satırı; var x:Extended; //Yüzde hesabının yapılması için değişken tanımlanır. begin IF ALIS_FIYAT1.GETASFLOAT>0 THEN BEGIN x:=FloatToStr((ALIS_FIYAT1.GetAsFloat/100)20); // Alış fiyatının yüzde 20’si alınıyor.* SATIS_FIYAT1.TEXT:=FloatToStr(ALIS_FIYAT1.GetAsFloat+x); //Satış fiyatı 1 alanına alış fiyatının yüzde 20’si eklenerek yazılıyor. END end;