UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.5' where NAME = 'Record-Organizer' 
GO
CREATE VIEW [dbo].[VWPMO_DOC_SYNC] AS 
SELECT TOP 100 PERCENT
	T.dwDocID as DocID
	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID)	AS FULL_FILENAME
	,szLongName										as [Filename], 
	ISNULL(T.szText39, 'NO DOCTYPE')				AS Doctype
	,T.dwVersionNumber								AS [Version]
	,CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwCreationDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwCreation_Time)) + convert(VARCHAR(6),T.dwCreation_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) AS [Creation_DateTime]
	,CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwChangeDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwChange_Time)) + convert(VARCHAR(6),T.dwChange_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) AS Change_DateTime
	,T1.szDocTypeName																AS OBJECTTYPE
	,T.dwObjectTypeID
FROM 
	[172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes T
	,[172.24.12.41\BRAINPOOL].windream60.dbo.ObjectType T1
WHERE 
	 T.dwObjectTypeID = T1.dwObjectTypeID 
	 AND T.szText36 = 'ADDI-RELATION'
ORDER BY [Creation_DateTime]



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)
					
			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 TABLE dbo.TBPMO_ENTITY_USER_RIGHTS(
	GUID		int IDENTITY(1,1) NOT NULL,
	USER_ID		int NOT NULL,
	ENTITY_ID	int NOT NULL,
	READ_ONLY	bit NOT NULL		DEFAULT 0,
	FILES_VISIBLE	bit NOT NULL	DEFAULT 1,
	ADDED_WHEN		datetime		DEFAULT getdate(),
	CHANGED_WHEN	datetime,
 CONSTRAINT PK_TBPMO_ENTITY_USER_RIGHTS PRIMARY KEY(GUID))

GO
CREATE TRIGGER [dbo].[TBPMO_ENTITY_USER_RIGHTS_AFT_UPD] ON [dbo].[TBPMO_ENTITY_USER_RIGHTS]
FOR UPDATE
AS
	UPDATE TBPMO_ENTITY_USER_RIGHTS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_ENTITY_USER_RIGHTS.GUID = INSERTED.GUID
GO
ALTER PROCEDURE [dbo].[PRPMO_DOCRESULT_CHANGE]
AS
BEGIN TRY
DECLARE @DocID	INTEGER,
		@DISPLAY_NAME	VARCHAR(250),
	@FULL_FILENAME	VARCHAR(5000),
	@Filename		VARCHAR(500),
	@Doctype		VARCHAR(250),
	@Version		SMALLINT,
	@Objecttype	VARCHAR(250),
	@Creation_DateTime DATETIME,
	@Change_DateTime DATETIME
DECLARE c_Values CURSOR LOCAL FOR 
	select DocID, [Filename], FULL_FILENAME,
	Doctype, [Version] as [Version], Objecttype,
	Creation_DateTime, Change_DateTime from VWPMO_DOC_SYNC 
	--WHERE 
	--CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE()) OR
	--CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())
 	OPEN c_Values 
   	FETCH NEXT FROM c_Values INTO @DocID,@Filename,@FULL_FILENAME,
	@Doctype,@Version,@Objecttype,
	@Creation_DateTime,@Change_DateTime
   	WHILE @@FETCH_STATUS = 0
	BEGIN
		IF NOT EXISTS(SELECT [DocID] FROM TBPMO_DOCRESULT_LIST WHERE DocID = @DocID)
			BEGIN
			PRINT 'INSERT NECESSARY'
			INSERT INTO TBPMO_DOCRESULT_LIST (
				[DocID],
				[DISPLAY_NAME],
				[FULL_FILENAME],
				[Filename],
				[Doctype],
				[Version],
				[Objecttype],
				Creation_DateTime,
				Change_DateTime) 
			VALUES (
				@DocID,
				@Filename,
				@FULL_FILENAME,
				@Filename,
				@Doctype,
				@Version,
				@Objecttype,
				@Creation_DateTime,
				@Change_DateTime
				)
			END
		ELSE
			UPDATE TBPMO_DOCRESULT_LIST SET 
				[FULL_FILENAME] = @FULL_FILENAME,
				[Filename] = @Filename,
				[Doctype] = @Doctype,
				[Version] = @Version,
				[Objecttype] = @Objecttype,
				Change_DateTime = @Change_DateTime
			WHERE DocID = @DocID
				
		--#####
		FETCH NEXT FROM c_Values INTO @DocID,@Filename,@FULL_FILENAME,
			@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
	END
