99 lines
3.6 KiB
Transact-SQL
99 lines
3.6 KiB
Transact-SQL
-- =============================================
|
|
-- Description: a dbo sémában lévõ függvények frissítése az intézményi sémákba
|
|
-- =============================================
|
|
|
|
SET ANSI_NULLS ON
|
|
GO
|
|
SET QUOTED_IDENTIFIER ON
|
|
GO
|
|
|
|
IF OBJECT_ID('dbo.sp_Global_CreateSchemaFunctions') IS NOT NULL BEGIN
|
|
DROP PROCEDURE [dbo].[sp_Global_CreateSchemaFunctions]
|
|
END
|
|
GO
|
|
|
|
CREATE PROCEDURE [dbo].[sp_Global_CreateSchemaFunctions]
|
|
@pSchemaName NVARCHAR(100), -- pl: 'KR_BEDO_Schema' | NULL esetén az összes sémán végigmegy
|
|
@pFunctionNames XML -- pl: '<FunctionNames><FunctionName>fnGetHetNapja</FunctionName></FunctionNames>' | NULL esetén az összes függvényen végigmegy
|
|
AS
|
|
BEGIN
|
|
|
|
DECLARE @objectId INT
|
|
DECLARE @functionName NVARCHAR(4000)
|
|
DECLARE @functionDefinition NVARCHAR(MAX)
|
|
DECLARE @schemaName NVARCHAR(100)
|
|
DECLARE @deleteFunctionSQL NVARCHAR(4000)
|
|
DECLARE @createFunctionSQL NVARCHAR(MAX)
|
|
|
|
DECLARE @schemaNames CURSOR
|
|
IF @pSchemaName IS NOT NULL
|
|
SET @schemaNames = CURSOR LOCAL FOR
|
|
SELECT @pSchemaName
|
|
ELSE
|
|
SET @schemaNames = CURSOR LOCAL FOR
|
|
SELECT name FROM sys.schemas
|
|
WHERE principal_id = 1 AND name LIKE 'KR[_]%[_]Schema'
|
|
ORDER BY name
|
|
|
|
DECLARE @functions CURSOR
|
|
IF @pFunctionNames IS NOT NULL
|
|
SET @functions = CURSOR LOCAL FOR
|
|
SELECT f.object_id, f.name, m.definition
|
|
FROM sys.all_objects f
|
|
INNER JOIN sys.sql_modules m ON f.object_id = m.object_id
|
|
INNER JOIN sys.schemas s ON s.schema_id = f.schema_id
|
|
WHERE
|
|
s.name ='dbo' AND f.type IN ('FN', 'AF', 'FS', 'FT', 'IF', 'TF')
|
|
AND f.name IN (SELECT DISTINCT FunctionName.value('(.)[1]', 'varchar(100)') FROM @pFunctionNames.nodes('FunctionNames/FunctionName') AS FunctionNames(FunctionName))
|
|
ORDER BY f.name
|
|
ELSE
|
|
SET @functions = CURSOR LOCAL FOR
|
|
SELECT f.object_id, f.name, m.definition
|
|
FROM sys.all_objects f
|
|
INNER JOIN sys.sql_modules m ON f.object_id = m.object_id
|
|
INNER JOIN sys.schemas s ON s.schema_id = f.schema_id
|
|
WHERE s.name ='dbo' AND f.type IN ('FN', 'AF', 'FS', 'FT', 'IF', 'TF')
|
|
ORDER BY f.name
|
|
|
|
OPEN @functions
|
|
FETCH NEXT FROM @functions INTO @objectId, @functionName, @functionDefinition
|
|
|
|
WHILE @@FETCH_STATUS = 0 BEGIN
|
|
IF OBJECT_ID(@objectId) IS NULL BEGIN
|
|
SET @functionDefinition = REPLACE(@functionDefinition, 'CREATE FUNCTION dbo.fn','CREATE FUNCTION fn')
|
|
SET @functionDefinition = REPLACE(@functionDefinition, 'CREATE FUNCTION [dbo].fn','CREATE FUNCTION fn')
|
|
SET @functionDefinition = REPLACE(@functionDefinition, 'dbo.fn','#schemaName#.fn')
|
|
SET @functionDefinition = REPLACE(@functionDefinition, '[dbo].fn','#schemaName#.fn')
|
|
SET @functionDefinition = REPLACE(@functionDefinition, 'dbo.','')
|
|
SET @functionDefinition = REPLACE(@functionDefinition, '[dbo].','')
|
|
|
|
OPEN @schemaNames
|
|
FETCH NEXT FROM @schemaNames INTO @schemaName
|
|
|
|
WHILE @@FETCH_STATUS = 0 BEGIN
|
|
SET @deleteFunctionSQL = 'IF OBJECT_ID(''[' + @schemaName + '].' + @functionName + ''') IS NOT NULL
|
|
DROP FUNCTION [' + @schemaName + '].' + @functionName
|
|
|
|
SET @createFunctionSQL = REPLACE(@functionDefinition, 'CREATE FUNCTION ','CREATE FUNCTION [' + @schemaName + '].')
|
|
SET @createFunctionSQL = REPLACE(@createFunctionSQL, '#schemaName#.fn','[' + @schemaName + '].fn')
|
|
|
|
PRINT CAST(@objectId AS VARCHAR(10)) + ' ' + @functionName + ' ' + @schemaName
|
|
|
|
EXEC sp_executesql @deleteFunctionSQL
|
|
EXEC sp_executesql @createFunctionSQL
|
|
|
|
FETCH NEXT FROM @schemaNames INTO @schemaName
|
|
END
|
|
|
|
CLOSE @schemaNames
|
|
END
|
|
|
|
FETCH NEXT FROM @functions INTO @objectId, @functionName, @functionDefinition
|
|
END
|
|
|
|
CLOSE @functions
|
|
DEALLOCATE @functions
|
|
DEALLOCATE @schemaNames
|
|
|
|
END
|
|
|