Dinamik Kodlama
Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Temel Paketler
Forum Adı: ERP Şikayetleri ve Diğer Sorular
Forum Tanımlaması: Diğer Bilgiler,Şikayetler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=1071
Tarih: 21 Kasım 2024 Saat 19:57
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com
Konu: Dinamik Kodlama
Mesajı Yazan: allienex
Konu: Dinamik Kodlama
Mesaj Tarihi: 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.
|
Cevaplar:
Mesajı Yazan: AyGuMuS
Mesaj Tarihi: 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 |
Mesajı Yazan: allienex
Mesaj Tarihi: 19 Ağustos 2008 Saat 11:36
tesekkürler çok isime yaradi.
|
Mesajı Yazan: AyGuMuS
Mesaj Tarihi: 19 Ağustos 2008 Saat 15:29
|
Rica ederim.. Iyi Çalismalar. Yardimci Olabildimse Ne Mutlu Bana... ------------- SA |
Mesajı Yazan: micromak
Mesaj Tarihi: 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) |
Mesajı Yazan: AyGuMuS
Mesaj Tarihi: 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 |