131 lines
7.8 KiB
Transact-SQL
131 lines
7.8 KiB
Transact-SQL
UPDATE TBDD_MODULES SET DB_VERSION = '2.0.0.3' where UPPER(NAME) = UPPER('Clipboard-Watcher')
|
||
GO
|
||
|
||
ALTER TRIGGER [dbo].[TBCW_PROF_DATA_SEARCH_AFT_INS] ON [dbo].[TBCW_PROF_DATA_SEARCH]
|
||
WITH EXECUTE AS CALLER
|
||
FOR INSERT
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE @TABINDEX TINYINT
|
||
,@MAX_INDEX TINYINT
|
||
,@PROFILE_ID INT
|
||
,@GUID INTEGER
|
||
SELECT @TABINDEX = TAB_INDEX
|
||
,@PROFILE_ID = PROFILE_ID
|
||
,@GUID = GUID FROM inserted
|
||
|
||
SELECT @MAX_INDEX = ISNULL(MAX(TAB_INDEX),0) FROM TBCW_PROF_DATA_SEARCH WHERE PROFILE_ID = @PROFILE_ID AND GUID <> @GUID
|
||
UPDATE TBCW_PROF_DATA_SEARCH SET TAB_INDEX = @MAX_INDEX
|
||
FROM INSERTED
|
||
WHERE TBCW_PROF_DATA_SEARCH.GUID = INSERTED.GUID
|
||
UPDATE TBCW_PROF_DATA_SEARCH SET ADDED_WHEN = GETDATE() FROM INSERTED WHERE TBCW_PROF_DATA_SEARCH.GUID = INSERTED.GUID
|
||
|
||
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
|
||
ALTER TRIGGER [dbo].[TBCW_PROF_DOC_SEARCH_AFT_INS] ON [dbo].[TBCW_PROF_DOC_SEARCH]
|
||
WITH EXECUTE AS CALLER
|
||
FOR INSERT
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE @TABINDEX TINYINT
|
||
,@MAX_INDEX TINYINT
|
||
,@PROFILE_ID INT
|
||
,@GUID INTEGER
|
||
SELECT @TABINDEX = TAB_INDEX
|
||
,@PROFILE_ID = PROFILE_ID
|
||
,@GUID = GUID FROM inserted
|
||
|
||
SELECT @MAX_INDEX = ISNULL(MAX(TAB_INDEX),0) FROM TBCW_PROF_DOC_SEARCH WHERE PROFILE_ID = @PROFILE_ID AND GUID <> @GUID
|
||
UPDATE TBCW_PROF_DOC_SEARCH SET TAB_INDEX = @MAX_INDEX
|
||
FROM INSERTED
|
||
WHERE TBCW_PROF_DOC_SEARCH.GUID = INSERTED.GUID
|
||
|
||
UPDATE TBCW_PROF_DOC_SEARCH SET ADDED_WHEN = GETDATE() FROM INSERTED WHERE TBCW_PROF_DOC_SEARCH.GUID = INSERTED.GUID
|
||
|
||
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
|
||
ALTER TRIGGER [dbo].[TBCW_PROFILES_AFT_UPD] ON [dbo].[TBCW_PROFILES]
|
||
FOR UPDATE
|
||
AS
|
||
UPDATE TBCW_PROFILES SET ADDED_WHEN = GETDATE() FROM INSERTED WHERE TBCW_PROFILES.GUID = INSERTED.GUID
|
||
GO
|
||
|
||
ALTER VIEW [dbo].[VWCW_PROFILE_REL_CONTROL] AS
|
||
SELECT DISTINCT TOP 100 PERCENT
|
||
T.GUID
|
||
,T1.USER_ID
|
||
,TP.PROC_NAME AS PROCESS_NAME
|
||
,T1.GUID AS PROFILE_ID
|
||
,T.WINDOW_ID
|
||
,T.DESCRIPTION
|
||
,T.SEQUENCE
|
||
,T.CONTROL_NAME
|
||
,T.TOPLEFT_LEFT
|
||
,T.TOPLEFT_RIGHT
|
||
,T.TOPLEFT_TOP
|
||
,T.TOPLEFT_BOTTOM
|
||
,T.TOPRIGHT_LEFT
|
||
,T.TOPRIGHT_RIGHT
|
||
,T.TOPRIGHT_TOP
|
||
,T.TOPRIGHT_BOTTOM
|
||
,T.BOTTOMLEFT_LEFT
|
||
,T.BOTTOMLEFT_RIGHT
|
||
,T.BOTTOMLEFT_TOP
|
||
,T.BOTTOMLEFT_BOTTOM
|
||
,T.BOTTOMRIGHT_LEFT
|
||
,T.BOTTOMRIGHT_RIGHT
|
||
,T.BOTTOMRIGHT_TOP
|
||
,T.BOTTOMRIGHT_BOTTOM
|
||
FROM
|
||
TBCW_PROF_REL_CONTROL T
|
||
,TBCW_PROF_REL_WINDOW TW
|
||
,TBCW_PROFILE_PROCESS TP
|
||
,VWCW_USER_PROFILE T1
|
||
WHERE
|
||
T.WINDOW_ID = TW.GUID AND
|
||
TW.PROCESS_ID = TP.GUID AND
|
||
TP.PROFILE_ID = T1.GUID
|
||
ORDER BY T.SEQUENCE
|
||
GO
|
||
|
||
ALTER PROCEDURE [dbo].[PRCW_DELETE_PROFILE](@pPROFILE_ID INT)
|
||
AS
|
||
BEGIN TRY
|
||
delete from TBCW_PROF_DATA_SEARCH where PROFILE_ID = @pPROFILE_ID
|
||
delete from TBCW_PROF_DOC_SEARCH where PROFILE_ID = @pPROFILE_ID
|
||
|
||
delete from TBCW_PROF_REL_CONTROL where WINDOW_ID IN (SELECT GUID FROM TBCW_PROF_REL_WINDOW WHERE PROCESS_ID IN (SELECT GUID FROM TBCW_PROFILE_PROCESS WHERE PROFILE_ID = @pPROFILE_ID))
|
||
delete from TBCW_PROF_REL_WINDOW where PROCESS_ID IN (SELECT GUID FROM TBCW_PROFILE_PROCESS WHERE PROFILE_ID = @pPROFILE_ID)
|
||
delete from TBCW_PROFILE_PROCESS where PROFILE_ID = @pPROFILE_ID
|
||
|
||
delete from TBCW_USER_PROFILE where PROFILE_ID = @pPROFILE_ID
|
||
delete from TBCW_PROFILES where GUID = @pPROFILE_ID
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'FEHLER IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
|
||
+ ' - FEHLER-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
|
||
ALTER TRIGGER [dbo].[TBCW_PROFILES_AFT_UPD] ON [dbo].[TBCW_PROFILES]
|
||
FOR UPDATE
|
||
AS
|
||
UPDATE TBCW_PROFILES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBCW_PROFILES.GUID = INSERTED.GUID
|
||
GO
|
||
|