sERPa súgó

A FastReport TfsScript objektumában támogatott Pascal nyelven írt program.

Példa

<Script>

 procedure Initialize;

 begin

         Data1['FelhasznaloNev'] := &lt;UserName&gt;

 end;

 function CheckParatlanSzam: Boolean;

 begin

         Result := (&lt;Value&gt; = NULL) or ((&lt;Value&gt; &gt; 0) and (&lt;Value&gt; mod 2 = 1));

         if not Result then

                 ShowMessage('Ez nem pozitív páratlan szám!');

 end;

</Script>