Podaci Bendova

Trenutni zbir (kumulativni zbir) predstavlja zbir svih podataka na databandu od početka izveštaja ili od početka benda do zapisa koji je trenutno prikazan. U Pantheonu koristimo trenutni zbir, na primjer, za prikazivanje količine i vrijednosti zaliha. Može se prikazati u svakoj vrsti ili samo na kraju.

Primjer korištenja trenutnog zbira je u izveštaju '18A - Zapis o maloprodaji i kupovini dobara' koji se nalazi u programskom meniju 'Dobara | Izvještaj o izdatim fakturama | Komercijalni zapisi'.

  var
    nNabavaNeto, nSalePrice: Double;

...

  procedura DetailOnBeforePrint(Sender: TfrxComponent);
  počni
    ako (<Line#> <> 1) ili (<qReportIzpis."acKey"> <> '0000000000000') onda
    počni
      nNabavaNeto := nNabavaNeto + <qReportIzpis."NabavaNeto">;
      nSalePrice  := nSalePrice  + <qReportIzpis."anSalePrice">;
    kraj;
  kraj;

...

počni
  nNabavaNeto := 0;
  nSalePrice := 0;
kraj.

Analizirajmo ovaj primjer.

Na vrhu koda su deklarisane varijable "nNabavaNeto" i "nSalePrice". One drže vrijednosti u periodu, definisanom kriterijima izveštaja (bez početnog stanja). Zatim na događaju "OnBeforePrint" dodaju se vrijednosti kupovine, prijema dobara i prodaje dobara. Na kraju se varijable prikazuju u sažetku izveštaja.