This commit is contained in:
2024-03-13 00:33:46 +01:00
commit e124a47765
19374 changed files with 9806149 additions and 0 deletions

View File

@@ -0,0 +1,255 @@
GO
SET ANSI_NULLS, ANSI_PADDING, ANSI_WARNINGS, ARITHABORT, CONCAT_NULL_YIELDS_NULL, QUOTED_IDENTIFIER ON;
SET NUMERIC_ROUNDABORT OFF;
GO
PRINT N'Creating [dbo].[T_LICENCE]...';
GO
CREATE TABLE [dbo].[T_LICENCE] (
[ID] INT IDENTITY (1, 1) NOT NULL,
[C_DATE] DATETIME NULL,
[C_FULL] CHAR (1) NOT NULL,
[C_FUNCTION] INT NULL,
[C_INTEZMENYID] INT NOT NULL,
[C_TANEVID] INT NOT NULL,
[TOROLT] CHAR (1) NOT NULL,
[SERIAL] INT NOT NULL,
[LASTCHANGED] DATETIME NOT NULL,
[CREATED] DATETIME NOT NULL,
[MODIFIER] INT NULL,
[CREATOR] INT NULL,
[ELOZOTANEVIREKORDID] INT NULL,
[NNID] INT NULL,
CONSTRAINT [PK_T_4028200] PRIMARY KEY CLUSTERED ([ID] ASC)
);
GO
PRINT N'Creating [dbo].[T_LICENCE].[I_T_4028200_4028203]...';
GO
CREATE NONCLUSTERED INDEX [I_T_4028200_4028203]
ON [dbo].[T_LICENCE]([C_INTEZMENYID] ASC, [C_TANEVID] ASC, [C_FUNCTION] ASC);
GO
PRINT N'Creating [dbo].[T_LICENCE].[I_T_402820002_402820000]...';
GO
CREATE NONCLUSTERED INDEX [I_T_402820002_402820000]
ON [dbo].[T_LICENCE]([C_INTEZMENYID] ASC);
GO
PRINT N'Creating [dbo].[T_LICENCE].[I_T_402820005_402820003]...';
GO
CREATE NONCLUSTERED INDEX [I_T_402820005_402820003]
ON [dbo].[T_LICENCE]([C_TANEVID] ASC);
GO
PRINT N'Creating [dbo].[T_LICENCEFUNKCIOKTIPUS]...';
GO
CREATE TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] (
[ID] INT NOT NULL,
[C_ALINTEZMENYID] INT NOT NULL,
[C_ALTANEVID] INT NOT NULL,
[TOROLT] CHAR (1) NOT NULL,
[SERIAL] INT NOT NULL,
[LASTCHANGED] DATETIME NOT NULL,
[CREATED] DATETIME NOT NULL,
[MODIFIER] INT NULL,
[CREATOR] INT NULL,
[ELOZOTANEVIREKORDID] INT NULL,
[ELOZOTANEVIREKORDIDA] INT NULL,
[NNID] INT NULL,
CONSTRAINT [PK_T_4028204] PRIMARY KEY CLUSTERED ([ID] ASC, [C_ALINTEZMENYID] ASC, [C_ALTANEVID] ASC)
);
GO
PRINT N'Creating [dbo].[T_LICENCEFUNKCIOKTIPUS].[I_T_402820402_402820400]...';
GO
CREATE NONCLUSTERED INDEX [I_T_402820402_402820400]
ON [dbo].[T_LICENCEFUNKCIOKTIPUS]([C_ALINTEZMENYID] ASC);
GO
PRINT N'Creating [dbo].[T_LICENCEFUNKCIOKTIPUS].[I_T_402820405_402820403]...';
GO
CREATE NONCLUSTERED INDEX [I_T_402820405_402820403]
ON [dbo].[T_LICENCEFUNKCIOKTIPUS]([C_ALTANEVID] ASC);
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCE]...';
GO
ALTER TABLE [dbo].[T_LICENCE]
ADD DEFAULT ((0)) FOR [SERIAL];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCE]...';
GO
ALTER TABLE [dbo].[T_LICENCE]
ADD DEFAULT ('F') FOR [TOROLT];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCE]...';
GO
ALTER TABLE [dbo].[T_LICENCE]
ADD DEFAULT (getdate()) FOR [LASTCHANGED];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCE]...';
GO
ALTER TABLE [dbo].[T_LICENCE]
ADD DEFAULT (getdate()) FOR [CREATED];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCE]...';
GO
ALTER TABLE [dbo].[T_LICENCE]
ADD DEFAULT ('T') FOR [C_FULL];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCEFUNKCIOKTIPUS]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS]
ADD DEFAULT (getdate()) FOR [CREATED];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCEFUNKCIOKTIPUS]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS]
ADD DEFAULT ('F') FOR [TOROLT];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCEFUNKCIOKTIPUS]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS]
ADD DEFAULT (getdate()) FOR [LASTCHANGED];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_LICENCEFUNKCIOKTIPUS]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS]
ADD DEFAULT ((0)) FOR [SERIAL];
GO
PRINT N'Creating [dbo].[FK_402820002_402820000]...';
GO
ALTER TABLE [dbo].[T_LICENCE] WITH NOCHECK
ADD CONSTRAINT [FK_402820002_402820000] FOREIGN KEY ([C_INTEZMENYID]) REFERENCES [dbo].[T_INTEZMENY] ([ID]);
GO
PRINT N'Creating [dbo].[FK_402820005_402820003]...';
GO
ALTER TABLE [dbo].[T_LICENCE] WITH NOCHECK
ADD CONSTRAINT [FK_402820005_402820003] FOREIGN KEY ([C_TANEVID]) REFERENCES [dbo].[T_TANEV] ([ID]);
GO
PRINT N'Creating [dbo].[FK_4028200_4028203]...';
GO
ALTER TABLE [dbo].[T_LICENCE] WITH NOCHECK
ADD CONSTRAINT [FK_4028200_4028203] FOREIGN KEY ([C_FUNCTION], [C_INTEZMENYID], [C_TANEVID]) REFERENCES [dbo].[T_LICENCEFUNKCIOKTIPUS] ([ID], [C_ALINTEZMENYID], [C_ALTANEVID]);
GO
PRINT N'Creating [dbo].[FK_T_21038_4028205]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] WITH NOCHECK
ADD CONSTRAINT [FK_T_21038_4028205] FOREIGN KEY ([ID], [C_ALINTEZMENYID], [C_ALTANEVID]) REFERENCES [dbo].[T_DICTIONARYITEMBASE] ([ID], [C_INTEZMENYID], [C_TANEVID]);
GO
PRINT N'Creating [dbo].[FK_402820402_402820400]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] WITH NOCHECK
ADD CONSTRAINT [FK_402820402_402820400] FOREIGN KEY ([C_ALINTEZMENYID]) REFERENCES [dbo].[T_INTEZMENY] ([ID]);
GO
PRINT N'Creating [dbo].[FK_402820405_402820403]...';
GO
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] WITH NOCHECK
ADD CONSTRAINT [FK_402820405_402820403] FOREIGN KEY ([C_ALTANEVID]) REFERENCES [dbo].[T_TANEV] ([ID]);
GO
PRINT N'Checking existing data against newly created constraints';
GO
ALTER TABLE [dbo].[T_LICENCE] WITH CHECK CHECK CONSTRAINT [FK_402820002_402820000];
ALTER TABLE [dbo].[T_LICENCE] WITH CHECK CHECK CONSTRAINT [FK_402820005_402820003];
ALTER TABLE [dbo].[T_LICENCE] WITH CHECK CHECK CONSTRAINT [FK_4028200_4028203];
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] WITH CHECK CHECK CONSTRAINT [FK_T_21038_4028205];
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] WITH CHECK CHECK CONSTRAINT [FK_402820402_402820400];
ALTER TABLE [dbo].[T_LICENCEFUNKCIOKTIPUS] WITH CHECK CHECK CONSTRAINT [FK_402820405_402820403];
GO
PRINT N'Update complete.';
GO

