fastreport master detail rapor query ile ilişkilendirme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

fastreport master detail rapor query ile ilişkilendirme

Mesaj gönderen greenegitim »

fastreporta stok detaylı cari ekstre yapmaya çalışıyorum amacım cariharekete evrak fatura ise faturahareket tablosundan o evrağın faturahareketlerini göstermek fastreportla ilgili örnekleri incelediğimde table ile yapılıp ilişkilendirilmiş ben cariharekete ki evrak id si ile faturadaki id alanımın eşleştirmesini yapıyorum fakat ortaya çıkan görüntü bu şekilde
Resim

rapor tasarlama ekranı da bu şekilde
Resim
elinde örnek basit bir form olan veya daha önce bu sorunla karşılaşmış arkadaşlardan yardım istiyorum.
Mücadele güzelleştirir!
yusuf simsek
Üye
Mesajlar: 330
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: fastreport master detail rapor query ile ilişkilendirme

Mesaj gönderen yusuf simsek »

ilişkini Report nesnesi üzerinde değil de bağlantı sağladığın query üzerinde çözmen daha sağlıklı olabilir...

ya da Rapor üzerinde Detail band Before Print olayında Master - Detail ilişkisi olmayan satırları gizleyebilirsin...

procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
if not (<fatura.cariid> = <faturadetay.cariid>) then
detaildata1.visible := False
else
detaildata1.visible := True;
end;
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!

https://extrayazilim.com
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

Re: fastreport master detail rapor query ile ilişkilendirme

Mesaj gönderen greenegitim »

ilişkilendirmeyi bu şekilde yapıyorum

Kod: Tümünü seç

 cumle:='';
  cumle:=cumle+' and firmaid = '+QuotedStr(IntToStr(firmaid));
  cumle:=cumle+' and CARIID =' +QuotedStr(qry_carihareketCARIID.Text);
  cumle:=cumle+' and faturaid='+QuotedStr(qry_carihareketEVRAKID.Text);

  qry_faturahareketi.Close;
  qry_faturahareketi.SQL.Text:='';
  qry_faturahareketi.SQL.Text:='select * from faturahareketi where 1=1'+cumle+' order by id asc';
  qry_faturahareketi.Open;
  qry_faturahareketi.FetchAll;
  ShowMessage(qry_faturahareketi.SQL.Text);

 filename:='\FR3RAPORLAR\StokDetayliEkstre1.fr3';
  if FileName <> '' then
   begin
  frxReport1.LoadFromFile(extractfilepath(paramstr(0))+FileName,true);
  frxReport1.PrepareReport;
  frxReport1.ShowReport(True);

  end;
verdiği ekran görüntüsü şu şekilde
Resim
burada 2. sıradaki faturanın hareketini göstermedi
Mücadele güzelleştirir!
Cevapla