Dinamik Kodlama

   Arkadaslar Merhaba
Netsis Fusion da bulunan dinamik kodlama özelliginden faydalanarak söyle bir islem yapmak istiyorum. Serbest üretim sonu kaydi ekraninda miktar1 bölümüne bir rakam yazilarak tab yada enter yapildiginda 2. miktar bölümüne [(miktar1 x 1,28)+(3,14*miktar1)] formülünden bulunan sonucun yazilmasi istenmektedir. bununla ilgili script kod nasil yazilabilir. simdiden tesekkürler.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
allienex Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 13 Mart 2008 Konum: İstanbul Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı allienex Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Dinamik Kodlama Gönderim Zamanı: 15 Ağustos 2008 Saat 12:08
	Arkadaslar Merhaba Netsis Fusion da bulunan dinamik kodlama özelliginden faydalanarak söyle bir islem yapmak istiyorum. Serbest üretim sonu kaydi ekraninda miktar1 bölümüne bir rakam yazilarak tab yada enter yapildiginda 2. miktar bölümüne [(miktar1 x 1,28)+(3,14*miktar1)] formülünden bulunan sonucun yazilmasi istenmektedir. bununla ilgili script kod nasil yazilabilir. simdiden tesekkürler.

AyGuMuS Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 29 Nisan 2007 Konum: Ankara Durum: Aktif Değil Puanlar: -5	Mesaj Seçenekleri Yanıt Yaz Alıntı AyGuMuS Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 18 Ağustos 2008 Saat 08:51
	Merhaba uzun süreden beri yazmiyordum. Aslen DELPHI kullandigimdan dolayi SCRIPT lerde bende zorlaniyorum ama biraz mantik yürütünce ortaya bir snuç çikarabiliyorum... Senin sorunun cevabina gelince Scriptte STHAR_GCMIK alaninin ONEXIT Eventina asagidaki kodu yaz... F_YEDEK1.Text = (STHAR_GCMIK.Text * 1.28) + (STHAR_GCMIK.Text * 3.14) Test etim çalisiyor... Aslinda Text alanlarda 4 islem yapmasi benide sasirtti ama VB de oluyor herhalde DELPHI de olsa hemen hatayi çakmisti... Convert etmek gerekyordu ama burada gerekmedi...
	SA

allienex Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 13 Mart 2008 Konum: İstanbul Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı allienex Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Ağustos 2008 Saat 11:36
	tesekkürler çok isime yaradi.

AyGuMuS Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 29 Nisan 2007 Konum: Ankara Durum: Aktif Değil Puanlar: -5	Mesaj Seçenekleri Yanıt Yaz Alıntı AyGuMuS Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Ağustos 2008 Saat 15:29
	Rica ederim.. Iyi Çalismalar. Yardimci Olabildimse Ne Mutlu Bana...
	SA

micromak Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 28 Eylül 2007 Durum: Aktif Değil Puanlar: 23	Mesaj Seçenekleri Yanıt Yaz Alıntı micromak Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 20 Ağustos 2008 Saat 15:11
	1)MIKTAR.TEXT ON EXIT event'ine A=ROUND(((MIKTAR.TEXT)1.28)+((MIKTAR.TEXT)3.14),2) MIKTAR2.TEXT=A 2)MIKTAR2.TEXT ON EXIT event'ine IF MIKTAR.TEXT=0 AND MIKTAR2.TEXT>0 THEN B=ROUND(((MIKTAR2.TEXT)1.28)+((MIKTAR2.TEXT)3.14),2) MIKTAR.TEXT=B ELSE END IF (Bir müsterim buna benze bir uygulama istemisti tek farki miktar bos geçip miktar 2 ye yazilan degeri miktar1 atiyor belki lazim olabilir ben örnege göre revize ettim)

AyGuMuS Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 29 Nisan 2007 Konum: Ankara Durum: Aktif Değil Puanlar: -5	Mesaj Seçenekleri Yanıt Yaz Alıntı AyGuMuS Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 20 Ağustos 2008 Saat 17:53
	Revize ettigin uygulamada ROUND kullanarak virgülden sonra 2 haneye yuvarladigini bilmeyen yada bu fonksiyonu kullanmayan arkadaslar için ayri olarak belirtmende yarar var diye düsünüyorum... Birde MIKTAR ve MIKTAR2 alanlarini koymussun bu alanlar nerede var tam olarak anlamadim.. Çünkü Serbest üretim sonu kaydinda Script Kodlamaya geçince; MIKTAR = STHAR_GCMIK MIKTAR2 = F_YEDEK1 olarak geçmektedir... Lütfen örneklerinizi revize ettiginizde çalistigindan emin olunuz... Yada temsili fikir olsun diye verdiginizi belirtirseniz kullanici ona göre hareket edecektir... Çünkü KOD bilgisi iyi olamayan arkadaslarimiza eziyet olmasin... Birde bu Kodu Mitar1 in ENEXIT ina yazmak yada Miktar2 nin ONENTER ina yazmak daha mantikli (Miktar2 nin ONEXIT ina yazmakda hiç bir mantik yok...) Eger degistirmesin diyosan Form Bazi güvenlikle DEGISTIRILEMEZ yap. daha iyi... Ama demissin ki Miktar 1 bos geçilip Miktar2 ye kayit girilirse Miktar2 nin ONEXIT ine ayni hesaplamayi koymussun orada Miktar1 i bulamazsin Miktar2 yi Miktar1 kabul etmis ve üstünede bir hesaplatma yapmis sayilirsin... O yüzden Miktar1 bos geçildiginde IF MIKTAR.TEXT=0 THEN MIKTAR.SetFocus END IF Yazmak daha iyi olacaktir... Paylasim için tesekkürler...
	SA