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))

	SET IDENTITY_INSERT [dbo].[T_DICTIONARYTYPE] ON

	INSERT INTO T_DICTIONARYTYPE (ID, C_CODENAME, C_NAME, C_INTEZMENYID, C_TANEVID) VALUES
		(@MaxDictionaryTypeId, N'FeljegyzesTipus', N'Feljegyzés típus', @IntezmenyId, @TanevId)

	SET IDENTITY_INSERT [dbo].[T_DICTIONARYTYPE] OFF

	IF (@TypeId IS NULL) BEGIN
		SELECT @TypeId = ID
		FROM T_DICTIONARYTYPE
		WHERE C_CODENAME = N'FeljegyzesTipus'
	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'FeljegyzesTipus', N'T', N'T', 1, NULL, 1, 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'FeljegyzesTipus', N'T', N'T', 2, NULL, 2, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
            (6876, N'Intézményvezetői dicséret', N'Intézményvezetői dicséret', NULL, NULL, NULL, N'FeljegyzesTipus', N'T', N'T', 3, NULL, 3, 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'FeljegyzesTipus', N'T', N'T', 4, NULL, 4, 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'FeljegyzesTipus', N'T', N'T', 5, NULL, 5, 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'FeljegyzesTipus', N'T', N'T', 6, NULL, 6, 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'FeljegyzesTipus', N'T', N'T', 7, NULL, 7, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL)

    SET IDENTITY_INSERT [dbo].[T_DICTIONARYITEMBASE] OFF

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

	FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId
END  

CLOSE intezmenytanevekCursor  
DEALLOCATE intezmenytanevekCursor

GO