Primeri Datalab funkcija

U ovom poglavlju su navedeni primeri za funkcije u FastReportu, koje su bile napisane posebno za Pantheon 5.5 i nisu u standardnom FastReportu. Opis funkcija možete pogledati u Vodiču po Datalab PANTHEON-u 5.5.
 

Primer upotrebe funkcije CallQRBeforeBandPrint

 
procedure TitleOnBeforePrint(Sender: TfrxComponent);
begin
  CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
end;
 

Primer upotrebe funkcije dlBoolToYesNo

Na ispisu obračuna servisa ispišemo, da li je proizvod u garanciji

[dlBoolToYesNo(<qReportIzpis."anWarrenty"> = 'T')]

 

 Primer upotrebe funkcije dlDiv

[dlDiv(<qReportIzpis."anQty">, <qReportIzpis."anUMToUM2">)]

 Primer upotrebe funkcije dlDpaExecute

dlDpaExecute('A000042');

  Primer upotrebe funkcije dlGetCurrentUserID in dlGetCurrentUserName 

 

[dlGetCurrentUserID] - [dlGetCurrentUserName]
 

Primer upotrebe funkcije dlGetKeyViewFromKey

[dlGetKeyViewFromKey(<qReportIzpis."acKey">)]

 Primer upotrebe funkcije dlGetSaldoStr

[dlSaldoStr(nSaldo,'0')]
[dlSaldoStr(SUM(<qReportIzpis."anDebit"> - <qReportIzpis."anCredit">),'B')]

Primer upotrebe funkcije dlGetSQLString

 

Najčešći primer upotrebe funkcije je, da se pri pokretanju ispisa u prozoru ispiše cela SELECT fraza, koja je određena za izabrani dataset. Najviše se ispiše SELECT, koji pripada bendu sa imenom Detail:
 

begin
   ShowMessage(dlGetSQLString(Detail.Dataset));
end.

 Primer upotrebe funkcij dlIsORA

Server is [IIF(dlIsORA,'ORACLE','MS-SQL')]

 Primer upotrebe funkcije dlLoadCompanyImage

Na željenom ispisu stavimo slikovni objekt Picture1 i u njegovom događaju OnBeforePrint napišemo:


procedure Picture1OnBeforePrint(Sender: TfrxComponent);

begin
  dlLoadCompanyImage(Picture1); 
end;
 

 Primer upotrebe funkcije dlLoadProductImage

Sliku identa na ispisu 16B, koji je u programu u meniju Roba | Obračun izdatih računa | Obračun računa i razlike u ceni, prikažemo tako, da stavimo na ispis na bend IdentFooter slikovni objekt Picture1 i dodelimo mu Picture1OnBeforePrint .

U kodu napišemo:

procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
    dlLoadProductImage(Picture1, <qReportIzpis."acIdent">);  
end;

 

  Primer upotrebe funkcije dlNumberInWords

[dlNumberInWords(1000,'EUR','SI')]

Ispis bez obzira na jezik i lokalizaciju programa: hiljadu EUR  00/100

[dlNumberInWords(<qReportIzpisD."anForPay">, <qReportIzpisD."acCurrency">, '')]
[dlNumberInWords(dlTextToFloat(fZaPlacilo.Text), <qReportIzpisD."acCurrency">, 'HR')]
 

 Primer upotrebe funkcije dlStringReplace

Na ispisu 10A, koji je u programu u meniju Roba | Obračun izdatih računa dodamo u bend sa imenom Detail i ispišemo serijske brojeve, koji pripadaju izabranim pozicijama i izabranom računu. Funkcija SQLExp vrati sve zapise, svakog u svoju vrstu. Želimo zapisati serijske brojeve u jednoj vrsti, odvojene zarezom.
 
[dlStringReplace(SQLExp('SELECT acSerialNo, FROM tHE_MoveItemSerialNo WHERE acKey = ''' + <qReportIzpis."acKey"> + ''' AND acIdent = ''' + <qReportIzpis."acIdent"> + '''  GROUP BY acSerialNo UNION ALL SELECT acSerialNo FROM tHE_OrderItemSerialNo WHERE acKey = ''' + <qReportIzpis."acKey"> + ''' AND acIdent = ''' + <qReportIzpis."acIdent"> + ''' GROUP BY acSerialNo ORDER BY acSerialNo'), #13#10, ', ', 'rfReplaceAll', '')]

 

 Primer upotrebe funkcije dlStrToFloatDef

[dlStrToFloatDef('',0)]

Primer upotrebe funkcije dlStrToIntDef

[dlStrToIntDef('',0)]

Primer upotrebe funkcije dlTextToFloat

Na ispisu 241, koji je u programu u meniju Roba | Izdavanje | Dokument (npr. 300 – Veleprodaja), pretvorimo iznos akcize u broj i ispišemo bez grupnog separatora.

[dlTextToFloat(fTrosarina.Text)]
 

Primer upotrebe funkcije ExtractMonth in ExtractWeek

[ExtractMonth(<qReportIzpisD."adDate">)]
[ExtractWeek(<qReportIzpisD."adDate">)]
 

Primer upotrebe funkcije GetFormValue

Ident na ispisu trenutne zalihe:

[GetFormValue('PrometIzpisTrenZaloga.fIdent')]
 

Primer upotrebe funkcije GetOurCompany

Naziv našeg preduzeća: [GetOurCompany]
 

Primer upotrebe funkcije GetSubject

[GetSubject(<qSubjIzpis."acSubject">, <qSubjIzpis."acName">)]
[GetSubject(<qSubjIzpis."acSubject">, '']
 

 Primer upotrebe funkcije SQLExp

Drugi naziv našeg preduzeća:

[SQLExp('select S.acName2 from tHE_SetSubj S, tPA_SysParam P where S.acSubject = P.acOurCompany')]