Fast Report 'ta boş satırları listelemesin

[volkancesur]

S.a. Cümleten;
Arkadaşlar fastreport ile bir procedure listeliyorum ama Raporda stok kısmında Sıfır olanları listemesi veya boş olan alanları listelemesin istiyorum. Yardımcı Olursanız sevinirim.
Şimdiden Teşekkürler

[csunguray]

MasterData1 i tıklayın. Sonra özellik pencerisindeki Olaylar sekmesini tıklayın. OnBeforePrint olayını çift tıklayın.

Kod: Tümünü seç

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  if <Malzeme."STOK_MIKTARI"> = 0 
                  then MasterData1.Visible := False 
                  else MasterData1.Visible := True;                                                                                                                     
end;

yazın.

[orhancc]

Yanlış hatırlamıyorsam veri bandına sağ tıklayıp boş satır veya değerleri gösterme diye birşey vardı.

[volkancesur]

Çok Teşekkür Ederim @csunguray

Kod: Tümünü seç

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
 if  <FirmaTeklifListesi."STOK"> = 0
   then              
   begin
     MasterData1.Visible := False
   end
    else
     begin                                   
       MasterData1.Visible := True;
     end;                              
     end;

Bu Kod İşi Çözdü ancak satır başlarındaki #Line numaraları ardışık gelmiyor bunun için bir çözümü olan var mı ?
@ orhancc Sizin dediğinizdeki şey sıfırları gösterme seçeneğinde oluyor yanlış hatırlamıyorsam .
İlginiz için Teşekkür Ederim.

[csunguray]

Satır numaralarını kendin saydırabilirsin. Rapor tasarım ekranındaki özellik (Properties) penceresi üzeründeki obje listesinden Raporun kendisini seç. Olaylardan OnStartReport'u çift tıkla. Kodu aşağıdaki gibi oluştur. var (değişken tanımlama) kısmını elinle yazman gerekiyor.

Kod: Tümünü seç

var
  SatirNo: Integer;
    
procedure ReportMalzemeListOnStartReport(Sender: TfrxComponent);
begin
  SatirNo := 0;                                
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  if <Stok."STOK_MIKTARI"> = 0 then
  begin
    MasterData1.Visible := False;            
  end else 
  begin
    MasterData1.Visible := True;
    SatirNo := SatirNo + 1;                                                          
  end;                  
end;

begin

end.

Son olarak rapor içerisinde [#Line] kullandığın yerlerde [SatirNo] kullan.

[volkancesur]

Çok Teşekkür Ederim Çok İşime Yaradı.Allah Razı Olsun.

[bobasturk]

merhaba,

raporlamamda 5 adet page oluşturdum. ama girilen veriye göre bazı page ler de veri bulunmuyor ve boş görünüyor. yazdırıken de haliyle yazıcı boş sayfayı da basıyor ve kullanıcıyı ya yazdırma anında sayfa seçmeye veya yazıcıdan çıkan boş sayfaları ayıklamaya yöneltiyorum.

istediğim eğer page üzerinde bulunan master veya detail bantlarda veri yoksa page görünmesin ve yazdırılmasın. yukarıdaki işlemi frxreport un code kısmında yaptım ama page gizlemeyi başaramadım.

teşekkür ve saygı ile kolay gelsin