View File

@@ -0,0 +1,234 @@
GO
PRINT N'Creating [dbo].[T_LICENCE_OSSZES]...';
GO
CREATE VIEW [dbo].T_LICENCE_OSSZES
AS
SELECT *
FROM dbo.T_LICENCE
GO
PRINT N'Creating [dbo].[T_LICENCEFUNKCIOKTIPUS_OSSZES]...';
GO
CREATE VIEW [dbo].T_LICENCEFUNKCIOKTIPUS_OSSZES
AS
SELECT *
FROM dbo.T_LICENCEFUNKCIOKTIPUS
GO
--------------------
CREATE PROCEDURE [dbo].[sp_AddNewSchemaViews]
@IntezmenyId int,
@IntezmenyAzonosito nvarchar(30),
@TanevId int
AS
BEGIN
DECLARE @IntezmenyTemplate nvarchar(50) = 'KR_'+@IntezmenyAzonosito
DECLARE @Schema nvarchar(50) = @IntezmenyTemplate+'_Schema'
DECLARE @SchemaUser nvarchar(50) = @IntezmenyTemplate + '_user'
DECLARE @AktivTanev nvarchar(500)
DECLARE @Sql nvarchar(max)
/*============================================================================*/
/* View : T_LICENCEFUNKCIOKTIPUS */
/*============================================================================*/
/* Package: Kreta */
IF OBJECT_ID('['+@Schema+'].T_LICENCEFUNKCIOKTIPUS', 'V') IS NOT NULL BEGIN
SET @Sql = N'EXEC sp_refreshview ''['+@Schema+'].T_LICENCEFUNKCIOKTIPUS'''
EXEC sp_executesql @Sql
IF OBJECT_ID('['+@Schema+'].T_LICENCEFUNKCIOKTIPUS_OSSZES', 'V') IS NOT NULL BEGIN
SET @Sql = N'EXEC sp_refreshview ''['+@Schema+'].T_LICENCEFUNKCIOKTIPUS_OSSZES'''
EXEC sp_executesql @Sql
END
END
ELSE BEGIN
/* Ha nem létezik a view, akkor létrehozzuk */
IF (SELECT COUNT(1)
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = N'T_LICENCEFUNKCIOKTIPUS' AND TABLE_SCHEMA = 'dbo' AND COLUMN_NAME = 'C_ALTANEVID'
) > 0
BEGIN
SET @AktivTanev = N' C_ALTANEVID = '+ CAST(@TanevId as nvarchar) +' AND '
END
ELSE
BEGIN
SET @AktivTanev = N''
END
IF (SELECT COUNT(1)
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = N'T_LICENCEFUNKCIOKTIPUS' AND TABLE_SCHEMA = 'dbo' AND COLUMN_NAME = 'C_ALINTEZMENYID'
) > 0
BEGIN
/* T_LICENCEFUNKCIOKTIPUS */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCEFUNKCIOKTIPUS
AS
SELECT *
FROM dbo.T_LICENCEFUNKCIOKTIPUS
WHERE '+@AktivTanev+' (TOROLT = ''F'') AND C_ALINTEZMENYID = '+CAST(@IntezmenyId as nvarchar)
EXECUTE sp_executesql @Sql
/* T_LICENCEFUNKCIOKTIPUS_OSSZES */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCEFUNKCIOKTIPUS_OSSZES
AS
SELECT *
FROM dbo.T_LICENCEFUNKCIOKTIPUS
WHERE C_ALINTEZMENYID = '+CAST(@IntezmenyId as nvarchar)
EXECUTE sp_executesql @Sql
END
ELSE
BEGIN
/* T_LICENCEFUNKCIOKTIPUS */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCEFUNKCIOKTIPUS
AS
SELECT *
FROM dbo.T_LICENCEFUNKCIOKTIPUS
WHERE '+@AktivTanev+' (TOROLT = ''F'')'
EXECUTE sp_executesql @Sql
/* T_LICENCEFUNKCIOKTIPUS_OSSZES */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCEFUNKCIOKTIPUS_OSSZES
AS
SELECT *
FROM dbo.T_LICENCEFUNKCIOKTIPUS'
EXECUTE sp_executesql @Sql
END
END
/*============================================================================*/
/* View : T_LICENCE */
/*============================================================================*/
/* Package: Kreta */
IF OBJECT_ID('['+@Schema+'].T_LICENCE', 'V') IS NOT NULL BEGIN
SET @Sql = N'EXEC sp_refreshview ''['+@Schema+'].T_LICENCE'''
EXEC sp_executesql @Sql
IF OBJECT_ID('['+@Schema+'].T_LICENCE_OSSZES', 'V') IS NOT NULL BEGIN
SET @Sql = N'EXEC sp_refreshview ''['+@Schema+'].T_LICENCE_OSSZES'''
EXEC sp_executesql @Sql
END
END
ELSE BEGIN
/* Ha nem létezik a view, akkor létrehozzuk */
IF (SELECT COUNT(1)
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = N'T_LICENCE' AND TABLE_SCHEMA = 'dbo' AND COLUMN_NAME = 'C_TANEVID'
) > 0
BEGIN
SET @AktivTanev = N' C_TANEVID = '+ CAST(@TanevId as nvarchar) +' AND '
END
ELSE
BEGIN
SET @AktivTanev = N''
END
IF (SELECT COUNT(1)
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = N'T_LICENCE' AND TABLE_SCHEMA = 'dbo' AND COLUMN_NAME = 'C_INTEZMENYID'
) > 0
BEGIN
/* T_LICENCE */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCE
AS
SELECT *
FROM dbo.T_LICENCE
WHERE '+@AktivTanev+' (TOROLT = ''F'') AND C_INTEZMENYID = '+CAST(@IntezmenyId as nvarchar)
EXECUTE sp_executesql @Sql
/* T_LICENCE_OSSZES */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCE_OSSZES
AS
SELECT *
FROM dbo.T_LICENCE
WHERE C_INTEZMENYID = '+CAST(@IntezmenyId as nvarchar)
EXECUTE sp_executesql @Sql
END
ELSE
BEGIN
/* T_LICENCE */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCE
AS
SELECT *
FROM dbo.T_LICENCE
WHERE '+@AktivTanev+' (TOROLT = ''F'')'
EXECUTE sp_executesql @Sql
/* T_LICENCE_OSSZES */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_LICENCE_OSSZES
AS
SELECT *
FROM dbo.T_LICENCE'
EXECUTE sp_executesql @Sql
END
END
END
GO
--------------------
DECLARE intezmenytanevekCursor CURSOR LOCAL FOR
SELECT T_INTEZMENY.ID, T_INTEZMENY.C_AZONOSITO, T_TANEV.ID
FROM T_INTEZMENY
INNER JOIN T_TANEV ON T_TANEV.C_INTEZMENYID = T_INTEZMENY.ID
WHERE T_TANEV.C_AKTIV = 'T' AND T_INTEZMENY.TOROLT = 'F'
ORDER BY T_INTEZMENY.ID
DECLARE @intezmenyId int, @intezmenyAzonosito nvarchar(30), @tanevId int
OPEN intezmenytanevekCursor
FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @intezmenyAzonosito, @tanevId
WHILE @@FETCH_STATUS = 0
BEGIN
PRINT 'INTÉZMÉNY ID: ' + CAST(@intezmenyId AS NVARCHAR(10)) + ', INTÉZMÉNY AZONOSÍTÓ: ' + CAST(@intezmenyAzonosito AS NVARCHAR(30)) + ', TANÉV ID: ' + CAST(@tanevId AS NVARCHAR(10))
EXEC sp_AddNewSchemaViews @IntezmenyId = @intezmenyId, @IntezmenyAzonosito = @intezmenyAzonosito, @TanevId = @tanevId
FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @intezmenyAzonosito, @tanevId
END
CLOSE intezmenytanevekCursor
DEALLOCATE intezmenytanevekCursor
GO
--------------------
DROP PROCEDURE [dbo].[sp_AddNewSchemaViews]
GO
EXEC dev.sp_Global_GenerateAsyncAuditTriggerAll
GO
EXEC dev.sp_Global_GenerateAsyncAuditProcedureAll
GO
EXEC dev.sp_Global_GenerateAsyncAuditAuditPocessing
GO
ALTER QUEUE auditLog.[AuditQueue]
WITH ACTIVATION
(
STATUS = ON,
PROCEDURE_NAME = auditLog.usp_AuditProcessing,
MAX_QUEUE_READERS = 10,
EXECUTE AS 'Kreta_tech_user'
);
GO

