UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.8' where NAME = 'Record-Organizer' 
GO
ALTEr TABLE TBPMO_WD_OBJECTTYPE
ADD IDXNAME_RELATION VARCHAR(50) NOT NULL DEFAULT ''
GO
UPDATE TBPMO_WD_OBJECTTYPE SET IDXNAME_RELATION = 'STRING34' 
GO
DELETE FROM TBDD_INDEX_AUTOM WHERE INDEXNAME = 'STRING34'
ALTER TABLE TBPMO_CONTROL
 ADD SELECT_ONLY BIT NOT NULL DEFAULT 0
 GO

ALTER VIEW [dbo].[VWPMO_CONTROL_SCREEN] AS
SELECT TOP 100 PERCENT
	T.GUID			CONTROL_ID,
	T.FORM_ID		CONTROL_ENTITY_ID,
	T.NAME			CONTROL_NAME,
	T.REQUIRED		CONTROL_REQUIRED,
	T.DEFAULT_VALUE	CONTROL_DEF_VALUE,
	T.READ_ONLY		CONTROL_READ_ONLY,
	T.SELECT_ONLY	CONTROL_SELECT_ONLY,
	T.MULTILINE		CONTROL_MULTILINE,
	T.PARENT_CONTROL_ID	CONTROL_PARENT_ID,
	T.COL_NAME		CONTROL_COL_NAME,
	T.SHOW_COLUMN   CONTROL_SHOW_COLUMN,
	T.CONNECTION_ID_1	CONTROL_CONNID_1,
	T.SQL_COMMAND_1		CONTROL_SQLCOMMAND_1,
	T.SQL_COMMAND_2		CONTROL_SQLCOMMAND_2,
	T.VISIBLE		CONTROL_VISIBLE,
	T.TREE_VIEW		CONTROL_TREE_VIEW,
	T.STATIC_LIST	CONTROL_STATIC_LIST,
	T4.GUID			CTRLTYPE_ID,
	T4.TYPE_NAME	CTRLTYPE_NAME,
	T.FORMAT_TYPE	CONTROL_FORMAT_TYPE,
	T.FORM_ID,
	T3.NAME			FORM_NAME,
	T3.LEVEL		FORM_LEVEL,
	T1.SCREEN_ID	SCREEN_ID,
	T2.NAME			SCREEN_NAME,
	T1.GUID			CTRLSCR_ID,
	T1.CONTROL_TEXT	CTRLSCR_CAPTION,
	T1.X_LOC		CTRLSCR_X_LOC,
	T1.Y_LOC		CTRLSCR_Y_LOC,
	T1.HEIGHT		CTRLSCR_HEIGHT,
	T1.WIDTH		CTRLSCR_WIDTH,
	T1.FONT_FAMILY	CTRLSCR_FONT_FAMILY,
	T1.FONT_COLOR	CTRLSCR_FONT_COLOR,
	T1.FONT_SIZE	CTRLSCR_FONT_SIZE,
	T1.FONT_STYLE	CTRLSCR_FONT_STYLE,
	T1.TAB_INDEX	CTRLSCR_TAB_INDEX,
	T1.TAB_STOP		CTRLSCR_TAB_STOP,
	T1.BACK_COLOR   CTRLSCR_BACK_COLOR,
	T.MASTER_DATA_ID CTRLSCR_MASTER_DATA_ID
FROM
	TBPMO_CONTROL T,
	TBPMO_CONTROL_SCREEN T1,
	TBPMO_SCREEN T2,
	TBPMO_FORM T3,
	TBPMO_CONTROL_TYPE T4
WHERE
	T.FORM_ID = T3.GUID AND
	T.GUID = T1.CONTROL_ID AND
	T1.SCREEN_ID = T2.GUID AND
	T.CONTROL_TYPE_ID = T4.GUID
ORDER BY 
	T1.SCREEN_ID,
	T.FORM_ID,
	T1.TAB_STOP
GO
CREATE TABLE TBPMO_AD_GROUP_EXCLUSIVE(
	[GUID]			INT		IDENTITY(1,1) NOT NULL,
	GROUP_NAME		VARCHAR(200)		NOT NULL,
	COMMENT			VARCHAR(500),
	ADDED_WHO		VARCHAR(50)			NOT NULL DEFAULT ('DEFAULT'),
	ADDED_WHEN		DATETIME			DEFAULT (GETDATE()),
CONSTRAINT 	   	[PK_TBPMO_AD_GROUP_EXCLUSIVE] 	PRIMARY KEY(GUID))
GO
--Alle Einschränkungen bei TBPMO_RIGHT_USER lsöchen
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (getdate()) FOR [ADDED_WHEN]
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (1) FOR EDIT_REC
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (1) FOR ADD_REC
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (1) FOR DELETE_REC
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (1) FOR ADD_DOC
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (0) FOR READ_ONLY_DOC
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (1) FOR DELETE_DOC
GO
ALTER TABLE TBPMO_RIGHT_USER ADD DEFAULT (1) FOR FILES_VISIBLE
GO

