Qreport duruma göre değer atama

[feinpus]

Qreport kullanmayın diye ısrar edşyorsunuz ama artık başka çarem kalmadı bunu kullanmam gerek Fast Report ta çıktı üzerinde kayıtlı kullanıcı değil diye bir yazı çıkartıyor bundan da vaz geçtim free reporta baktım bununda Delphi 7 için bir versiyonu yok yine Qr' ye kaldık.

En azından bir süre sonra Rave lisanslı olarak alana kadar bununla idare edeceğim sanırım.

Şimdi gelelim soruya;

Rapora bir koşul koyup Termin verilme tarihi şimdiki tarihten küçük ise bu satırdaki yazıların rengi kırmızı olmasını ve satırın en başında da "Gecikti" yazmasını istiyorum.

Bana bir yardımcı olursanız sevinirim...
Şimdiden Teşekkürler.

[rsimsek]

Yazdırdığın bandın üzerindeki QRLabel veya QRDBText in OnPrint inde Color veya Font.Color özelliklerinden istediğin rengi verebilirsin.
Ayrıca aynı yerde Value değerine de istediğin gibi müdahale edebilirsin.

Kod: Tümünü seç

procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
  if Şart then 
    Font.Color := clRed
  else
    Font.Color := clBlue;
  Value := 'Gecikti  ' + Value;
end;

Şeklinde yazabilirsin..

Kolay gelsin.

[feinpus]

Tamam bunu yaptım ama bunda sorunlar var ilk olarak önceki kaydın değerine göre bakıyor. Kendi satırındakilere değil.

Ayrıca bu satırdaki yazıların rengini değiştirmeye çalıştığımda bütün hepsi değişiyor.

şimdi Gecikti yazısı için "QRExpr1" özelliğini kullanıyorum ama bunda da tarih karşılaştırmasında sorunum var mesela eğer

(Tarih <= DATE ) dediğimde doğru hesaplayamıyor. sadece "=" kullandığımda sorun yok ama büyük - küçük işleminde sorun çıkartıyor buna bir çare varmıdır?

[rsimsek]

Hayır bu yazdıracağın satır için geçerlidir. Ayrıca rengi değiştirdiğinde tekrar o şart sağlanmıyorsa olması gereken rengi ataman gerekir. Yoksa ondan sonraki satırlar aynı renkte çıkar..

[feinpus]

Bir satırda yaptırıyorum sorun yok şimdilik asıl takıldığım yer;

2 tarih karşılaştırıyorum ve biri birinden küçük olursa bir yazı yazdıracam yada renk değiştireceğim.

Sorun şu ki iki tarihi karşılaştırırken ilk iki karakterine göre karşılaştırıyor.

yani 20.02.2000 > 02.02.2004 gibi bir sonuç çıkmış oluyor bunu nasıl halledebilirim.

[rsimsek]

Tablodaki alanları mı karşılaştırıyorsun? ne ile neyi ve nasıl karşılaştırma yaptığını yazarsan tavsiyede bulunabiliriz..

[feinpus]

Tabloda ki bir tarih ile bugünkü tarihi karşılaştırıyorum.

[rsimsek]

azıcık kodunu yazsan..? yani;

Kod: Tümünü seç

if TableTarih.AsDataTime = now then ...

şeklinde mi?

[feinpus]

Bu kodu yazabileceğim bir yer yok Qr'nin OnPreview prosedürü bozuk bunun için "QRExpr1" bileşenini kullanıyorum bunun içerisine de bu tip fonksiyonlar koyamıyorum.

Standart fonksiyon prosedürlerinin dışına çıkmama izin vermiyor.

Hata bunun içerisinde yazdığım kod şöyle

Kod: Tümünü seç

IF(DevamEdenIsler.Termin  <= DATE,('**Gecikti'),(''))

burada termin alanını string olarak görüyor derdim buradan.

[aslangeri]

S.A.
Qr nin değilde Expr nin onpreview olayını (onprintte) olabilir olayına
istediğin karşılaştırmaları yap sonucuda value Değişkenine aktar.
Kolay gelsin.

[feinpus]

Expr altına yazınca olmuyor ama bi hatamı buldum şimdi her qrDbtext'in altına yazıyorum ama daha önce ne hata yaptığımı anlayamadım ama şimdi hepsinin altına ayrı ayrı yapıyorum.

Daha önce bunu denemiştim ama anca şimdi oldu.
aaaa sanırım ilk denediğimde tarihi text'e yazanla karşılaştırmıştım şimdi alan ile direkt yaptım oldu.

Yardımlarınız için teşekkürler...