CLOSE c_Values
DEALLOCATE c_Values

DECLARE @DocID1	INTEGER
DECLARE c_2_Delete CURSOR LOCAL FOR 
	select DocID from TBPMO_DOCRESULT_LIST where DocID not in (SELECT DocID from VWPMO_DOC_SYNC)
 	OPEN c_2_Delete 
   	FETCH NEXT FROM c_2_Delete INTO @DocID1
   	WHILE @@FETCH_STATUS = 0
	BEGIN
		EXEC PRPMO_DELETE_RESULTFILE @DocID1, 0, 1
				
		--#####
		FETCH NEXT FROM c_2_Delete INTO @DocID1
	END
CLOSE c_2_Delete
DEALLOCATE c_2_Delete
END TRY
BEGIN CATCH   
	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW: ' + CONVERT(VARCHAR(10),ERROR_LINE())
	+ ' - ERROR-MESSAGE: ' 
    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
ALTER TABLE TBPMO_WD_OBJECTTYPE
ADD IDXNAME_RELATION VARCHAR(100) NOT NULL DEFAULT 1
GO


CREATE TABLE TBPMO_RIGHT_USER(
	GUID			int IDENTITY(1,1) NOT NULL,
	USER_ID			int					NOT NULL,
	ENTITY_ID		int					NOT NULL,
	EDIT_REC		bit					NOT NULL DEFAULT 1,
	ADD_REC			bit					NOT NULL DEFAULT 0,
	DELETE_REC		bit					NOT NULL DEFAULT 0,
	ADD_DOC			bit					NOT NULL DEFAULT 0,
	READ_ONLY_DOC	bit					NOT NULL DEFAULT 0,
	DELETE_DOC		bit					NOT NULL DEFAULT 0,
	FILES_VISIBLE	bit					NOT NULL DEFAULT 1,
	ADDED_WHEN		datetime					 DEFAULT getdate(),
	CHANGED_WHEN	datetime,
CONSTRAINT 	   	[PK_TBPMO_RIGHT_USER] 	PRIMARY KEY(GUID))
GO
ALTER TRIGGER TBPMO_RIGHT_USER_AFT_UPD ON TBPMO_RIGHT_USER
FOR UPDATE
AS
	UPDATE TBPMO_RIGHT_USER SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RIGHT_USER.GUID = INSERTED.GUID
GO


DECLARE @DoctypeID	INTEGER
DECLARE cursor_Doctype CURSOR LOCAL FOR 
	select GUID from TBDD_DOKUMENTART 
 	OPEN cursor_Doctype 
   	FETCH NEXT FROM cursor_Doctype INTO @DoctypeID
   	WHILE @@FETCH_STATUS = 0
	BEGIN
		INSERT INTO TBDD_INDEX_AUTOM (DOCTYPE_ID, INDEXNAME,VALUE,ADDED_WHO) VALUES
		(@DoctypeID,'String 36','ADDI-RELATION','Digital Data')
				
		--#####
		FETCH NEXT FROM cursor_Doctype INTO @DoctypeID
	END
CLOSE cursor_Doctype
DEALLOCATE cursor_Doctype
GO
ALTER VIEW VWPMO_DOC_SEARCH AS 
SELECT 
	CONVERT(INTEGER,T.DocID) AS DocID
	,T.FULL_FILENAME  AS FULL_FILENAME
	,T.[Filename]
	,T.Doctype
	,T.[Version]
	,T.Creation_DateTime
	,T.Change_DateTime
	,T.OBJECTTYPE
	,T.DISPLAY_NAME
	,T.IN_WORK
	,T.IN_WORK_USER
	,T.IN_WORK_COMMENT
FROM 
	TBPMO_DOCRESULT_LIST T
GO
CREATE VIEW [dbo].[VWPMO_DOC_SYNC] AS 
SELECT TOP 100 PERCENT
	T.dwDocID as DocID
	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID)	AS FULL_FILENAME
	,szLongName										AS [Filename]
	,ISNULL(T.szText39,'NO DOCTYPE')				AS Doctype
	,ISNULL(T.dwVersionNumber,'1')			AS [Version]
	,CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwCreationDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwCreation_Time)) + convert(VARCHAR(6),T.dwCreation_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) AS [Creation_DateTime]
	,CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwChangeDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwChange_Time)) + convert(VARCHAR(6),T.dwChange_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) AS Change_DateTime
	,T1.szDocTypeName																AS OBJECTTYPE
	,T.dwObjectTypeID