View File

@@ -0,0 +1,73 @@
 DECLARE @TEMP_DICTIONARYTYPE TABLE (
ID INT,
C_CODENAME NVARCHAR(255) INDEX IX_CODENAME NONCLUSTERED,
C_NAME NVARCHAR(255),
C_ISCUSTOMITEMALLOWED NVARCHAR(1),
C_ISCOLOREDITABLE NVARCHAR(1),
C_DESCRIPTION NVARCHAR(255)
)
INSERT INTO @TEMP_DICTIONARYTYPE (ID, C_CODENAME, C_NAME, C_ISCUSTOMITEMALLOWED, C_ISCOLOREDITABLE, C_DESCRIPTION)
VALUES
(109, N'LicenceFunkciokTipus', N'Licence funkciók típus', 'F', 'F', N'NULL')
DECLARE @TypeId int
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 T_DICTIONARYTYPE ON
INSERT INTO T_DICTIONARYTYPE (ID, C_CODENAME, C_NAME, C_ISCUSTOMITEMALLOWED, C_ISCOLOREDITABLE, C_DESCRIPTION, C_INTEZMENYID, C_TANEVID)
SELECT
ID
,C_CODENAME
,C_NAME
,C_ISCUSTOMITEMALLOWED
,C_ISCOLOREDITABLE
,C_DESCRIPTION
,@IntezmenyId AS C_INTEZMENYID
,@TanevId AS C_TANEVID
FROM @TEMP_DICTIONARYTYPE tdt
WHERE NOT EXISTS (SELECT 1 FROM dbo.T_DICTIONARYTYPE dt WHERE dt.ID = tdt.ID AND dt.C_INTEZMENYID = @IntezmenyId AND dt.C_TANEVID = @TanevId)
SET IDENTITY_INSERT T_DICTIONARYTYPE OFF
IF (@TypeId IS NULL) BEGIN
SELECT @TypeId = ID
FROM T_DICTIONARYTYPE
WHERE C_CODENAME = N'LicenceFunkciokTipus'
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
(6936, N'Poszeidon modul', N'Poszeidon modul', NULL, NULL, NULL, N'LicenceFunkciokTipus', N'T', N'T', 1, NULL, 1, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
(6937, N'Belső levelezés modul', N'Belső levelezés modul', NULL, NULL, NULL, N'LicenceFunkciokTipus', N'T', N'T', 2, NULL, 2, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
(6938, N'Érettségi applikáció', N'Érettségi applikáció', NULL, NULL, NULL, N'LicenceFunkciokTipus', N'T', N'T', 3, NULL, 3, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL)
SET IDENTITY_INSERT [dbo].[T_DICTIONARYITEMBASE] OFF
INSERT INTO [dbo].[T_LICENCEFUNKCIOKTIPUS] ([ID], [C_ALINTEZMENYID], [C_ALTANEVID]) VALUES
(6936, @IntezmenyId, @TanevId),
(6937, @IntezmenyId, @TanevId),
(6938, @IntezmenyId, @TanevId)
FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId
END
CLOSE intezmenytanevekCursor
DEALLOCATE intezmenytanevekCursor
GO