tl'den ytl'ye çalışma anında dönüştürme

must_sargin · Mesaj gönderen **must_sargin** » 17 Ara 2004 05:53

iyi çalışmalar,
1 yıl süresince tl ve ytl aynı anda kullanılacak, yapmak istediğim calc.field oluşturup tl'yi ytl'ye çalışma anında çevirip ytl olan maas field'ine atamak istiyorum. örneğin edit1'e 25.500.000 TL girildiğinde ve aktar isimli butona basıp bunu 25.50 YTL olarak field'e atamak istiyorum. acaba mümkün mü?
yardımlarınız için teşekkürler.

must_sargin · Mesaj gönderen **must_sargin** » 17 Ara 2004 05:58

dediğiniz şekilde hesaplatmak için 1.000.000'a böldürmem yeterli olacak mı?

csyasar · Mesaj gönderen **csyasar** » 17 Ara 2004 06:39

kullanıdığın table veya query(her neyse) üzerine çift tıklayıp karşına öıkan field editöründeki boş bir alana sağ tıkla. new field de. açılan pencerede calc field olarak alan oluştur.

hepsi hepsi bu kadar...

celalatak · Mesaj gönderen **celalatak** » 17 Ara 2004 07:08

http://www.gelirler.gov.tr de detaylı açıklama var.

must_sargin · Mesaj gönderen **must_sargin** » 18 Ara 2004 12:34

???? adresi neden verdiğinizi anlayamadım.

Mesaj gönderen **muskut** » 18 Ara 2004 01:31

bende aradım aradım pek bulamadım

orada genelde bunun kanunlarına rastladım

mrmarman · Mesaj gönderen **mrmarman** » 18 Ara 2004 03:13

Merhaba...

@celalatak adres vererek haklı olarak sadece 1.000.000'a bölmenin yeterli olmayacağını belirtmeye çalışmış. Çünkü yuvarlamanın şartları var...

- Bir fonksiyon hazırlamıştık,
viewtopic.php?t=2532&p=#12726

- Çalışmalarınızda başarılar...

celalatak · Mesaj gönderen **celalatak** » 19 Ara 2004 12:49

14 SIRA NO' LU MUHASEBE SİSTEMİ UYGULAMA GENEL TEBLİĞ TASLAĞI bakarsanız örneklerle yuvarlamanın nasıl yapılacağı anlatılmış.
http://www.gelirler.gov.tr/gelir2.nsf/5 ... 660062A31C

must_sargin · Mesaj gönderen **must_sargin** » 21 Ara 2004 02:39

iyi çalışmalar,
yazdığınız fonksiyonu table'deki maas alanına nasıl uygulayabilirim?

mrmarman · Mesaj gönderen **mrmarman** » 21 Ara 2004 07:01

Merhaba...

- Fonksiyonun kullanımı tamamen program tasarımınıza kalmış. Verinin girildiği TEdit veya TDBEdit'teki OnEnter/OnExit kontrolünden .. Table BeforePost'a kadar arada bir sürü koyacak yer vardır.

- Şöyle bir soru sorayım, maaş hesabını hem eski hem de yeniTL olarak hesaplamak için alan ayırdınız ? Table'in beforepost olayında, eski girilen miktarı fonksiyondan geçirip YTL alanına Edit edin ve sonra Post'a müsaade edin.

zengin · Mesaj gönderen **zengin** » 22 Ara 2004 07:48

Degerli Muharrem ARMAN hocam Bu YTL hakkında Benimde
cözemedigim Bir sorunum var Senin Yazdıgın Kodlarını Benim satırlarımda
Tutar Adet Toplam alanım Var Ve Eski TL Yi YtL ye uyarlamak İstiyorum
Fakat Ben Bir türlü Bu Olayı cözemedim Hocam Bana Bu Konuda
Yardımlarınızı Bekliyorum Saygılarımla

@mrmcop tarafından verilen referans fonksiyon yeniden güncellendiğinden CODE tag'ı silinerek yeni halinin bulunduğu o sayfanın linki verilmiştir...

viewtopic.php?t=2532#12726

Query · Mesaj gönderen **Query** » 22 Ara 2004 09:43

Eger Edit1(TL) i Edit2(YTL) ye aktaracaksan

Kod: Tümünü seç

Edit2.Text := FormatFloat('#,#.00', TLtoYTL(StrToFloat(Edit1.Text)));

yapacaksin.

must_sargin · Mesaj gönderen **must_sargin** » 22 Ara 2004 09:52

iyi çalışmalar,
yapmak istediğim tl olarak girilen parayı çalışma anında ytl formatına çevirip table'a işlemesidir.

zengin · Mesaj gönderen **zengin** » 22 Ara 2004 10:55

degerli arkadaşlarım öncelikle must_sargin arkadaşımızdan Özür dilerim
Belkide Kendisinin Ögrenmek istedigi konuyu Acıklık getirmiştir inşallah
Fakat Bu YTL hakkında Ayrı Bir Başlık Acmak istemedim Ve degerli
site üyelerindende Ayrıca Özür dilerim
ve benim düşüncem Table1 deki toplam alanında örnegin 1.295.000
olan alanı Muharrem ARMAN hocamın kodları ile 1.300 ytl dönüştürmek istiyorum daha dogrusu Yuvarlama İşlemi yapmak istiyorum
saygılarımla

must_sargin · Mesaj gönderen **must_sargin** » 22 Ara 2004 02:20

Edit1'in onexit olayına:

MaasTable.FieldByName('maasi').AsFloat := FormatFloat('#,#.00', TLtoYTL(StrToFloat(Edit1.Text)));

şeklinde uygularsam acaba çalışır mı?