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

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

luckynvic

15-01-2013 13: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 15:38

3.9K

Kutip

Balasan

Komentar yang asik ya

Urutan

Terbaru

Terlama

Komentar yang asik ya

Komunitas Pilihan