Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
fastReport sayfa sayısını okuma
#1
merhaba;

fastReport ta rapordaki sayfa sayısı 1 den fazlaysa ColumnFooter birinci sayfada görünsün, eğer rapordaki sayfa sayısı 1 sayfadan oluşuyorsa ColumnFooter görünmesin.
aşağıdaki kodlamayla ColumnFooter1 da bu işlem neden çalışmıyor. aşağıdaki kodu kullanıyorum.
procedure ColumnFooter1OnBeforePrint(Sender: TfrxComponent);
begin
     if <page1.PageCount> > 1 Then ColumnFooter1.visible := True
               else ColumnFooter1.visible := False;  
end;
kodlamayı raporun kod sayfasında yapmaya çalışıyorum. 
Child1 birinci sayfada gizleme işlemi aşağıdaki kodla yapılıyor.
      if <page1> = 1 Then Child1.visible := False                 

                      else Child1.visible := True;

kullanabileceğim bir yöntem var mı?
Teşekkür ederim.
WWW
Cevapla
#2
(09-04-2020, Saat: 21:17)akuyumcu63 Adlı Kullanıcıdan Alıntı: merhaba;

fastReport ta rapordaki sayfa sayısı 1 den fazlaysa ColumnFooter birinci sayfada görünsün, eğer rapordaki sayfa sayısı 1 sayfadan oluşuyorsa ColumnFooter görünmesin.
aşağıdaki kodlamayla ColumnFooter1 da bu işlem neden çalışmıyor. aşağıdaki kodu kullanıyorum.
procedure ColumnFooter1OnBeforePrint(Sender: TfrxComponent);
begin
     if <page1.PageCount> > 1 Then ColumnFooter1.visible := True
               else ColumnFooter1.visible := False;  
end;
kodlamayı raporun kod sayfasında yapmaya çalışıyorum. 
Child1 birinci sayfada gizleme işlemi aşağıdaki kodla yapılıyor.
      if <page1> = 1 Then Child1.visible := False                 

                      else Child1.visible := True;

kullanabileceğim bir yöntem var mı?
Teşekkür ederim.

Merhabalar,

https://www.delphican.com/showthread.php...DoublePass

Konuyu inceleyin lütfen, sorununuz muhtemelen çözümlenecektir.

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
#3
(09-04-2020, Saat: 21:26)hi_selamlar Adlı Kullanıcıdan Alıntı:
(09-04-2020, Saat: 21:17)akuyumcu63 Adlı Kullanıcıdan Alıntı: merhaba;

fastReport ta rapordaki sayfa sayısı 1 den fazlaysa ColumnFooter birinci sayfada görünsün, eğer rapordaki sayfa sayısı 1 sayfadan oluşuyorsa ColumnFooter görünmesin.
aşağıdaki kodlamayla ColumnFooter1 da bu işlem neden çalışmıyor. aşağıdaki kodu kullanıyorum.
procedure ColumnFooter1OnBeforePrint(Sender: TfrxComponent);
begin
     if <page1.PageCount> > 1 Then ColumnFooter1.visible := True
               else ColumnFooter1.visible := False;  
end;
kodlamayı raporun kod sayfasında yapmaya çalışıyorum. 
Child1 birinci sayfada gizleme işlemi aşağıdaki kodla yapılıyor.
      if <page1> = 1 Then Child1.visible := False                 

                      else Child1.visible := True;

kullanabileceğim bir yöntem var mı?
Teşekkür ederim.

Merhabalar,

https://www.delphican.com/showthread.php...DoublePass

Konuyu inceleyin lütfen, sorununuz muhtemelen çözümlenecektir.

Kolay gelsin.

merhaba;
vermiş olduğunuz linki inceledim. kendim raporumda kullandığım kod aşağıdaki şekildedir. 
procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
 if <page> = 1 Then child1.visible := False
               else child1.visible := True;

 //Repor1 seçeneğinin altında EngineOptions tan DoublePass True olarak ayarlanmalıdır.                                                                                                                                                                                                     
 if Engine.FinalPass then
 begin
   if (<Page#>=<TotalPages#>) and (<page> = 1) then
   begin
     ColumnFooter1.Visible:=False;
   end else
   begin
     ColumnFooter1.visible:=True;
   end;
 end;        
end;

devreden bakiye için aşağıdaki kodu kullandım.
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
 if Engine.FinalPass then DevrToplam :=DevrToplam + <dbTeklifHrkt."TUTAR">;  
end;

raporda kod sayfasının en üst bölümünde aşağıdaki kodu kullandım.
var
 DevrToplam :Currency;
   
procedure rpSATeklifOnStartReport(Sender: TfrxComponent);
begin
 DevrToplam :=0;                                                             
end;

çok teşekkür ederim.
WWW
Cevapla
#4
(11-04-2020, Saat: 14:05)akuyumcu63 Adlı Kullanıcıdan Alıntı:
(09-04-2020, Saat: 21:26)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

https://www.delphican.com/showthread.php...DoublePass

Konuyu inceleyin lütfen, sorununuz muhtemelen çözümlenecektir.

Kolay gelsin.

merhaba;
vermiş olduğunuz linki inceledim. kendim raporumda kullandığım kod aşağıdaki şekildedir. 
procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
 if <page> = 1 Then child1.visible := False
               else child1.visible := True;

 //Repor1 seçeneğinin altında EngineOptions tan DoublePass True olarak ayarlanmalıdır.                                                                                                                                                                                                     
 if Engine.FinalPass then
 begin
   if (<Page#>=<TotalPages#>) and (<page> = 1) then
   begin
     ColumnFooter1.Visible:=False;
   end else
   begin
     ColumnFooter1.visible:=True;
   end;
 end;        
end;

devreden bakiye için aşağıdaki kodu kullandım.
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
 if Engine.FinalPass then DevrToplam :=DevrToplam + <dbTeklifHrkt."TUTAR">;  
end;

raporda kod sayfasının en üst bölümünde aşağıdaki kodu kullandım.
var
 DevrToplam :Currency;
   
procedure rpSATeklifOnStartReport(Sender: TfrxComponent);
begin
 DevrToplam :=0;                                                             
end;

çok teşekkür ederim.

Merhabalar,

Sorunu çözümlediğinize ve paylaşımda bulunduğunuza sevindim.

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  PDF-WORD-EXCEL Binary olarak kaydetme ve geri okuma hk MugenPower 4 223 28-06-2020, Saat: 21:29
Son Yorum: mrmarman
  Fastreport bpl dosyaları MugenPower 2 179 25-06-2020, Saat: 22:59
Son Yorum: MugenPower
  ini dosyası okuma problemim. onurakman 14 972 20-05-2020, Saat: 00:26
Son Yorum: onurakman
  FastReport sayıyı yazıya çevirmek Mikdad 2 352 11-05-2020, Saat: 15:53
Son Yorum: adelphiforumz
Question fastreport pdf ve excell export Ekvador 6 732 03-05-2020, Saat: 22:28
Son Yorum: mcuyan



Konuyu Okuyanlar: 1 Ziyaretçi