[ASK - Delphi::FastReport] Sum di group header

Beranda

...

Programmer Forum
[ASK - Delphi::FastReport] Sum di group header

luckynvic

15-01-2013 06:25

[ASK - Delphi::FastReport] Sum di group header

ane lg pusing gan buat sum di group header
kode di fast report

Code:



procedure GroupFooter7OnBeforePrint(Sender: TfrxComponent);

begin

 set(<dsBarangUnit."kd_aset5">,sum(<dsBarangUnit."Jumlah">/;)/); 

end;



procedure Memo77OnBeforePrint(Sender: TfrxComponent);

begin

if Engine.FinalPass then 

 Memo77.Text:=get(<dsBarangUnit."kd_aset5">/;)/; 

end;

memo77 itu memotext yang ada di groupHeader7.
ane sudah ikut petunjuk manual dan contoh di demonya tp blm jadi, nilai sum(<dsBarangUnit."Jumlah"> selalu null, emoticon-Bingung (S)

EDIT :
Solved
ane pake cara yg lain sj, ane pake cara pertama tetapi tetap merujuk pada manual http://www.fast-report.com/en/docume...s%20header.htm.
hitungan sum tetap di fastreport tapi tdk pake fungsi sum, hitung manual, thanQ agan mbahdien jadi ane dapat ide lain.

Spoiler for jadinya:

Code:

var

sum5:TStringList;

j5:extended; 

i5:integer; 

 

procedure Page1OnBeforePrint(Sender: TfrxComponent);

begin

 i5:=0; 

end;



procedure GroupHeader7OnBeforePrint(Sender: TfrxComponent);

begin

 if Engine.FinalPass then

 Memo77.Text:=sum5[i5]

 else

 j5:=0; 

end;



procedure GroupFooter7OnBeforePrint(Sender: TfrxComponent);

begin

 if not Engine.FinalPass then 

 sum5.add(format('%.0d',[j5]));

inc(i5);

 

end;



procedure MasterData1OnAfterPrint(Sender: TfrxComponent);

begin

 j5:=j5+<dsBarangUnit."jumlah">; 

end;



begin 

sum5:=TStringList.create; 

end.

Diubah oleh luckynvic 15-01-2013 08:38

3.9K

Kutip

Balasan

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Mari bergabung, dapatkan informasi dan teman baru!

Programmer Forum

20.2KThread•4.3KAnggota

Terlama

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru