Fastreport fiyat yazı fontu

[mukoly]

Merhabalar fastreport  ektedki görseldeki gibi fiyatı  bu şekilde yapmak istiyorum ama beceremedim . Yardımcı olursanız çok  sevinirim

[mukoly]

Merhaba varmıdır çözümü ustalar

[m_ekici]

Olmayan nedir?
Fiyat ve kuruş hanesi ise bu fontun özelliği olabilir,
Farklı 2 alan (9) ve (.30) u ayrı ayrı alan olarak yazdırabilirsin.

[mukoly]

(20-02-2022, Saat: 21:27)m_ekici Adlı Kullanıcıdan Alıntı: Olmayan nedir?
Fiyat ve kuruş hanesi ise bu fontun özelliği olabilir,
Farklı 2 alan (9) ve (.30)  u ayrı ayrı alan olarak yazdırabilirsin.

Sqlden geliyor bilgiler işte yapamadıgım kısım orası  farklı alan olarak nasıl alıcam orasını beceremedim . Eğer dediğiniz gibi farklı memo ya koyarak yazı büyüklügünü ayarlayabilrim

[m_ekici]

(21-02-2022, Saat: 09:49)mukoly Adlı Kullanıcıdan Alıntı:

(20-02-2022, Saat: 21:27)m_ekici Adlı Kullanıcıdan Alıntı: Olmayan nedir?
Fiyat ve kuruş hanesi ise bu fontun özelliği olabilir,
Farklı 2 alan (9) ve (.30)  u ayrı ayrı alan olarak yazdırabilirsin.

Sqlden geliyor bilgiler işte yapamadıgım kısım orası  farklı alan olarak nasıl alıcam orasını beceremedim . Eğer dediğiniz gibi farklı memo ya koyarak yazı büyüklügünü ayarlayabilrim

Kod: (Select All)

select floor(FIYAT) As Fiyat_TL, (ROUND(FIYAT,2)-floor(FIYAT))*100 AS Fiyat_Kurus FROM URUN_FIYATLARI

[mukoly]

(21-02-2022, Saat: 11:03)m_ekici Adlı Kullanıcıdan Alıntı:

(21-02-2022, Saat: 09:49)mukoly Adlı Kullanıcıdan Alıntı: Sqlden geliyor bilgiler işte yapamadıgım kısım orası  farklı alan olarak nasıl alıcam orasını beceremedim . Eğer dediğiniz gibi farklı memo ya koyarak yazı büyüklügünü ayarlayabilrim

Kod: (Select All)

select floor(FIYAT) As Fiyat_TL, (ROUND(FIYAT,2)-floor(FIYAT))*100 AS Fiyat_Kurus FROM URUN_FIYATLARI

Çok teşekkür ederim kolay gelsin

---

Hocam fiyat 11.00 ama 11.0 olarak gözüküyor

[COMMANDX]

Biraz matematik operatörleri ile halledilebilir veya string parse işleri
Floor, Ceil, Round yuvarlama yapmaktadır.
Alttaki Bu kod Örnekleri Yuvarlama yapmaz, Olduğu gibi geleni verir

USES STRUTILS; Eklemeyi unutmayın

begin
var
a:Extended;
begin
Edit2.Text:=RightStr(Edit1.Text,3); // bu kısım sağdan ondalıklı virgülü alır. Parse işleminin en basit yoludur
a:=strtofloat(edit1.text) - trunc(strtofloat(Edit1.Text)); //örnek 0,63 gibi bir sonuç alır Float virgüllü sayıdan çıkarılır
edit3.Text:=floattostr(a);
Edit4.Text:=IntToStr(Trunc(StrToFloat(Edit1.Text))); // Tam sayıyı yuvarlatmadan verir
end;

[ugorkem]

2 tane TfrxMEmo nesnesine aşağıdaki kodları yazarsanız istediğiniz gibi bölmüş olursunuz
Örnek Olarak 10.8 girdim fakat siz decimal field a bağlarsanız isteğiniz gerçekleşir

ikisinde de autowidth = True
Ondalık Sola Dayalı
Tam kısım sağa dayalı olmalıdır

Tam Kısım :  
[Copy(FormatFloat('#.#0',10.8),0, length(FormatFloat('#.#0',10.8))-3  )]

Ondalık Kısım :
[Copy(FormatFloat('#.#0',10.8),length(FormatFloat('#.#0',10.8))-2, 3  )]

[mukoly]

Çok teşekkür ederim hepinize elinize sağlık

[m_ekici]

(21-02-2022, Saat: 11:08)mukoly Adlı Kullanıcıdan Alıntı:

(21-02-2022, Saat: 11:03)m_ekici Adlı Kullanıcıdan Alıntı:

Kod: (Select All)

select floor(FIYAT) As Fiyat_TL, (ROUND(FIYAT,2)-floor(FIYAT))*100 AS Fiyat_Kurus FROM URUN_FIYATLARI

Çok teşekkür ederim kolay gelsin

---

Hocam fiyat 11.00 ama 11.0 olarak gözüküyor

Fast reporttaki alanın üzerinde sağ tuş displayformat  / Number ı seçtikten sonra Format string bölümüne #,##0 yazarsan küsüratı göstermez.