fastreport

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kamuran48
Üye
Mesajlar: 284
Kayıt: 29 Eyl 2003 09:27
Konum: muğla

fastreport

Mesaj gönderen kamuran48 »

selam,
fastreport ta rapor hazırlarken ilk sayfanın altındaki toplamın ikinci sayfanın başına nakli yekün olarak basılmasını en altta da genel toplamın alınması olayını beceremedim.
bilgisi olan arkadaşımız var ise ve yardımcı olursa sevnirim.iyi çalışmalar.
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

Mesaj gönderen selman »

fastreportta siz ara toplam almak istiyorsunuz demi bunu bir fonksiyon ile halledebilirsiniz. sum(borc)-sum(alacak) şeklinde .Neyse şu anda fazla vaktim yok.da mantık oalrak bu şekilde.
kamuran48
Üye
Mesajlar: 284
Kayıt: 29 Eyl 2003 09:27
Konum: muğla

Mesaj gönderen kamuran48 »

hayır,
ben sayfaların altına aldırdığım toplamı ikinci,üçüncü kaç sayfaysa takip eden sayfanın başına nakli yekün olarak bastırmak istiyorum.
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

Mesaj gönderen selman »

selam kardeş
aslında bu olay çok basit nasıl mı mesela
siz o sayfaların nakli yekununun toplamını query de gösterdikten sonra
(select sum(nakliyekun) from tablom) diye daha sonra bunu Fastreportta
Veri/data diye seçersiniz frxdbdataseti ve Veri bölümünden sürükleyerek Nakliyekunu gösterebilirsiniz.Colum footer veya Page footera koyarsanız istediğiniz sonucu alırsınız sanırım.Kolay gelsin
Kullanıcı avatarı
kadirkurtoglu
Üye
Mesajlar: 748
Kayıt: 22 May 2005 01:20
Konum: Uzakta Görünen Tepeden...

Mesaj gönderen kadirkurtoglu »

merhaba band araçlarından yararlanmalısın. sayfaya bir adet üst başlık ve alt başlık ekleyip üst başlığa nakli yekün alt başlığa da toplam aktarabilirsin. mantığı sana kalmış kolay gelsin...
Bir mum, yanındaki mumları tutuşturmakla,
ışığında hiç bir şey kaybetmez.

Mevlana

OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
kamuran48
Üye
Mesajlar: 284
Kayıt: 29 Eyl 2003 09:27
Konum: muğla

Mesaj gönderen kamuran48 »

dediğinizi denedim
bandların özelliklerini

Kod: Tümünü seç

 if memo37.value=1 then
   begin
   ColumnHeader1.visible:=false;
 end;
kontrol edemedim.yani birinci sayfada columnheader görünmesin ikinci sayfada görülsün istiyorum.bu olmuyor örnek te bulamadım.iyi çalışmalar
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Raporun kod kısmında double bir değişken tanımla. Daha sonra title band in BeforePrint ında bunu sıfırla (daha önce benzer bir kod vermiştim). Detail BeforePrint de de hangi alanı toplatacaksan onunla topla. En sonunda da yazdıracağın bandın BeforePrint inde memoya taşı. Bu kısım ilk sayfada da olacağından, ayrıca Memo.Visible := [Page#] > 1; demelisin :wink:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
kamuran48
Üye
Mesajlar: 284
Kayıt: 29 Eyl 2003 09:27
Konum: muğla

Mesaj gönderen kamuran48 »

selam,
çözdük.kodları veriyorum.Emeği geçen herkesten Allah Razı olsun.teşekkür ederim.

Kod: Tümünü seç

var
  a,b,c:double;
procedure Page1OnBeforePrint(Sender:TfrxComponent);
begin
    a:=0;
    b:=0;
    c:=0;
end;

procedure MasterData1OnBeforePrint(Sender:TfrxComponent);
begin
   a:=a+ <maas."NET_ODE">;
   b:=b+ <maas."GEL_VER_IN">;
   c:=c+ <maas."TOPLAM">;

  memo33.text:='NAKLİ YEKÜN';
end;

procedure ReportSummary1OnBeforePrint(Sender:TfrxComponent);
begin
   if Engine.FinalPass then
   begin
  pagefooter1.visible:=false;

end;
end;



procedure PageHeader1OnBeforePrint(Sender:TfrxComponent);
begin
      PAGEHEADER1.Visible := <Page#> > 1;
end;

Cevapla