Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: VT parasal alan ($money) sorunu(m)  (Okunma sayısı 1874 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
VT parasal alan ($money) sorunu(m)
« : 06 Ocak 2007 10:00:57 »
giriş yapıyorum  örnek 100,  dbedit1 100 YTL oluyor, diğer 2 dbedit tan birinde kdv si (18),
diğerinde +kdv (118) gibi otomatik hesaplatacağım.
onexit olayına ne yaptıysam hesaplatmadım.

dbedit2.text:=dbedit1.text*18 div 100;        //kdv
dbedit3.text:=dbedit1.text + dbedit2.text;  // + kdv

mantık bu..
StrToCurr kullandım(yada yanlış/eksik kullandım), currency türünde değişken tanımladım, ne yaptıysam hata verdi.
paradox ve query kullanıyorum.
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #1 : 06 Ocak 2007 11:47:21 »
Calculated fields yani hesaplanmış alanlar kullan tablona bir calcfield ekle fieldkind özelliğini fkCalculated yap daha sonra yapmak istediğin hesaplamaları table ın onCalcfField olay işleyicisi içerisinde tanımla o kadar

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #2 : 08 Ocak 2007 09:16:28 »
sen koca değil, KOCAMANTÜRK sün, eyvallah, onwxitla falan boşuna kasmışım.  bilmeyen arkadaşlar benim gibi deneme yanılma yoluna gitmesinler tam kod bu. tabi kocatürk abinizin anlattığı ayarlamalardan sonra..

 query1KDV.AsCurrency:=query1TUTAR.AsCurrency*0.18;
 query1TOPLAM.AsCurrency:=query1TUTAR.AsCurrency*1.18;
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #3 : 08 Ocak 2007 09:38:59 »
peki bir soru daha sorsam...
VT ımızda bir tarih tuyoruz. mesela BITISTARIHI. canlı kayıt tutma gibi bir şansımız varmı.
15/01/2007 girer girmez, kalangün 7... yarın 6. yazdırabilirmiyiz.
1- VT refresh yapmaya gerek varmı yoksa gün döner dönmez kendisi otomatikmi yapar
2- bu işlemi nasıl yaparız :(
ben mantık olarak tarihten bugünün tarihini çıkarmayı deneyerek yaptım ama sanırım bunu VT yansıtsam bile BITISTARIHI negelindiğinde 0 değerini alacaz ancak BITISTARIHI  geçince yani 16/01/2007 de tekrar 1 sonucu dönecek... oysa ben 0 kalmasını veya - ye düşmesini istiyorum..
aslında olay şu "BITISTARIHI bugün olanları göster"
şimdi aklıma geldide istenilen iki tarih arasını sorgulatmak daha mantıklı sanırım.
oncalcfieldmi, SQL mi..
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #4 : 08 Ocak 2007 15:16:57 »
öncelikle bizim ki si yardım değil fikir uyandırmak kurcalamana sevindim ikinci soruya gelincezaten cevabı kendin vermişsin bir önceki soru da hallettiğin gibi halledebilirsin yalnız sanıyorum burada yazdırabilirmiyiz den kastın veri tabanındaki kalangün alanının güncellenmesi galiba eğer öyleyse bir çok farklı yöntemle halledebilirsin onCalcField bunlardan birisi sana tavsiyem TTable nesnesinin olaylarına bak before-afterpost before-afterchange before-afteredit gibi daha ne kolaylıklar var hemen fark edeceksin.

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #5 : 14 Ocak 2007 13:34:20 »
çok özür dilerim, bu konu hakkında teşekkür ettiğimi sanıyordum.. heyecanla talimatlarınızı uygulumaya geçince cevap yazmayı unutmuşum sanırım..
emeğe ve ilgiye saygı! boyunumuzun borcudur
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı serhanefe

  • Delphi 1 Level 3
  • ***
  • İleti: 26
  • Rep: +0/-0
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #6 : 27 Aralık 2011 21:37:34 »
Sizden Allah Razı Olsun, nekadar teşekür etsem az. Kocamansınız gerçekten

Çevrimdışı serhanefe

  • Delphi 1 Level 3
  • ***
  • İleti: 26
  • Rep: +0/-0
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #7 : 27 Aralık 2011 22:02:07 »
Peki ondalık yazdığımızda nasıl çarpma yaptıracağız, float yaptığımdada olmadı şu şekilde

ADOTable2tutar.AsFloat:=ADOTable2miktari.AsFloat*ADOTable2birim_fiyati.AsFloat;

Çevrimdışı atmazg

  • Delphi 6 Level 1
  • *
  • İleti: 257
  • Rep: +0/-0
  • Delphi Sürümü: Delphi 6, Delphi 2010, Delphi XE2
Ynt: VT parasal alan ($money) sorunu(m)
« Yanıtla #8 : 30 Aralık 2011 08:27:38 »
ADOTable2tutar.value:=ADOTable2miktari.value*ADOTable2birim_fiyati.value;

olarak deneyin.

birde şahsen table yerıne query kullanın. iyi çalışmalar.