DELETE FROM dbo.T_DICTIONARYITEMBASE WHERE ID IN (6870, 6871, 6876, 6873, 6874, 6875, 6872)

GO

DECLARE @TypeId int,  @MaxDictionaryTypeId int

SET @MaxDictionaryTypeId = (SELECT MAX(ID) + 1 FROM T_DICTIONARYTYPE)

DECLARE intezmenytanevekCursor CURSOR LOCAL FOR 
	SELECT C_INTEZMENYID, C_TANEVID
		FROM T_INTEZMENYADATOK

DECLARE @intezmenyId int, @tanevId int

OPEN intezmenytanevekCursor  
FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId

WHILE @@FETCH_STATUS = 0 
BEGIN  
	PRINT N'INTÉZMÉNY ID: ' + CAST(@intezmenyId AS NVARCHAR(10)) + N', TANÉV ID: ' + CAST(@tanevId AS NVARCHAR(10))

	IF (@TypeId IS NULL) BEGIN
		SELECT @TypeId = ID
		FROM T_DICTIONARYTYPE
		WHERE C_CODENAME = N'EsemenyTipus'
	END

	SET IDENTITY_INSERT [dbo].[T_DICTIONARYITEMBASE] ON

		INSERT INTO dbo.T_DICTIONARYITEMBASE (ID, C_NAME, C_NAME_1, C_NAME_2, C_NAME_3, C_NAME_4, C_TYPE, C_PROTECTED, C_VISIBLE, C_ORDER, C_CODE, C_VALUE, C_COLOR, C_DICTIONARYTYPEID, C_INTEZMENYID, C_TANEVID, TOROLT, SERIAL, LASTCHANGED, CREATED, MODIFIER, CREATOR)
		VALUES
		    (6870, N'Első figyelmeztetés késések miatt', N'Első figyelmeztetés késések miatt', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 73, NULL, 73, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6871, N'Figyelmeztetés közösségi programról való távolmaradás miatt', N'Figyelmeztetés közösségi programról való távolmaradás miatt', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 74, NULL, 74, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6873, N'Intézményvezetői figyelmeztetés', N'Intézményvezetői figyelmeztetés', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 76, NULL, 76, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6874, N'Intézményvezetői intés', N'Intézményvezetői intés', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 77, NULL, 77, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6875, N'Intézményvezetői megrovás', N'Intézményvezetői megrovás', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 78, NULL, 78, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6872, N'Szaktanári tanulmányi figyelmeztetés', N'Szaktanári tanulmányi figyelmeztetés', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 79, NULL, 79, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6906, N'Tagozatvezetői figyelmeztetés', N'Tagozatvezetői figyelmeztetés', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 80, NULL, 80, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6907, N'Tagozatvezetői intés', N'Tagozatvezetői intés', NULL, NULL, NULL, N'EsemenyTipus', N'T', N'T', 81, NULL, 81, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL)

    SET IDENTITY_INSERT [dbo].[T_DICTIONARYITEMBASE] OFF

		INSERT INTO [dbo].[T_ESEMENYTIPUS] ([ID], [C_ALINTEZMENYID], [C_ALTANEVID]) VALUES
			(6870, @IntezmenyId, @TanevId),
			(6871, @IntezmenyId, @TanevId),
			(6873, @IntezmenyId, @TanevId),
			(6874, @IntezmenyId, @TanevId),
			(6875, @IntezmenyId, @TanevId),
			(6872, @IntezmenyId, @TanevId),
			(6906, @IntezmenyId, @TanevId),
			(6907, @IntezmenyId, @TanevId)

	FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId
END  

CLOSE intezmenytanevekCursor  
DEALLOCATE intezmenytanevekCursor

GO


UPDATE dbo.T_DICTIONARYITEMBASE SET C_PROTECTED = 'T' WHERE C_TYPE = N'EsemenyTipus' AND TOROLT = 'F'


GO