Untuk memperoleh jumlah kolom angka, disediakan sebuah prosedur bernama ‘Displayed’ yang mengacu kepada field yang mempertahankan keunikan data detail. Fungsi ini menghasilkan return boolean, return true jika data rincian tampil di form dan false jika tidak tampil di form.
Berikut ini contoh untuk memperoleh jumlah keseluruhan dari jumlah harga detilnya:
Function TFPenjualan.JumlahHargaDetail: extended;
var i :integer;
begin
result:=0;
for i:= 0 to 14 do
begin
result:= result + refcuhg(i).value;
end;
if length(FDetail)= 0 then exit;
for i:= 0 to length(FDetail)-1 do
begin
if Displayed(FDetail[i].nomor)=False then
result:= result + FDetail[i].JmlHarga;
end;
end;
Dengan prosedur ini, anda dapat memperoleh jumlah kolom JmlHarga setiap kali salah satu angka di dalam kolom Jml-Harga diubah. Perubahan ini berlangsung secara real-time.
Sejak 2009 Sept 26, sudah di sediakan function untuk memperoleh jumlah kolom angka bertipe integer, float atau currency, kecuali ‘id’ dan kolom unik yang mempertahankan sekuensial input detail. Namanya diawali dengan ‘Sum’+Nama-kolom, spasi di dalam nama prosedur ini terhapus.
Silakan lihat di dalam produk DFGEN. Jika diperlukan, anda tinggal menimpakan nilai ini ke suatu kolom master yang mencantumkan jumlah angka dari kolom detilnya.
