Priprava na init poolingu uz ve WinService + do TBaseController dat jen FConn a na to okazovat dal

2026-04-30 09:23:44 +02:00
parent 1258a27a4e
commit 18081c6bf8
10 changed files with 224 additions and 69 deletions
@@ -2,7 +2,7 @@
 {$IFDEF DEBUG}
         WriteLn ('Start sluzby Zapis objednavek materialu do ExpPr - inverval 10 minut...');
 {$ENDIF}
-         rtnZapisObjMatThr:= THeoRTNZapisObjMatThread.Create (ThreadTerminated, self);
+         rtnZapisObjMatThr:= THeoRTNZapisObjMatThread.Create (ThreadTerminated, self, datMod);
         if (rtnZapisObjMatThr.Started) then
          begin
           datMod.LogInfo (Quick.Logger.etInfo, '  OK');