Datalab funkcije
CallQRBeforeBandPrint
Procedura CallQRBeforeBandPrint poziva programski kod u PANTHEON-u napisan za ovu traku. Napisan je u događaju trake OnBeforePrint.
Header
procedura CallQRBeforeBandPrint(Sender: TfrxComponent; var PrintBand: Boolean);
Primjer
procedura TitleOnBeforePrint(Sender: TfrxComponent);
begin
CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
end;
dlBoolToYesNo
Funkcija dlBoolToYesNo vraća 'Da' ako je vrijednost parametra Tačna, inače vraća 'Ne'.
Header
funkcija dlBoolToYesNo(bCondition: Boolean): String;
Primjer
Na izvještajima o uslugama vraća da li je stavka pod garancijom.
[dlBoolToYesNo(<qReportIzpis."anWarrenty"> = 'T')]
dlDiv
Funkcija dlDiv vraća količnik dva broja ako drugi parametar nije jednak 0. Ako je drugi parametar jednak 0, vraća 0.
Header
funkcija dlDiv(nNum1, nNum2: Real): Real;
Primjer
[dlDiv(<qReportIzpis."anQty">, <qReportIzpis."anUMToUM2">)]
dlDPAExecute
Funkcija dlDPAExecute pokreće PANTHEON aplikaciju (DPA). Parametar je ID DPA.
Header
procedura dlDpaExecute(cKey: String);
Primjer
dlDpaExecute('A000042');
dlGetCurrentUserID i dlGetCurrentUserName
Funkcija dlGetCurrentUserID vraća ID trenutnog korisnika.
Funkcija dlGetCurrentUserName vraća ime trenutnog korisnika.
Headers
funkcija dlGetCurrentUserID: String;
funkcija dlGetCurrentUserName: String;
Primjer
Trenutni korisnik:
[dlGetCurrentUserID] - [dlGetCurrentUserName]
dlGetKeyViewFromKey
Funkcija dlGetKeyViewFromKey konvertuje neformatirani ključ dokumenta u formatirani u zavisnosti od postavki administrativne ploče.
Header
funkcija dlGetKeyViewFromKey(cKey: String);
Primjer
[dlGetKeyViewFromKey(<qReportIzpis."acKey">)]
dlGetPostCode
Funkcija dlGetPostCode vraća poštanski broj bez prefiksa ili postfiksa.
Header
funkcija dlGetPostCode(cKey: String);
Primjer
[dlGetPostCode(<qReportIzpis1."acPost">)]
dlGetSaldoStr
Funkcija dlGetSaldoStr konvertuje broj u notaciju sa karakterom D (znači dugovanje) ili C (znači potraživanje) na kraju. Koristi se u Demeter (Finansije) 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 je B, vraća tekst 'BALANSIRANO'.
Ako je prvi parametar 0 i drugi parametar je NIJE B, vraća drugi parametar.
Header
funkcija 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 sa datotekama jer je to jedini folder u kojem je uvijek moguće pisati i čitati datoteke.
Header
funkcija dlGetTempDirectory: String;
Primjer
Privremeni direktorij Windows-a: [dlGetTempDirectory]
dlLoadCompanyImage
Procedura dlLoadCompanyImage učitava logo vaše kompanije definisan u administrativnoj ploči u objekat slike na otisku.
Header
procedura dlLoadCompanyImage(Picture: TfrxPictureView);
Primjer
Stavite objekat slike nazvan Picture1 na proizvoljni otisak i napišite u njegovom događaju OnBeforePrint:
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadCompanyImage(Picture1);
end;
dlLoadProductImage
Procedura dlLoadProductImage učitava logo stavke definisane u registru stavki u objekat slike na otisku.
Header
procedura dlLoadProductImage(Picture: TfrxPictureView; cIdent: String);
Primjer
Stavite objekat slike nazvan Picture1 na proizvoljni otisak i napišite događaj OnBeforePrint:
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadProductImage(Picture1, <qReportIzpis."acIdent">);
end;
dlLoadUserSignature
Procedura dlLoadUserSignature učitava potpis korisnika definisan u registru subjekata u objekat slike na otisku.
Header
procedura dlLoadUserSignature(Picture: TfrxPictureView; cIdent: String);
Primjer
Da biste prikazali potpis trenutnog korisnika, stavite objekat slike nazvan Picture1 na proizvoljni otisak i napišite događaj OnBeforePrint:
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadUserSignature(Picture1, < dlGetCurrentUserID>);
end;
Da biste prikazali potpis 1og potpisnika na otisku računa, stavite objekat slike nazvan Picture1 na otisak i napišite događaj OnBeforePrint.
procedura 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
funkcija dlNumberInWords(nNumber: Currency; cCurrency, cLanguage: String): String;
Primjer
Rezultat na engleskom bez obzira na jezik programa: hiljada EUR 00/100:
[dlNumberInWords(1000,'EUR','EN')]
Štampanje teksta za uplatu na računu izdatom na jeziku programa:
[dlNumberInWords(<qReportIzpisD."anForPay">, <qReportIzpisD."acCurrency">, '')]
Štampanje teksta za uplatu na engleskom bez obzira na jezik programa:
[dlNumberInWords(dlTextToFloat(fZaPlacilo.Text), <qReportIzpisD."acCurrency">, 'EN')]
dlQuotedStr
Procedura dlQuotedStr imitira Delphi funkciju QuotedStr za rješavanje slučajeva gdje postoje navodnici (') u tekstu podataka.
Header
procedura 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
funkcija dlStringReplace(const S, OldPattern, NewPattern: String; Flags1, Flag2: String): String;
Primjer
Na otiscima bilansa, gdje se kodovi aktivnosti mogu pisati sa tačkom (na primjer 15.110) ili bez nje (na primjer 15110), tačka će biti obrisana ako postoji.
[dlStringReplace(<qReportIzpis2."acActivityCode">,'.','','rfReplaceAll','')]
dlStrToFloatDef
Funkcija dlStrToFloatDef konvertuje tekst u decimalni broj. Ako konverzija ne uspije, vraća drugi parametar.
Header
funkcija dlStrToFloatDef(S: String; Default: Extended): Extended;
Primjer
[dlStrToFloatDef(SQLExp('select SUM(anAmount) from tHE_SADCost where acKey = ''' + <qReportIzpis."acKey"> + ''''), 0)]
dlStrToIntDef
Funkcija dlStrToIntDef konvertuje tekst u cijele brojeve. Ako konverzija ne uspije, vraća drugi parametar.
Header
funkcija dlStrToIntDef(S: String; Default: Integer): Integer;
Primjer
[dlStrToIntDef(FormatDateTime('d',<qReportIzpis."adDateDue">),0)]
dlTextToFloat
Funkcija dlTextToFloat konvertuje tekst sa separatorom hiljada u decimalni broj. Ako konverzija ne uspije, vraća 0.
Header
funkcija dlTextToFloat(S: String): Extended;
Primjer
Štampanje tačnog iznosa bez separatora hiljada na računima za izdavanje robe.
[dlTextToFloat(fTrosarina.Text)]
ExtractMonth i ExtractWeek
Funkcija ExtractMonth vraća mjesec određene datume u obliku broja.
Funkcija ExtractWeek vraća sedmicu određene datume u obliku broja.
Headers
funkcija ExtractMonth(Date: TDate): String;
funkcija ExtractWeek(Date: TDate): String;
Primjer
Trenutni mjesec i sedmica:
[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 je postavljen. Ako objekat ne postoji ili nije kreiran, funkcija vraća prazan string.
Header
funkcija GetFormValue(FormComponentName: String): Variant;
Primjer
Štampanje vrijednosti u editboxu za kod stavke na skladištu na datum otiska:
[GetFormValue('PrometIzpisTrenZaloga.fIdent')]
SQLExp
Funkcija SQLExp vraća rezultat SQL izjave izvršene na bazi podataka.
Header
funkcija SQLExp(sql: String): String;
Primjer
Grad naše kompanije:
[SQLExp('select dbo.fHE_GetOurCompanyCity()')]
Drugo ime naše kompanije:
[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 kompanije prema postavci 'Koristi ime 2 kao ime subjekta' u administrativnoj ploči na kartici Postavke | Parametri programa | Kompanija | Tekstovi dokumenata.
Header
funkcija GetOurCompany: String;
Primjer
Ime naše kompanije: [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 | Kompanija | Tekstovi dokumenata.
U slučaju kada je postavka NIJE 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
funkcija 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
funkcija dlGetSQLString(ADataset: TfrxDataset): String;
Primjeri
Najčešća upotreba funkcije dlGetSQLStringje prikazivanje 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.
Možete također pozvati skup podataka po imenu kao što je prikazano u sljedećem primjeru.
begin
ShowMessage(dlGetSQLString(report.GetDataset('qReportIzpis')));
end.