Primeri uporabe objektov v skriptah

Să aruncăm o privire la două exemple de utilizare a obiectelor de raport în script.

Sublinierea fiecărei linii a doua

Uneori, pentru a obține o transparență mai mare, dorim ca fiecare linie alternativă să apară cu o culoare de fundal diferită.

Să aruncăm o privire la un exemplu de script care este definit pentru ID-ul elementului pentru a apărea în galben pe fiecare a doua linie. Ca bază, vom folosi raportul '147 - Stoc curent pe depozite și articole', care este în meniul programului 'Bunuri |Raport de stoc | Stoc curent'. Înlocuim scriptul în evenimentul "DetailOnBeforePrint" cu următorul:

procedură DetailOnBeforePrint(Sender: TfrxComponent);
începe
   if <Line#> mod 2 = 0 then
     fIdent.Color := clYellow
   else
      fIdent.Color := clNone;
sfârșit;
Valoarea proprietății Color 'clNone' înseamnă culoare transparentă.

Schimbarea condițională a stilului fontului

Să aruncăm o privire la un exemplu de cod de program, care este deja pe raportul '051 - Raport financiar', care este în meniul programului 'Financiare |Raporturi | Raporturi financiare'. Pe rapoartele financiare este un câmp "acBold" care definește dacă datele de pe raport vor fi afișate cu font îngroșat. Scriptul de pe raport este următorul:

procedură fNazivOnBeforePrint(Sender: TfrxComponent);
începe
    if <qReportIzpis."acBold"> = 'T' then
      începe
        fNaziv.Font.Style     := fsBold;
        fVrednost1.Font.Style := fsBold;
        fVrednost2.Font.Style := fsBold;
      sfârșit
    else
      începe
        fNaziv.Font.Style     := 0;
        fVrednost1.Font.Style := 0;
        fVrednost2.Font.Style := 0;
      sfârșit;
sfârșit;

Valoarea stilului fontului 0 înseamnă că nu este selectat niciun stil. Dacă dorim să setăm font îngroșat și italic, scriem de exemplu:

fNaziv.Font.Style     := fsBold + fsItalic;