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

2
uSvc_KmenZbozi.pas
View File

@ -254,7 +254,7 @@ uses
lQry.Open (lSQL, [AID]);
if (lQry.RecordCount>0) then
begin
extInfoStr:= lQry.AsJSONObjectString;
extInfoStr:= lQry.AsJSONObject;
{$IFDEF CUSTOM_CTRL_Rootvin}
if (SQLColumnExists('dbo', tblKZe, rtnASOLTrideni)) then
if not(lQry.FieldByName(rtnASOLTrideni).IsNull) then