FROM 
	[172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes T
	,[172.24.12.41\BRAINPOOL].windream60.dbo.ObjectType T1
WHERE 
	 T.dwObjectTypeID = T1.dwObjectTypeID 
	 AND T.szText36 = 'ADDI-RELATION'
ORDER BY [Creation_DateTime]
GO
DROP VIEW VWPMO_WD_DOC_SYNC
GO
ALTER VIEW [dbo].[VWPMO_DOC_SEARCH] AS 
SELECT 
	CONVERT(INTEGER,T.DocID) AS DocID
	,T.FULL_FILENAME  AS FULL_FILENAME
	,T.[Filename]
	,T.Doctype
	,T.[Version]
	,T.Creation_DateTime
	,T.Change_DateTime
	,T.OBJECTTYPE
	,T.DISPLAY_NAME
	,T.IN_WORK
	,T.IN_WORK_USER
	,T.IN_WORK_COMMENT
FROM 
	TBPMO_DOCRESULT_LIST T
GO

CREATE PROCEDURE [dbo].[PRPMO_DOC_CREATE_NEW_DOC](@pDOC_ID INTEGER,@pREC_ID INTEGER,@WHO VARCHAR(50))
AS
BEGIN TRY

	DECLARE
	--@pDOC_ID INTEGER,@pREC_ID INTEGER,@WHO VARCHAR(50),
	 	@DISPLAY_NAME	VARCHAR(250),
		@FULL_FILENAME	VARCHAR(5000),
		@Filename		VARCHAR(500),
		@Doctype		VARCHAR(250),
		@Version		SMALLINT,
		@Objecttype	VARCHAR(250),
		@Creation_DateTime DATETIME,
		@Change_DateTime DATETIME
		--SET @pDOC_ID = 260882
		--SET @pREC_ID = 4388
		--SET @WHO = 'SChreiberM'
	SELECT  @FULL_FILENAME = dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID)
		,@DISPLAY_NAME = szLongName
		,@Filename = szLongName
		,@Doctype = ISNULL(T.szText39,'NO DOCTYPE')
		,@Version = T.dwVersionNumber
		,@Creation_DateTime = CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwCreationDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwCreation_Time)) + convert(VARCHAR(6),T.dwCreation_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME)
		,@Change_DateTime = CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwChangeDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwChange_Time)) + convert(VARCHAR(6),T.dwChange_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME)
		,@Objecttype = T1.szDocTypeName	
	FROM 
		[172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes T
		,[172.24.12.41\BRAINPOOL].windream60.dbo.ObjectType T1
	WHERE 
		T.dwObjectTypeID = T1.dwObjectTypeID 
		AND	T.dwDocID = @pDOC_ID
	IF NOT EXISTS(SELECT DocID FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOC_ID)
		INSERT INTO TBPMO_DOCRESULT_LIST (
			[DocID],
			[DISPLAY_NAME],
			[FULL_FILENAME],
			[Filename],
			[Doctype],
			[Version],
			[Objecttype],
			Creation_DateTime,
			Change_DateTime) 
		VALUES (
			@pDOC_ID,
			@Filename,
			@FULL_FILENAME,
			@Filename,
			@Doctype,
			@Version,
			@Objecttype,
			@Creation_DateTime,
			@Change_DateTime)
	ELSE
		PRINT 'NO INSERT 1'
	IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @pDOC_ID AND RECORD_ID = @pREC_ID)
		INSERT INTO TBPMO_DOC_RECORD_LINK (DOC_ID, RECORD_ID,ADDED_WHO) VALUES	(@pDOC_ID,@pREC_ID,@WHO)
	ELSE
		PRINT 'NO INSERT 2'

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
CREATE TABLE TBPMO_RECORD_GEODATA(
	[GUID]			INT		IDENTITY(1,1) NOT NULL,
	RECORD_ID		INT					NOT NULL,
	LATITUDE		Decimal(9,6),
	LONGITUDE		Decimal(9,6),
	LOCATION		VARCHAR(2000),
	COMMENT			VARCHAR(500),
	ADDED_WHO		VARCHAR(50)			NOT NULL DEFAULT ('DEFAULT'),
	ADDED_WHEN		DATETIME			DEFAULT (GETDATE()),
	CHANGED_WHO		VARCHAR(50),
	CHANGED_WHEN	DATETIME,
CONSTRAINT 	   	[PK_TBPMO_RECORD_GEODATA] 	PRIMARY KEY(RECORD_ID),
CONSTRAINT		FK_TBPMO_RECORD_GEODATA_RECORD_ID	FOREIGN KEY (RECORD_ID) REFERENCES  TBPMO_RECORD (GUID))
GO
CREATE TRIGGER TBPMO_RECORD_GEODATA_AFT_UPD ON TBPMO_RECORD_GEODATA
FOR UPDATE
AS
	UPDATE TBPMO_RECORD_GEODATA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RECORD_GEODATA.GUID = INSERTED.GUID
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_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