CREATE PROCEDURE [dbo].[PRPMO_RIGHTS_CHECK_INSERT_WORK_RECORD](@pDOC_ID INT, @pUSER_ID INTEGER, @pUSER_ECM_ID INTEGER,@pWD_RIGHT INT, @pMETHOD VARCHAR(50),@pREASON VARCHAR(100),@pCHECK_WHO VARCHAR(50))
AS
BEGIN TRY
	IF NOT EXISTS(select dwObjectID from VWPMO_WD_OBJECT_RIGHTS where dwObjectID = @pDOC_ID and dwUserOrGroupID = @pUSER_ECM_ID)
		BEGIN
			IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @pDOC_ID AND USER_ID = @pUSER_ID)
			--PRINT 'INSERTING ENT_ID: '  + CONVERT(VARCHAR(10),@ENTITY_ID) +' - DOC_ID: '  + CONVERT(VARCHAR(10),@DOC_ID) + ' - RIGHT: '+ CONVERT(VARCHAR(10),@WD_RIGHT)
				INSERT INTO TBPMO_RIGHTS_WORK_SERVICE(DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
													(@pDOC_ID,@pUSER_ID,@pMETHOD, @pWD_RIGHT, @pREASON, @pCHECK_WHO)
				ELSE
					BEGIN
						DECLARE @EX_RIGHT INT
						SELECT @EX_RIGHT = FILE_RIGHT FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @pDOC_ID AND USER_ID = @pUSER_ID
						IF @EX_RIGHT < @pWD_RIGHT
							UPDATE TBPMO_RIGHTS_WORK_SERVICE SET FILE_RIGHT = @pWD_RIGHT WHERE DOC_ID = @pDOC_ID AND USER_ID = @pUSER_ID
					END
		END
	ELSE	
		BEGIN
			DECLARE @RIGHT_IN_WD INT
			SELECT @RIGHT_IN_WD = dwAccessRight FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwObjectID = @pDOC_ID AND dwUserOrGroupID = @pUSER_ID
			IF @RIGHT_IN_WD < @pWD_RIGHT
				BEGIN
					PRINT 'RIGHT IN WINDREAM LOWER THAN ADDI-RIGHT'
					UPDATE [172.24.12.41\BRAINPOOL].windream60.dbo.AccessRight set dwAccessRight = @pWD_RIGHT where dwObjectID = @pDOC_ID and dwUserOrGroupID = @pUSER_ECM_ID
				END
						--ELSE
						--	BEGIN
						--		PRINT 'RIGHT IN WINDREAM GREATE THAN ADDI-RIGHT'
						--		UPDATE windream.dbo.AccessRight set dwAccessRight = @WD_RIGHT where dwObjectID = @DOC_ID and dwUserOrGroupID = @USER_ID_ECM
						--	END
		END
		
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].[TBPMO_CONSTRUCTOR_USER_AFT_INS] ON [dbo].[TBPMO_CONSTRUCTOR_USER]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
	DECLARE 
		@USER_ID INTEGER,
		@CONSTRUCT_ID INTEGER,
		@ADDED_WHO VARCHAR(50)
	SELECT 
		@CONSTRUCT_ID = CONSTRUCT_ID,
		@USER_ID = GUID,
		@ADDED_WHO = ADDED_WHO
	FROM INSERTED

	DECLARE	@ENTITY_ID INTEGER
	
	DECLARE c_USER CURSOR FOR 
		SELECT 
			FORM_ID	FROM 
		VWPMO_CONSTRUCTOR_FORMS WHERE DOCUMENT_VIEW = 1
	OPEN c_USER 
		FETCH NEXT FROM c_USER INTO @ENTITY_ID
    WHILE @@FETCH_STATUS = 0
		BEGIN
			--INSERT INTO TBPMO_USER_RIGHTS_JOBS (USER_ID,[ENTITY_ID],COMMENT,ADDED_WHO) VALUES
			--(@USER_ID,@ENTITY_ID,'USER ADDED TO CONSTRUCTOR','TBPMO_CONSTRUCTOR_USER_AFT_INS')
			--INSERT INTO TBPMO_ENTITY_USER_RIGHTS (USER_ID,ENTITY_ID,READ_ONLY,FILES_VISIBLE) VALUES
			--(@USER_ID,@ENTITY_ID,0,1)
			INSERT INTO TBPMO_RIGHT_USER (USER_ID, ENTITY_ID) VALUES (@USER_ID,@ENTITY_ID)
					
			FETCH NEXT FROM c_USER INTO @ENTITY_ID
		END
	CLOSE c_USER
	DEALLOCATE c_USER

