paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Set AllVersionID field

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-02 12:03:26 +01:00
parent 13ea45d243
commit 59ed4c9228
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/utils/testsuite/tshttp.pp
View File

@ -7,7 +7,7 @@ unit tshttp;
interface
uses
classes, httpdefs, fphttp, cgiapp, fpcgi, custcgi, inifiles, types, sysutils,
classes, httpdefs, fphttp, inifiles, types, sysutils,
sqldb, whtml, db, dbwhtml,
tsgraph, tsdb, tssql, tshistory, tstypes, tsconsts, tsutils, tshtml;
@ -264,10 +264,13 @@ begin
FInfo.AllCategoryID:=FSQL.GetCategoryID('All');
FInfo.AllOSID:=FSQL.GetOSID('All');
FInfo.AllCPUID:=FSQL.GetCPUID('All');
FInfo.AllVersionID:=FSQL.GetVersionID('All');
if FVars.OSID <= 0 then
FVars.OSID:=FInfo.AllOSID;
if FVars.CPUID<=0 then
FVars.CPUID:=FInfo.AllCPUID;
if FVars.VersionID<=0 then
FVars.VersionID:=FInfo.AllVersionID;
end;

2
tests/utils/testsuite/tssql.pas
View File

@ -334,7 +334,7 @@ begin
S:='';
S:=S+PointerIs('TP_CPU_FK',FVars.CPUID,FInfo.AllCPUID);
S:=S+PointerIs('TP_CATEGORY_FK',FVars.CategoryID,FInfo.AllCategoryID);
S:=S+PointerIs('TP_VERSION_FK',FVars.VersionID);
S:=S+PointerIs('TP_VERSION_FK',FVars.VersionID,FInfo.AllVersionID);
S:=S+PointerIs('TP_OS_FK',FVars.OSID,FInfo.ALLOSID);
If (Round(FVars.Date)<>0) then
S:=S+Format(' AND (TU_DATE=''%s'')',[FormatDateTime('YYYY-MM-DD',FVars.Date)]);