DELETE FROM TBPMO_RIGHT_USER WHERE USER_ID NOT IN (SELECT GUID FROM TBDD_USER)
GO
DELETE FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID NOT IN (SELECT GUID FROM TBDD_USER)
GO
ALTER PROCEDURE [dbo].[PRPMO_DELETE_USER](@pUSER_ID INT)
AS
BEGIN TRY
	IF OBJECT_ID(N'dbo.TBGI_FOLDERWATCH_USER', N'U') IS NOT NULL 
		DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = @pUSER_ID
	IF OBJECT_ID(N'dbo.TBHOTKEY_USER_PROFILE', N'U') IS NOT NULL 
		DELETE FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_RIGHT_USER WHERE USER_ID = @pUSER_ID
	DELETE FROM TBDD_CLIENT_USER WHERE USER_ID = @pUSER_ID
	DELETE FROM TBDD_GROUPS_USER WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID
	DELETE FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID = @pUSER_ID
	DELETE FROM TBDD_USER WHERE GUID = @pUSER_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

DECLARE
	@USER_ID	INTEGER,
	@ENTITY_ID	INTEGER,
	@READ_ONLY	BIT,
	@FILES_VISIBLE	BIT	
								
DECLARE c_REDO CURSOR FOR 
	SELECT USER_ID, ENTITY_ID, READ_ONLY,FILES_VISIBLE FROM TBPMO_ENTITY_USER_RIGHTS
  OPEN c_REDO 
	
    FETCH NEXT FROM c_REDO INTO @USER_ID,@ENTITY_ID,@READ_ONLY,@FILES_VISIBLE
    WHILE @@FETCH_STATUS = 0
	BEGIN
		IF NOT EXISTS(select guid from TBPMO_RIGHT_USER where USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID)
			BEGIN
				INSERT INTO TBPMO_RIGHT_USER (USER_ID, ENTITY_ID) VALUES (@USER_ID,@ENTITY_ID)
			END
		IF @READ_ONLY = 1
			UPDATE TBPMO_RIGHT_USER SET READ_ONLY_DOC = 1 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID
		ELSE
			UPDATE TBPMO_RIGHT_USER SET READ_ONLY_DOC = 0 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID

		IF @FILES_VISIBLE = 1
			UPDATE TBPMO_RIGHT_USER SET FILES_VISIBLE = 1 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID
		ELSE
			UPDATE TBPMO_RIGHT_USER SET FILES_VISIBLE = 0 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID

		FETCH NEXT FROM c_REDO INTO @USER_ID,@ENTITY_ID,@READ_ONLY,@FILES_VISIBLE
	END
CLOSE c_REDO
DEALLOCATE c_REDO
GO

