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

6
_custom/Rootvin/uSvcCustom.pas
View File

@ -340,7 +340,7 @@ uses
{ TSDGPolozkaOZService }
function TSDGPolozkaOZService.GetByID(const AID: Integer): TPohybOZ;
function TSDGPolozkaOZService.GetByID (const AID: Integer): TPohybOZ;
var lSQL: string;
p: TDictionary<string, string>;
pds: TSDGSerioveCisloPohybOZService;
@ -377,7 +377,7 @@ uses
function TSDGPolozkaOZService.GetByParams(params: TDictionary<string, string>): TObjectList<TPohybOZ>;
function TSDGPolozkaOZService.GetByParams (params: TDictionary<string, string>): TObjectList<TPohybOZ>;
var lSQL, where, podmSDGPolozka: string;
id,idPZ, cnt, rNo: integer;
lQry: TFDQuery;
@ -1056,6 +1056,8 @@ uses
// pro micharnu nejsou prikazy pozastavovany
where:= where + IfThen(where<>'', ' AND ', '') + 'main.StavPrikazu IN (30' + IfThen(typPrikazu<>1, ',40', '') + ')';
where:= where + IfThen(where<>'', ' AND ', '') + 'main.Rada<>N''009''';
where:= where + IfThen(where<>'', ' AND ', '') + 'main.Rada LIKE N''0%''';
if (where<>'') then