Primeri uporabe objektov v skriptah

Le të shohim dy shembuj të përdorimit të objekteve të raportit në skript.

Shënimi i çdo rreshti të dytë

Nganjëherë, për të arritur një transparencë më të madhe, duam që çdo rresht tjetër të shfaqet me një ngjyrë të ndryshme sfondi.

Le të shohim një shembull të skriptit që është i definuar për ID-në e artikullit për të shfaqur në të verdhë në çdo rresht të dytë. Si bazë, do të përdorim raportin '147 - Stoku Aktual sipas Magazina dhe Artikujve', që është në menunë e programit 'Mallit |Raporti i Stokut | Stoku Aktual'. Ne zëvendësojmë skriptin në ngjarjen "DetailOnBeforePrint" me sa vijon:

procedura DetailOnBeforePrint(Sender: TfrxComponent);
fillo
   nëse <Line#> mod 2 = 0 atëherë
     fIdent.Color := clYellow
   ndryshe
      fIdent.Color := clNone;
mbyll;
Vlera e pronës së ngjyrës 'clNone' do të thotë ngjyrë transparente.

Ndryshimi i Stiliti të Shkronjave në Kusht

Le të shohim një shembull të një kodi programi, i cili është tashmë në raportin '051 - Raporti Financiar', që është në menunë e programit 'Financat |Raportet | Raportet Financiare'. Në raportet financiare ka një fushë "acBold" e cila përcakton nëse të dhënat në raport do të shfaqen me shkronja me guxim. Skripti në raport është si më poshtë:

procedura fNazivOnBeforePrint(Sender: TfrxComponent);
fillo
    nëse <qReportIzpis."acBold"> = 'T' atëherë
      fillo
        fNaziv.Font.Style     := fsBold;
        fVrednost1.Font.Style := fsBold;
        fVrednost2.Font.Style := fsBold;
      mbyll
    ndryshe
      fillo
        fNaziv.Font.Style     := 0;
        fVrednost1.Font.Style := 0;
        fVrednost2.Font.Style := 0;
      mbyll;
mbyll;

Vlera e stilit të shkronjave 0 do të thotë që nuk është zgjedhur asnjë stil. Nëse duam të vendosim shkronja me guxim dhe italisht, shkruajmë për shembull:

fNaziv.Font.Style     := fsBold + fsItalic;