Primer kumulativne vsote

Primer kumulativne vsote 

Kumulativna vsota (running total) predstavlja vsoto vseh podatkov v pasu s podatki, npr. vrste MasterData, od začetka pasu do vrste, ki se trenutno izpisuje. Primer izpisa s kumulativno vsoto je na izpisu 120 v programu v meniju Naročila | Obračun naročil kupcev. Na izpisu 147 izpišimo kumulativno vsoto polja tbIzpisTrenZaloga."ZALVREDNOST". Na pas Detail dodamo memo Memo1 in napišemo kodo:

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;