Funksionet Datalab
Procedura thërret kodin e programit në PANTHEON të shkruar për këtë bandë. Është shkruar në ngjarjen e bandës OnBeforePrint.
Header
procedure CallQRBeforeBandPrint(Sender: TfrxComponent; var PrintBand: Boolean);
Shembull
procedure TitleOnBeforePrint(Sender: TfrxComponent);
begin
CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
end;
dlBoolToYesNo
Funksioni kthen 'Po' nëse vlera e parametrave është True, përndryshe kthen 'Jo'.
Header
function dlBoolToYesNo(bCondition: Boolean): String;
Shembull
Në raportet e deklaratave të shërbimit kthen nëse një artikull është nën garanci.
[dlBoolToYesNo(<qReportIzpis."anWarrenty"> = 'T')]
dlDiv
Funksioni kthen koeficientin e dy numrave nëse parametri i dytë nuk është i barabartë me 0. Nëse parametri i dytë është i barabartë me 0, kthen 0.
Header
function dlDiv(nNum1, nNum2: Real): Real;
Shembull
[dlDiv(<qReportIzpis."anQty">, <qReportIzpis."anUMToUM2">)]
dlDPAExecute
Funksioni ekzekuton një applet PANTHEON (DPA). Parametri është ID i DPA.
Header
procedure dlDpaExecute(cKey: String);
Shembull
dlDpaExecute('A000042');
dlGetCurrentUserID dhe dlGetCurrentUserName
Funksioni kthen ID e përdoruesit aktual.
Funksioni kthen emrin e përdoruesit aktual.
Headers
function dlGetCurrentUserID: String;
function dlGetCurrentUserName: String;
Shembull
Përdoruesi aktual:
[dlGetCurrentUserID] - [dlGetCurrentUserName]
dlGetKeyViewFromKey
Funksioni konverton një çelës dokumenti të paformatuar në një të formatuar në varësi të cilësimeve të panelit administrativ.
Header
function dlGetKeyViewFromKey(cKey: String);
Shembull
[dlGetKeyViewFromKey(<qReportIzpis."acKey">)]
dlGetPostCode
Funksioni kthen kodin postar pa një prefiks ose një postfiks.
Header
function dlGetPostCode(cKey: String);
Shembull
[dlGetPostCode(<qReportIzpis1."acPost">)]
dlGetSaldoStr
Funksioni konverton numrin në notacion me karakterin D (që do të thotë debit) ose C (që do të thotë kredit) në fund. Përdoret në modulin Demeter (Financa).
Nëse parametri i parë është më i madh se 0, kthen parametrin e parë dhe karakterin D në fund.
Nëse parametri i parë është më i vogël se 0, kthen vlerën absolute të parametrave të parë dhe karakterin C në fund.
Nëse parametri i parë është 0 dhe parametri i dytë është B, kthen tekstin 'BALANCED'.
Nëse parametri i parë është 0 dhe parametri i dytë është B, kthen parametrin e dytë.
Header
function dlSaldoStr(nSaldo: Currency; cStr: String): String;
Shembuj
[dlSaldoStr(nSaldo,'0')]
[dlSaldoStr(SUM(<qReportIzpis."anDebit"> - <qReportIzpis."anCredit">),'B')]
dlGetTempDirectory
Funksioni kthen direktorinë e përkohshme të Windows. Kjo është e përshtatshme kur punoni me skedarë sepse është i vetmi dosje ku shkrimi dhe leximi i skedarëve është gjithmonë i mundur.
Header
function dlGetTempDirectory: String;
Shembull
Direktoria e përkohshme e Windows: [dlGetTempDirectory]
dlLoadCompanyImage
Procedura ngarkon logon e kompanisë tuaj të përcaktuar në panelin administrativ në një objekt fotoje në printim.
Header
procedure dlLoadCompanyImage(Picture: TfrxPictureView);
Shembull
Vendosni objektin e fotos të quajtur Picture1 në një printim të rastësishëm dhe shkruani në ngjarjen e tij OnBeforePrint:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadCompanyImage(Picture1);
end;
dlLoadProductImage
Procedura ngarkon logon e një artikulli të përcaktuar në regjistrin e artikujve në një objekt fotoje në printim.
Header
procedure dlLoadProductImage(Picture: TfrxPictureView; cIdent: String);
Shembull
Vendosni objektin e fotos të quajtur Picture1 në një printim të rastësishëm dhe shkruani ngjarjen OnBeforePrint:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadProductImage(Picture1, <qReportIzpis."acIdent">);
end;
dlLoadUserSignature
Procedura ngarkon nënshkrimin e përdoruesit të përcaktuar në regjistrin e subjekteve në një objekt fotoje në printim.
Header
procedure dlLoadUserSignature(Picture: TfrxPictureView; cIdent: String);
Shembull
Për të treguar nënshkrimin e përdoruesit aktual, vendosni objektin e fotos të quajtur Picture1 në një printim të rastësishëm dhe shkruani ngjarjen OnBeforePrint:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadUserSignature(Picture1, < dlGetCurrentUserID>);
end;
Për të treguar nënshkrimin e 1 nënshkruesit në printimin e faturës, vendosni objektin e fotos të quajtur Picture1 në printim dhe shkruani ngjarjen OnBeforePrint.
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
dlLoadUserSignature(Picture1,<qReportIzpisD."anSigner1">);
end;
dlNumberInWords
Funksioni kthen numrin si fjalë.
Parametri i parë i funksionit është një numër (vlerë monetare).
Parametri i dytë është monedha.
Parametri i tretë është gjuha në të cilën duhet të kthehet teksti. Nëse parametri i tretë është bosh, kthen rezultatin në gjuhën e programit. Nëse gjuha nuk ekziston, kthen tekst bosh.
Header
function dlNumberInWords(nNumber: Currency; cCurrency, cLanguage: String): String;
Shembull
Rezultati në anglisht pavarësisht gjuhës së programit: mijë EUR 00/100:
[dlNumberInWords(1000,'EUR','EN')]
Printoni tekstin për pagesë në faturën e lëshuar në gjuhën e programit:
[dlNumberInWords(<qReportIzpisD."anForPay">, <qReportIzpisD."acCurrency">, '')]
Printoni tekstin për pagesë në anglisht pavarësisht gjuhës së programit:
[dlNumberInWords(dlTextToFloat(fZaPlacilo.Text), <qReportIzpisD."acCurrency">, 'EN')]
dlQuotedStr
Procedura imiton funksionin Delphi QuotedStr për zgjidhjen e rasteve ku ekzistojnë thonjëza (') në tekstin e të dhënave.
Header
procedure dlQuotedStr(Str: String): String;
Shembull
[SQLExp('select acCode from tHE_SetItemExtItemSubj where acSubject = ' + dlQuotedStr(<qReportIzpis."acSubject">) + ' ')]
dlStringReplace
Funksioni imiton funksionin Delphi StringReplace. Dallimi është se flamujt shkruhen si vargje në vend të elementeve të opsioneve. Nëse opsionet nuk përdoren, duhet të përdoren vargje bosh.
flamujt
rfReplaceAll – ndryshon të gjitha vargjet e gjetura, përndryshe ndryshon vetëm paraqitjen e parë të tekstit.
rfIgnoreCase – mos dalloni shkronjat e vogla dhe të mëdha.
Header
function dlStringReplace(const S, OldPattern, NewPattern: String; Flags1, Flag2: String): String;
Shembull
Në printimet e bilancit, ku kodet e aktiviteteve mund të shkruhen me një pikë (p.sh. 15.110) ose pa të (p.sh. 15110), pika do të fshihet nëse ekziston.
[dlStringReplace(<qReportIzpis2."acActivityCode">,'.','','rfReplaceAll','')]
dlStrToFloatDef
Funksioni konverton tekstin në numër dhjetor. Nëse konvertimi dështon, kthen parametrin e dytë.
Header
function dlStrToFloatDef(S: String; Default: Extended): Extended;
Shembull
[dlStrToFloatDef(SQLExp('select SUM(anAmount) from tHE_SADCost where acKey = ''' + <qReportIzpis."acKey"> + ''''), 0)]
dlStrToIntDef
Funksioni konverton tekstin në numra të plotë. Nëse konvertimi dështon, kthen parametrin e dytë.
Header
function dlStrToIntDef(S: String; Default: Integer): Integer;
Shembull
[dlStrToIntDef(FormatDateTime('d',<qReportIzpis."adDateDue">),0)]
dlTextToFloat
Funksioni konverton tekstin me ndarës mijëra në një numër dhjetor. Nëse konvertimi dështon kthen 0.
Header
function dlTextToFloat(S: String): Extended;
Shembull
Printoni shumën e saktë pa ndarës mijëra në faturat e lëshimit të mallrave.
[dlTextToFloat(fTrosarina.Text)]
ExtractMonth dhe Extract Week
Funksioni ExtractMonth kthen muajin e një date të specifikuar në formën e një numri.
Funksioni ExtractWeek kthen javën e një date të specifikuar në formën e një numri.
Headers
function ExtractMonth(Date: TDate): String;
function ExtractWeek(Date: TDate): String;
Shembull
Muaji dhe java aktuale:
[ExtractMonth(DATE)]
[ExtractWeek(DATE)]
GetFormValue
Funksioni kthen vlerën e objektit në dritaren PANTHEON. Parametri është emri i objektit duke përfshirë dritaren PANTHEON ku është vendosur. Nëse objekti nuk ekziston ose nuk është krijuar, funksioni kthen varg bosh.
Header
function GetFormValue(FormComponentName: String): Variant;
Shembull
Printoni vlerën në kutinë e redaktimit për kodin e artikullit në stok si në datën e printimit:
[GetFormValue('PrometIzpisTrenZaloga.fIdent')]
SQLExp
Funksioni kthen rezultatin e deklaratës SQL të ekzekutuar në bazën e të dhënave.
Header
function SQLExp(sql: String): String;
Shembull
Qyteti i kompanisë sonë:
[SQLExp('select dbo.fHE_GetOurCompanyCity()')]
Emri i dytë i kompanisë sonë:
[SQLExp('select S.acName2 from tHE_SetSubj S, tPA_SysParam P where S.acSubject = P.acOurCompany')]
GetOurCompany
Funksioni kthen ID e subjektit ose emrin 2 të kompanisë sonë sipas cilësimit 'Përdor emrin 2 si Emri i Subjektit' në panelin e administrimit në skedën Cilësimet | Parametrat e Programit | Kompania | Tekstet e Dokumentit.
Header
function GetOurCompany: String;
Shembull
Emri i kompanisë sonë: [GetOurCompany]
GetSubject
Funksioni kthen ID ose emrin 2 të subjektit sipas cilësimit 'Përdor emrin 2 si Emri i Subjektit' në panelin e administrimit në skedën Cilësimet | Parametrat e Programit | Kompania | Tekstet e Dokumentit.
Në rastin kur cilësimi nuk është i kontrolluar, kthen vlerën e parametrave të parë.
Nëse cilësimi është i kontrolluar, funksioni kthen parametrin e dytë nëse nuk është bosh. Nëse parametri i dytë është bosh, kthen emrin 2 të subjektit. Nëse emri i dytë i subjektit është në dataset në raport, rekomandojmë të përdorni opsionin e parë sepse është më i shpejtë.
Header
function GetSubject(cSubject, cName2: String): String;
Shembuj
[GetSubject(<qSubjIzpis."acSubject">, <qSubjIzpis."acName">)]
[GetSubject(<qSubjIzpis."acSubject">, '']
dlGetSQLString
Funksioni kthen klauzolën SQL që është vetëm parametri.
Header
function dlGetSQLString(ADataset: TfrxDataset): String;
Shembuj
Përdorimi më i zakonshëm i funksionit dlGetSQLString ështëpër të shfaqur të gjithë klauzolën SELECT që është specifikuar për dataset-in e zgjedhur kur raporti fillon. Më shpesh shfaqim dataset-in që i përket një bande të quajtur Detail:
begin
ShowMessage(dlGetSQLString(Detail.Dataset));
end.
Mund të thirrni dataset-in edhe me emër siç tregohet në shembullin e mëposhtëm.
begin
ShowMessage(dlGetSQLString(report.GetDataset('qReportIzpis')));
end.