Prvni verze

uCtrlBase.pas

@@ -0,0 +1,743 @@
+unit uCtrlBase;
+
+interface
+{$I 'GlobalDefs.inc'}
+
+
+uses
+  MVCFramework,
+  MVCFramework.Commons,
+  MVCFramework.Serializer.Commons,
+  MVCFramework.Nullables,
+  MVCFramework.Controllers.Register,
+  uDataMod,
+  uCommons,
+  uSvc_Base,
+  uSvc_Obecne,
+  uSvc_Organizace,
+  uSvc_Zamestnanci,
+  uSvc_ObehZbozi,
+  uSvc_KmenZbozi,
+  uSvc_Vyroba,
+  uSvc_QMS,
+  MVCFramework.Swagger.Commons
+{$IF DEFINED(CUSTOM_CTRL_Rootvin)}, uSvcCustom {$ENDIF}
+{$IF DEFINED(CUSTOM_CTRL_INCOSystems)}, uSvcCustom {$ENDIF}
+{$IF DEFINED(CUSTOM_CTRL_Gornicky)}, uSvcCustom {$ENDIF}
+{$IF DEFINED(CUSTOM_CTRL_EMPolar)}, uSvcCustom {$ENDIF}
+{$IF DEFINED(CUSTOM_CTRL_GatemaSD)}, uSvcCustomSDG {$ENDIF}
+  ;
+
+
+const
+{$I globalConsts.inc}
+
+type
+  TBaseController = class abstract(TMVCController)
+   strict private
+    FObecnyService: TObecnyService;
+
+    FAktivitaService: TAktivitaService;
+    FUkolAktivityService: TUkolAktivityService;
+
+    FZamestnanciService: TZamestnanciService;
+    FDokumentService: TDokumentService;
+    FPlanKalendarService: TPlanKalendarService;
+    FPolPlanKalendarService: TPolPlanKalendarService;
+
+    FSkupinaZboziService: TSkupinaZboziService;
+    FKmenZboziService: TKmenZboziService;
+    FDokladOZService: TDokladOZService;
+    FPolozkaOZService: TPolozkaOZService;
+    FStavSkladuService: TStavSkladuService;
+
+    FTPVOperaceDilceService: TTPVOperaceDilceService;
+    FTPVKusovnikDilceService: TTPVKusovnikDilceService;
+
+    FVyrobniPrikazService: TVyrobniPrikazService;
+    FVyrobaVyrCisPrikazService: TVyrobaVyrCisPrikazService;
+    FMaterialPrikazuService: TMaterialPrikazuService;
+    FVyrobniOperaceService: TVyrobniOperaceService;
+    FKooperacniObjednavkaService: TKooperacniObjednavkaService;
+
+    FVyrobaEvidRozpracOperaciService: TVyrobaEvidRozpracOperaciService;
+    FVyrobaEvidRozpracOperaciOperaceService: TVyrobaEvidRozpracOperaciOperaceService;
+    FVyrobaEvidenceOperaciService: TVyrobaEvidenceOperaciService;
+
+    FQMSUdrzbaStrojuAZarizeniService: TQMSUdrzbaStrojuAZarizeniService;
+    FQMSObecneService: TQMSObecneService;
+    FQMSKontrolniPostupyService: TQMSKontrolniPostupyService;
+    FQMSKontrolniPlanService: TQMSKontrolniPlanService;
+
+    FOrganizaceService: TOrganizaceService;
+    FTPVPracovisteService: TTPVPracovisteService;
+    FTPVStrojService: TTPVStrojService;
+    FTPVCisKoopService: TTPVCisKoopService;
+    FTPVCiselnikZmenService: TTPVCiselnikZmenService;
+    FTPVPrednastaveniOperaciService: TTPVPrednastaveniOperaciService;
+    FTPVZakazkoveModifikaceService: TTPVZakazkoveModifikaceService;
+    FTPVZakazkoveModifikaceDilceService: TTPVZakazkoveModifikaceDilceService;
+
+{$IFDEF CUSTOM_CTRL_Rootvin}
+    FRTNService: TRTNService;
+{$ENDIF}
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+    FINCOSysService: TINCOSysService;
+{$ENDIF}
+{$IFDEF CUSTOM_CTRL_Gornicky}
+    FGornickyService: TGornickyService;
+{$ENDIF}
+{$IFDEF CUSTOM_CTRL_EMPolar}
+    FEMPNadobaService: TEMPNadobaService;
+{$ENDIF}
+    function GetDataModule: TdatMod;
+   strict protected
+    FDM: TdatMod;
+
+    function GetObecnyService: TObecnyService;
+
+    function GetAktivitaService: TAktivitaService;
+    function GetUkolAktivityService: TUkolAktivityService;
+
+    function GetQMSUdrzbaStrojuAZarizeniService: TQMSUdrzbaStrojuAZarizeniService;
+    function GetQMSObecneService: TQMSObecneService;
+
+    function GetZamestnanciService: TZamestnanciService;
+    function GetOrganizaceService: TOrganizaceService;
+    function GetDokumentService: TDokumentService;
+    function GetPlanKalendarService: TPlanKalendarService;
+    function GetPolPlanKalendarService: TPolPlanKalendarService;
+
+    function GetSkupinaZboziService: TSkupinaZboziService;
+    function GetKmenZboziService: TKmenZboziService;
+    function GetDokladOZService: TDokladOZService;
+    function GetPolozkaOZService: TPolozkaOZService;
+    function GetStavSkladuService: TStavSkladuService;
+
+    function GetTPVOperaceDilceService: TTPVOperaceDilceService;
+    function GetTPVKusovnikDilceService: TTPVKusovnikDilceService;
+
+    function GetVyrobniPrikazService: TVyrobniPrikazService;
+    function GetVyrobaVyrCisPrikazService: TVyrobaVyrCisPrikazService;
+    function GetMaterialPrikazuService: TMaterialPrikazuService;
+    function GetVyrobniOperaceService: TVyrobniOperaceService;
+    function GetKooperacniObjednavkaService: TKooperacniObjednavkaService;
+
+    function GetVyrobaEvidRozpracOperaciService: TVyrobaEvidRozpracOperaciService;
+    function GetVyrobaEvidRozpracOperaciOperaceService: TVyrobaEvidRozpracOperaciOperaceService;
+    function GetVyrobaEvidenceOperaciService: TVyrobaEvidenceOperaciService;
+
+
+    function GetQMSKontrolniPostupyService: TQMSKontrolniPostupyService;
+    function GetQMSKontrolniPlanService: TQMSKontrolniPlanService;
+
+    function GetTPVPracovisteService: TTPVPracovisteService;
+    function GetTPVStrojService: TTPVStrojService;
+    function GetTPVCisKoopService: TTPVCisKoopService;
+    function GetTPVCiselnikZmenService: TTPVCiselnikZmenService;
+    function GetTPVPrednastaveniOperaciService: TTPVPrednastaveniOperaciService;
+    function GetTPVZakazkoveModifikaceService: TTPVZakazkoveModifikaceService;
+    function GetTPVZakazkoveModifikaceDilceService: TTPVZakazkoveModifikaceDilceService;
+
+{$IFDEF CUSTOM_CTRL_Rootvin}
+    function GetRTNService: TRTNService;
+{$ENDIF}
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+    function GetINCOSysService: TINCOSysService;
+{$ENDIF}
+{$IFDEF CUSTOM_CTRL_Gornicky}
+    function GetGornickyService: TGornickyService;
+{$ENDIF}
+{$IFDEF CUSTOM_CTRL_EMPolar}
+    function GetEMPNadobaService: TEMPNadobaService;
+{$ENDIF}
+   public
+    constructor Create; override;
+    destructor Destroy; override;
+    function sanitizeSQLString (s: string): string;
+  end;
+
+
+  [MVCPath('')]
+  TObecnyController = class(TBaseController)
+  public
+    [MVCPath('/test')]
+    [MVCHTTPMethod([httpGET])]
+    [MVCSwagSummary('Obecny kontroler', 'Test dostupnosti DB', 'BaseTestDB')]
+//    [MVCProduces('text/plain')]
+    procedure TestDB;
+
+    [MVCDoc('Pomocí POST zapíše obecná json data do Heliosu')]
+    [MVCPath('/zapisjson')] // zapis obecnych json data do Heliosu
+    [MVCHTTPMethod([httpPOST])]
+    [MVCSwagSummary('Obecny kontroler', 'Zápis JSON dat do db Heliosu', 'BaseZapisJSONDoHeliosu')]
+    [MVCConsumes(TMVCMediaType.APPLICATION_JSON)]
+    procedure ZapisJSONDoHeliosu (CTX: TWebContext);
+
+  end;
+
+
+
+
+
+  [MVCPatch]
+
+
+
+
+  [MVCSwagIgnorePath]
+  [MVCPath]
+  TRedirectController = class(TMVCController)
+  public
+    [MVCPath('/')]
+    [MVCHTTPMethod([httpGET])]
+    procedure DoRedirect;
+  end;
+
+
+implementation
+
+uses
+  Winapi.ActiveX,
+  System.SysUtils,
+  System.DateUtils,
+  FireDAC.Stan.Consts;
+
+
+{ TBaseController }
+
+ constructor TBaseController.Create;
+  begin
+   inherited;
+   if not(Assigned(FDM)) then
+    FDM:= GetDataModule;
+  end;
+
+
+
+ destructor TBaseController.Destroy;
+  begin
+   FObecnyService.Free;
+   FZamestnanciService.Free;
+   FOrganizaceService.Free;
+   FDokumentService.Free;
+   FPlanKalendarService.Free;
+
+   FKmenZboziService.Free;
+   FStavSkladuService.Free;
+
+   FDokladOZService.Free;
+   FPolozkaOZService.Free;
+
+   FTPVOperaceDilceService.Free;
+   FTPVKusovnikDilceService.Free;
+
+   FVyrobniPrikazService.Free;
+   FVyrobaVyrCisPrikazService.Free;
+   FVyrobniOperaceService.Free;
+   FKooperacniObjednavkaService.Free;
+
+   FVyrobaEvidRozpracOperaciService.Free;
+   FVyrobaEvidRozpracOperaciOperaceService.Free;
+   FVyrobaEvidenceOperaciService.Free;
+
+   FQMSObecneService.Free;
+   FQMSUdrzbaStrojuAZarizeniService.Free;
+   FQMSKontrolniPostupyService.Free;
+   FQMSKontrolniPlanService.Free;
+
+
+   FTPVPracovisteService.Free;
+   FTPVStrojService.Free;
+   FTPVCisKoopService.Free;
+   FTPVCiselnikZmenService.Free;
+   FTPVPrednastaveniOperaciService.Free;
+   FTPVZakazkoveModifikaceService.Free;
+   FTPVZakazkoveModifikaceDilceService.Free;
+
+{$IFDEF CUSTOM_CTRL_Rootvin}
+   FRTNService.Free;
+{$ENDIF}
+
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+   FINCOSysService.Free;
+{$ENDIF}
+
+{$IFDEF CUSTOM_CTRL_Gornicky}
+   FGornickyService.Free;
+{$ENDIF}
+
+{$IFDEF CUSTOM_CTRL_EMPolar}
+   FEMPNadobaService.Free;
+{$ENDIF}
+
+   if Assigned(FDM) then
+    FDM.Free;
+
+   inherited;
+  end;
+
+
+
+ function TBaseController.GetDataModule: TdatMod;
+  begin
+   if not Assigned(FDM) then
+    FDM:= TdatMod.Create(nil);
+
+   with FDM do
+    try
+      sqlConn.Params.Clear;
+      sqlConn.Params.Add(S_FD_ConnParam_Common_DriverID + '=MSSQL');
+      sqlConn.Params.Add(S_FD_ConnParam_Common_Server + '=' + datMod.dbServer);
+      sqlConn.Params.Add(S_FD_ConnParam_Common_Port + '=' + datMod.dbPort.ToString);
+      sqlConn.Params.Add(S_FD_ConnParam_Common_Database + '=' + datMod.dbName);
+      sqlConn.Params.Add(S_FD_ConnParam_Common_UserName + '=' + datMod.dbUser);
+      sqlConn.Params.Add(S_FD_ConnParam_Common_Password + '=' + datMod.dbPwd);
+      sqlConn.Params.Add(S_FD_ConnParam_Common_OSAuthent + '=No');
+      sqlConn.Params.Add(S_FD_ConnParam_Common_MetaDefSchema + '=dbo');
+      sqlConn.Params.Add(S_FD_ConnParam_ODBC_ODBCAdvanced + '=TrustServerCertificate=yes');
+      sqlConn.Params.Add(S_FD_ConnParam_Common_ApplicationName + '=hdcdzAPIsvc');
+//      sqlConn.Open;
+     except on E:Exception do
+    end;
+
+   result:= FDM;
+  end;
+
+
+
+ function TBaseController.GetObecnyService: TObecnyService;
+  begin
+   if not Assigned(FObecnyService) then
+    FObecnyService:= TObecnyService.Create (GetDataModule);
+   result:= FObecnyService;
+  end;
+
+
+ function TBaseController.GetUkolAktivityService: TUkolAktivityService;
+  begin
+   if not Assigned(FUkolAktivityService) then
+    FUkolAktivityService:= TUkolAktivityService.Create (GetDataModule);
+   result:= FUkolAktivityService;
+  end;
+
+ function TBaseController.GetAktivitaService: TAktivitaService;
+  begin
+   if not Assigned(FAktivitaService) then
+    FAktivitaService:= TAktivitaService.Create (GetDataModule);
+   result:= FAktivitaService;
+  end;
+
+
+
+
+ function TBaseController.GetQMSUdrzbaStrojuAZarizeniService: TQMSUdrzbaStrojuAZarizeniService;
+  begin
+   if not Assigned(FQMSUdrzbaStrojuAZarizeniService) then
+    FQMSUdrzbaStrojuAZarizeniService:= TQMSUdrzbaStrojuAZarizeniService.Create (GetDataModule);
+   result:= FQMSUdrzbaStrojuAZarizeniService;
+  end;
+
+
+
+ function TBaseController.GetQMSObecneService: TQMSObecneService;
+  begin
+   if not Assigned(FQMSObecneService) then
+    FQMSObecneService:= TQMSObecneService.Create (GetDataModule);
+   result:= FQMSObecneService;
+  end;
+
+
+
+ function TBaseController.GetZamestnanciService: TZamestnanciService;
+  begin
+   if not Assigned(FZamestnanciService) then
+    FZamestnanciService:= TZamestnanciService.Create (GetDataModule);
+   result:= FZamestnanciService;
+  end;
+
+
+ function TBaseController.GetDokumentService: TDokumentService;
+  begin
+   if not Assigned(FDokumentService) then
+    FDokumentService:= TDokumentService.Create (GetDataModule);
+   result:= FDokumentService;
+  end;
+
+
+ function TBaseController.GetPlanKalendarService: TPlanKalendarService;
+  begin
+   if not Assigned(FPlanKalendarService) then
+    FPlanKalendarService:= TPlanKalendarService.Create (GetDataModule);
+   result:= FPlanKalendarService;
+  end;
+
+ function TBaseController.GetPolPlanKalendarService: TPolPlanKalendarService;
+  begin
+   if not Assigned(FPolPlanKalendarService) then
+    FPolPlanKalendarService:= TPolPlanKalendarService.Create (GetDataModule);
+   result:= FPolPlanKalendarService;
+  end;
+
+
+
+ function TBaseController.GetKmenZboziService: TKmenZboziService;
+  begin
+   if not Assigned(FKmenZboziService) then
+    FKmenZboziService:= TKmenZboziService.Create (GetDataModule);
+   result:= FKmenZboziService;
+  end;
+
+
+
+ function TBaseController.GetDokladOZService: TDokladOZService;
+  begin
+   if not Assigned(FDokladOZService) then
+    FDokladOZService:= TDokladOZService.Create(GetDataModule);
+   result:= FDokladOZService;
+  end;
+
+
+
+ function TBaseController.GetPolozkaOZService: TPolozkaOZService;
+  begin
+   if not Assigned(FPolozkaOZService) then
+    FPolozkaOZService:= TPolozkaOZService.Create(GetDataModule);
+   result:= FPolozkaOZService;
+  end;
+
+
+
+ function TBaseController.GetStavSkladuService: TStavSkladuService;
+  begin
+   if not Assigned(FStavSkladuService) then
+    FStavSkladuService:= TStavSkladuService.Create(GetDataModule);
+   result:= FStavSkladuService;
+  end;
+
+
+
+ function TBaseController.GetSkupinaZboziService: TSkupinaZboziService;
+  begin
+   if not Assigned(FSkupinaZboziService) then
+    FSkupinaZboziService:= TSkupinaZboziService.Create(GetDataModule);
+   result:= FSkupinaZboziService;
+  end;
+
+
+
+
+
+ function TBaseController.GetVyrobniPrikazService: TVyrobniPrikazService;
+  begin
+   if not Assigned(FVyrobniPrikazService) then
+    FVyrobniPrikazService:= TVyrobniPrikazService.Create(GetDataModule);
+   result:= FVyrobniPrikazService;
+  end;
+
+
+
+ function TBaseController.GetVyrobaVyrCisPrikazService: TVyrobaVyrCisPrikazService;
+  begin
+   if not Assigned(FVyrobaVyrCisPrikazService) then
+    FVyrobaVyrCisPrikazService:= TVyrobaVyrCisPrikazService.Create(GetDataModule);
+   result:= FVyrobaVyrCisPrikazService;
+  end;
+
+
+
+ function TBaseController.GetMaterialPrikazuService: TMaterialPrikazuService;
+  begin
+   if not Assigned(FMaterialPrikazuService) then
+    FMaterialPrikazuService:= TMaterialPrikazuService.Create (GetDataModule);
+   result:= FMaterialPrikazuService;
+  end;
+
+
+
+ function TBaseController.GetVyrobniOperaceService: TVyrobniOperaceService;
+  begin
+   if not Assigned(FVyrobniOperaceService) then
+    FVyrobniOperaceService:= TVyrobniOperaceService.Create (GetDataModule);
+   result:= FVyrobniOperaceService;
+  end;
+
+
+
+ function TBaseController.GetVyrobaEvidenceOperaciService: TVyrobaEvidenceOperaciService;
+  begin
+   if not Assigned(FVyrobaEvidenceOperaciService) then
+    FVyrobaEvidenceOperaciService:= TVyrobaEvidenceOperaciService.Create (GetDataModule);
+   result:= FVyrobaEvidenceOperaciService;
+  end;
+
+
+
+ function TBaseController.GetVyrobaEvidRozpracOperaciService: TVyrobaEvidRozpracOperaciService;
+  begin
+   if not Assigned(FVyrobaEvidRozpracOperaciService) then
+    FVyrobaEvidRozpracOperaciService:= TVyrobaEvidRozpracOperaciService.Create (GetDataModule);
+   result:= FVyrobaEvidRozpracOperaciService;
+  end;
+
+
+ function TBaseController.GetVyrobaEvidRozpracOperaciOperaceService: TVyrobaEvidRozpracOperaciOperaceService;
+  begin
+   if not Assigned(FVyrobaEvidRozpracOperaciOperaceService) then
+    FVyrobaEvidRozpracOperaciOperaceService:= TVyrobaEvidRozpracOperaciOperaceService.Create (GetDataModule);
+   result:= FVyrobaEvidRozpracOperaciOperaceService;
+  end;
+
+
+
+ function TBaseController.GetKooperacniObjednavkaService: TKooperacniObjednavkaService;
+  begin
+   if not Assigned(FKooperacniObjednavkaService) then
+    FKooperacniObjednavkaService:= TKooperacniObjednavkaService.Create (GetDataModule);
+   result:= FKooperacniObjednavkaService;
+  end;
+
+
+
+ function TBaseController.GetOrganizaceService: TOrganizaceService;
+  begin
+   if not Assigned(FOrganizaceService) then
+    FOrganizaceService:= TOrganizaceService.Create (GetDataModule);
+   result:= FOrganizaceService;
+  end;
+
+
+ function TBaseController.GetQMSKontrolniPostupyService: TQMSKontrolniPostupyService;
+  begin
+   if not Assigned(FQMSKontrolniPostupyService) then
+    FQMSKontrolniPostupyService:= TQMSKontrolniPostupyService.Create (GetDataModule);
+   result:= FQMSKontrolniPostupyService;
+  end;
+
+
+ function TBaseController.GetQMSKontrolniPlanService: TQMSKontrolniPlanService;
+  begin
+   if not Assigned(FQMSKontrolniPlanService) then
+    FQMSKontrolniPlanService:= TQMSKontrolniPlanService.Create (GetDataModule);
+   result:= FQMSKontrolniPlanService;
+  end;
+
+
+
+ function TBaseController.GetTPVCiselnikZmenService: TTPVCiselnikZmenService;
+  begin
+   if not Assigned(FTPVCiselnikZmenService) then
+    FTPVCiselnikZmenService:= TTPVCiselnikZmenService.Create(GetDataModule);
+   result:= FTPVCiselnikZmenService;
+  end;
+
+
+ function TBaseController.GetTPVPracovisteService: TTPVPracovisteService;
+  begin
+   if not Assigned(FTPVPracovisteService) then
+    FTPVPracovisteService:= TTPVPracovisteService.Create(GetDataModule);
+   result:= FTPVPracovisteService;
+  end;
+
+
+ function TBaseController.GetTPVStrojService: TTPVStrojService;
+  begin
+   if not Assigned(FTPVStrojService) then
+    FTPVStrojService:= TTPVStrojService.Create(GetDataModule);
+   result:= FTPVStrojService;
+  end;
+
+
+ function TBaseController.GetTPVCisKoopService: TTPVCisKoopService;
+  begin
+   if not Assigned(FTPVCisKoopService) then
+    FTPVCisKoopService:= TTPVCisKoopService.Create(GetDataModule);
+   result:= FTPVCisKoopService;
+  end;
+
+
+
+ function TBaseController.GetTPVPrednastaveniOperaciService: TTPVPrednastaveniOperaciService;
+  begin
+   if not Assigned(FTPVPrednastaveniOperaciService) then
+    FTPVPrednastaveniOperaciService:= TTPVPrednastaveniOperaciService.Create (GetDataModule);
+   result:= FTPVPrednastaveniOperaciService;
+  end;
+
+
+
+ function TBaseController.GetTPVZakazkoveModifikaceService: TTPVZakazkoveModifikaceService;
+  begin
+   if not Assigned(FTPVZakazkoveModifikaceService) then
+    FTPVZakazkoveModifikaceService:= TTPVZakazkoveModifikaceService.Create (GetDataModule);
+   result:= FTPVZakazkoveModifikaceService;
+  end;
+
+
+
+ function TBaseController.GetTPVZakazkoveModifikaceDilceService: TTPVZakazkoveModifikaceDilceService;
+  begin
+   if not Assigned(FTPVZakazkoveModifikaceDilceService) then
+    FTPVZakazkoveModifikaceDilceService:= TTPVZakazkoveModifikaceDilceService.Create (GetDataModule);
+   result:= FTPVZakazkoveModifikaceDilceService;
+  end;
+
+
+
+ function TBaseController.GetTPVOperaceDilceService: TTPVOperaceDilceService;
+  begin
+   if not Assigned(FTPVOperaceDilceService) then
+    FTPVOperaceDilceService:= TTPVOperaceDilceService.Create (GetDataModule);
+   result:= FTPVOperaceDilceService;
+  end;
+
+
+ function TBaseController.GetTPVKusovnikDilceService: TTPVKusovnikDilceService;
+  begin
+   if not Assigned(FTPVKusovnikDilceService) then
+    FTPVKusovnikDilceService:= TTPVKusovnikDilceService.Create (GetDataModule);
+   result:= FTPVKusovnikDilceService;
+  end;
+
+
+{$IFDEF CUSTOM_CTRL_Rootvin}
+ function TBaseController.GetRTNService: TRTNService;
+  begin
+   if not Assigned(FRTNService) then
+    FRTNService:= TRTNService.Create(GetDataModule);
+   result:= FRTNService;
+  end;
+{$ENDIF}
+
+
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+ function TBaseController.GetINCOSysService: TINCOSysService;
+  begin
+   if not Assigned(FINCOSysService) then
+    FINCOSysService:= TINCOSysService.Create (GetDataModule);
+   result:= FINCOSysService;
+  end;
+{$ENDIF}
+
+
+{$IFDEF CUSTOM_CTRL_Gornicky}
+ function TBaseController.GetGornickyService: TGornickyService;
+  begin
+   if not Assigned(FGornickyService) then
+    FGornickyService:= TGornickyService.Create (GetDataModule);
+   result:= FGornickyService;
+  end;
+{$ENDIF}
+
+
+{$IFDEF CUSTOM_CTRL_EMPolar}
+ function TBaseController.GetEMPNadobaService: TEMPNadobaService;
+  begin
+   if not Assigned(FEMPNadobaService) then
+    FEMPNadobaService:= TEMPNadobaService.Create (GetDataModule);
+   result:= FEMPNadobaService;
+  end;
+{$ENDIF}
+
+
+ function TBaseController.sanitizeSQLString (s: string): string;
+  begin
+   result:= s.Replace(' ', '').Replace(';', '').Replace('--', '').Replace(' OR', '').Trim;
+  end;
+
+
+
+
+
+{ TRedirectController }
+  procedure TRedirectController.DoRedirect;
+   begin
+    Redirect('/swagger');
+   end;
+
+
+
+
+
+
+{ TObecnyController }
+
+ procedure TObecnyController.TestDB;
+  begin
+
+   try
+     if not(FDM.sqlConn.Connected) then
+      FDM.sqlConn.Open;
+    finally
+   end;
+   if not(FDM.sqlConn.Connected) then
+    begin
+     RenderStatusMessage(200, FDM.ErrorStatusJsonText('NO_DB_CONNECTION'));
+{$IFDEF NORENDER400}
+//     RenderStatusMessage(200);
+{$ENDIF}
+     Exit;
+    end;
+
+
+   try
+     Render(ObjectDict().Add('data', GetObecnyService.DoTesty)); // viz uSvc_KmenZbozi.pas
+    except
+{$IFDEF NORENDER400}
+     RenderStatusMessage(200);
+{$ELSE}
+     on E: EServiceException do
+      begin
+       raise EMVCException.Create(E.Message, '', 0, 404);
+      end
+     else
+       raise;
+{$ENDIF}
+   end;
+  end;
+
+
+
+
+ procedure TObecnyController.ZapisJSONDoHeliosu (CTX: TWebContext);
+  var respData, jsonData: string;
+//      o: System.JSON.TJSONObject;
+  begin
+   try
+     if not(FDM.sqlConn.Connected) then
+      FDM.sqlConn.Open;
+    finally
+   end;
+   if not(FDM.sqlConn.Connected) then
+    begin
+     RenderStatusMessage(200, FDM.ErrorStatusJsonText('NO_DB_CONNECTION'));
+{$IFDEF NORENDER400}
+//     RenderStatusMessage(200);
+{$ENDIF}
+     Exit;
+    end;
+
+
+   respData:= '';
+   try
+     jsonData:= CTX.Request.Body.Trim;
+     if (jsonData<>'') then
+      GetObecnyService.ZapisJsonDoHeliosu (jsonData, respData);
+     ResponseStatus(HTTP_STATUS.OK, 'OK');
+     Render(respData);
+    except
+{$IFDEF NORENDER400}
+     RenderStatusMessage(200);
+{$ELSE}
+     on E: EServiceException do
+      begin
+       raise EMVCException.Create(E.Message, '', 0, 404);
+      end
+     else
+       raise;
+{$ENDIF}
+   end;
+  end;
+
+
+end.