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

Po hlavnich upravach sdileni sponeni a uvolnovani connection poolu

Browse Source
This commit is contained in:
TomBuz
2026-04-13 12:20:09 +02:00
parent a62b608cfd
commit 1258a27a4e
16 changed files with 2006 additions and 1324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
uCtrlVyroba.pas
View File

@ -854,7 +854,7 @@ uses
try
Render(ObjectDict().Add('data', GetVyrobaEvidRozpracOperaciService.GetByParams (params)));
Render(ObjectDict().Add('data', GetVyrobaEvidRozpracOperaciService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -886,7 +886,7 @@ uses
params.Add('id', iId.ToString);
try
Render(ObjectDict().Add('data', GetVyrobaEvidRozpracOperaciService.GetByParams (params)));
Render(ObjectDict().Add('data', GetVyrobaEvidRozpracOperaciService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -974,7 +974,7 @@ uses
if (iId>0) then
begin
try
Render(ObjectDict().Add('data', GetVyrobaEvidenceOperaciService.GetByID (iId)));
Render(ObjectDict().Add('data', GetVyrobaEvidenceOperaciService.GetByID (iId, nil, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1040,7 +1040,7 @@ uses
params.Add('id', iId.ToString);
try
Render(ObjectDict().Add('data', GetTPVCisKoopService.GetByParams (params)));
Render(ObjectDict().Add('data', GetTPVCisKoopService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1122,7 +1122,7 @@ uses
params.Add('spustene', '1');
try
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetByParams (params) ));
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetByParams (params, FDM.sqlConn) ));
except on E:Exception do
begin
RenderStatusMessage (200);
@ -1161,7 +1161,7 @@ uses
params.Add('jenId', '1');
try
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetByParams (params)));
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
end;
@ -1204,7 +1204,7 @@ uses
try
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetByID (iId, params)));
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetByID (iId, params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1330,7 +1330,7 @@ uses
try
Render(ObjectDict().Add('data', GetDokladOZService.GetByParams (params)));
Render(ObjectDict().Add('data', GetDokladOZService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1420,7 +1420,7 @@ uses
mnReq:= 0;
try
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetKusovnik (idVPr, mnReq, jenPlatne, 0)));
Render(ObjectDict().Add('data', GetVyrobniPrikazService.GetKusovnik (idVPr, mnReq, jenPlatne, 0, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1477,7 +1477,7 @@ uses
params.Add('stavPrikazu', iStav.ToString);
try
Render(ObjectDict().Add('data', GetMaterialPrikazuService.GetByParams (params)));
Render(ObjectDict().Add('data', GetMaterialPrikazuService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1570,7 +1570,7 @@ uses
try
Render(ObjectDict().Add('data', GetMaterialPrikazuService.GetByParams (params)));
Render(ObjectDict().Add('data', GetMaterialPrikazuService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1680,7 +1680,7 @@ uses
try
Render(ObjectDict().Add('data', GetVyrobniOperaceService.GetByParams (p))); // viz uSvc_Vyroba.pas
Render(ObjectDict().Add('data', GetVyrobniOperaceService.GetByParams (p, FDM.sqlConn))); // viz uSvc_Vyroba.pas
except
RenderStatusMessage (200);
{
@ -1721,7 +1721,7 @@ uses
params.Add ('kontrolnipostupy', '1');
try
Render(ObjectDict().Add('data', GetVyrobniOperaceService.GetByID (iid, params)));
Render(ObjectDict().Add('data', GetVyrobniOperaceService.GetByID (iid, params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1840,7 +1840,7 @@ uses
try
Render(ObjectDict().Add('data', GetKooperacniObjednavkaService.GetByParams(params)));
Render(ObjectDict().Add('data', GetKooperacniObjednavkaService.GetByParams(params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -1876,7 +1876,7 @@ uses
bPol:= (p=1);
try
Render(ObjectDict().Add('data', GetKooperacniObjednavkaService.GetByID(iId, bPol)));
Render(ObjectDict().Add('data', GetKooperacniObjednavkaService.GetByID(iId, bPol, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -2100,7 +2100,7 @@ uses
params.Add('dilec', idDilce.ToString);
try
Render(ObjectDict().Add('data', GetTPVOperaceDilceService.GetByParams (params)));
Render(ObjectDict().Add('data', GetTPVOperaceDilceService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
end;
@ -2176,7 +2176,7 @@ uses
params.Add('id', iId.ToString);
try
Render(ObjectDict().Add('data', GetMaterialPrikazuService.GetByParams (params)));
Render(ObjectDict().Add('data', GetMaterialPrikazuService.GetByParams (params, FDM.sqlConn)));
except
RenderStatusMessage (200);
{
@ -2382,7 +2382,7 @@ uses
params.Add ('id', iId.ToString);
try
Render(ObjectDict().Add('data', GetTPVPrednastaveniOperaciService.GetByID (iId, params)));
Render(ObjectDict().Add('data', GetTPVPrednastaveniOperaciService.GetByID (iId, params, FDM.sqlConn)));
except
// RenderStatusMessage (200);
{
@ -2424,7 +2424,7 @@ uses
{$ENDIF}
try
Render(ObjectDict().Add('data', GetTPVPrednastaveniOperaciService.GetByParams (params)));
Render(ObjectDict().Add('data', GetTPVPrednastaveniOperaciService.GetByParams (params, FDM.sqlConn)));
except
// RenderStatusMessage (200);
{