init

Kreta.DataAccess.Migrations/Scripts/20211207144215_KRETA2_10677/KRETA2_10677.sql

@@ -0,0 +1,55 @@
+
+DECLARE intezmenytanevekCursor CURSOR LOCAL FOR 
+	SELECT IntezmenyAdatok.C_INTEZMENYID, IntezmenyAdatok.C_TANEVID
+		FROM T_INTEZMENYADATOK IntezmenyAdatok
+    INNER JOIN T_TANEV Tanev ON Tanev.ID = C_TANEVID
+      AND Tanev.TOROLT = 'F'
+      AND (Tanev.C_AKTIV = 'T' OR Tanev.C_KOVETKEZO = 'T')
+
+DECLARE @intezmenyId int, @tanevId int
+
+OPEN intezmenytanevekCursor  
+FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId
+
+WHILE @@FETCH_STATUS = 0 
+BEGIN  
+
+  DECLARE @FELTAREsetKezeloId INT = NULL
+  SELECT TOP 1 @FELTAREsetKezeloId = ID FROM dbo.T_SZEREPKOR WHERE C_SZEREPKORTIPUS = 8828 AND C_INTEZMENYID = @intezmenyId AND C_TANEVID = @tanevId
+  IF(@FELTAREsetKezeloId IS NULL)  BEGIN
+  	INSERT INTO [dbo].T_SZEREPKOR ([C_SZEREPKORTIPUS],[C_INTEZMENYID],[C_TANEVID],[SERIAL],[LASTCHANGED],[CREATED],[MODIFIER],[CREATOR])
+  		VALUES (8828,@intezmenyId,@tanevId,0,GETDATE(),GETDATE(),NULL,1)
+  	SET @FELTAREsetKezeloId = SCOPE_IDENTITY()	
+  END
+  DECLARE @FELTAREsetKezeloJogId INT = NULL
+  SELECT TOP 1 @FELTAREsetKezeloJogId = ID FROM dbo.T_JOGOSULTSAG WHERE C_JOG = N'FELTAR_EsetKezelo' AND C_INTEZMENYID = @intezmenyId AND C_TANEVID = @tanevId
+  IF(@FELTAREsetKezeloJogId IS NULL)
+  BEGIN
+  	INSERT INTO dbo.T_JOGOSULTSAG (C_JOG,C_SZEREPKORTIPUS,[C_INTEZMENYID],[C_TANEVID],TOROLT,SERIAL,CREATED,CREATOR)
+  	  VALUES (N'FELTAR_EsetKezelo',8828,@intezmenyId , @tanevId,'F',0,GETDATE(),0)
+  	SET @FELTAREsetKezeloJogId = SCOPE_IDENTITY()
+  END
+
+  DECLARE @FELTAREszkozMenedzserId INT = NULL
+  SELECT TOP 1 @FELTAREszkozMenedzserId = ID FROM dbo.T_SZEREPKOR WHERE C_SZEREPKORTIPUS = 8829 AND C_INTEZMENYID = @intezmenyId AND C_TANEVID = @tanevId
+  IF(@FELTAREszkozMenedzserId IS NULL)  BEGIN
+  	INSERT INTO [dbo].T_SZEREPKOR ([C_SZEREPKORTIPUS],[C_INTEZMENYID],[C_TANEVID],[SERIAL],[LASTCHANGED],[CREATED],[MODIFIER],[CREATOR])
+  		VALUES (8829,@intezmenyId,@tanevId,0,GETDATE(),GETDATE(),NULL,1)
+  	SET @FELTAREszkozMenedzserId = SCOPE_IDENTITY()	
+  END
+  DECLARE @FELTAREszkozMenedzserJogId INT = NULL
+  SELECT TOP 1 @FELTAREszkozMenedzserJogId = ID FROM dbo.T_JOGOSULTSAG WHERE C_JOG = N'FELTAR_EszkozMenedzser' AND C_INTEZMENYID = @intezmenyId AND C_TANEVID = @tanevId
+  IF(@FELTAREszkozMenedzserJogId IS NULL)
+  BEGIN
+  	INSERT INTO dbo.T_JOGOSULTSAG (C_JOG,C_SZEREPKORTIPUS,[C_INTEZMENYID],[C_TANEVID],TOROLT,SERIAL,CREATED,CREATOR)
+  	  VALUES (N'FELTAR_EszkozMenedzser',8829,@intezmenyId , @tanevId,'F',0,GETDATE(),0)
+  	SET @FELTAREszkozMenedzserJogId = SCOPE_IDENTITY()
+  END
+
+  FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId
+END  
+
+CLOSE intezmenytanevekCursor  
+DEALLOCATE intezmenytanevekCursor
+
+GO

Kreta.DataAccess.Migrations/Scripts/20211207144215_KRETA2_10677/KRETA2_10677_InsertScripts.sql

