Datalab funksione
CallQRBeforeBandPrint
Procedura CallQRBeforeBandPrint thirr programin në PANTHEON të shkruar për këtë bandë. Është shkruar në ngjarjen e bandës OnBeforePrint.
Kreu
procedura CallQRBeforeBandPrint(Sender: TfrxComponent; var PrintBand: Boolean);
Shembull
procedura TitleOnBeforePrint(Sender: TfrxComponent);
fillo
CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
mbyll;
dlBoolToYesNo
Funksioni dlBoolToYesNo kthen 'Po' nëse vlera e parametrave është e vërtetë, përndryshe kthen 'Jo'.
Kreu
funksioni 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 dlDiv kthen kuotën e dy numrave nëse parametri i dytë nuk është 0. Nëse parametri i dytë është 0, kthen 0.
Kreu
funksioni dlDiv(nNum1, nNum2: Real): Real;
Shembull
[dlDiv(<qReportIzpis."anQty">, <qReportIzpis."anUMToUM2">)]
dlDPAExecute
Funksioni dlDPAExecute ekzekuton një applet PANTHEON (DPA). Parametri është ID i DPA.
Kreu
procedura dlDpaExecute(cKey: String);
Shembull
dlDpaExecute('A000042');
dlGetCurrentUserID dhe dlGetCurrentUserName
Funksioni dlGetCurrentUserID kthen ID-në e përdoruesit aktual.
Funksioni dlGetCurrentUserName kthen emrin e përdoruesit aktual.
Krejt
funksioni dlGetCurrentUserID: String;
funksioni dlGetCurrentUserName: String;
Shembull
Përdoruesi aktual:
[dlGetCurrentUserID] - [dlGetCurrentUserName]
dlGetKeyViewFromKey
Funksioni dlGetKeyViewFromKey konverton një çelës dokumenti të paformatizuar në një të formatizuar në varësi të cilësimeve të panelit administrativ.
Kreu
funksioni dlGetKeyViewFromKey(cKey: String);
Shembull
[dlGetKeyViewFromKey(<qReportIzpis."acKey">)]
dlGetPostCode
Funksioni dlGetPostCode kthen kodin postar pa një prefiks ose një postfix.
Kreu
funksioni dlGetPostCode(cKey: String);
Shembull
[dlGetPostCode(<qReportIzpis1."acPost">)]
dlGetSaldoStr
Funksioni dlGetSaldoStr konverton numrin në notacion me karakterin D (duke nënkuptuar debit) ose C (duke nënkuptuar kredit) në fund. Përdoret në modulin Demeter (Financë).
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ë parametrin të parë, dhe karakterin C në fund.
Nëse parametri i parë është 0 dhe parametri i dytë është B, kthen tekstin 'BALANCUAR'.
Nëse parametri i parë është 0 dhe parametri i dytë është JO B, kthen parametrin e dytë.
Kreu
funksioni dlSaldoStr(nSaldo: Currency; cStr: String): String;
Shembuj
[dlSaldoStr(nSaldo,'0')]
[dlSaldoStr(SUM(<qReportIzpis."anDebit"> - <qReportIzpis."anCredit">),'B')]
dlGetTempDirectory
Funksioni dlGetTempDirectory kthen direktorinë përkohshme të Windows. Kjo është e përshtatshme kur punoni me skedarë sepse është dosja e vetme në të cilën është gjithmonë e mundur të shkruani dhe lexoni skedarë.
Kreu
funksioni dlGetTempDirectory: String;
Shembull
Direktoria përkohshme e Windows: [dlGetTempDirectory]
dlLoadCompanyImage
Procedura dlLoadCompanyImage ngarkon logon e kompanisë tuaj të përcaktuar në panelin administrativ në një objekt imazhi në printim.
Kreu
procedura dlLoadCompanyImage(Picture: TfrxPictureView);
Shembull
Vendosni objektin e imazhit të quajtur Picture1 në një printim të rastësishëm dhe shkruani në ngjarjen e saj OnBeforePrint:
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
fillo
dlLoadCompanyImage(Picture1);
mbyll;
dlLoadProductImage
Procedura dlLoadProductImage ngarkon logon e një artikulli të përcaktuar në regjistrin e artikujve në një objekt imazhi në printim.
Kreu
procedura dlLoadProductImage(Picture: TfrxPictureView; cIdent: String);
Shembull
Vendosni objektin e imazhit të quajtur Picture1 në një printim të rastësishëm dhe shkruani ngjarjen OnBeforePrint:
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
fillo
dlLoadProductImage(Picture1, <qReportIzpis."acIdent">);
mbyll;
dlLoadUserSignature
Procedura dlLoadUserSignature ngarkon nënshkrimin e përdoruesit të përcaktuar në regjistrin e subjekteve në një objekt imazhi në printim.
Kreu
procedura dlLoadUserSignature(Picture: TfrxPictureView; cIdent: String);
Shembull
Për të treguar nënshkrimin e përdoruesit aktual, vendosni objektin e imazhit të quajtur Picture1 në një printim të rastësishëm dhe shkruani ngjarjen OnBeforePrint:
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
fillo
dlLoadUserSignature(Picture1, < dlGetCurrentUserID>);
mbyll;
Për të treguar nënshkrimin e 1st nënshkruesi në printimin e faturës, vendosni objektin e imazhit të quajtur Picture1 në printim dhe shkruani ngjarjen OnBeforePrint.
procedura Picture1OnBeforePrint(Sender: TfrxComponent);
fillo
dlLoadUserSignature(Picture1,<qReportIzpisD."anSigner1">);
mbyll;
dlNumberInWords
Funksioni dlNumberInWords kthen numrin si fjalë.
Parametri i parë i funksionit është një numër (vlera monetare).
Parametri i dytë është valuta.
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.
Kreu
funksioni dlNumberInWords(nNumber: Currency; cCurrency, cLanguage: String): String;
Shembull
Rezultati në anglisht pavarësisht nga gjuha e 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 nga gjuha e programit:
[dlNumberInWords(dlTextToFloat(fZaPlacilo.Text), <qReportIzpisD."acCurrency">, 'EN')]
dlQuotedStr
Procedura dlQuotedStr imiton funksionin Delphi QuotedStr për zgjidhjen e rasteve ku ekzistojnë thonjëza (') në tekstin e të dhënave.
Kreu
procedura dlQuotedStr(Str: String): String;
Shembull
[SQLExp('select acCode from tHE_SetItemExtItemSubj where acSubject = ' + dlQuotedStr(<qReportIzpis."acSubject">) + ' ')]
dlStringReplace
Funksioni dlStringReplace imiton funksionin Delphi StringReplace. Dallimi është se flamujt shkruhen si vargje në vend të elementeve të opsionit. Nëse opsionet nuk përdoren, duhet të përdoren vargje bosh.
flamujt
rfReplaceAll – ndryshoni të gjitha vargjet e gjetura, përndryshe ndryshoni vetëm shfaqjen e parë të tekstit.
rfIgnoreCase – mos dalloni shkronjat e vogla dhe të mëdha.
Kreu
funksioni 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ër shembull 15.110) ose pa të (për shembull15110), pika do të fshihet nëse ekziston.
[dlStringReplace(<qReportIzpis2."acActivityCode">,'.','','rfReplaceAll','')]
dlStrToFloatDef
Funksioni dlStrToFloatDef konverton tekstin në numër decimal. Nëse konvertimi dështon, kthen parametrin e dytë.
Kreu
funksioni dlStrToFloatDef(S: String; Default: Extended): Extended;
Shembull
[dlStrToFloatDef(SQLExp('select SUM(anAmount) from tHE_SADCost where acKey = ''' + <qReportIzpis."acKey"> + ''''), 0)]
dlStrToIntDef
Funksioni dlStrToIntDef konverton tekstin në numra të plotë. Nëse konvertimi dështon, kthen parametrin e dytë.
Kreu
funksioni dlStrToIntDef(S: String; Default: Integer): Integer;
Shembull
[dlStrToIntDef(FormatDateTime('d',<qReportIzpis."adDateDue">),0)]
dlTextToFloat
Funksioni dlTextToFloat konverton tekstin me ndarës mijëra në një numër decimal. Nëse konvertimi dështon kthen 0.
Kreu
funksioni 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ë caktuar në formën e një numri.
Funksioni ExtractWeek kthen javën e një date të caktuar në formën e një numri.
Krejt
funksioni ExtractMonth(Date: TDate): String;
funksioni ExtractWeek(Date: TDate): String;
Shembull
Muaji dhe java aktuale:
[ExtractMonth(DATE)]
[ExtractWeek(DATE)]
GetFormValue
Funksioni GetFormValue kthen vlerën e objektit në dritaren PANTHEON. Parametri është emri i objektit duke përfshirë dritaren PANTHEON në të cilën është vendosur. Nëse objekti nuk ekziston ose nuk është krijuar, funksioni kthen varg bosh.
Kreu
funksioni GetFormValue(FormComponentName: String): Variant;
Shembull
Printoni vlerën në kutinë e redaktimit për kodin e artikullit në stok në datën e printimit:
[GetFormValue('PrometIzpisTrenZaloga.fIdent')]
SQLExp
Funksioni SQLExp kthen rezultatin e deklaratës SQL të ekzekutuar në bazën e të dhënave.
Kreu
funksioni 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 GetOurCompany kthen ID-në e subjektit ose emrin 2 të kompanisë sonë sipas cilësimit 'Përdor emrin 2 si Emrin e Subjektit' në panelin e administratës në tab Cilësimet | Parametrat e Programit | Kompania | Tekstet e Dokumenteve.
Kreu
funksioni GetOurCompany: String;
Shembull
Emri i kompanisë sonë: [GetOurCompany]
GetSubject
Funksioni GetSubject kthen ID-në ose emrin 2 të subjektit sipas cilësimit 'Përdor emrin 2 si Emrin e Subjektit' në panelin e administratës në tab Cilësimet | Parametrat e Programit | Kompania | Tekstet e Dokumenteve.
Në rastin kur cilësimi nuk është kontrolluar, kthen vlerën e parametrin të parë.
Nëse cilësimi është 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ë.
Kreu
funksioni GetSubject(cSubject, cName2: String): String;
Shembuj
[GetSubject(<qSubjIzpis."acSubject">, <qSubjIzpis."acName">)]
[GetSubject(<qSubjIzpis."acSubject">, '']
dlGetSQLString
Funksioni dlGetSQLString kthen klauzolën SQL e cila është vetëm parametri.
Kreu
funksioni dlGetSQLString(ADataset: TfrxDataset): String;
Shembuj
Përdorimi më i zakonshëm i funksionit dlGetSQLString ështëtë shfaqë të gjithë klauzolën SELECT që është e specifikuar për datasetin e zgjedhur kur raporti fillon. Më shpesh ne shfaqim datasetin që i përket një bande të quajtur Detaj:
fillo
ShowMessage(dlGetSQLString(Detail.Dataset));
mbyll.
Ju gjithashtu mund të thërrisni datasetin me emër siç tregohet në shembullin e mëposhtëm.
fillo
ShowMessage(dlGetSQLString(report.GetDataset('qReportIzpis')));
mbyll.