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,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
(127, N'ErtMondatbankTipus', N'Tanuló értékelés mondatbank 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'ErtMondatbankTipus'
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
(7357, N'Tantárgy', N'Tantárgy', NULL, NULL, NULL, N'ErtMondatbankTipus', N'T', N'T', 1, NULL, 1, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
(7358, N'Magatartás', N'Magatartás', NULL, NULL, NULL, N'ErtMondatbankTipus', N'T', N'T', 2, NULL, 2, NULL, @TypeId, @IntezmenyId, @TanevId, 'F', 0, GETDATE(), GETDATE(), NULL, NULL),
(7359, N'Szorgalom', N'Szorgalom', NULL, NULL, NULL, N'ErtMondatbankTipus', 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_ERTMONDATBANKTIPUS] ([ID], [C_ALINTEZMENYID], [C_ALTANEVID]) VALUES
(7357, @IntezmenyId, @TanevId),
(7358, @IntezmenyId, @TanevId),
(7359, @IntezmenyId, @TanevId)
FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @tanevId
END
CLOSE intezmenytanevekCursor
DEALLOCATE intezmenytanevekCursor
GO

View File

@@ -0,0 +1,281 @@
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_ERTMONDATBANKTIPUS]...';
GO
CREATE TABLE [dbo].[T_ERTMONDATBANKTIPUS] (
[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_4028464] PRIMARY KEY CLUSTERED ([ID] ASC, [C_ALINTEZMENYID] ASC, [C_ALTANEVID] ASC)
);
GO
PRINT N'Creating [dbo].[T_ERTMONDATBANKTIPUS].[I_T_402846402_402846400]...';
GO
CREATE NONCLUSTERED INDEX [I_T_402846402_402846400]
ON [dbo].[T_ERTMONDATBANKTIPUS]([C_ALINTEZMENYID] ASC);
GO
PRINT N'Creating [dbo].[T_ERTMONDATBANKTIPUS].[I_T_402846405_402846403]...';
GO
CREATE NONCLUSTERED INDEX [I_T_402846405_402846403]
ON [dbo].[T_ERTMONDATBANKTIPUS]([C_ALTANEVID] ASC);
GO
PRINT N'Creating unnamed constraint on [dbo].[T_ERTMONDATBANKTIPUS]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS]
ADD DEFAULT (getdate()) FOR [LASTCHANGED];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_ERTMONDATBANKTIPUS]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS]
ADD DEFAULT (getdate()) FOR [CREATED];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_ERTMONDATBANKTIPUS]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS]
ADD DEFAULT ('F') FOR [TOROLT];
GO
PRINT N'Creating unnamed constraint on [dbo].[T_ERTMONDATBANKTIPUS]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS]
ADD DEFAULT ((0)) FOR [SERIAL];
GO
PRINT N'Creating [dbo].[FK_T_21038_4028465]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS] WITH NOCHECK
ADD CONSTRAINT [FK_T_21038_4028465] FOREIGN KEY ([ID], [C_ALINTEZMENYID], [C_ALTANEVID]) REFERENCES [dbo].[T_DICTIONARYITEMBASE] ([ID], [C_INTEZMENYID], [C_TANEVID]);
GO
PRINT N'Creating [dbo].[FK_402846402_402846400]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS] WITH NOCHECK
ADD CONSTRAINT [FK_402846402_402846400] FOREIGN KEY ([C_ALINTEZMENYID]) REFERENCES [dbo].[T_INTEZMENY] ([ID]);
GO
PRINT N'Creating [dbo].[FK_402846405_402846403]...';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS] WITH NOCHECK
ADD CONSTRAINT [FK_402846405_402846403] FOREIGN KEY ([C_ALTANEVID]) REFERENCES [dbo].[T_TANEV] ([ID]);
GO
PRINT N'Creating [dbo].[T_ERTMONDATBANKTIPUS_OSSZES]...';
GO
CREATE VIEW [dbo].T_ERTMONDATBANKTIPUS_OSSZES
AS
SELECT *
FROM dbo.T_ERTMONDATBANKTIPUS
GO
PRINT N'Checking existing data against newly created constraints';
GO
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS] WITH CHECK CHECK CONSTRAINT [FK_T_21038_4028465];
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS] WITH CHECK CHECK CONSTRAINT [FK_402846402_402846400];
ALTER TABLE [dbo].[T_ERTMONDATBANKTIPUS] WITH CHECK CHECK CONSTRAINT [FK_402846405_402846403];
GO
PRINT N'Update complete.';
GO
--------------------
IF OBJECT_ID('[dbo].[sp_AddNewSchemaViews]') IS NOT NULL BEGIN
DROP PROCEDURE [dbo].[sp_AddNewSchemaViews]
END
GO
CREATE PROCEDURE [dbo].[sp_AddNewSchemaViews]
@pIntezmenyId int,
@pIntezmenyAzonosito nvarchar(30),
@pTanevId int
AS
BEGIN
DECLARE @IntezmenyTemplate nvarchar(50) = 'KR_'+@pIntezmenyAzonosito
DECLARE @Schema nvarchar(50) = @IntezmenyTemplate+'_Schema'
DECLARE @SchemaUser nvarchar(50) = @IntezmenyTemplate + '_user'
DECLARE @AktivTanev nvarchar(500)
DECLARE @Sql nvarchar(max)
/*============================================================================*/
/* View : T_ERTMONDATBANKTIPUS */
/*============================================================================*/
/* Package: Kreta */
IF OBJECT_ID('['+@Schema+'].T_ERTMONDATBANKTIPUS', 'V') IS NOT NULL BEGIN
SET @Sql = N'EXEC sp_refreshview ''['+@Schema+'].T_ERTMONDATBANKTIPUS'''
EXEC sp_executesql @Sql
IF OBJECT_ID('['+@Schema+'].T_ERTMONDATBANKTIPUS_OSSZES', 'V') IS NOT NULL BEGIN
SET @Sql = N'EXEC sp_refreshview ''['+@Schema+'].T_ERTMONDATBANKTIPUS_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_ERTMONDATBANKTIPUS' AND TABLE_SCHEMA = 'dbo' AND COLUMN_NAME = 'C_ALTANEVID'
) > 0
BEGIN
SET @AktivTanev = N' C_ALTANEVID = '+ CAST(@pTanevId as nvarchar) +' AND '
END
ELSE
BEGIN
SET @AktivTanev = N''
END
IF (SELECT COUNT(1)
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = N'T_ERTMONDATBANKTIPUS' AND TABLE_SCHEMA = 'dbo' AND COLUMN_NAME = 'C_ALINTEZMENYID'
) > 0
BEGIN
/* T_ERTMONDATBANKTIPUS */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_ERTMONDATBANKTIPUS
AS
SELECT *
FROM dbo.T_ERTMONDATBANKTIPUS
WHERE '+@AktivTanev+' (TOROLT = ''F'') AND C_ALINTEZMENYID = '+CAST(@pIntezmenyId as nvarchar)
EXECUTE sp_executesql @Sql
/* T_ERTMONDATBANKTIPUS_OSSZES */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_ERTMONDATBANKTIPUS_OSSZES
AS
SELECT *
FROM dbo.T_ERTMONDATBANKTIPUS
WHERE C_ALINTEZMENYID = '+CAST(@pIntezmenyId as nvarchar)
EXECUTE sp_executesql @Sql
END
ELSE
BEGIN
/* T_ERTMONDATBANKTIPUS */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_ERTMONDATBANKTIPUS
AS
SELECT *
FROM dbo.T_ERTMONDATBANKTIPUS
WHERE '+@AktivTanev+' (TOROLT = ''F'')'
EXECUTE sp_executesql @Sql
/* T_ERTMONDATBANKTIPUS_OSSZES */
SET @Sql = N'CREATE VIEW ['+@Schema+'].T_ERTMONDATBANKTIPUS_OSSZES
AS
SELECT *
FROM dbo.T_ERTMONDATBANKTIPUS'
EXECUTE sp_executesql @Sql
END
END
END
--------------------
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_TANEV.TOROLT = 'F' 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 @pIntezmenyId = @intezmenyId, @pIntezmenyAzonosito = @intezmenyAzonosito, @pTanevId = @tanevId
FETCH NEXT FROM intezmenytanevekCursor INTO @intezmenyId, @intezmenyAzonosito, @tanevId
END
CLOSE intezmenytanevekCursor
DEALLOCATE intezmenytanevekCursor
GO
DROP PROCEDURE [dbo].[sp_AddNewSchemaViews]
--------------------
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