@@ -0,0 +1,158 @@
+
+DROP TABLE IF EXISTS tmpForSwitchDictionaryItemBase 
+CREATE TABLE tmpForSwitchDictionaryItemBase(RegiID int, UjID int, TanevID int, C_NAME nvarchar(500), C_TYPE nvarchar(64), Torolni char(1))
+DECLARE @TEMP_EnvironmentName nvarchar(1000), @LastTanevSorszam int 
+SET @LastTanevSorszam  = (SELECT MAX(C_SORSZAM) FROM T_TANEV WHERE TOROLT = 'F' AND (C_KOVETKEZO = 'T' OR C_AKTIV = 'T'))
+SET @TEMP_EnvironmentName = (SELECT [Value] 
+FROM dev.EnvironmentInfo WHERE [Key] = 'Dictionary')
+IF (@TEMP_EnvironmentName IS NULL OR @TEMP_EnvironmentName NOT IN ('KK','NSZFH','HOI','AZURE'))
+BEGIN  INSERT INTO T_DICTIONARYITEMBASE(C_VALUE) VALUES('Nincs Dictionary ertek a dev.EnvironmentInfo tablaban') END  -- elszall a migracio ha nincs 
+
+IF @TEMP_EnvironmentName = 'KK'
+  BEGIN 
+    -----  8828 ----- TESZEK - Eset kezelő -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8828, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eset kezelő' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eset kezelő' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'NSZFH'
+  BEGIN 
+    -----  8828 ----- FELTÁR - Eset kezelő -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8828, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'FELTÁR - Eset kezelő' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'FELTÁR - Eset kezelő' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'HOI'
+  BEGIN 
+    -----  8828 ----- TESZEK - Eset kezelő -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8828, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eset kezelő' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eset kezelő' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'AZURE'
+  BEGIN 
+    -----  8828 ----- TESZEK - Eset kezelő -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8828, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eset kezelő' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eset kezelő' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'KK'
+  BEGIN 
+    -----  8829 ----- TESZEK - Eszköz menedzser -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8829, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'NSZFH'
+  BEGIN 
+    -----  8829 ----- FELTÁR - Eszköz menedzser -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8829, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'FELTÁR - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'FELTÁR - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'HOI'
+  BEGIN 
+    -----  8829 ----- TESZEK - Eszköz menedzser -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8829, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+END 
+
+IF @TEMP_EnvironmentName = 'AZURE'
+  BEGIN 
+    -----  8829 ----- TESZEK - Eszköz menedzser -----
+    INSERT INTO tmpForSwitchDictionaryItemBase(RegiID, UjID, TanevID, C_NAME, C_TYPE, Torolni)
+    SELECT DIB.ID, 8829, DIB.C_TANEVID, DIB.C_NAME, DIB.C_TYPE, 'F' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+    UPDATE DIB SET 
+    DIB.TOROLT = 'T' 
+    FROM T_DICTIONARYITEMBASE DIB 
+      WHERE DIB.C_DICTIONARYTYPEID = 67 AND DIB.C_NAME = N'TESZEK - Eszköz menedzser' AND DIB.TOROLT = 'F' 
+END 
+;
+ DISABLE TRIGGER ALL ON T_DICTIONARYITEMBASE;  
+ EXEC [dev].[uspCreateDictionaryItems] NULL, NULL; 
+ ENABLE TRIGGER ALL ON T_DICTIONARYITEMBASE;  
+ EXEC [dev].uspSwitchDictionaryItemBaseFromTmp;  
+
+-- ================================================================================================================
+-- Ezekhez az újonnan felvett dictionary elemek felvételekor más táblákba is
+-- szükséges lehet kapcsolódó rekordokat beszúrni
+-- dev.uspSetDictionaryProperties SP-be felejtsd el berakni, ez kell az új intézmény létrehozásához
+-- ================================================================================================================
+
+
+-- 8828 - TESZEK - Eset kezelő
+INSERT INTO T_SZEREPKOR (
+   C_SZEREPKORTIPUS
+  ,C_INTEZMENYID
+  ,C_TANEVID
+  ,TOROLT
+  ,SERIAL
+  ,LASTCHANGED
+  ,CREATED
+  ,MODIFIER
+  ,CREATOR
+)
+SELECT 8828, i.ID, tv.ID, 'F', 0, GETDATE(), GETDATE(), NULL, NULL   
+FROM T_INTEZMENY i
+  INNER JOIN T_TANEV tv ON tv.C_INTEZMENYID = i.ID
+WHERE tv.TOROLT = 'F' AND i.TOROLT = 'F' AND tv.C_AKTIV = 'T'
+-- 8829 - TESZEK - Eszköz menedzser
+INSERT INTO T_SZEREPKOR (
+   C_SZEREPKORTIPUS
+  ,C_INTEZMENYID
+  ,C_TANEVID
+  ,TOROLT
+  ,SERIAL
+  ,LASTCHANGED
+  ,CREATED
+  ,MODIFIER
+  ,CREATOR
+)
+SELECT 8829, i.ID, tv.ID, 'F', 0, GETDATE(), GETDATE(), NULL, NULL   
+FROM T_INTEZMENY i
+  INNER JOIN T_TANEV tv ON tv.C_INTEZMENYID = i.ID
+WHERE tv.TOROLT = 'F' AND i.TOROLT = 'F' AND tv.C_AKTIV = 'T'