fastreport toplamın group header da görnmesi ÇOK ACİL

[eren2000]

MErhaba,
Fastreport 3.o kullanıyorum. Groupheader ile gruplama yaptım. Masterband daki datayı (miktar) group footer da sum komutuyla toplatıyorum.
Grubun altına toplam alıyor. Ben bu toplamın aynısını Groupheader da göstermek istiyorum.

Fastreportun kod bölümünde şöyle yazıyorum.
procedure groupheader1.onbeforeprint(Sender);
begin
memo69.text:=sysmemo1.value;
end;

sysmemo1 adlı nesne group footer da toplamı tutan nesne
memo69 adlı nesne group header içinde yer alıyor ve group footerdaki toplam değerini buna eşitliyorum.

Sorunum şu. Toplamı aldıktan sonra groupheader da bu nesne içinde gösteriyor. Ama 1. sayfa da göstermiyor. 1.sayfadaki toplamı 2 sayfanın başında gösteriyor. Ben 1 sayfada aldığı toplamı 1.sayfanın groupheadreında görmek istiyorum. Yardımlar için teşekkürler.

[Battosai]

Group header yerine page header içine yerleştir ilgili memo yu.....

[eren2000]

daha önce konu edilmiş. Örneği görmüştüm ama dikkat etmemişim. Fast reportun örneklerinde de varmış. Tşk.
Dialogs and script de total in group header örneği.

[eren2000]

Bu örneği denedim uyarladım kopyaladaım herşeyi denedim ama olmadı bir türlü. Kullanan ve nasıl kullanılacağını bilen arkadaş varsa lütfen yardımcı olsun. TŞk. Acil kullanmam lazım.
Sıkıntı hala bir öncekinin toplamını yazdırıyor. Double pass yapmama rağmen

[eren2000]

Hala çözemedim atladığım bir yer var sanırım ama bulamıyorum. Örneği defalarca inceledim ama olmuyor. Bir yol gösteren yok mu acaba

[vkamadan]

Merhaba ,
Report Objenizin Script özelliğini aşağıdaki yapıda düzenlediğiniz mi ? (DoublePass:=True olduğunu varsayıyıorum)

Kod: Tümünü seç

var
List: TStringList;
i: Integer;
procedure frReport1OnStartReport(Sender: TfrxComponent);
begin
List := TStringList.Create;
end;
procedure frReport1OnStopReport(Sender: TfrxComponent);
begin
List.Free;
end;
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
i := 0;
end;
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FinalPass then
Memo8.Text := List[i];
end;
procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
List.Add(FloatToStr(<SUM(<tabloadi."alanadi">,MasterData1)>));
Inc(i);
end;
begin
end.

Genelde kullanıyorum sorun yaşamadım hiç.