ALTER TRIGGER [dbo].[TBPMO_FORM_VIEW_AFT_UPD] ON [dbo].[TBPMO_FORM_VIEW]
FOR UPDATE
AS
BEGIN TRY
	DECLARE 
		@FORM_TITLE	VARCHAR(50),
		@LANGUAGE VARCHAR(5), 
		@CHANGED_WHO VARCHAR(50),
		@GUID INTEGER,
		@SCREEN_ID INTEGER,
		@PMO_OBJECT_NAME VARCHAR(100),
		@ENTITY_ID	INTEGER,
		@DOC_VIEW BIT
	SELECT 
		@GUID = GUID,
		@FORM_TITLE = FORM_TITLE,
		@SCREEN_ID = SCREEN_ID,
		@CHANGED_WHO = CHANGED_WHO,
		@ENTITY_ID = FORM_ID,
		@DOC_VIEW = DOCUMENT_VIEW
	FROM INSERTED
	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
	SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)

	UPDATE TBPMO_FORM_VIEW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_FORM_VIEW.GUID = INSERTED.GUID
	IF UPDATE (FORM_TITLE)
		BEGIN
			IF @LANGUAGE is not null
				If EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
					LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID)
					UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @FORM_TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
					PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
					LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
			ELSE
				IF NOT EXISTS(SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID AND PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND CAPTION = @FORM_TITLE)
					BEGIN TRY 
						INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
						(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE)
					END TRY
					BEGIN CATCH   
						PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 72'
						+ ' - ERROR-MESSAGE: ' 
						+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
					END CATCH
		END
	IF UPDATE(DOCUMENT_VIEW)
		IF  @DOC_VIEW = 1
			BEGIN
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Dateiname' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION) VALUES
								(@ENTITY_ID,'Filename','Dateiname')
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Dokumentart' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION) VALUES
																(@ENTITY_ID,'Doctype','Dokumentart')
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
																(@ENTITY_ID,'IN_WORK','in work?',50,2)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
																(@ENTITY_ID,'IN_WORK_USER','IW_USER',0)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
																(@ENTITY_ID,'IN_WORK_COMMENT','IW_COMMENT',0)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Erstellt' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
																(@ENTITY_ID,'Creation_DateTime','Erstellt',100,3)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Geändert' AND LANGUAGE = 'de-DE')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
																(@ENTITY_ID,'Change_DateTime','Geändert',100,3)
				--####
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Filename' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION) VALUES
																(@ENTITY_ID,'en-US','Filename','Filename')
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Doctype' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION) VALUES
																(@ENTITY_ID,'en-US','Doctype','Doctype')
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
																(@ENTITY_ID,'en-US','IN_WORK','in work?',50,2)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
																(@ENTITY_ID,'en-US','IN_WORK_USER','IW_USER',0)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
																(@ENTITY_ID,'en-US','IN_WORK_COMMENT','IW_COMMENT',0)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Created' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
																	(@ENTITY_ID,'en-US','Creation_DateTime','Created',100,3)
				IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Changed' AND LANGUAGE = 'en-US')
					INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
																	(@ENTITY_ID,'en-US','Change_DateTime','Changed',100,3)
			END
		ELSE
			DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID
END TRY
BEGIN CATCH   
	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
	+ ' - ERROR-MESSAGE: ' 
	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO

CREATE PROCEDURE PRPMO_CREATE_VARIANT(@pREC_ID INTEGER,@WHO VARCHAR(50), @REASON VARCHAR(50),@COMMENT VARCHAR(500),@LINKFILES BIT)
AS
BEGIN TRY
	DECLARE	@return_value int
	EXEC	@return_value = [dbo].[PRDD_COPY_RECORD] @pREC_ID,@WHO
	IF @return_value = 0
		BEGIN
			DECLARE @NEW_RECORD_ID INTEGER
			SELECT @NEW_RECORD_ID = MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = UPPER(@WHO)
			UPDATE TBPMO_RECORD SET 
				PARENT_RECORD = @NEW_RECORD_ID
				,CHANGED_WHO = @WHO WHERE GUID = @pREC_ID
			INSERT INTO TBPMO_RECORD_VARIANT (RECORD_ID,REASON_CODE,COMMENT,ADDED_WHO) VALUES 
				(@pREC_ID,@REASON,@COMMENT,@WHO)
			UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = 
				(SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = @pREC_ID)
				,CHANGED_WHO = @WHO WHERE GUID = @NEW_RECORD_ID
			IF @LINKFILES = 1
				INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID, COMMENT, ADDED_WHO)
					SELECT @NEW_RECORD_ID, DOC_ID, 'NEW VARIANT LINK', @WHO FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = @pREC_ID
		END
	ELSE
		RAISERROR ('ERROR WHILE COPYING RECORD',
			10, -- Severity.
			1, -- State.
			'99', -- First substitution argument.
			'PRDD_COPY_RECORD'); -- Second substitution argument.
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
UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG SET VISIBLE = 0 WHERE ENTITY_ID = 1 AND COLUMN_VIEW = 'IN_WORK'
GO