Primer kumulativne sume

Primer kumulativne sume

Kumulativna suma (running total) predstavlja sumu svih podataka u bendu sa podacima, npr. vrste MasterData, od početka benda do vrste, koji se trenutno ispisuje.

Primer ispisa s kumulativnom sumom je na ispisu 120 u programu u meniju Narudžbine | Obračun narudžbina kupaca.

Na ispisu 147 ispišimo kumulativnu sumu polja tbIzpisTrenZaloga."ZALVREDNOST". Na bend Detail dodamo memo Memo1 i napišemo kod:

var
  nRunningTotal: Double;
...
  procedure DetailOnBeforePrint(Sender: TfrxComponent);
  begin
    nRunningTotal := nRunningTotal + <tbIzpisTrenZaloga."ZALVREDNOST">;
    Memo1.Text := FormatFloat('#,##0.00', nRunningTotal);
  end;
...
  procedure hSkladOnBeforePrint(Sender: TfrxComponent);
  begin
    nRunningTotal := 0;     
  end;