TomBuzin/HDCApi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Dalsi zmeny

Browse Source
This commit is contained in:
TomBuz
2026-03-03 16:18:27 +01:00
parent 03ff9ebc84
commit a62b608cfd
97 changed files with 4635 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
uSvc_Obecne.pas
View File

@ -358,7 +358,7 @@ uses
try
lQry.Open(lSQL, [AID]);
if (lQry.RecordCount>0) then
extInfoStr:= lQry.AsJSONObjectString;
extInfoStr:= lQry.AsJSONObject;
finally
lQry.Free;
end;
@ -495,7 +495,7 @@ uses
try
lQry.Open(lSQL, [idPlanKal]);
if (lQry.RecordCount>0) then
extInfoStr:= lQry.AsJSONObjectString;
extInfoStr:= lQry.AsJSONObject;
finally
lQry.Free;
end;