Datalab funkcije
CallQRBeforeBandPrint
Postupak CallQRBeforeBandPrint poziva programski kod u PANTHEON-u napisan za ovu traku. Napisan je u događaju trake OnBeforePrint.
Header
procedure CallQRBeforeBandPrint(Sender: TfrxComponent; var PrintBand: Boolean);
Primjer
procedure TitleOnBeforePrint(Sender: TfrxComponent);
begin
CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
end;
dlBoolToYesNo
Funkcija dlBoolToYesNo vraća 'Da' ako je vrijednost parametra True, inače vraća 'Ne'.
Header
function dlBoolToYesNo(bCondition: Boolean): String;
Primjer
Na izvještajima o uslugama vraća da li je stavka pod jamstvom.
[dlBoolToYesNo(<qReportIzpis."anWarrenty"> = 'T')]
dlDiv
Funkcija dlDiv vraća kvocijent dva broja ako drugi parametar nije jednak 0. Ako je drugi parametar jednak 0, vraća 0.
Header
function dlDiv(nNum1, nNum2: Real): Real;
Primjer
[dlDiv(<qReportIzpis."anQty">, <qReportIzpis."anUMToUM2">)]
dlDPAExecute
Funkcija dlDPAExecute pokreće PANTHEON applet (DPA). Parametar je ID DPA.
Header
procedure dlDpaExecute(cKey: String);
Primjer
dlDpaExecute('A000042');
dlGetCurrentUserID i dlGetCurrentUserName
Funkcija dlGetCurrentUserID vraća ID trenutnog korisnika.
Funkcija dlGetCurrentUserName vraća ime trenutnog korisnika.
Headers
function dlGetCurrentUserID: String;
function dlGetCurrentUserName: String;
Primjer
Trenutni korisnik:
[dlGetCurrentUserID] - [dlGetCurrentUserName]
dlGetKeyViewFromKey
Funkcija dlGetKeyViewFromKey pretvara neformatirani ključ dokumenta u formatirani ovisno o postavkama administrativne ploče.
Header
function dlGetKeyViewFromKey(cKey: String);
Primjer
[dlGetKeyViewFromKey(<qReportIzpis."acKey">)]
dlGetPostCode
Funkcija dlGetPostCode vraća poštanski broj bez prefiksa ili postfiksa.
Header
function dlGetPostCode(cKey: String);
Primjer
[dlGetPostCode(<qReportIzpis1."acPost">)]
dlGetSaldoStr
Funkcija dlGetSaldoStr pretvara broj u notaciju s karakterom D (znači dugovanje) ili C (znači potraživanje) na kraju. Koristi se u Demeter (Financije) modulu.
Ako je prvi parametar veći od 0, vraća prvi parametar i karakter D na kraju.
Ako je prvi parametar manji od 0, vraća apsolutnu vrijednost prvog parametra, i karakter C na kraju.
Ako je prvi parametar 0 i drugi parametar B, vraća tekst 'BALANSIRANO'.
Ako je prvi parametar 0 i drugi parametar je NIJE B, vraća drugi parametar.
Header
function dlSaldoStr(nSaldo: Currency; cStr: String): String;
Primjeri
[dlSaldoStr(nSaldo,'0')]
[dlSaldoStr(SUM(<qReportIzpis."anDebit"> - <qReportIzpis."anCredit">),'B')]
dlGetTempDirectory
Funkcija dlGetTempDirectory vraća privremeni Windows direktorij. Ovo je zgodno kada radite s datotekama jer je to jedina mapa u kojoj je uvijek moguće pisati i čitati datoteke.
Header
function dlGetTempDirectory: String;
Primjer
Privremeni Windows direktorij: [dlGetTempDirectory]
dlLoadCompanyImage
Postupak dlLoadCompanyImage učitava vaš logotip tvrtke definiran u administrativnoj ploči u objekt slike na ispisu.
Header
procedure dlLoadCompanyImage(Picture: TfrxPictureView);
Primjer
Stavite objekt slike nazvan Picture1 na proizvoljni ispis i upišite u njegov događaj OnBeforePrint:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadCompanyImage(Picture1);
end;
dlLoadProductImage
Postupak dlLoadProductImage učitava logotip stavke definiran u registru stavki u objekt slike na ispisu.
Header
procedure dlLoadProductImage(Picture: TfrxPictureView; cIdent: String);
Primjer
Stavite objekt slike nazvan Picture1 na proizvoljni ispis i upišite događaj OnBeforePrint:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadProductImage(Picture1, <qReportIzpis."acIdent">);
end;
dlLoadUserSignature
Postupak dlLoadUserSignature učitava potpis korisnika definiran u registru subjekata u objekt slike na ispisu.
Header
procedure dlLoadUserSignature(Picture: TfrxPictureView; cIdent: String);
Primjer
Da biste prikazali potpis trenutnog korisnika, stavite objekt slike nazvan Picture1 na proizvoljni ispis i upišite događaj OnBeforePrint:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadUserSignature(Picture1, < dlGetCurrentUserID>);
end;
Da biste prikazali potpis 1st potpisnika na ispisu računa, stavite objekt slike nazvan Picture1 na ispis i upišite događaj OnBeforePrint.
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadUserSignature(Picture1,<qReportIzpisD."anSigner1">);
end;
dlNumberInWords
Funkcija dlNumberInWords vraća broj kao riječi.
Prvi parametar funkcije je broj (novčana vrijednost).
Drugi parametar je valuta.
Treći parametar je jezik na kojem bi tekst trebao biti vraćen. Ako je treći parametar prazan, vraća rezultat na jeziku programa. Ako je jezik nepostojeći, vraća prazan tekst.
Header
function dlNumberInWords(nNumber: Currency; cCurrency, cLanguage: String): String;
Primjer
Rezultat na engleskom bez obzira na jezik programa: tisuća EUR 00/100:
[dlNumberInWords(1000,'EUR','EN')]
Ispišite tekst za uplatu na računu izdanom na jeziku programa:
[dlNumberInWords(<qReportIzpisD."anForPay">, <qReportIzpisD."acCurrency">, '')]
Ispišite tekst za uplatu na engleskom bez obzira na jezik programa:
[dlNumberInWords(dlTextToFloat(fZaPlacilo.Text), <qReportIzpisD."acCurrency">, 'EN')]
dlQuotedStr
Postupak dlQuotedStr imitira Delphi funkciju QuotedStr za rješavanje slučajeva gdje postoje navodnici (') u tekstu podataka.
Header
procedure dlQuotedStr(Str: String): String;
Primjer
[SQLExp('select acCode from tHE_SetItemExtItemSubj where acSubject = ' + dlQuotedStr(<qReportIzpis."acSubject">) + ' ')]
dlStringReplace
Funkcija dlStringReplace imitira Delphi funkciju StringReplace. Razlika je u tome što su zastavice napisane kao stringovi umjesto opcijskih elemenata. Ako se opcije ne koriste, moraju se koristiti prazni stringovi.
zastavice
rfReplaceAll – promijeni sve pronađene stringove, inače promijeni samo prvo pojavljivanje teksta.
rfIgnoreCase – ne razlikuje mala i velika slova.
Header
function dlStringReplace(const S, OldPattern, NewPattern: String; Flags1, Flag2: String): String;
Primjer
Na ispisima bilance, gdje se kodovi aktivnosti mogu pisati s točkom (na primjer 15.110) ili bez nje (na primjer 15110), točka će biti izbrisana ako postoji.
[dlStringReplace(<qReportIzpis2."acActivityCode">,'.','','rfReplaceAll','')]
dlStrToFloatDef
Funkcija dlStrToFloatDef pretvara tekst u decimalni broj. Ako konverzija ne uspije, vraća drugi parametar.
Header
function dlStrToFloatDef(S: String; Default: Extended): Extended;
Primjer
[dlStrToFloatDef(SQLExp('select SUM(anAmount) from tHE_SADCost where acKey = ''' + <qReportIzpis."acKey"> + ''''), 0)]
dlStrToIntDef
Funkcija dlStrToIntDef pretvara tekst u cijele brojeve. Ako konverzija ne uspije, vraća drugi parametar.
Header
function dlStrToIntDef(S: String; Default: Integer): Integer;
Primjer
[dlStrToIntDef(FormatDateTime('d',<qReportIzpis."adDateDue">),0)]
dlTextToFloat
Funkcija dlTextToFloat pretvara tekst s tisućicama u decimalni broj. Ako konverzija ne uspije, vraća 0.
Header
function dlTextToFloat(S: String): Extended;
Primjer
Ispišite točan iznos bez tisućica na računima za izdavanje robe.
[dlTextToFloat(fTrosarina.Text)]
ExtractMonth i ExtractWeek
Funkcija ExtractMonth vraća mjesec određenog datuma u obliku broja.
Funkcija ExtractWeek vraća tjedan određenog datuma u obliku broja.
Headers
function ExtractMonth(Date: TDate): String;
function ExtractWeek(Date: TDate): String;
Primjer
Trenutni mjesec i tjedan:
[ExtractMonth(DATE)]
[ExtractWeek(DATE)]
GetFormValue
Funkcija GetFormValue vraća vrijednost objekta u PANTHEON prozoru. Parametar je ime objekta uključujući PANTHEON prozor na kojem se nalazi. Ako objekt ne postoji ili nije kreiran, funkcija vraća prazan string.
Header
function GetFormValue(FormComponentName: String): Variant;
Primjer
Ispišite vrijednost u editboxu za kod stavke na skladištu na datum ispisa:
[GetFormValue('PrometIzpisTrenZaloga.fIdent')]
SQLExp
Funkcija SQLExp vraća rezultat SQL izjave izvršene na bazi podataka.
Header
function SQLExp(sql: String): String;
Primjer
Grad naše tvrtke:
[SQLExp('select dbo.fHE_GetOurCompanyCity()')]
Drugo ime naše tvrtke:
[SQLExp('select S.acName2 from tHE_SetSubj S, tPA_SysParam P where S.acSubject = P.acOurCompany')]
GetOurCompany
Funkcija GetOurCompany vraća ID subjekta ili ime 2 naše tvrtke prema postavci 'Koristi ime 2 kao ime subjekta' u administrativnoj ploči na kartici Postavke | Parametri programa | Tvrtka | Tekstovi dokumenata.
Header
function GetOurCompany: String;
Primjer
Ime naše tvrtke: [GetOurCompany]
GetSubject
Funkcija GetSubject vraća ID ili ime 2 subjekta prema postavci 'Koristi ime 2 kao ime subjekta' u administrativnoj ploči na kartici Postavke | Parametri programa | Tvrtka | Tekstovi dokumenata.
U slučaju kada je postavka NISU označena, vraća vrijednost prvog parametra.
Ako je postavka JE označena, funkcija vraća drugi parametar ako nije prazan. Ako je drugi parametar prazan, vraća ime 2 subjekta. Ako je drugo ime subjekta u skupu podataka na izvještaju, preporučujemo da koristite prvu opciju jer je brža.
Header
function GetSubject(cSubject, cName2: String): String;
Primjeri
[GetSubject(<qSubjIzpis."acSubject">, <qSubjIzpis."acName">)]
[GetSubject(<qSubjIzpis."acSubject">, '']
dlGetSQLString
Funkcija dlGetSQLString vraća SQL klauzulu koja je jedini parametar.
Header
function dlGetSQLString(ADataset: TfrxDataset): String;
Primjeri
Najčešća upotreba funkcije dlGetSQLString jeprikaz cijele SELECT klauzule koja je specificirana za odabrani skup podataka kada se izvještaj pokrene. Najčešće prikazujemo skup podataka koji pripada traci nazvanoj Detail:
begin
ShowMessage(dlGetSQLString(Detail.Dataset));
end.
Također možete pozvati skup podataka po imenu kao što je prikazano u sljedećem primjeru.
begin
ShowMessage(dlGetSQLString(report.GetDataset('qReportIzpis')));
end.