END TRY
BEGIN CATCH   
	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
	+ ' - ERROR-MESSAGE: ' 
	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
CREATE TRIGGER [dbo].[TBPMO_CONSTRUCTOR_USER_AFT_DEL] ON [dbo].[TBPMO_CONSTRUCTOR_USER]
WITH EXECUTE AS CALLER
FOR DELETE
AS
BEGIN TRY
	DECLARE 
		@USER_ID INTEGER,
		@CONSTRUCT_ID INTEGER,
		@ADDED_WHO VARCHAR(50)
	SELECT 
		@CONSTRUCT_ID = CONSTRUCT_ID,
		@USER_ID = GUID,
		@ADDED_WHO = ADDED_WHO
	FROM DELETED
	
	DECLARE	@ENTITY_ID INTEGER
	
	DECLARE c_USER CURSOR FOR 
		SELECT 
			FORM_ID	FROM 
		VWPMO_CONSTRUCTOR_FORMS WHERE DOCUMENT_VIEW = 1
	OPEN c_USER 
		FETCH NEXT FROM c_USER INTO @ENTITY_ID
    WHILE @@FETCH_STATUS = 0
		BEGIN
			DELETE FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = @ENTITY_ID AND USER_ID = @USER_ID
							
			FETCH NEXT FROM c_USER INTO @ENTITY_ID
		END
	CLOSE c_USER
	DEALLOCATE c_USER

END TRY
BEGIN CATCH   
	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
	+ ' - ERROR-MESSAGE: ' 
	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
ALTER TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
 ADD CONFIG_COLUMNS BIT NOT NULL DEFAULT 0
GO
ALTER TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
 ADD SEQUENCE INTEGER NOT NULL DEFAULT 0
GO
ALTER TABLE dbo.TBPMO_DOC_VALUES ADD
	RECORD_ID INTEGER NOT NULL CONSTRAINT DF_TBPMO_DOC_VALUES_RECORD_ID DEFAULT 0
GO
ALTER PROCEDURE [dbo].[PRPMO_DELETE_RECORD](@pRECORD_ID INT, @WHO VARCHAR(30))
AS
BEGIN TRY
	DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID IN (SELECT GUID FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @pRECORD_ID)
	DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @pRECORD_ID
	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = @pRECORD_ID OR RECORD2_ID = @pRECORD_ID
    DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @pRECORD_ID
    DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @pRECORD_ID
	DELETE FROM TBPMO_WORKFLOW_REMINDER WHERE RECORD_ID = @pRECORD_ID
	DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE RECORD_ID = @pRECORD_ID
	DELETE FROM TBPMO_RECORD_VARIANT WHERE RECORD_ID = @pRECORD_ID
	DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = @pRECORD_ID
	DELETE FROM TBPMO_DOC_VALUES WHERE RECORD_ID = @pRECORD_ID
    DELETE FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
	INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES (@pRECORD_ID,'RECORD-ID','RECORD DELETED BY USER',@WHO)
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
/*
DECLARE 
		@ID INTEGER,
		@RECORD_ID		INTEGER,
		@DOC_ID			INTEGER
									
DECLARE c_REDO CURSOR FOR 
	SELECT TDV.GUID, TDV.DocID, TRL.RECORD_ID FROM 
	TBPMO_DOC_VALUES TDV, TBPMO_DOC_RECORD_LINK TRL WHERE TDV.DocID = TRL.DOC_ID
  OPEN c_REDO 
    FETCH NEXT FROM c_REDO INTO @ID,@DOC_ID,@RECORD_ID
    WHILE @@FETCH_STATUS = 0
	BEGIN
		UPDATE TBPMO_DOC_VALUES SET RECORD_ID = @RECORD_ID WHERE GUID = @ID
		
		FETCH NEXT FROM c_REDO INTO @ID,@DOC_ID,@RECORD_ID
	END
CLOSE c_REDO
DEALLOCATE c_REDO
*/

/*
--SELECT *
--FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = 21 AND LANGUAGE = 'en-US'
--AND CONFIG_COLUMNS = 1

DECLARE 
		@ID INTEGER,
		@RECORD_ID		INTEGER,
		@DOC_ID			INTEGER,
		@ADDED_WHO		VARCHAR(50)
									
DECLARE c_REDO CURSOR FOR 
	SELECT T.GUID, T1.GUID as RID, TRL.DOC_ID, TRL.ADDED_WHO,
	(SELECT COUNT(GUID) FROM TBPMO_DOC_VALUES WHERE DocID = TRL.DOC_ID AND RECORD_ID = T1.GUID AND CONFIG_ID = T.GUID) AS CNT FROM 
	TBPMO_DOCSEARCH_RESULTLIST_CONFIG T, TBPMO_RECORD T1, TBPMO_DOC_RECORD_LINK TRL WHERE 
	T.ENTITY_ID = T1.FORM_ID AND 
	T1.GUID = TRL.RECORD_ID AND
	T.ENTITY_ID = 21 AND T.LANGUAGE = 'en-US' AND (SELECT COUNT(GUID) FROM TBPMO_DOC_VALUES WHERE DocID = TRL.DOC_ID AND RECORD_ID = T1.GUID AND CONFIG_ID = T.GUID) = 0
	--AND T1.GUID IN (388)
	AND T.CONFIG_COLUMNS = 1 ORDER BY T1.GUID, T.GUID
  OPEN c_REDO 
    FETCH NEXT FROM c_REDO INTO @ID,@RECORD_ID,@DOC_ID,@ADDED_WHO
    WHILE @@FETCH_STATUS = 0
	BEGIN
		IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_VALUES WHERE DocID = @DOC_ID AND RECORD_ID = @RECORD_ID AND CONFIG_ID = @ID)
			INSERT INTO TBPMO_DOC_VALUES (DocID,CONFIG_ID,VALUE,RECORD_ID, ADDED_WHO) VALUES (@DOC_ID,@ID,'',@RECORD_ID,@ADDED_WHO)
		FETCH NEXT FROM c_REDO INTO @ID,@RECORD_ID,@DOC_ID,@ADDED_WHO
	END
CLOSE c_REDO
DEALLOCATE c_REDO
*/
TBPMO_DOC_RECORD_LINK_AFT_INS ändern
--Den Defaultvalue der DropdownListe eintragen
	IF (SELECT COUNT(GUID) FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND TYPE_ID = 4) >= 1
		BEGIN
			INSERT INTO TBPMO_DOC_VALUES (DocID,RECORD_ID,CONFIG_ID,VALUE,ADDED_WHO) 
			SELECT @DOC_ID,@RECORD_ID,T.GUID,T1.VALUE,@ADDED_WHO FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG T, TBPMO_DOCRESULT_DROPDOWN_ITEMS T1 WHERE T.GUID = T1.CONFIG_ID AND T1.[DEFAULT] = 1 AND T.ENTITY_ID = @ENTITY_ID AND T.TYPE_ID = 4
		END
	IF (SELECT COUNT(GUID) FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND TYPE_ID <> 4 AND CONFIG_COLUMNS = 1) >= 1
		INSERT INTO TBPMO_DOC_VALUES (DocID,RECORD_ID,CONFIG_ID,VALUE,ADDED_WHO) 
		SELECT @DOC_ID,@RECORD_ID,T.GUID,'',@ADDED_WHO FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG T WHERE T.ENTITY_ID = @ENTITY_ID AND T.TYPE_ID <> 4 AND T.CONFIG_COLUMNS = 1

CREATE TRIGGER [dbo].[TBPMO_DOC_RECORD_LINK_AFT_DEL] ON [dbo].[TBPMO_DOC_RECORD_LINK]
WITH EXECUTE AS CALLER
FOR DELETE
AS
BEGIN TRY
	DECLARE 
		@RECORD_ID		INTEGER,
		@DOC_ID			INTEGER,
				@ENTITY_ID		INTEGER
	SELECT
  		@RECORD_ID = RECORD_ID,
		@DOC_ID = DOC_ID
	FROM DELETED

	SELECT @ENTITY_ID = FORM_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID
	DELETE FROM TBPMO_DOC_VALUES WHERE DocID = @DOC_ID AND RECORD_ID = @RECORD_ID
END TRY
BEGIN CATCH   
	PRINT 'ERROR IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW: ' + CONVERT(VARCHAR(10),ERROR_LINE())
	+ ' - ERROR-MESSAGE: ' 
    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH