MS

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.1/TBPMO_FORM_CONSTRUCTOR_DETAIL.sql

@@ -0,0 +1,11 @@
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD COLUMN_NAME1	VARCHAR(100) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD COLUMN_NAME2	VARCHAR(100) NOT NULL DEFAULT ''
+GO
+
+UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET COLUMN_NAME1 = 'Format' where GUID = 2
+GO
+UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET COLUMN_NAME1 = 'Sendetitel' where GUID = 3
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.1/VWPMO_CONSTRUCTOR_FORMS.sql

@@ -0,0 +1,24 @@
+ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
+SELECT 
+	T2.CONSTRUCT_ID,
+	T2.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND 
+	T1.SCREEN_ID = 1 AND 
+	T.GUID = T1.FORM_ID 
+
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.2/TBPMO_CONTROL.sql

@@ -0,0 +1,8 @@
+ALTER TABLE TBPMO_CONTROL 
+ADD FORMAT_TYPE		VARCHAR(50)
+UPDATE TBPMO_CONTROL SET FORMAT_TYPE = 'String'
+--Manuell in Tabelle den Default Wert ändern
+
+ALTER TABLE TBPMO_CONTROL
+ADD SHOW_COLUMN		BIT
+UPDATE TBPMO_CONTROL SET SHOW_COLUMN = 1

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.2/TBPMO_CONTROL_IMAGE.sql

@@ -0,0 +1,36 @@
+CREATE TABLE TBPMO_CONTROL_IMAGE
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	CONTROL_ID		INTEGER			NOT NULL,
+	RECORD_ID		INTEGER			NOT NULL,
+	IMG				VARBINARY(max)	NOT NULL,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		NOT NULL	DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_CONTROL_IMAGE				PRIMARY KEY (GUID),
+	CONSTRAINT		UQ_CONTROLID_RECORDID UNIQUE (CONTROL_ID, RECORD_ID),
+	CONSTRAINT		FK_TBPMO_CONTROL_IMAGE_CONTROL_ID	FOREIGN KEY (CONTROL_ID) REFERENCES TBPMO_CONTROL (GUID),
+	CONSTRAINT		FK_TBPMO_CONTROL_IMAGE_RECORD_ID	FOREIGN KEY (RECORD_ID) REFERENCES  TBPMO_RECORD (GUID),
+			
+)
+GO
+
+CREATE TRIGGER TBPMO_CONTROL_IMAGE_AFT_UPD ON TBPMO_CONTROL_IMAGE
+FOR UPDATE
+AS
+BEGIN 
+	DECLARE @RECORD_ID	INTEGER, @CHANGED_WHO VARCHAR(50)
+	SELECT 
+		@RECORD_ID = RECORD_ID,
+		@CHANGED_WHO = CHANGED_WHO
+	FROM INSERTED
+	
+	UPDATE TBPMO_CONTROL_IMAGE 
+	SET CHANGED_WHEN = GETDATE() FROM INSERTED 
+	WHERE TBPMO_CONTROL_IMAGE.GUID = INSERTED.GUID
+
+	UPDATE TBPMO_RECORD SET
+		CHANGED_WHO = @CHANGED_WHO
+	WHERE TBPMO_RECORD.GUID = @RECORD_ID
+END

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.2/TBPMO_WD_OBJECTTYPE.sql

@@ -0,0 +1,19 @@
+CREATE TABLE TBPMO_WD_OBJECTTYPE
+(
+	GUID				INTEGER			NOT NULL	IDENTITY(1,1),
+	OBJECT_TYPE			VARCHAR(100)	NOT NULL,
+	IDXNAME_ENTITYID	VARCHAR(100)	NOT NULL,
+	IDXNAME_PARENTID	VARCHAR(100)	NOT NULL,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_WD_OBJECTTYPE				PRIMARY KEY (GUID),
+	CONSTRAINT		UQ_OBJECTTYPE_TBPMO_WD_OBJECTTYPE	UNIQUE (OBJECT_TYPE)  
+)
+GO
+CREATE TRIGGER TBPMO_WD_OBJECTTYPE_AFT_UPD ON TBPMO_WD_OBJECTTYPE
+FOR UPDATE
+AS
+	UPDATE TBPMO_WD_OBJECTTYPE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_OBJECTTYPE.GUID = INSERTED.GUID
+GO 

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.2/VWPMO_CONTROL_SCREEn.sql

@@ -0,0 +1,72 @@
+USE [DD_ECM]
+GO
+
+/****** Object:  View [dbo].[VWPMO_CONTROL_SCREEN]    Script Date: 30.03.2015 10:13:05 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+ALTER VIEW [dbo].[VWPMO_CONTROL_SCREEN] AS
+SELECT TOP 100 PERCENT
+	T.GUID			CONTROL_ID,
+	T.NAME			CONTROL_NAME,
+	T.REQUIRED		CONTROL_REQUIRED,
+	T.FORMAT_TYPE	CONTROL_FORMAT_TYPE,
+	T.DEFAULT_VALUE	CONTROL_DEF_VALUE,
+	T.READ_ONLY		CONTROL_READ_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,
+	T4.GUID			CTRLTYPE_ID,
+	T4.TYPE_NAME	CTRLTYPE_NAME,
+	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
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/1_Diverses.sql

@@ -0,0 +1,15 @@
+DBCC CHECKIDENT (TBPMO_CONTROL_TYPE, RESEED, 11)
+INSERT INTO TBPMO_CONTROL_TYPE(TYPE_NAME)
+VALUES
+	('CheckedListBox')
+GO
+INSERT INTO TBPMO_CONTROL_TYPE(TYPE_NAME)
+VALUES
+	('ListBox')
+GO
+
+ALTER TABLE TBPMO_RECORD_CONNECT
+ADD CONSTRAINT UQ_RECORD_CONNECT UNIQUE (RECORD1_ID, RECORD2_ID)
+
+--In TBPMO_RECORD_AFT_INS die 
+--EXEC DBO.PRPMO_CREATE_RECORD_CONNECTIONS @FORM_ID,@RECORD_ID

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/1_TBPMO_RUN_PROCEDURES.sql

@@ -0,0 +1,23 @@
+CREATE TABLE TBPMO_RUN_PROCEDURES
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	FORM_ID			INTEGER			NOT NULL,
+	EXECUTE_COMMAND	VARCHAR(500)	NOT NULL,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 		NOT NULL	DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_RUN_PROCEDURES				PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_RUN_PROCEDURES_FORM_ID		FOREIGN KEY (FORM_ID)  REFERENCES  TBPMO_FORM (GUID),
+)
+GO
+
+CREATE TRIGGER TBPMO_RUN_PROCEDURES_AFT_UPD ON TBPMO_RUN_PROCEDURES
+FOR UPDATE
+AS
+	UPDATE TBPMO_RUN_PROCEDURES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RUN_PROCEDURES.GUID = INSERTED.GUID
+GO
+INSERT INTO TBPMO_RUN_PROCEDURES(FORM_ID,EXECUTE_COMMAND) 
+VALUES 
+	(2,'EXEC PRPMO_AFTER_UPDATE_VALUES @FORM_ID,@RECORD_ID')
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/@Variablen ersetzen.sql

@@ -0,0 +1,7 @@
+SELECT        SQL_COMMAND_1
+FROM            TBPMO_CONTROL
+WHERE        (SQL_COMMAND_1 LIKE '%@%')
+
+@RECORD_ID
+@PARENTRECORD_ID
+@FORM_ID

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/CONTROL_DEFAULT.sql

@@ -0,0 +1,8 @@
+UPDATE TBPMO_CONTROL SET SHOW_COLUMN = 1 WHERE CONTROL_TYPE_ID = 2 AND SHOW_COLUMN is null
+UPDATE TBPMO_CONTROL SET SHOW_COLUMN = 1 WHERE SHOW_COLUMN is null
+
+ALTER TABLE TBPMO_CONTROL
+ALTER COLUMN SHOW_COLUMN BIT NOT NULL 
+
+ALTER TABLE TBPMO_CONTROL
+ADD DEFAULT 1 FOR SHOW_COLUMN

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/Columns.sql

@@ -0,0 +1,2 @@
+ALTER TABLE TBPMO_WORKFLOW_TASK
+ADD TASK_DATE DATE

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/TBPMO_FILES_USER.sql

@@ -0,0 +1,12 @@
+CREATE TABLE TBPMO_FILES_USER
+(
+	GUID           		INT          IDENTITY(1,1),
+	FILENAME2WORK		VARCHAR(500)	NOT NULL,
+	USER@WORK    		VARCHAR(50)		NOT NULL,
+	HANDLE_TYPE			VARCHAR(50)		NOT NULL,
+	WORKED				BIT				NOT NULL DEFAULT 0,
+	ADDED_WHEN    	DATETIME 	  DEFAULT GETDATE()			NOT NULL,
+	CONSTRAINT 	   	PK_TBPMO_FILES_USER 	PRIMARY KEY(GUID)
+)
+GO
+------------------------------------------------------------------------------

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/TBPMO_FOLLUPEMAIL_RECORD.sql

@@ -0,0 +1,23 @@
+CREATE TABLE TBPMO_FOLLUPEMAIL_RECORD
+(
+	GUID			INTEGER	IDENTITY(0,1),         				-- Eindeutiger Tabellenschlüssel
+	FOLLOW_UP_ID	INTEGER			NOT NULL,
+	[USER_ID]		INTEGER			NOT NULL,
+	RECORD_ID		INTEGER			NOT NULL,
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT'	NOT NULL,
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO		VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_FOLLUPEMAIL_RECORD	PRIMARY KEY (GUID),
+	CONSTRAINT		UQ_USER_FOLLUP_ID UNIQUE ([USER_ID],FOLLOW_UP_ID),
+	CONSTRAINT		FK_TBPMO_FOLLUPEMAIL_RECORD_USER_ID			FOREIGN KEY([USER_ID])	REFERENCES TBDD_USER(GUID),
+	CONSTRAINT		FK_TBPMO_FOLLUPEMAIL_RECORD_FOLLOW_UP_ID	FOREIGN KEY(FOLLOW_UP_ID)	REFERENCES TBPMO_FOLLOW_UP_EMAIL(GUID),
+	CONSTRAINT		FK_TBPMO_FOLLUPEMAIL_RECORD_RECORD_ID		FOREIGN KEY(RECORD_ID)	REFERENCES TBPMO_RECORD(GUID)
+)
+GO
+CREATE TRIGGER TBPMO_FOLLUPEMAIL_RECORD_AFT_UPD ON TBPMO_FOLLUPEMAIL_RECORD
+FOR UPDATE
+AS
+	UPDATE TBPMO_FOLLUPEMAIL_RECORD SET CHANGED_WHEN = GETDATE() FROM INSERTED 
+	WHERE TBPMO_FOLLUPEMAIL_RECORD.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD.sql

@@ -0,0 +1,23 @@
+CREATE VIEW VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD AS 
+SELECT 
+	T.GUID FOLLOW_UP_ID,
+	T1.RECORD_ID,
+	T2.GUID AS ENTITY_ID,
+	T.NAME,
+	T.FOLLOW_UP_SEQUENCE,
+	T.FOLLOW_UP_DAYS,
+	T.FOLLOW_UP_TIME_SPAN,
+	CONVERT(DATE,T1.VALUE) RECORD_VALUE,
+	T.EMAIL_SUBJECT,
+	T.EMAIL_BODY,
+	T.DEPENDENT_DATE_CTRL_ID,
+	T.DEPENDENT_DONE_CTRL_ID
+FROM 
+	TBPMO_FOLLOW_UP_EMAIL T,
+	VWPMO_VALUES T1,
+	TBPMO_FORM T2
+WHERE 
+	T.ACTIVE = 1 AND
+	T.DEPENDENT_DATE_CTRL_ID = T1.CONTROL_ID AND
+	T1.FORM_ID = T2.GUID
+	

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/VWPMO_GUI_ENTITY.sql

@@ -0,0 +1,12 @@
+CREATE VIEW VWPMO_GUI_ENTITY AS 
+SELECT TOP 100 PERCENT
+	TBPMO_FORM.GUID AS ID, 
+	TBPMO_FORM.NAME AS Name, 
+	TBPMO_FORM_VIEW.FORM_TITLE AS Title
+FROM            
+	TBPMO_FORM INNER JOIN
+    TBPMO_FORM_VIEW ON TBPMO_FORM.GUID = TBPMO_FORM_VIEW.FORM_ID
+WHERE
+	(TBPMO_FORM.FORM_TYPE_ID IN (1, 2, 3, 5))
+ORDER BY 
+	TBPMO_FORM.PARENT_ID, Title

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/VWPMO_WF_ACTIVE.sql

@@ -0,0 +1,30 @@
+ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS
+SELECT TOP 100 PERCENT
+	T.GUID AS WF_TASK_ID, 
+	T1.TITLE, 
+	T.RECORD_ID, 
+	T.STATE_ID, 
+	T2.STATE_DESC,
+	T2.COLOR,
+	T.COMMENT, 
+	T.DUE_DATE, 
+	T.TASK_DATE,
+	'' AS USERNAME, 
+	T.ADDED_WHEN, 
+	T.CHANGED_WHO, 
+	T.CHANGED_WHEN
+FROM            
+	TBPMO_WORKFLOW_TASK AS T,
+    TBPMO_WORKFLOW AS T1,
+	TBPMO_KONFIGURATION TK,
+	TBPMO_WORKFLOW_TASK_STATE T2
+
+WHERE 
+	TK.GUID = 1 AND
+	T.WF_ID = T1.GUID AND 
+	T.STATE_ID = T2.GUID AND
+	T.STATE_ID <> TK.WORKFLOW_FINAL_STATE1 
+ORDER BY T.GUID
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.3/VWPMO_WF_OVERVIEW_AUTHORITY.sql

@@ -0,0 +1,29 @@
+CREATE VIEW VWPMO_WF_OVERVIEW_AUTHORITY AS
+SELECT 
+	T.GUID as WF_ID,
+	T.RECORD_ID,       
+	TBPMO_WORKFLOW.TITLE + ' - ' + TBPMO_WORKFLOW_TASK_STATE.STATE_DESC AS STATE, 
+	TBPMO_WORKFLOW_TASK_STATE.GUID AS STATE_ID,
+	TBPMO_WORKFLOW_TASK_STATE.COLOR,
+	(SELECT        TBDD_USER.NAME + ', ' + TBDD_USER.PRENAME AS Expr1
+	FROM            TBPMO_WORKFLOW_TASK_USER INNER JOIN
+								TBDD_USER ON TBPMO_WORKFLOW_TASK_USER.USER_ID = TBDD_USER.GUID
+	WHERE        (TBPMO_WORKFLOW_TASK_USER.WF_TASK_ID = T.GUID)) AS Authority,
+	CASE WHEN (SELECT        TBDD_USER.NAME + ', ' + TBDD_USER.PRENAME AS Expr1
+	FROM            TBPMO_WORKFLOW_TASK_USER INNER JOIN
+								TBDD_USER ON TBPMO_WORKFLOW_TASK_USER.USER_ID = TBDD_USER.GUID
+	WHERE        (TBPMO_WORKFLOW_TASK_USER.WF_TASK_ID = T.GUID)) IS NULL
+      THEN TBPMO_WORKFLOW.TITLE + ' - ' + TBPMO_WORKFLOW_TASK_STATE.STATE_DESC
+      ELSE 
+		TBPMO_WORKFLOW.TITLE + ' - ' + TBPMO_WORKFLOW_TASK_STATE.STATE_DESC + ' - ' + 
+		(SELECT        TBDD_USER.NAME + ', ' + TBDD_USER.PRENAME AS Expr1
+	FROM            TBPMO_WORKFLOW_TASK_USER INNER JOIN
+								TBDD_USER ON TBPMO_WORKFLOW_TASK_USER.USER_ID = TBDD_USER.GUID
+	WHERE        (TBPMO_WORKFLOW_TASK_USER.WF_TASK_ID = T.GUID))
+	END AS String,
+	T.CHANGED_WHO,
+	T.CHANGED_WHEN
+FROM            TBPMO_WORKFLOW_TASK T INNER JOIN
+                         TBPMO_WORKFLOW ON T.WF_ID = TBPMO_WORKFLOW.GUID INNER JOIN
+                         TBPMO_WORKFLOW_TASK_STATE ON T.STATE_ID = TBPMO_WORKFLOW_TASK_STATE.GUID
+WHERE        (T.ACTIVE = 1)

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.5/Columns.sql

@@ -0,0 +1,9 @@
+ALTER TABLE TBPMO_FORM
+ADD SINGLE_RECORD BIT NOT NULL DEFAULT 0
+ALTER TABLE TBPMO_KONFIGURATION 
+ADD FOLLOW_UP_LOG_ERR_ONLY		BIT				NOT NULL DEFAULT 1
+
+ALTER TABLE TBPMO_KONFIGURATION 
+ADD FOLLOW_UP_EMAIL_PROFILE		INTEGER 		NOT NULL DEFAULT 99
+ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
+ADD NAME				VARCHAR(100)	NOT NULL DEFAULT 'DESCRIPTION FOLLOW UP'

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.5/VWPMO_CONSTRUCTOR_FORMS.sql

@@ -0,0 +1,44 @@
+USE [DD_ECM]
+GO
+
+/****** Object:  View [dbo].[VWPMO_CONSTRUCTOR_FORMS]    Script Date: 28.08.2015 13:22:17 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+
+ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND 
+	T1.SCREEN_ID = 1 AND 
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+
+
+
+
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.6/ALTER_COLUMNS.sql

@@ -0,0 +1,2 @@
+ALTER TABLE TBPMO_CONTROL
+ADD STATIC_LIST		VARCHAR(2000)	NOT NULL DEFAULT ''

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.6/VWPMO_CONTROL_SCREEN.sql

@@ -0,0 +1,71 @@
+USE [DD_ECM]
+GO
+
+/****** Object:  View [dbo].[VWPMO_CONTROL_SCREEN]    Script Date: 03.02.2015 10:27:53 ******/
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+ALTER VIEW [dbo].[VWPMO_CONTROL_SCREEN] AS
+SELECT TOP 100 PERCENT
+	T.GUID			CONTROL_ID,
+	T.NAME			CONTROL_NAME,
+	T.REQUIRED		CONTROL_REQUIRED,
+	T.DEFAULT_VALUE	CONTROL_DEF_VALUE,
+	T.READ_ONLY		CONTROL_READ_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.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
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.7/Columns.sql

@@ -0,0 +1,15 @@
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD LOAD_DIRECT BIT NOT NULL DEFAULT 0
+
+ALTER TABLE TBDD_MODULES
+ADD BACKGROUND_IMAGE VARBINARY(MAX)
+GO
+ALTER TABLE TBDD_MODULES
+ADD PRODUCT_NAME1 VARCHAR(200) NOT NULL DEFAULT 'RECORD-ORGANIZER'
+GO
+ALTER TABLE TBDD_MODULES
+ADD PRODUCT_NAME2 VARCHAR(200)
+GO
+ALTER TABLE TBDD_INDEX_AUTOM
+ADD [ENTITY_ID] INTEGER NOT NULL DEFAULT 0
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.7/Update_2015_05_25.sql

@@ -0,0 +1,3 @@
+INSERT INTO TBPMO_FORM_TYPE(FORM_TYPE) 
+VALUES 
+	('GROUP ENTITY')

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.7/VWPMO_TEMPLATE_ENTITY.sql

@@ -0,0 +1,16 @@
+CREATE VIEW VWPMO_TEMPLATE_ENTITY AS 
+SELECT
+	T.GUID AS TEMPLATE_ID,
+	T.NAME AS TEMPLATE_NAME,
+	T.TEMPLATE_PATH AS TEMPLATE_PATH,
+	T1.GUID AS TEMPLATE_ENTITY_ID,
+	T2.GUID AS ENTITY_ID,
+	T2.NAME
+FROM
+	TBPMO_TEMPLATE T,
+	TBPMO_TEMPLATE_ENTITY T1,
+	TBPMO_FORM T2
+WHERE
+	T.ACTIVE = 1 AND
+	T.GUID = T1.TEMPLATE_ID AND
+	T1.ENTITY_ID = T2.GUID

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.8/39-TBPMO_TEMPLATE.sql

@@ -0,0 +1,21 @@
+CREATE TABLE TBPMO_TEMPLATE
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	NAME			VARCHAR(100)	NOT NULL	UNIQUE,
+	TEMPLATE_PATH	VARCHAR(1000)	NOT NULL,
+	DOCTYPE_ID		INTEGER			NOT NULL,
+	ACTIVE			BIT				NOT NULL	DEFAULT 1,
+	ADDED_WHO		VARCHAR(50)					DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_TEMPLATE			 PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_TEMPLATE_DOCTYPE_ID FOREIGN KEY(DOCTYPE_ID)	REFERENCES TBDD_DOKUMENTART(GUID)
+)
+GO
+
+CREATE TRIGGER TBPMO_TEMPLATE_AFT_UPD ON TBPMO_TEMPLATE
+FOR UPDATE
+AS
+	UPDATE TBPMO_TEMPLATE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_TEMPLATE.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.8/40-TBPMO_TEMPLATE_ENTITY.sql

@@ -0,0 +1,19 @@
+CREATE TABLE TBPMO_TEMPLATE_ENTITY
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	TEMPLATE_ID		INTEGER			NOT NULL,
+	ENTITY_ID		INTEGER			NOT NULL,
+	ADDED_WHO		VARCHAR(50)					DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_TEMPLATE_ENTITY				PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID	FOREIGN KEY(TEMPLATE_ID)	REFERENCES TBPMO_TEMPLATE(GUID),
+	CONSTRAINT		FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID		FOREIGN KEY(ENTITY_ID)		REFERENCES TBPMO_FORM(GUID)
+)
+GO
+
+CREATE TRIGGER TBPMO_TEMPLATE_ENTITY_AFT_UPD ON TBPMO_TEMPLATE_ENTITY
+FOR UPDATE
+AS
+	UPDATE TBPMO_TEMPLATE_ENTITY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_TEMPLATE_ENTITY.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.8/41-TBPMO_TEMPLATE_PATTERN.sql

@@ -0,0 +1,23 @@
+CREATE TABLE TBPMO_TEMPLATE_PATTERN
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	TEMPLATE_ID		INTEGER			NOT NULL,
+	NAME_PATTERN	VARCHAR(100)	NOT NULL,
+	FIXED_VALUE		VARCHAR(100),
+	CONNECTION_ID	INTEGER,
+	SQL_COMMAND		VARCHAR(2000),
+	ADDED_WHO		VARCHAR(50)					DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_TEMPLATE_PATTERN				PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ID	FOREIGN KEY(TEMPLATE_ID)	REFERENCES TBPMO_TEMPLATE(GUID),
+	CONSTRAINT		UQ_TBPMO_TEMPLATE_PATTERN				UNIQUE (TEMPLATE_ID, NAME_PATTERN)
+)
+GO
+
+CREATE TRIGGER TBPMO_TEMPLATE_PATTERN_AFT_UPD ON TBPMO_TEMPLATE_PATTERN
+FOR UPDATE
+AS
+	UPDATE TBPMO_TEMPLATE_PATTERN SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_TEMPLATE_PATTERN.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.8/Columns.sql

@@ -0,0 +1,5 @@
+ALTER TABLE TBPMO_CONTROL_VALUE
+ALTER COLUMN VALUE NVARCHAR(MAX) NOT NULL
+
+ALTER TABLE TBPMO_WD_FORMVIEW_DOKTYPES
+ADD NAME_CONVENTION VARCHAR(100) NOT NULL DEFAULT ''

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.8/DROP_TEMPLATE_STRUCTURE.sql

@@ -0,0 +1,3 @@
+DROP TABLE TBPMO_TEMPLATE_ENTITY_PATTERN
+DROP TABLE TBPMO_TEMPLATE_ENTITY
+DROP TABLE TBPMO_TEMPLATE

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.8/PRPMO_CREATE_TEMP_VIEWS.sql

@@ -0,0 +1,36 @@
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_TEMP_VIEWS] 
+AS
+BEGIN
+	DECLARE
+		@FORM_ID		INTEGER,
+		@SQL_COMMAND	nvarchar(MAX),
+		@VIEW_NAME		nvarchar(30),
+		@DEL_SQL		NVARCHAR(100),
+		@CREATE_VIEW	NVARCHAR(MAX)							
+	DECLARE c_TASK CURSOR FOR 
+		SELECT FORM_ID,SQL_COMMAND
+		FROM TBPMO_FORM_SQL where SQL_COMMAND is not null
+  	OPEN c_TASK 
+    	FETCH NEXT FROM c_TASK INTO @FORM_ID,@SQL_COMMAND
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @VIEW_NAME = 'VWTEMP_PMO_FORM' + CONVERT(VARCHAR(3),@FORM_ID)
+			IF EXISTS(select * FROM sys.views where name = @VIEW_NAME)
+				BEGIN
+					SET @DEL_SQL = 'DROP VIEW dbo.' + QUOTENAME(@VIEW_NAME) + ''
+					EXEC sp_executesql @DEL_SQL
+				END
+			SELECT @SQL_COMMAND =  SQL_COMMAND FROM TBPMO_FORM_SQL where FORM_ID = @FORM_ID
+			SET @CREATE_VIEW = 'CREATE VIEW ' + @VIEW_NAME + ' AS ' + @SQL_COMMAND
+			
+			EXEC sp_executesql @CREATE_VIEW
+									        	
+			FETCH NEXT FROM c_TASK INTO @FORM_ID,@SQL_COMMAND
+		END
+	CLOSE c_TASK
+	DEALLOCATE c_TASK
+  END
+
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.9/19-TBPMO_FORM_CONSTR_QUICK_DISPLAY.sql

@@ -0,0 +1,102 @@
+CREATE TABLE TBPMO_FORM_CONSTR_QUICK_DISPLAY
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	CONSTRUCT_ID	INTEGER			NOT NULL,
+	CONTROL_ID		INTEGER			NOT NULL,
+	HEADLINE		BIT				NOT NULL	DEFAULT 0,
+	PICTURE			BIT				NOT NULL	DEFAULT 0,
+	SEQUENCE		INTEGER			NOT NULL	DEFAULT 0,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 		NOT NULL	DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_FORM_CONSTR_QUICK_DISPLAY					PRIMARY KEY (GUID),
+	CONSTRAINT		UNIQUE_CONSTRUCTID_CONTROL_ID						UNIQUE(CONSTRUCT_ID,CONTROL_ID),
+	CONSTRAINT		FK_TBPMO_FORM_CONSTR_QUICK_DISPLAY_CONSTRUCT_ID		FOREIGN KEY (CONSTRUCT_ID)  REFERENCES  TBPMO_FORM_CONSTRUCTOR_DETAIL (GUID),
+	CONSTRAINT		FK_TBPMO_FORM_CONSTR_QUICK_DISPLAY_CONTROL_ID		FOREIGN KEY (CONTROL_ID)  REFERENCES  TBPMO_CONTROL (GUID),
+)
+GO
+
+CREATE TRIGGER [dbo].[TBPMO_FORM_CONSTR_QUICK_DISPLAY_AFT_UPD] ON [dbo].[TBPMO_FORM_CONSTR_QUICK_DISPLAY]
+FOR UPDATE
+AS
+	DECLARE 
+		@GUID			INTEGER,
+		@CONSTRUCT_ID	INTEGER,
+		@HEADLINE		BIT
+	SELECT
+		@GUID = GUID,
+		@CONSTRUCT_ID = CONSTRUCT_ID,
+  		@HEADLINE = HEADLINE
+	FROM INSERTED
+
+	IF @HEADLINE = 1
+		BEGIN
+			UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 0 WHERE CONSTRUCT_ID = @CONSTRUCT_ID AND PICTURE = 0 AND GUID <> @GUID
+			EXEC dbo.PRPMO_CREATE_QUICK_SQL @CONSTRUCT_ID
+		END
+
+	UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_FORM_CONSTR_QUICK_DISPLAY.GUID = INSERTED.GUID
+GO
+--Insert trigger
+CREATE TRIGGER TBPMO_FORM_CONSTR_QUICK_DISPLAY_AFT_INS ON TBPMO_FORM_CONSTR_QUICK_DISPLAY
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@CONSTRUCT_ID		INTEGER,
+		@SEQUENCE			INTEGER,
+		@COUNT				INT
+
+	SELECT
+  		@CONSTRUCT_ID = CONSTRUCT_ID
+	FROM INSERTED
+
+	SELECT
+  		@SEQUENCE = MAX(SEQUENCE),
+		@COUNT = COUNT(*)
+	FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE HEADLINE = 0 AND PICTURE = 0 AND CONSTRUCT_ID = @CONSTRUCT_ID
+	
+	IF @COUNT = 1
+		UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1 FROM INSERTED WHERE TBPMO_FORM_CONSTR_QUICK_DISPLAY.GUID = INSERTED.GUID
+
+	IF @COUNT >  1
+		UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET SEQUENCE = @SEQUENCE + 1 FROM INSERTED WHERE TBPMO_FORM_CONSTR_QUICK_DISPLAY.GUID = INSERTED.GUID
+	
+	EXEC dbo.PRPMO_CREATE_QUICK_SQL @CONSTRUCT_ID
+
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+CREATE TRIGGER TBPMO_FORM_CONSTR_QUICK_DISPLAY_AFT_DEL ON TBPMO_FORM_CONSTR_QUICK_DISPLAY
+WITH EXECUTE AS CALLER
+FOR DELETE
+AS
+BEGIN TRY
+	DECLARE 
+		@CONSTRUCT_ID		INTEGER,
+		@COUNT				INT
+
+	SELECT
+  		@CONSTRUCT_ID = CONSTRUCT_ID
+	FROM deleted
+	SELECT
+		@COUNT = COUNT(*)
+	FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = @CONSTRUCT_ID
+
+	IF @COUNT >= 2
+		EXEC dbo.PRPMO_CREATE_QUICK_SQL @CONSTRUCT_ID
+	ELSE	
+		UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET SQL_QUICK_VIEW = '' WHERE GUID = @CONSTRUCT_ID
+
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.9/22-1-TBPMO_CONTROL_HINT.sql

@@ -0,0 +1,21 @@
+CREATE TABLE TBPMO_CONTROL_HINT
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	CONTROL_ID		INTEGER			NOT NULL,
+	HINT_COMMENT	VARCHAR(500)	NOT NULL,
+	LANGUAGE_CODE	VARCHAR(10)		NOT NULL	DEFAULT 'de-DE',
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_CONTROL_HINT						PRIMARY KEY (GUID),
+	CONSTRAINT		UNIQUE_CONTROL_ID_LANGUAGE_CODE_CONTROL_ID	UNIQUE(CONTROL_ID,LANGUAGE_CODE),
+	CONSTRAINT		FK_TBPMO_CONTROL_HINT_CONTROL_ID			FOREIGN KEY (CONTROL_ID)  REFERENCES  TBPMO_CONTROL (GUID),
+)
+GO
+
+CREATE TRIGGER TBPMO_CONTROL_HINT_AFT_UPD ON TBPMO_CONTROL_HINT
+FOR UPDATE
+AS
+	UPDATE TBPMO_CONTROL_HINT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_HINT.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.9/Columns.sql

@@ -0,0 +1,2 @@
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD SQL_QUICK_VIEW NVARCHAR(MAX) DEFAULT ''	NOT NULL

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.9/TBPMO_USER_CONSTR_VIEW_TYPE.sql

@@ -0,0 +1,25 @@
+CREATE TABLE TBPMO_USER_CONSTR_VIEW_TYPE
+(
+	GUID					INTEGER			NOT NULL	IDENTITY(1,1),
+	[USER_ID]				INTEGER			NOT NULL,
+	CONSTRUCTOR_DETAIL_ID	INTEGER			NOT NULL,
+	[ENTITY_ID]				INTEGER			NOT NULL,
+	VIEW_ID			INTEGER			NOT NULL	DEFAULT 1,  --1=TileView,2=Carousel,3=GridView
+	COMMENT			VARCHAR(300),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_USER_CONSTR_VIEW_TYPE						PRIMARY KEY (GUID),
+	CONSTRAINT		UNIQUE_CONSTRUCTOR_ID_VIEW_ID						UNIQUE(CONSTRUCTOR_DETAIL_ID,VIEW_ID,[USER_ID]),
+	CONSTRAINT		FK_TBPMO_USER_CONSTR_VIEW_TYPE_USER_ID				FOREIGN KEY (USER_ID)  REFERENCES  TBDD_USER (GUID),
+	CONSTRAINT		FK_TBPMO_USER_CONSTR_VIEW_TYPE_CONSTRUCTOR_ID		FOREIGN KEY (CONSTRUCTOR_DETAIL_ID)  REFERENCES  TBPMO_FORM_CONSTRUCTOR_DETAIL (GUID),
+	CONSTRAINT		FK_TBPMO_USER_CONSTR_VIEW_TYPE_ENTITY_ID			FOREIGN KEY ([ENTITY_ID])  REFERENCES  TBPMO_FORM (GUID),
+)
+GO
+
+CREATE TRIGGER TBPMO_USER_CONSTR_VIEW_TYPE_AFT_UPD ON TBPMO_USER_CONSTR_VIEW_TYPE
+FOR UPDATE
+AS
+	UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_USER_CONSTR_VIEW_TYPE.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.9/TBPMO_USER_WINDREAM_RESULTLIST_CONFIG.sql

@@ -0,0 +1,32 @@
+CREATE TABLE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG
+(
+	GUID					INTEGER			NOT NULL	IDENTITY(1,1),
+	[USER_ID]				INTEGER			NOT NULL,
+	CONSTRUCTOR_DETAIL_ID	INTEGER			NOT NULL,
+	COLUMN1					VARCHAR(50)		NOT NULL,
+	COLUMN1_WIDTH			INTEGER			NOT NULL,
+	COLUMN2					VARCHAR(50)		NOT NULL,
+	COLUMN2_WIDTH			INTEGER			NOT NULL,
+	COLUMN3					VARCHAR(50)		NOT NULL,
+	COLUMN3_WIDTH			INTEGER			NOT NULL,
+	COLUMN4					VARCHAR(50),
+	COLUMN4_WIDTH			INTEGER,
+	COLUMN5					VARCHAR(50),
+	COLUMN5_WIDTH			INTEGER,
+	COLUMN6					VARCHAR(50),
+	COLUMN6_WIDTH			INTEGER,
+	COLUMN7					VARCHAR(50),
+	COLUMN7_WIDTH			INTEGER,
+	COMMENT			VARCHAR(300),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_USER_WINDREAM_RESULTLIST_CONFIG					PRIMARY KEY (GUID),
+)
+GO
+
+CREATE TRIGGER TBPMO_USER_WINDREAM_RESULTLIST_CONFIG_AFT_UPD ON TBPMO_USER_WINDREAM_RESULTLIST_CONFIG
+FOR UPDATE
+AS
+	UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/1.9/TBPMO_WINDREAM_RESULTLIST_CONFIG.sql

@@ -0,0 +1,33 @@
+DROP TABLE TBPMO_WINDREAM_RESULTLIST_CONFIG
+
+CREATE TABLE TBPMO_WINDREAM_RESULTLIST_CONFIG
+(
+	GUID           			TINYINT,
+	COLUMN1					VARCHAR(50)		NOT NULL,
+	COLUMN1_WIDTH			INTEGER			NOT NULL,
+	COLUMN2					VARCHAR(50)		NOT NULL,
+	COLUMN2_WIDTH			INTEGER			NOT NULL,
+	COLUMN3					VARCHAR(50)		NOT NULL,
+	COLUMN3_WIDTH			INTEGER			NOT NULL,
+	COLUMN4					VARCHAR(50),
+	COLUMN4_WIDTH			INTEGER,
+	COLUMN5					VARCHAR(50),
+	COLUMN5_WIDTH			INTEGER,
+	COLUMN6					VARCHAR(50),
+	COLUMN6_WIDTH			INTEGER,
+	COLUMN7					VARCHAR(50),
+	COLUMN7_WIDTH			INTEGER,
+	COMMENT			VARCHAR(300),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_WINDREAM_RESULTLIST_CONFIG_GUID PRIMARY KEY(GUID),
+	CONSTRAINT 	  	CH_TBPMO_WINDREAM_RESULTLIST_CONFIG_GUID	CHECK(GUID = 1),
+)
+GO
+
+CREATE TRIGGER TBPMO_WINDREAM_RESULTLIST_CONFIG_AFT_UPD ON TBPMO_WINDREAM_RESULTLIST_CONFIG
+FOR UPDATE
+AS
+	UPDATE TBPMO_WINDREAM_RESULTLIST_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WINDREAM_RESULTLIST_CONFIG.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.0/columns.sql

@@ -0,0 +1,2 @@
+ALTER TABLE TBPMO_FORM
+ADD POS_ENTITY INTEGER DEFAULT '0'	NOT NULL

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.0/procedure_TempViews.sql

@@ -0,0 +1,22 @@
+UPDATE TBPMO_KONFIGURATION SET SQL_RECORD_SQL1 = 'SELECT T.GUID AS [Record-ID],T.FORM_ID AS [Form-ID],' where GUID = 1
+
+DECLARE	@FORM_ID		INT
+		
+DECLARE	c_FORM	CURSOR FOR SELECT GUID FROM TBPMO_FORM 
+OPEN c_FORM 
+    FETCH NEXT FROM c_FORM INTO @FORM_ID
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			EXEC PRPMO_CREATE_SQL @FORM_ID
+			
+			FETCH NEXT FROM c_FORM INTO @FORM_ID
+		END
+
+	CLOSE c_FORM
+    DEALLOCATE c_FORM
+
+
+GO
+
+EXEC	[dbo].[PRPMO_CREATE_TEMP_VIEWS]

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.1/DROP UQ_USER_FOLLUP_ID.sql

@@ -0,0 +1,8 @@
+USE [DD_ECM]
+GO
+
+/****** Object:  Index [UQ_USER_FOLLUP_ID]    Script Date: 07.12.2015 11:47:08 ******/
+ALTER TABLE [dbo].[TBPMO_FOLLUPEMAIL_RECORD] DROP CONSTRAINT [UQ_USER_FOLLUP_ID]
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.1/Trigger.sql

@@ -0,0 +1,31 @@
+--Insert trigger
+CREATE TRIGGER [dbo].[TBPMO_CONTROL_SCREEN_AFT_INS] ON [dbo].[TBPMO_CONTROL_SCREEN]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@GUID				INTEGER,
+		@CONTROL_ID			INTEGER,
+		@ENTITY_ID			INTEGER,
+		@SEQUENCE			INTEGER
+	SELECT
+  		@GUID = GUID,
+		@CONTROL_ID = CONTROL_ID
+	FROM INSERTED
+
+	SELECT 
+		@ENTITY_ID = FORM_ID 
+	FROM TBPMO_CONTROL WHERE [GUID] = @CONTROL_ID
+
+	SELECT @SEQUENCE = MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = @ENTITY_ID)
+
+	UPDATE TBPMO_CONTROL_SCREEN SET TAB_INDEX = @SEQUENCE + 1 FROM INSERTED WHERE TBPMO_CONTROL_SCREEN.GUID = INSERTED.GUID
+
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.2/2-TBPMO_FOLDERWATCH_USER.sql

@@ -0,0 +1,21 @@
+CREATE TABLE TBPMO_FOLDERWATCH_USER
+(
+	GUID			INTEGER	IDENTITY(0,1), -- Eindeutiger Tabellenschlüssel
+	[USER_ID]		INT										NOT NULL,
+	FOLDER_PATH		VARCHAR(800)							NOT NULL,
+	FOLDER_TYPE		VARCHAR(20)		DEFAULT 'DEFAULT'		NOT NULL,
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT'		NOT NULL,
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO		VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_FOLDERWATCH_USER	PRIMARY KEY (GUID),
+	CONSTRAINT		UQ_TBPMO_FOLDERWATCH_USER	UNIQUE([USER_ID],FOLDER_PATH),
+	CONSTRAINT		FK_TBPMO_FOLDERWATCH_USER_USER_ID	FOREIGN KEY([USER_ID])	REFERENCES TBDD_USER(GUID),
+)
+GO
+CREATE TRIGGER TBPMO_FOLDERWATCH_USER_AFT_UPD ON TBPMO_FOLDERWATCH_USER
+FOR UPDATE
+AS
+	UPDATE TBPMO_FOLDERWATCH_USER SET CHANGED_WHEN = GETDATE() FROM INSERTED 
+	WHERE TBPMO_FOLDERWATCH_USER.GUID = INSERTED.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.2/VWPMO_FOLLOW_UP_EMAIL.sql

@@ -0,0 +1,54 @@
+ALTER VIEW [dbo].[VWPMO_FOLLOW_UP_EMAIL] AS
+SELECT 
+	T1.GUID FOLLOW_UP_ID,
+	T1.NAME,
+	T1.FOLLOW_UP_SEQUENCE,
+	T1.FOLLOW_UP_DAYS,
+	T1.FOLLOW_UP_TIME_SPAN,
+	CONVERT(CHAR(5),GETDATE(),108) NOW_TIME,
+	T.RECORD_ID,
+	CONVERT(DATE,T.VALUE) VALUE,
+	T1.EMAIL_SUBJECT,
+	T1.EMAIL_BODY,
+	T1.PROCESS_SELECT1,
+	T1.PROCESS_SELECT2,
+	T1.PROCESS_SELECT3,
+	T1.PROCESS_SELECT4,
+	T1.PROCESS_SELECT5,
+	T1.PROCESS_SELECT6,
+	T1.PROCESS_SELECT7,
+	T1.PROCESS_SELECT8,
+	T1.PROCESS_SELECT9,
+	T1.PROCESS_SELECT10,
+	T1.TIME_UNITY,
+	T1.TIME_DIST,
+	CASE T1.TIME_UNITY 
+		WHEN 'Month' THEN 
+			DATEDIFF(month, getdate(),convert(Date,T.value))
+		WHEN 'Week' THEN 
+			DATEDIFF(week, getdate(),convert(Date,T.value))
+		END TIME_SPAN,
+	T1.DEPENDENT_DATE_CTRL_ID,
+	T1.DEPENDENT_DONE_CTRL_ID,
+	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) DONE_VALUE,
+	T2.GUID AS CONSTRUCTOR_ID,
+	T2.FORM_TITLE AS CONSTRUCTOR_TITLE
+FROM 
+	VWPMO_VALUES T, 
+	TBPMO_FOLLOW_UP_EMAIL T1,
+	TBPMO_FORM_CONSTRUCTOR T2
+WHERE 
+	T1.ACTIVE = 1 AND
+	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) = 'False' And
+	T.CONTROL_ID = T1.DEPENDENT_DATE_CTRL_ID AND
+	T1.CONSTRUCTOR_ID = T2.GUID AND
+	T1.TIME_SPAN =
+	CASE T1.TIME_UNITY 
+		WHEN 'Month' THEN 
+			DATEDIFF(month, getdate(),convert(Date,T.value))
+		WHEN 'Week' THEN 
+			DATEDIFF(week, getdate(),convert(Date,T.value))
+    END
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.2/VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD.sql

@@ -0,0 +1,27 @@
+ALTER VIEW VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD AS 
+SELECT 
+	T.GUID FOLLOW_UP_ID,
+	T1.RECORD_ID,
+	T2.GUID AS ENTITY_ID,
+	T.NAME,
+	T.FOLLOW_UP_SEQUENCE,
+	T.FOLLOW_UP_DAYS,
+	T.FOLLOW_UP_TIME_SPAN,
+	CONVERT(DATE,T1.VALUE) RECORD_VALUE,
+	T.EMAIL_SUBJECT,
+	T.EMAIL_BODY,
+	T.DEPENDENT_DATE_CTRL_ID,
+	T.DEPENDENT_DONE_CTRL_ID,
+	T3.GUID AS CONSTRUCTOR_ID,
+	T3.FORM_TITLE AS CONSTRUCTOR_TITLE
+FROM 
+	TBPMO_FOLLOW_UP_EMAIL T,
+	VWPMO_VALUES T1,
+	TBPMO_FORM T2,
+	TBPMO_FORM_CONSTRUCTOR T3
+WHERE 
+	T.ACTIVE = 1 AND
+	T.DEPENDENT_DATE_CTRL_ID = T1.CONTROL_ID AND
+	T1.FORM_ID = T2.GUID AND
+	T.CONSTRUCTOR_ID = T3.GUID
+	

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.2/colums.sql

@@ -0,0 +1,10 @@
+
+ALTER TABLE TBPMO_FILES_USER
+ADD FILENAME_ONLY VARCHAR(100) DEFAULT ''	NOT NULL
+GO
+ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
+ADD CONSTRUCTOR_ID INTEGER DEFAULT '1'	NOT NULL
+GO
+ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
+ADD CONSTRAINT FK_TBPMO_FOLLOW_UP_EMAIL_CONSTR_ID FOREIGN KEY (CONSTRUCTOR_ID)
+    REFERENCES TBPMO_FORM_CONSTRUCTOR(GUID)

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.2/IDX.sql

@@ -0,0 +1,4 @@
+CREATE NONCLUSTERED INDEX [IDXTBPMO_CONTROL_VALUE_RECID_VALUE]
+ON [dbo].[TBPMO_CONTROL_VALUE] ([CONTROL_ID])
+INCLUDE ([RECORD_ID],[VALUE])
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.2/PRDD_COPY_RECORD.sql

@@ -0,0 +1,27 @@
+CREATE PROCEDURE [dbo].[PRDD_COPY_RECORD](@pRECORD_ID INT,@WHO VARCHAR(50)) --,@pMODULE_ID INT)
+AS
+DECLARE	@NEW_RECORD_ID	INT
+		
+BEGIN TRY 
+	INSERT INTO TBPMO_RECORD (
+		FORM_ID,ADDED_WHO) 
+	SELECT FORM_ID,@WHO FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
+
+	SELECT @NEW_RECORD_ID = MAX(GUID) FROM TBPMO_RECORD
+	
+	INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT) SELECT
+	RECORD1_ID,@NEW_RECORD_ID,COMMENT FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = @pRECORD_ID
+
+	INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) SELECT
+	CONTROL_ID,@NEW_RECORD_ID,VALUE,@WHO FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @pRECORD_ID
+
+	INSERT INTO TBPMO_CONTROL_IMAGE(CONTROL_ID,RECORD_ID,IMG,ADDED_WHO) SELECT
+	CONTROL_ID,@NEW_RECORD_ID,IMG,@WHO FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = @pRECORD_ID
+
+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
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.2/Update Skript.sql

@@ -0,0 +1,69 @@
+ALTER TABLE TBPMO_RECORD
+ADD RECORD_ENTITY_ID INTEGER NOT NULL DEFAULT 0
+GO
+
+ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID	INTEGER,
+		@MAX_ID		INTEGER,
+		@FORM_ID	INTEGER,
+		@WF_ID		INTEGER,
+		@PARENT_ID	INTEGER
+	SELECT
+  		@FORM_ID = FORM_ID,
+		@RECORD_ID = GUID
+	FROM INSERTED
+
+	SELECT
+  		@MAX_ID = MAX(RECORD_ENTITY_ID) + 1
+	FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID
+
+	UPDATE TBPMO_RECORD SET 
+		RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
+
+	--Überprüfen ob dieser Rec
+	IF EXISTS(
+		SELECT * FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID
+			)
+		BEGIN
+			EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
+		END
+
+	--EXEC DBO.PRPMO_CREATE_RECORD_CONNECTIONS @FORM_ID,@RECORD_ID
+	--SELECT @PARENT_ID = PARENT_ID FROM TBPMO_FORM WHERE GUID = @FORM_ID
+	--IF @PARENT_ID > 0
+	--	INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID) VALUES (@PARENT_ID,@RECORD_ID)
+
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+DECLARE
+		@GUID		INTEGER,
+		@FORM_ID	INTEGER	,
+		@MAX_ID		INTEGER					
+	DECLARE c_RECORD CURSOR FOR 
+		SELECT GUID,FORM_ID FROM TBPMO_RECORD ORDER BY GUID
+  	OPEN c_RECORD 
+    	FETCH NEXT FROM c_RECORD INTO @GUID,@FORM_ID
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SELECT
+  				@MAX_ID = MAX(RECORD_ENTITY_ID) + 1
+			FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID
+
+			UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID WHERE GUID = @GUID
+								        	
+			FETCH NEXT FROM c_RECORD INTO @GUID,@FORM_ID
+		END
+	CLOSE c_RECORD
+	DEALLOCATE c_RECORD
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.3/2.4.3.sql

@@ -0,0 +1,103 @@
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR
+ADD LANGUAGE VARCHAR(5) NOT NULL DEFAULT 'de-DE'
+GO
+DROP TABLE TBPMO_CONTROL_LANGUAGE
+CREATE TABLE TBPMO_CONTROL_LANGUAGE
+( 
+	GUID				INT				IDENTITY(1,1),              		    -- Eindeutiger Tabellenschlüssel,
+	LANGUAGE_TYPE		VARCHAR(5)		NOT NULL,
+	CONTROL_SCREEN_ID	INTEGER			NOT NULL,
+	CAPTION				VARCHAR(100)	NOT NULL,
+	HINT				VARCHAR(500),
+	ADDED_WHO			VARCHAR(50)		DEFAULT 'Digital Data'	NOT NULL,
+	ADDED_WHEN			DATETIME		DEFAULT GETDATE(),
+	CHANGED_WHO			VARCHAR(50),
+	CHANGED_WHEN		DATETIME,
+	CONSTRAINT		PK_TBPMO_CONTROL_LANGUAGE		PRIMARY KEY(GUID),
+	CONSTRAINT		FK_TBPMO_CONTROL_LANGUAGE_CTRLSCR_ID	FOREIGN KEY(CONTROL_SCREEN_ID)	REFERENCES TBPMO_CONTROL_SCREEN(GUID)
+)
+GO
+------------------------------------------------------------------------------
+
+CREATE TRIGGER TBPMO_CONTROL_LANGUAGE_AFT_UPD ON TBPMO_CONTROL_LANGUAGE
+FOR UPDATE
+AS
+BEGIN 
+	UPDATE TBPMO_CONTROL_LANGUAGE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_LANGUAGE.GUID = INSERTED.GUID
+END		
+GO
+
+CREATE TABLE TBPMO_LANGUAGE_OBJECT
+( 
+	GUID				INT				IDENTITY(1,1),              		    -- Eindeutiger Tabellenschlüssel,
+	LANGUAGE_TYPE		VARCHAR(5)		NOT NULL,
+	SCREEN_ID			INTEGER			NOT NULL,
+	PMO_OBJECT_NAME		VARCHAR(100)	NOT NULL,
+	CAPTION				VARCHAR(100)	NOT NULL,
+	HINT				VARCHAR(500),
+	ADDED_WHO			VARCHAR(50)		DEFAULT 'Digital Data'	NOT NULL,
+	ADDED_WHEN			DATETIME		DEFAULT GETDATE(),
+	CHANGED_WHO			VARCHAR(50),
+	CHANGED_WHEN		DATETIME,
+	CONSTRAINT		PK_TBPMO_LANGUAGE_OBJECT		PRIMARY KEY(GUID),
+	CONSTRAINT		FK_TBPMO_LANGUAGE_OBJECT_SCREEN_ID	FOREIGN KEY(SCREEN_ID)	REFERENCES TBPMO_SCREEN(GUID)
+)
+GO
+------------------------------------------------------------------------------
+
+CREATE TRIGGER TBPMO_LANGUAGE_OBJECT_AFT_UPD ON TBPMO_LANGUAGE_OBJECT
+FOR UPDATE
+AS
+BEGIN 
+	UPDATE TBPMO_LANGUAGE_OBJECT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_LANGUAGE_OBJECT.GUID = INSERTED.GUID
+END		
+GO
+
+CREATE FUNCTION [dbo].[FNPMO_GETOBJECTCAPTION](@pLANG_TYPE VARCHAR(5), @pOBJ_NAME VARCHAR(100), @pSCREEN_ID INT)
+RETURNS VARCHAR(100)
+AS
+BEGIN
+	DECLARE @PMOOBJ_CAPTION VARCHAR(100)
+
+	SELECT @PMOOBJ_CAPTION = CAPTION FROM 
+		TBPMO_LANGUAGE_OBJECT AS T 
+	WHERE 
+		T.LANGUAGE_TYPE = @pLANG_TYPE AND
+		T.SCREEN_ID = @pSCREEN_ID AND
+		T.PMO_OBJECT_NAME = @pOBJ_NAME
+
+  RETURN(ISNULL(@PMOOBJ_CAPTION,''))
+END
+GO
+
+ALTER TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_AFT_UPD] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
+FOR UPDATE
+AS
+BEGIN
+	DECLARE @FORM_TITLE	VARCHAR(50),
+	@LANGUAGE VARCHAR(5), @CHANGED_WHO VARCHAR(50),
+	@GUID INTEGER,
+	@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@LANGUAGE = [LANGUAGE],
+		@CHANGED_WHO = CHANGED_WHO
+	FROM INSERTED
+
+	SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
+
+	UPDATE TBPMO_FORM_CONSTRUCTOR SET CHANGED_WHEN = GETDATE() 
+	FROM INSERTED WHERE TBPMO_FORM_CONSTRUCTOR.GUID = INSERTED.GUID
+
+	If exists(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+	LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
+		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 = 1
+	ELSE
+		INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+			(@LANGUAGE,1,@PMO_OBJECT_NAME,@FORM_TITLE)
+END
+GO
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.1/1.Update 2.4.4.1.sql

@@ -0,0 +1,250 @@
+ALTER TABLE TBPMO_FORM_VIEW
+ADD LANGUAGE VARCHAR(5) NOT NULL DEFAULT 'de-DE'
+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)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@LANGUAGE = [LANGUAGE],
+		@SCREEN_ID = SCREEN_ID,
+		@CHANGED_WHO = CHANGED_WHO
+	FROM INSERTED
+
+	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 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
+		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 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 TRIGGER [dbo].[TBPMO_FORM_VIEW_AFT_INS] ON [dbo].[TBPMO_FORM_VIEW]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@FORM_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@LANGUAGE = [LANGUAGE],
+		@SCREEN_ID = SCREEN_ID,
+		@ADDED_WHO = CHANGED_WHO
+	FROM INSERTED
+
+	SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
+		
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
+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_FORM_CONSTRUCTOR_AFT_INS] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@FORM_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@LANGUAGE = [LANGUAGE],
+		@ADDED_WHO = CHANGED_WHO
+	FROM INSERTED
+
+	SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
+		
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,1,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T1.GUID FORM_VIEW_ID,
+	T1.SCREEN_ID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.SQL_QUICK_VIEW,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID,
+	T2.LOAD_DIRECT
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+GO
+
+
+DECLARE	@ID		INTEGER,
+		@SCREEN_ID			INT,
+		@FORM_TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100)
+		
+DECLARE	c_FORM_VIEW	CURSOR FOR 
+SELECT GUID ,SCREEN_ID, FORM_TITLE, LANGUAGE FROM TBPMO_FORM_VIEW
+
+
+BEGIN
+	OPEN c_FORM_VIEW 
+    FETCH NEXT FROM c_FORM_VIEW INTO @ID, @SCREEN_ID,@FORM_TITLE,@LANGUAGE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@ID)
+		
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+			LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID)
+				INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+				(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE)
+			
+			FETCH NEXT FROM c_FORM_VIEW INTO @ID, @SCREEN_ID,@FORM_TITLE,@LANGUAGE
+		END
+	CLOSE c_FORM_VIEW
+    DEALLOCATE c_FORM_VIEW
+
+END
+GO
+--############## DOKUMENTART #####################
+ALTER TABLE TBDD_DOKUMENTART
+ADD LANGUAGE VARCHAR(5) NOT NULL DEFAULT 'de-DE'
+GO
+
+ALTER TRIGGER [dbo].[TBDD_DOKUMENTART_AFT_UPD] ON [dbo].[TBDD_DOKUMENTART]
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@DA_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@CHANGED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@DA_TITLE = BEZEICHNUNG,
+		@LANGUAGE = [LANGUAGE],
+		@SCREEN_ID = 1,
+		@CHANGED_WHO = GEANDERTWER
+	FROM INSERTED
+
+	SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@GUID)
+
+	 UPDATE TBDD_DOKUMENTART SET GEAENDERTWANN = GETDATE() FROM INSERTED 
+	 WHERE TBDD_DOKUMENTART.GUID = INSERTED.GUID
+
+	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 = @DA_TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
+			PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+			LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
+	ELSE
+		INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+				(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@DA_TITLE)
+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].[TBDD_DOKUMENTART_AFT_INS] ON [dbo].[TBDD_DOKUMENTART]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@DA_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@DA_TITLE = BEZEICHNUNG,
+		@LANGUAGE = [LANGUAGE],
+		@SCREEN_ID = 1,
+		@ADDED_WHO = ERSTELLTWER
+	FROM INSERTED
+
+	SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@GUID)
+		
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@DA_TITLE,@ADDED_WHO)
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.1/2.4.6.1.sql

@@ -0,0 +1,572 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.1' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBPMO_FORM
+ADD REDUNDANT_ENTITY INTEGER NOT NULL DEFAULT 0
+GO
+ALTER TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
+ADD EDITABLE BIT NOT NULL DEFAULT 0
+GO
+ALTER PROCEDURE PRPMO_COPY_ENTITY (@pFORM_ID INT, @pADDEDWHO VARCHAR(50))
+AS
+DECLARE	
+		@NEW_FORM_ID INT,
+		@PARENT_ID INT,
+		@NAME		VARCHAR(100),
+		@LEVEL		VARCHAR(10),
+		@SHOW_FORM_CONSTR	BIT,
+		@FORM_TYPE_ID INT,
+		@CONTROL_GUID INTEGER,
+		@CONTROL_TYPE_ID INT,
+		@CONTROL_NAME VARCHAR(100)
+		,@COL_NAME VARCHAR(100)
+		,@REQUIRED BIT
+		,@DEFAULT_VALUE VARCHAR(100)
+		,@SQL_COMMAND_1 VARCHAR(2000)
+		,@SQL_COMMAND_2 VARCHAR(2000)
+		,@CONNECTION_ID_1 SMALLINT
+		,@CONNECTION_ID_2 SMALLINT
+		,@READ_ONLY BIT
+		,@VALIDATION BIT
+		,@MULTILINE BIT
+		,@PARENT_CONTROL_ID INT
+		,@MASTER_DATA_ID INT
+		,@FORMAT_TYPE VARCHAR(50)
+		,@SHOW_COLUMN BIT
+		,@STATIC_LIST VARCHAR(2000)
+
+		SELECT @PARENT_ID = PARENT_ID, @NAME = 'COPY_' + NAME,@LEVEL = [LEVEL],@SHOW_FORM_CONSTR =  SHOW_FORM_CONSTRUCT, @FORM_TYPE_ID = FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = @pFORM_ID
+		
+		INSERT INTO TBPMO_FORM (
+			PARENT_ID,NAME,LEVEL,ADDED_WHO,SHOW_FORM_CONSTRUCT,FORM_TYPE_ID) VALUES (
+			@PARENT_ID,@NAME,@LEVEL,@pADDEDWHO,@SHOW_FORM_CONSTR,@FORM_TYPE_ID)
+
+		SELECT @NEW_FORM_ID =  MAX(GUID) FROM TBPMO_FORM
+		INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO) VALUES 
+			(@NEW_FORM_ID, 1, 'UNDEFINED_FORMTITLE', '', @pADDEDWHO)
+
+DECLARE	c_CONTROL	CURSOR FOR SELECT GUID,[CONTROL_TYPE_ID]
+							  ,'COPY_' + [NAME]
+							  ,[COL_NAME]
+							  ,[REQUIRED]
+							  ,[DEFAULT_VALUE]
+							  ,[SQL_COMMAND_1]
+							  ,[SQL_COMMAND_2]
+							  ,[CONNECTION_ID_1]
+							  ,[CONNECTION_ID_2]
+							  ,[READ_ONLY]
+							  ,[VALIDATION]
+							  ,[MULTILINE]
+							  ,[PARENT_CONTROL_ID]
+							  ,[MASTER_DATA_ID]
+							  ,[FORMAT_TYPE]
+							  ,[SHOW_COLUMN],STATIC_LIST FROM TBPMO_CONTROL WHERE FORM_ID = @pFORM_ID ORDER BY PARENT_CONTROL_ID
+
+
+BEGIN
+	OPEN c_CONTROL 
+    FETCH NEXT FROM c_CONTROL INTO @CONTROL_GUID,@CONTROL_TYPE_ID,
+		@CONTROL_NAME 
+		,@COL_NAME
+		,@REQUIRED
+		,@DEFAULT_VALUE
+		,@SQL_COMMAND_1
+		,@SQL_COMMAND_2
+		,@CONNECTION_ID_1
+		,@CONNECTION_ID_2
+		,@READ_ONLY
+		,@VALIDATION
+		,@MULTILINE
+		,@PARENT_CONTROL_ID
+		,@MASTER_DATA_ID
+		,@FORMAT_TYPE
+		,@SHOW_COLUMN
+		,@STATIC_LIST
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+		IF @PARENT_CONTROL_ID > 0
+			BEGIN
+				DECLARE @CTRLNAME VARCHAR(100)
+				SELECT @CTRLNAME = 'COPY_' + [NAME] FROM TBPMO_CONTROL WHERE GUID = @PARENT_CONTROL_ID
+				PRINT 'PCTRID = ' + CONVERT(VARCHAR(10),@PARENT_CONTROL_ID)
+				PRINT '@CTRLNAME = ' + @CTRLNAME
+				SELECT @PARENT_CONTROL_ID = GUID FROM TBPMO_CONTROL WHERE NAME = @CTRLNAME AND FORM_ID = @NEW_FORM_ID
+				PRINT 'NEW PCTRID = ' + CONVERT(VARCHAR(10),@PARENT_CONTROL_ID)
+			END
+			
+			INSERT INTO TBPMO_CONTROL (
+				FORM_ID
+				,[CONTROL_TYPE_ID]
+				,[NAME]
+				,[COL_NAME]
+				,[REQUIRED]
+				,[DEFAULT_VALUE]
+				,[SQL_COMMAND_1]
+				,[SQL_COMMAND_2]
+				,[CONNECTION_ID_1]
+				,[CONNECTION_ID_2]
+				,[READ_ONLY]
+				,[VALIDATION]
+				,[MULTILINE]
+				,[PARENT_CONTROL_ID]
+				,[MASTER_DATA_ID]
+				,[FORMAT_TYPE]
+				,[SHOW_COLUMN]
+				,[STATIC_LIST]
+				,ADDED_WHO
+			) VALUES (
+				@NEW_FORM_ID
+				,@CONTROL_TYPE_ID
+				,@CONTROL_NAME 
+				,@COL_NAME
+				,@REQUIRED
+				,@DEFAULT_VALUE
+				,@SQL_COMMAND_1
+				,@SQL_COMMAND_2
+				,@CONNECTION_ID_1
+				,@CONNECTION_ID_2
+				,@READ_ONLY
+				,@VALIDATION
+				,@MULTILINE
+				,@PARENT_CONTROL_ID
+				,@MASTER_DATA_ID
+				,@FORMAT_TYPE
+				,@SHOW_COLUMN
+				,@STATIC_LIST
+				,@pADDEDWHO
+			)
+				DECLARE @NEW_CONTROLID INTEGER
+				SELECT @NEW_CONTROLID = MAX(GUID) FROM TBPMO_CONTROL
+
+				DECLARE
+				   @SCREEN_ID	INTEGER
+				  ,@CONTROL_TEXT VARCHAR(100)
+				  ,@X_LOC	FLOAT
+				  ,@Y_LOC	FLOAT
+				  ,@HEIGHT INTEGER
+				  ,@WIDTH INTEGER
+				  ,@FONT_FAMILY VARCHAR(50)
+				  ,@FONT_COLOR INTEGER
+				  ,@FONT_SIZE INTEGER
+				  ,@FONT_STYLE INTEGER
+				  ,@TAB_INDEX INTEGER
+				  ,@TAB_STOP BIT
+				  ,@BACK_COLOR INTEGER
+
+				 SELECT @SCREEN_ID = [SCREEN_ID], @CONTROL_TEXT = [CONTROL_TEXT],@X_LOC = [X_LOC],
+					@Y_LOC = [Y_LOC],@HEIGHT = [HEIGHT], @WIDTH = [WIDTH],@FONT_FAMILY = [FONT_FAMILY],
+					@FONT_COLOR = [FONT_COLOR], @FONT_SIZE = [FONT_SIZE],@FONT_STYLE = [FONT_STYLE],
+					@TAB_INDEX = [TAB_INDEX], @TAB_STOP = [TAB_STOP], @BACK_COLOR = [BACK_COLOR] FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @CONTROL_GUID
+				INSERT INTO TBPMO_CONTROL_SCREEN (
+					CONTROL_ID,
+					SCREEN_ID
+					,CONTROL_TEXT
+					,X_LOC
+					,Y_LOC
+					,HEIGHT
+					,WIDTH
+					,FONT_FAMILY
+					,FONT_COLOR
+					,FONT_SIZE
+					,FONT_STYLE
+					,TAB_INDEX 
+					,TAB_STOP
+					,BACK_COLOR
+					,ADDED_WHO) 
+				VALUES(
+					@NEW_CONTROLID
+					,@SCREEN_ID
+					,@CONTROL_TEXT
+					,@X_LOC
+					,@Y_LOC
+					,@HEIGHT
+					,@WIDTH
+					,@FONT_FAMILY
+					,@FONT_COLOR
+					,@FONT_SIZE
+					,@FONT_STYLE
+					,@TAB_INDEX
+					,@TAB_STOP
+					,@BACK_COLOR
+					,@pADDEDWHO
+				)
+				DECLARE @NEW_ID INT
+				SELECT @NEW_ID = MAX(GUID) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_TEXT = @CONTROL_TEXT
+				
+				INSERT INTO TBPMO_CONTROL_LANGUAGE ([LANGUAGE_TYPE] ,[CONTROL_SCREEN_ID],[CAPTION],[ADDED_WHO]) VALUES (
+				'de-DE',@NEW_ID,@CONTROL_TEXT,@pADDEDWHO)
+				INSERT INTO TBPMO_CONTROL_LANGUAGE ([LANGUAGE_TYPE] ,[CONTROL_SCREEN_ID],[CAPTION],[ADDED_WHO]) VALUES (
+				'en-EN',@NEW_ID,@CONTROL_TEXT,@pADDEDWHO)
+			
+			FETCH NEXT FROM c_CONTROL INTO @CONTROL_GUID,@CONTROL_TYPE_ID,
+					@CONTROL_NAME 
+					,@COL_NAME
+					,@REQUIRED
+					,@DEFAULT_VALUE
+					,@SQL_COMMAND_1
+					,@SQL_COMMAND_2
+					,@CONNECTION_ID_1
+					,@CONNECTION_ID_2
+					,@READ_ONLY
+					,@VALIDATION
+					,@MULTILINE
+					,@PARENT_CONTROL_ID
+					,@MASTER_DATA_ID
+					,@FORMAT_TYPE
+					,@SHOW_COLUMN
+					,@STATIC_LIST
+		END
+
+	CLOSE c_CONTROL
+    DEALLOCATE c_CONTROL
+END
+
+ALTER FUNCTION [dbo].[FNPMO_DOC_GET_IDX](@pDOCID INTEGER, @pENTITY INTEGER, @DOCIDX VARCHAR(20))
+RETURNS VARCHAR(250)
+AS
+BEGIN
+	DECLARE @HEADER_CAPTION VARCHAR(30), @VALUE VARCHAR(250), @RESULT VARCHAR(250), @REDUNDANT_ID INTEGER
+	SELECT @HEADER_CAPTION = HEADER_CAPTION FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @pENTITY AND COLUMN_VIEW = @DOCIDX
+	IF @HEADER_CAPTION IS NULL
+		BEGIN
+			SELECT @REDUNDANT_ID = REDUNDANT_ENTITY FROM TBPMO_FORM WHERE GUID = @pENTITY
+			IF @REDUNDANT_ID <> 0	
+				SELECT @RESULT = dbo.FNPMO_DOC_GET_IDX(@pDOCID,@REDUNDANT_ID,@DOCIDX)
+			ELSE
+				SET @RESULT = 'NO CONFIGURATION'
+		END
+	ELSE
+		BEGIN
+			SELECT @VALUE =  VALUE FROM VWPMO_DOC_INDICES WHERE DocID = @pDOCID AND COLUMN_CAPTION = @HEADER_CAPTION
+			IF @VALUE IS NOT NULL
+				SET @RESULT = @VALUE
+			ELSE
+				SET @RESULT = ''
+		END
+	RETURN @RESULT
+END
+GO
+ALTER TRIGGER [dbo].[TBPMO_DOC_RECORD_LINK_AFT_INS] ON [dbo].[TBPMO_DOC_RECORD_LINK]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID		INTEGER,
+		@DOC_ID			INTEGER,
+		@ADDED_WHO		VARCHAR(50),
+		@ENTITY_ID		INTEGER
+	SELECT
+  		@RECORD_ID = RECORD_ID,
+		@DOC_ID = DOC_ID,
+		@ADDED_WHO = ADDED_WHO	
+	FROM INSERTED
+
+	SELECT @ENTITY_ID = FORM_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID
+	--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,CONFIG_ID,VALUE,ADDED_WHO) 
+			SELECT @DOC_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
+	/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
+	--DECLARE 
+	--	@NODE_CONFIG_ID	INTEGER,
+	--	@MATERIAL	VARCHAR(50)
+
+	--IF @ADDED_WHO <> 'ZSG-IMPORT'
+	--	BEGIN
+	--		SELECT @NODE_CONFIG_ID = NODE_CONFIG_ID FROM TBPMO_STRUCTURE_NODES WHERE GUID = (SELECT NODE_GUID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID )
+	--		IF @NODE_CONFIG_ID IN (7,8,14)
+
+	--			IF EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = 14 AND RECORD_ID = @RECORD_ID)
+	--				BEGIN
+	--					DECLARE @RECID_LINK INTEGER
+	--					SELECT @MATERIAL = UPPER(LTRIM(RTRIM(VALUE))) FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = 14 AND RECORD_ID = @RECORD_ID
+	--					DECLARE curs_RECORD CURSOR LOCAL FOR 
+	--						SELECT RECORD_ID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = 14 AND UPPER(LTRIM(RTRIM(VALUE))) = @MATERIAL AND RECORD_ID <> @RECORD_ID
+	--					OPEN curs_RECORD 
+	--					FETCH NEXT FROM curs_RECORD INTO @RECID_LINK
+	--					WHILE @@FETCH_STATUS = 0
+	--						BEGIN
+	--							IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @DOC_ID AND RECORD_ID = @RECID_LINK)
+	--								INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT, ADDED_WHO) VALUES
+	--								(@RECID_LINK,@DOC_ID,'MATERIAL INSERT',@ADDED_WHO)
+	--							FETCH NEXT FROM curs_RECORD INTO @RECID_LINK
+	--						END
+					
+	--					CLOSE curs_RECORD
+	--					DEALLOCATE curs_RECORD
+	--				END
+	--	END
+	/*###### KUNDEN-INDIVIDUELL - ENDE ####################################################################*/
+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
+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 CONSTRUCT_ID = 2 AND 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')
+					
+			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 TBPMO_RIGHT_USER
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	USER_ID			INTEGER			NOT NULL,
+	ENTITY_ID		INTEGER			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
+CREATE 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
+ALTER TABLE TBPMO_KONFIGURATION
+ADD WIKI_STRING VARCHAR(500) NOT NULL DEFAULT ''
+GO
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_RESULTFILE](@pDOCID INT, @pRECORDID INT, @DELETE_FILE INT)
+AS
+BEGIN TRY
+	DECLARE @COUNT INT
+	SELECT @COUNT = COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @pDOCID
+	IF @COUNT = 1 OR (@DELETE_FILE = 1 AND @COUNT > 1)
+		BEGIN
+			DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
+			DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
+			DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
+		END
+	ELSE IF @COUNT > 1 and @DELETE_FILE = 0
+		BEGIN
+			DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID AND RECORD_ID = @pRECORDID
+		END
+	ELSE IF @DELETE_FILE = 1
+		BEGIN
+			DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
+			DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
+			DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
+		END
+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
+CREATE TRIGGER TBPMO_DOCSEARCH_RESULTLIST_CONFIG_AFT_DEL ON TBPMO_DOCSEARCH_RESULTLIST_CONFIG
+FOR DELETE
+AS
+BEGIN TRY
+	DECLARE 
+		@CONFIG_ID INTEGER,
+		@LANGUAGE  VARCHAR(5)
+
+	SELECT 
+		@CONFIG_ID = deleted.GUID,
+		@LANGUAGE = deleted.LANGUAGE
+	FROM deleted
+	
+	DELETE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = @CONFIG_ID
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+DROP TABLE TBPMO_DOCRESULT_DROPDOWN_ITEMS
+CREATE TABLE TBPMO_DOCRESULT_DROPDOWN_ITEMS
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1)
+	,CONFIG_ID		INTEGER			NOT NULL
+	,VALUE			VARCHAR(100)	NOT NULL
+	,SEQUENCE		TINYINT			NOT NULL	DEFAULT 0
+	,[DEFAULT]		BIT				NOT NULL	DEFAULT 0
+	,COLOR			VARCHAR(50)		NOT NULL	DEFAULT ''
+	,ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT'
+	,ADDED_WHEN		DATETIME 					DEFAULT GETDATE()
+	,CHANGED_WHO     VARCHAR(50)
+	,CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOCRESULT_DROPDOWN_ITEMS	PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID	FOREIGN KEY (CONFIG_ID) REFERENCES  TBPMO_DOCSEARCH_RESULTLIST_CONFIG (GUID),
+	CONSTRAINT		UQ_TBPMO_DOCRESULT_DROPDOWN_ITEMS UNIQUE (CONFIG_ID,VALUE),
+	CONSTRAINT		UQ2_TBPMO_DOCRESULT_DROPDOWN_ITEMS UNIQUE (CONFIG_ID,[DEFAULT]),
+)
+GO
+CREATE TRIGGER TBPMO_DOCRESULT_DROPDOWN_ITEMS_AFT_UPD ON TBPMO_DOCRESULT_DROPDOWN_ITEMS
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOCRESULT_DROPDOWN_ITEMS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCRESULT_DROPDOWN_ITEMS.GUID = INSERTED.GUID
+GO
+
+ALTER FUNCTION [dbo].[FNPMO_DOC_GET_DROPDOWN](@pDOCID INTEGER, @pENTITY INTEGER, @DOC_DD VARCHAR(20), @LANGUAGE VARCHAR(5))
+RETURNS VARCHAR(250)
+AS
+BEGIN
+	DECLARE @HEADER_CAPTION VARCHAR(30), 
+		@CONFIG_ID INTEGER, @VALUE VARCHAR(250), @RESULT VARCHAR(250)
+	SELECT 
+		@HEADER_CAPTION = HEADER_CAPTION,
+		@CONFIG_ID = GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE 
+	ENTITY_ID = @pENTITY AND COLUMN_VIEW = @DOC_DD AND LANGUAGE = @LANGUAGE
+
+	IF @HEADER_CAPTION IS NULL
+		SET @RESULT = 'NO DROP-DOWN CONFIGURATION'
+	ELSE
+		BEGIN
+			SELECT @VALUE =  VALUE FROM TBPMO_DOC_VALUES WHERE DocID = @pDOCID AND CONFIG_ID = @CONFIG_ID
+			IF @VALUE IS NOT NULL
+				SET @RESULT = @VALUE
+			ELSE
+				SET @RESULT = ''
+		END
+	RETURN @RESULT
+END
+GO
+CREATE TABLE TBPMO_CONTROL_ENTITY_LINK
+(
+	GUID				INTEGER			NOT NULL	IDENTITY(1,1),
+	ORIGIN_CTRL_ID		INTEGER			NOT NULL,
+	LINKED_CTRL_ID	INTEGER			NOT NULL,
+	ADDED_WHO			VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN			DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO			VARCHAR(50),
+	CHANGED_WHEN		DATETIME,
+	CONSTRAINT			PK_TBPMO_CONTROL_ENTITY_LINK						PRIMARY KEY (GUID),
+	CONSTRAINT			UNIQUE_ORIGIN_CTRL_ID_LINKED_CONTROL_ID	UNIQUE(ORIGIN_CTRL_ID,LINKED_CTRL_ID),
+	CONSTRAINT			FK_TBPMO_CONTROL_ENTITY_LINK_ORIGIN_CTRL_ID			FOREIGN KEY (ORIGIN_CTRL_ID)  REFERENCES  TBPMO_CONTROL (GUID),
+	CONSTRAINT			FK_TBPMO_CONTROL_ENTITY_LINKED_CONTROL_ID			FOREIGN KEY (LINKED_CTRL_ID)  REFERENCES  TBPMO_CONTROL (GUID),
+)
+GO
+CREATE TRIGGER TBPMO_CONTROL_ENTITY_LINK_AFT_UPD ON TBPMO_CONTROL_ENTITY_LINK
+FOR UPDATE
+AS
+	UPDATE TBPMO_CONTROL_ENTITY_LINK SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_ENTITY_LINK.GUID = INSERTED.GUID
+GO
+
+CREATE TABLE TBPMO_CHART_ENTITY
+(
+	GUID				INTEGER			NOT NULL	IDENTITY(1,1),
+	ENTITY_ID			INTEGER			NOT NULL,
+	GROUP_ID			VARCHAR(50)		NOT NULL	DEFAULT '',
+	SQL_COMMAND			VARCHAR(MAX)	NOT NULL,
+	TYPE_CHART			VARCHAR(30)		NOT NULL,
+	ARGUMENT			VARCHAR(30)		NOT NULL,
+	VALUE				VARCHAR(30)		NOT NULL,
+	TITLE				VARCHAR(30)		NOT NULL	DEFAULT '',
+	ADDED_WHO			VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN			DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO			VARCHAR(50),
+	CHANGED_WHEN		DATETIME,
+	CONSTRAINT			PK_TBPMO_CHART_ENTITY						PRIMARY KEY (GUID),
+	CONSTRAINT			FK_TBPMO_CHART_ENTITY_ENTITY_ID		FOREIGN KEY (ENTITY_ID)  REFERENCES  TBPMO_FORM (GUID),
+)
+GO
+CREATE TRIGGER TBPMO_CHART_ENTITY_AFT_UPD ON TBPMO_CHART_ENTITY
+FOR UPDATE
+AS
+	UPDATE TBPMO_CHART_ENTITY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CHART_ENTITY.GUID = INSERTED.GUID
+GO
+ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS 
+SELECT TOP 100 PERCENT
+	W_T.GUID AS WF_TASK_ID
+	,R.GUID AS WF_ID
+	,W_T.RECORD_ID
+	,T.STATE_ID
+	,T4.GUID FORM_VIEW_ID
+	,R.DESCRIPTION
+	,R.MANUALLY
+	,R.CREATE_ON_REC_CREATE
+	,R.CREATE_ON_FOLL_UP
+	,W_T.COMMENT 
+	,W_T.DUE_DATE
+	,W_T.ADDED_WHEN
+	,W_T.CHANGED_WHO
+	,W_T.CHANGED_WHEN
+	,W_T.TASK_DATE
+	,T.FINAL
+	,T.ENTITY_ID
+	,T5.COLOR
+	,dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(W_T.RECORD_ID) AS RECORD_DESCRIPTION
+	,FINISHED
+FROM  
+	TBPMO_WORKFLOW_ENTITY_STATE T,        
+	TBPMO_WORKFLOW_TASK W_T
+	,TBPMO_WORKFLOW R
+	,TBPMO_FORM T3
+	,TBPMO_FORM_VIEW T4
+	,TBPMO_WORKFLOW_TASK_STATE T5
+	,TBPMO_RECORD REC
+WHERE
+	--W_T.RECORD_ID = 95 AND 
+	--TBPMO_WORKFLOW_ENTITY_STATE
+	T.WF_ID = R.GUID AND
+	T.ENTITY_ID = T3.GUID AND
+	T.STATE_ID = T5.GUID AND
+	W_T.RECORD_ID = REC.GUID AND
+	T.ENTITY_ID = REC.FORM_ID AND
+	W_T.WF_ID = R.GUID AND
+	R.GUID = R.GUID AND
+	T3.GUID = T4.FORM_ID AND
+	W_T.STATE_ID = T5.GUID AND
+	T4.SCREEN_ID = 1 AND
+	((T.FINAL = 1 AND W_T.DUE_DATE IS NULL) OR T.FINAL = 0) AND
+	W_T.ACTIVE = 1
+ORDER BY W_T.RECORD_ID,W_T.GUID
+
+GO
+
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.1/2.CAPTION_DOCTYPES.sql

@@ -0,0 +1,57 @@
+DECLARE	@ID		INTEGER,
+		@SCREEN_ID			INT,
+		@DT_TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100)
+		
+DECLARE	c_DOKART	CURSOR FOR 
+SELECT GUID,BEZEICHNUNG, 'de-DE' FROM TBDD_DOKUMENTART
+
+BEGIN
+	OPEN c_DOKART 
+    FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@ID)
+		
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+			LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
+				INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+				(@LANGUAGE,1,@PMO_OBJECT_NAME,@DT_TITLE)
+			
+			FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
+		END
+	CLOSE c_DOKART
+    DEALLOCATE c_DOKART
+
+END
+GO
+DECLARE	@ID		INTEGER,
+		@SCREEN_ID			INT,
+		@DT_TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100)
+		
+DECLARE	c_DOKART	CURSOR FOR 
+SELECT GUID,BEZEICHNUNG, 'en-US' FROM TBDD_DOKUMENTART
+
+BEGIN
+	OPEN c_DOKART 
+    FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@ID)
+			SET @DT_TITLE = 'Object ' +@PMO_OBJECT_NAME + ' not translated'
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+			LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
+				INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+				(@LANGUAGE,1,@PMO_OBJECT_NAME,@DT_TITLE)
+			
+			FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
+		END
+	CLOSE c_DOKART
+    DEALLOCATE c_DOKART
+
+END

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.1/3.INSERT_US_FORM_VIEW_CAPTIONS.sql

@@ -0,0 +1,44 @@
+DECLARE	@SCREEN_ID	INT,
+		@FORM_VIEW_ID INTEGER,
+		@FORM_TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION_TEMP VARCHAR(100)
+		
+DECLARE	c_FORM_VIEW	CURSOR FOR 
+SELECT GUID,SCREEN_ID,'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,'en-US'
+from TBPMO_FORM_VIEW --WHERE GUID 
+--[dbo].[FNPMO_GETOBJECTCAPTION]('en-US','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), SCREEN_ID) = 'CAPTION (OBJ) NOT TRANSLATED'
+ 
+
+
+BEGIN
+	OPEN c_FORM_VIEW 
+    FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF EXISTS(SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND 
+			LANGUAGE_TYPE = @LANGUAGE)
+				BEGIN
+					--SELECT @CAPTION_TEMP = 'Not translated ' + FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
+					PRINT 'UPDATE: ' + @CAPTION_TEMP
+					--UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @CAPTION_TEMP WHERE GUID = (
+					--SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND 
+					--LANGUAGE_TYPE = 'de-DE'
+					--)
+				END
+			ELSE
+				BEGIN
+					SELECT @CAPTION_TEMP = 'Not translated ' + FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
+					PRINT 'INSERT: ' + @CAPTION_TEMP + '#' + CONVERT(VARCHAR(5),@FORM_VIEW_ID)
+					INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION_TEMP)
+				END
+			FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
+		END
+	CLOSE c_FORM_VIEW
+    DEALLOCATE c_FORM_VIEW
+
+END

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.1/4.INSERT_DE_FORM_VIEW_CAPTIONS.sql

@@ -0,0 +1,48 @@
+DECLARE	@GUID		INTEGER,
+		@SCREEN_ID	INT,
+		@FORM_VIEW_ID INTEGER,
+		@FORM_TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION_TEMP VARCHAR(100)
+		
+DECLARE	c_FORM_VIEW	CURSOR FOR 
+SELECT GUID,SCREEN_ID,'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,'de-DE'
+from TBPMO_FORM_VIEW --WHERE GUID --WHERE  GUID = 3
+--[dbo].[FNPMO_GETOBJECTCAPTION]('en-US','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), SCREEN_ID) = 'CAPTION (OBJ) NOT TRANSLATED'
+
+BEGIN
+	OPEN c_FORM_VIEW 
+    FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			DECLARE @CAPTION VARCHAR(50)
+			IF EXISTS(SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND 
+			LANGUAGE_TYPE = @LANGUAGE)
+				BEGIN
+					--SELECT @CAPTION = CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND 
+					--LANGUAGE_TYPE = @LANGUAGE
+
+					--PRINT 'SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = ' + @PMO_OBJECT_NAME + ' AND LANGUAGE_TYPE = ' + @LANGUAGE
+					--SELECT @CAPTION_TEMP = 'Not translated ' + FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
+					PRINT 'UPDATE: ' + @CAPTION_TEMP
+					--UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @CAPTION_TEMP WHERE GUID = (
+					--SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND 
+					--LANGUAGE_TYPE = 'de-DE'
+					--)
+				END
+			ELSE
+				BEGIN
+					SELECT @CAPTION_TEMP = FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
+					PRINT 'INSERT: ' + @CAPTION_TEMP + '#' + CONVERT(VARCHAR(5),@FORM_VIEW_ID)
+					INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION_TEMP)
+				END
+			FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
+		END
+	CLOSE c_FORM_VIEW
+    DEALLOCATE c_FORM_VIEW
+
+END

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.2/2.4.4.2_Update.sql

@@ -0,0 +1,13 @@
+/*#################### Update 2.4.4.2 #########################*/
+CREATE TABLE TBPMO_CONSTRUCTOR_USER
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	CONSTRUCT_ID	INTEGER			NOT NULL,
+	[USER_ID]		INTEGER			NOT NULL,
+	ADDED_WHEN		DATETIME 		NOT NULL	DEFAULT GETDATE(),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	CONSTRAINT		PK_TBPMO_CONSTRUCTOR_USER		PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_CONSTRUCTOR_USER_CID	FOREIGN KEY (CONSTRUCT_ID)	REFERENCES  TBPMO_FORM_CONSTRUCTOR (GUID),
+	CONSTRAINT		FK_TTBPMO_CONSTRUCTOR_USER_UID	FOREIGN KEY (USER_ID)		REFERENCES	TBDD_USER (GUID)
+)
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.3/2.4.4.3 - Update.sql

@@ -0,0 +1,30 @@
+CREATE PROCEDURE [dbo].[PRPMO_DELETE_CONTROL](@pCONTROL_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @pCONTROL_ID)
+	DELETE FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_CONTROL WHERE GUID = @pCONTROL_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
+CREATE PROCEDURE [dbo].[PRPMO_RECORD_CREATE_WORKFLOWTASKS](@RECORD_ID INTEGER)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @RECORD_ID
+	INSERT INTO TBPMO_WORKFLOW_TASK (RECORD_ID,WF_ID,STATE_ID,ACTIVE) 
+	SELECT @RECORD_ID, T.WF_ID,1,1 FROM TBPMO_WORKFLOW_FORM T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = @RECORD_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
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.4/Update_2.4.4.4.sql

@@ -0,0 +1,588 @@
+ALTER TABLE TBDD_MODULES
+ADD PRODUCT_VERSION VARCHAR(10) NOT NULL DEFAULT '1.0.0.0'
+GO
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.4' where NAME = 'Record-Organizer' 
+GO
+ALTER VIEW [dbo].[VWPMO_GUI_ENTITY] AS 
+SELECT TOP 100 PERCENT
+	TBPMO_FORM.GUID AS ID, 
+	TBPMO_FORM.PARENT_ID,
+	TBPMO_FORM.LEVEL,
+	TBPMO_FORM.FORM_TYPE_ID,
+	TBPMO_FORM.NAME AS Name, 
+	TBPMO_FORM_VIEW.GUID As FormViewID,
+	TBPMO_FORM_VIEW.FORM_TITLE AS Title
+FROM            
+	TBPMO_FORM INNER JOIN
+    TBPMO_FORM_VIEW ON TBPMO_FORM.GUID = TBPMO_FORM_VIEW.FORM_ID
+WHERE
+	(TBPMO_FORM.FORM_TYPE_ID IN (1, 2, 3, 5))
+ORDER BY 
+	TBPMO_FORM.PARENT_ID, Title
+GO
+
+CREATE TABLE TBPMO_WORKFLOW_ENTITY_STATE
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	WF_ID			INTEGER			NOT NULL,
+	ENTITY_ID		INTEGER			NOT NULL,
+	STATE_ID		INTEGER			NOT NULL,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CONSTRAINT		PK_TBPMO_WORKFLOW_ENTITY_STATE				PRIMARY KEY (GUID),
+	CONSTRAINT		UNIQUE_ENTITY_ID_STATE_ID					UNIQUE(WF_ID,ENTITY_ID,STATE_ID),
+	CONSTRAINT		FK_TBPMO_WORKFLOW_ENTITY_STATE_WF_ID		FOREIGN KEY (WF_ID) REFERENCES  TBPMO_WORKFLOW (GUID),
+	CONSTRAINT		FK_TBPMO_WORKFLOW_ENTITY_STATE_STATE_ID		FOREIGN KEY (STATE_ID) REFERENCES  TBPMO_WORKFLOW_TASK_STATE (GUID),
+	CONSTRAINT		FK_TBPMO_WORKFLOW_ENTITY_STATE_ENTITY_ID	FOREIGN KEY (ENTITY_ID)		REFERENCES	TBPMO_FORM (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_WORKFLOW_TASK_STATE_DELETE
+ON TBPMO_WORKFLOW_TASK_STATE
+FOR DELETE
+AS
+     DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = (
+     SELECT GUID FROM DELETED)
+GO
+
+CREATE TABLE TBPMO_WORKFLOW_TASK
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	RECORD_ID		INTEGER			NOT NULL,
+	WF_ID			INTEGER			NOT NULL,
+	COMMENT			VARCHAR(500),
+	DUE_DATE		DATE,
+	TASK_DATE		DATE,
+	STATE_ID		INTEGER			NOT NULL	DEFAULT 1,	
+	ACTIVE			BIT				NOT NULL	DEFAULT	0,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_WORKFLOW_TASK				PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_WORKFLOW_TASK_RECORD_ID	FOREIGN KEY (RECORD_ID) REFERENCES  TBPMO_RECORD (GUID),
+	CONSTRAINT		FK_TBPMO_WORKFLOW_TASK_WF_ID		FOREIGN KEY (WF_ID)		REFERENCES	TBPMO_WORKFLOW (GUID),
+	CONSTRAINT		FK_TBPMO_WORKFLOW_TASK_STATE_ID		FOREIGN KEY (STATE_ID)  REFERENCES  TBPMO_WORKFLOW_ENTITY_STATE (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_WORKFLOW_TASK_AFT_UPD ON TBPMO_WORKFLOW_TASK
+FOR UPDATE
+AS
+	UPDATE TBPMO_WORKFLOW_TASK SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WORKFLOW_TASK.GUID = INSERTED.GUID
+GO
+--###############################################################################
+CREATE TABLE TBPMO_WORKFLOW_TASK_USER
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	WF_TASK_ID		INTEGER			NOT NULL,
+	[USER_ID]		INTEGER			NOT NULL,
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	CONSTRAINT		PK_TBPMO_WF_TASK_USER				PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_WF_TASK_USER_WF_TASK_ID	FOREIGN KEY (WF_TASK_ID)	REFERENCES  TBPMO_WORKFLOW_TASK (GUID),
+	CONSTRAINT		FK_TBPMO_WF_TASK_USER_USER_ID		FOREIGN KEY (USER_ID)		REFERENCES	TBDD_USER (GUID)
+)
+GO
+
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_WF_TASKS] (@FORM_ID INTEGER, @RECORD_ID INTEGER)
+AS
+BEGIN
+	DECLARE
+		@WF_ID			INTEGER,
+		@TITLE			VARCHAR(50),
+		@SEQUENCE		INTEGER,
+		@MELDUNG		VARCHAR(250)--,
+		--@STATE_ID		INTEGER
+								
+	DECLARE c_TASK CURSOR FOR 
+		SELECT T.WF_ID
+		FROM TBPMO_WORKFLOW_FORM T, TBPMO_WORKFLOW T1
+		WHERE T.WF_ID = T1.GUID AND
+		T.FORM_ID = @FORM_ID ORDER BY T.SEQUENCE
+					
+  	OPEN c_TASK 
+    	FETCH NEXT FROM c_TASK INTO @WF_ID
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID IN (SELECT GUID FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @RECORD_ID AND WF_ID = @WF_ID)
+			DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID IN (SELECT GUID FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @RECORD_ID AND WF_ID = @WF_ID)
+			--SELECT @STATE_ID = STATE_ID FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @FORM_ID and WF_ID = @WF_ID
+			--IF @STATE_ID IS NOT NULL
+				BEGIN
+					--INSERT DES TASKS
+					INSERT INTO TBPMO_WORKFLOW_TASK(
+						RECORD_ID,
+						WF_ID,
+						ACTIVE,
+						STATE_ID)
+					VALUES (
+						@RECORD_ID,
+						@WF_ID,
+						1,
+						1)
+				END
+						        	
+			FETCH NEXT FROM c_TASK INTO @WF_ID
+		END
+	CLOSE c_TASK
+	DEALLOCATE c_TASK
+  END
+
+
+GO
+
+
+ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_TASK_STATE_AFT_UPD] ON [dbo].[TBPMO_WORKFLOW_TASK_STATE]
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@STATE_DESC	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@CHANGED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@STATE_DESC = STATE_DESC,
+		@SCREEN_ID = 1,
+		@CHANGED_WHO = CHANGED_WHO
+	FROM INSERTED
+
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @CHANGED_WHO
+
+	SET @PMO_OBJECT_NAME = 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),@GUID)
+
+	UPDATE TBPMO_WORKFLOW_TASK_STATE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WORKFLOW_TASK_STATE.GUID = INSERTED.GUID
+
+	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 = @STATE_DESC,CHANGED_WHO = @CHANGED_WHO WHERE
+			PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+			LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
+	ELSE
+		BEGIN TRY 
+			INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+				(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@STATE_DESC)
+		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 TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_TASK_STATE_AFT_INS] ON [dbo].[TBPMO_WORKFLOW_TASK_STATE]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@STATE_DESC	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@STATE_DESC = STATE_DESC,
+		@SCREEN_ID = 1,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
+	SET @PMO_OBJECT_NAME = 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),@GUID)
+	IF @LANGUAGE is not null
+		INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@STATE_DESC,@ADDED_WHO)
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+DECLARE	@GUID		INTEGER,
+		@SCREEN_ID	INT,
+		@FORM_VIEW_ID INTEGER,
+		@FORM_TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION VARCHAR(100)
+		
+DECLARE	c_STATE	CURSOR FOR 
+SELECT GUID,1,'en-US','WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,STATE_DESC
+from TBPMO_WORKFLOW_TASK_STATE 
+UNION
+SELECT GUID,1,'de-DE','WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,STATE_DESC
+from TBPMO_WORKFLOW_TASK_STATE ORDER BY GUID
+
+
+BEGIN
+	OPEN c_STATE 
+    FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@PMO_OBJECT_NAME,@CAPTION
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = @LANGUAGE)
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			
+			FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@PMO_OBJECT_NAME,@CAPTION
+		END
+	CLOSE c_STATE
+    DEALLOCATE c_STATE
+
+END
+GO
+--'#####################################################
+ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_AFT_UPD] ON [dbo].[TBPMO_WORKFLOW]
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@CHANGED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@TITLE = TITLE,
+		@SCREEN_ID = 1,
+		@CHANGED_WHO = CHANGED_WHO
+	FROM INSERTED
+
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @CHANGED_WHO
+
+	SET @PMO_OBJECT_NAME = 'TASK_TITLE' + CONVERT(VARCHAR(5),@GUID)
+
+	UPDATE TBPMO_WORKFLOW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WORKFLOW.GUID = INSERTED.GUID
+
+	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 = @TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
+			PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+			LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
+	ELSE
+		BEGIN TRY 
+			INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+				(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@TITLE)
+		END TRY
+		BEGIN CATCH   
+			PRINT 'ERROR IN Trigger: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) 
+			+ ' - ERROR-MESSAGE: ' 
+			+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+		END CATCH
+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_WORKFLOW_AFT_INS] ON [dbo].[TBPMO_WORKFLOW]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@TITLE = TITLE,
+		@SCREEN_ID = 1,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @ADDED_WHO
+	SET @PMO_OBJECT_NAME = 'TASK_TITLE' + CONVERT(VARCHAR(5),@GUID)
+		
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@TITLE,@ADDED_WHO)
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+DECLARE	@GUID		INTEGER,
+		@SCREEN_ID	INT,
+		@TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION VARCHAR(100)
+		
+DECLARE	c_STATE	CURSOR FOR 
+SELECT GUID,1,'en-US','TASK_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,TITLE
+from TBPMO_WORKFLOW 
+UNION
+SELECT GUID,1,'de-DE','TASK_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,TITLE
+from TBPMO_WORKFLOW ORDER BY GUID
+
+
+BEGIN
+	OPEN c_STATE 
+    FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@PMO_OBJECT_NAME,@CAPTION
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = @LANGUAGE)
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			
+			FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@PMO_OBJECT_NAME,@CAPTION
+		END
+	CLOSE c_STATE
+    DEALLOCATE c_STATE
+
+END
+GO
+--##################################
+ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID	INTEGER,
+		@MAX_ID		INTEGER,
+		@FORM_ID	INTEGER,
+		@WF_ID		INTEGER,
+		@PARENT_ID	INTEGER
+	SELECT
+  		@FORM_ID = FORM_ID,
+		@RECORD_ID = GUID
+	FROM INSERTED
+
+	IF EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID)
+		SELECT @MAX_ID = MAX(RECORD_ENTITY_ID) + 1
+		FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID
+	ELSE
+		SET @MAX_ID = 1
+
+	UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
+
+	--Überprüfen ob für die Entity_ID Workflows definiert sind?
+	IF EXISTS(
+		SELECT * FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID
+			)
+		BEGIN
+			EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
+		END
+
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS
+SELECT TOP 100 PERCENT
+	T.GUID AS WF_TASK_ID, 
+	T.WF_ID ,
+	T1.TITLE, 
+	T.RECORD_ID, 
+	T.STATE_ID, 
+	T2.STATE_DESC,
+	T2.COLOR,
+	T.COMMENT, 
+	T.DUE_DATE, 
+	T.TASK_DATE,
+	'' AS USERNAME, 
+	T.ADDED_WHEN, 
+	T.CHANGED_WHO, 
+	T.CHANGED_WHEN
+FROM            
+	TBPMO_WORKFLOW_TASK AS T,
+    TBPMO_WORKFLOW AS T1,
+	TBPMO_WORKFLOW_TASK_STATE T2
+WHERE 
+	T.WF_ID = T1.GUID AND
+	T.STATE_ID = T2.GUID 
+ORDER BY T.GUID
+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)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@SCREEN_ID = SCREEN_ID,
+		@CHANGED_WHO = CHANGED_WHO
+	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 @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
+			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 TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+ALTER TRIGGER [dbo].[TBPMO_FORM_VIEW_AFT_INS] ON [dbo].[TBPMO_FORM_VIEW]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@FORM_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@SCREEN_ID = SCREEN_ID,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
+	SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
+	IF @LANGUAGE is not null	
+		INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
+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].[TBPMO_FORM_CONSTRUCTOR_AFT_INS] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@FORM_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
+	
+	SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
+	IF @LANGUAGE is not null	
+		INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+		(@LANGUAGE,1,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
+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].[TBPMO_FORM_CONSTRUCTOR_AFT_UPD] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
+FOR UPDATE
+AS
+BEGIN
+	DECLARE @FORM_TITLE	VARCHAR(50),
+	@LANGUAGE VARCHAR(5), @CHANGED_WHO VARCHAR(50),
+	@GUID INTEGER,
+	@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@LANGUAGE = [LANGUAGE],
+		@CHANGED_WHO = CHANGED_WHO
+	FROM INSERTED
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
+	
+	SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
+	IF @LANGUAGE is not null	
+		UPDATE TBPMO_FORM_CONSTRUCTOR SET CHANGED_WHEN = GETDATE() 
+		FROM INSERTED WHERE TBPMO_FORM_CONSTRUCTOR.GUID = INSERTED.GUID
+
+	If exists(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+	LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
+		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 = 1
+	ELSE
+		INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+			(@LANGUAGE,1,@PMO_OBJECT_NAME,@FORM_TITLE)
+END
+GO
+
+ALTER TABLE TBPMO_CONSTRUCTOR_USER
+ADD HOME_MENUE BIT NOT NULL DEFAULT 1
+GO
+ALTER TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_DETAIL_AFT_INS] ON [dbo].[TBPMO_FORM_CONSTRUCTOR_DETAIL]
+FOR INSERT
+AS
+DECLARE @CONSTRUCT_ID  INTEGER,
+		@PARENT_ID INTEGER,
+		@EXISTS as INTEGER
+BEGIN
+	SELECT @CONSTRUCT_ID = CONSTRUCT_ID, @PARENT_ID = PARENT_ID FROM INSERTED
+	IF @PARENT_ID = 0 
+		BEGIN
+			SELECT @EXISTS = COUNT(*) FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @CONSTRUCT_ID AND PARENT_ID =  @PARENT_ID
+			IF @EXISTS > 1
+				BEGIN
+					ROLLBACK TRANSACTION
+					RAISERROR('ONLY ONE FORM WITH PARENT_ID 0 IS ALLOWED WITHIN CONSTRUCT-ID',16,10)
+				END
+		END
+END
+GO
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.5_Split_String.sql

@@ -0,0 +1,78 @@
+CREATE FUNCTION [dbo].[FN_SPLIT_STRING]
+(    
+      @Input NVARCHAR(MAX),
+      @Character CHAR(1)
+)
+RETURNS @Output TABLE (
+      Item NVARCHAR(1000)
+)
+AS
+BEGIN
+      DECLARE @StartIndex INT, @EndIndex INT
+ 
+      SET @StartIndex = 1
+      IF SUBSTRING(@Input, LEN(@Input) - 1, LEN(@Input)) <> @Character
+      BEGIN
+            SET @Input = @Input + @Character
+      END
+ 
+      WHILE CHARINDEX(@Character, @Input) > 0
+      BEGIN
+            SET @EndIndex = CHARINDEX(@Character, @Input)
+           
+            INSERT INTO @Output(Item)
+            SELECT SUBSTRING(@Input, @StartIndex, @EndIndex - 1)
+           
+            SET @Input = SUBSTRING(@Input, @EndIndex + 1, LEN(@Input))
+      END
+ 
+      RETURN
+END
+
+GO
+
+--FUNKTION ZUR AKTUALISIERUNG der DATEN
+
+
+BEGIN
+	DECLARE
+		@GUID			INTEGER,
+		@CONTROL_ID		INTEGER,
+		@RECORD_ID		INTEGER,
+		@VALUE			VARCHAR(MAX),
+		@NEW_VALUE		VARCHAR(MAX),
+		@INDEX			INTEGER,
+		@ADDED_WHO		VARCHAR(50)
+								
+	DECLARE c_Values CURSOR FOR 
+		SELECT GUID,CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO FROM TBPMO_CONTROL_VALUE WHERE VALUE LIKE '%;%' AND CONTROL_ID NOT IN (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2) ORDER BY RECORD_ID,CONTROL_ID
+  	OPEN c_Values 
+    	FETCH NEXT FROM c_Values INTO @GUID,@CONTROL_ID,@RECORD_ID,@VALUE,@ADDED_WHO
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @INDEX = 0
+			--#####
+			DECLARE c_NEWVALUES CURSOR FOR 
+				SELECT Item FROM dbo.FN_SPLIT_STRING(@VALUE, ';')	
+  			OPEN c_NEWVALUES 
+    			FETCH NEXT FROM c_NEWVALUES INTO @NEW_VALUE
+    			WHILE @@FETCH_STATUS = 0
+				BEGIN
+					SET @NEW_VALUE = LTRIM(@NEW_VALUE)
+					IF @INDEX = 0
+						UPDATE TBPMO_CONTROL_VALUE SET VALUE = @NEW_VALUE WHERE GUID = @GUID
+					ELSE
+						INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES
+						(@CONTROL_ID,@RECORD_ID,@NEW_VALUE,@ADDED_WHO)
+					PRINT CONVERT(VARCHAR(5),@CONTROL_ID) + '#' + CONVERT(VARCHAR(5),@INDEX) + '-' + @NEW_VALUE
+					SET @INDEX = @INDEX + 1       	
+					FETCH NEXT FROM c_NEWVALUES INTO @NEW_VALUE
+				END
+			CLOSE c_NEWVALUES
+			DEALLOCATE c_NEWVALUES
+			--#####
+			FETCH NEXT FROM c_Values INTO @GUID,@CONTROL_ID,@RECORD_ID,@VALUE,@ADDED_WHO
+		END
+	CLOSE c_Values
+	DEALLOCATE c_Values
+  END

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.6.sql

@@ -0,0 +1,606 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.6' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBPMO_WD_OBJECTTYPE
+ADD IDXNAME_RECORDID VARCHAR(100) 
+GO
+ALTER TABLE TBPMO_WD_OBJECTTYPE
+ADD IDXNAME_DOCTYPE VARCHAR(100) 
+GO
+CREATE FUNCTION [dbo].[FNPMO_GET_ENTITY_COLUMN_CONTENT](@pRECORD_ID INTEGER)
+RETURNS VARCHAR(2500)
+AS
+BEGIN
+	DECLARE 
+		@COLUMN1 VARCHAR(100),
+		@ENTITY INTEGER, @CONTROL_ID INTEGER, @RESULT VARCHAR(2500)
+
+	SELECT @ENTITY = FORM_ID FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
+
+	SELECT @COLUMN1 = COLUMN_NAME1 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @ENTITY
+	SELECT @CONTROL_ID = GUID FROm TBPMO_CONTROL WHERE COL_NAME = @COLUMN1
+	SELECT @RESULT = VALUE FROM VWPMO_VALUES WHERE RECORD_ID = @pRECORD_ID AND CONTROL_ID = @CONTROL_ID
+	RETURN(@RESULT)
+END
+
+GO
+CREATE 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 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 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
+CREATE PROCEDURE [dbo].[PRPMO_DELETE_DOCTYPE](@pDOCID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = @pDOCID
+	DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_CLIENT_DOCTYPE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_TEMPLATE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_DOKUMENTART WHERE GUID = @pDOCID
+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 FUNCTION [dbo].[FNPMO_GETOBJECTCAPTION](@pLANG_TYPE VARCHAR(5), @pOBJ_NAME VARCHAR(100), @pSCREEN_ID INT)
+RETURNS VARCHAR(100)
+AS
+BEGIN
+	DECLARE @PMOOBJ_CAPTION VARCHAR(100)
+
+	SELECT @PMOOBJ_CAPTION = CAPTION FROM 
+		TBPMO_LANGUAGE_OBJECT AS T 
+	WHERE 
+		T.LANGUAGE_TYPE = @pLANG_TYPE AND
+		T.SCREEN_ID = @pSCREEN_ID AND
+		T.PMO_OBJECT_NAME = @pOBJ_NAME
+
+	IF @PMOOBJ_CAPTION is null AND @pLANG_TYPE <> 'de-DE'
+		SELECT @PMOOBJ_CAPTION = CAPTION FROM 
+		TBPMO_LANGUAGE_OBJECT AS T 
+	WHERE 
+		T.LANGUAGE_TYPE = 'de-DE' AND
+		T.SCREEN_ID = @pSCREEN_ID AND
+		T.PMO_OBJECT_NAME = @pOBJ_NAME
+			
+
+  RETURN(ISNULL(@PMOOBJ_CAPTION,'CAPTION (OBJ) NOT TRANSLATED'))
+END
+GO
+
+ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_TASK_STATE_AFT_INS] ON [dbo].[TBPMO_WORKFLOW_TASK_STATE]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@STATE_DESC	VARCHAR(50),
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@STATE_DESC = STATE_DESC,
+		@SCREEN_ID = 1,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+
+	SET @PMO_OBJECT_NAME = 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),@GUID)
+
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+	('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME,@STATE_DESC,@ADDED_WHO)
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+	('en-US',@SCREEN_ID,@PMO_OBJECT_NAME,@STATE_DESC,@ADDED_WHO)
+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].[TBPMO_WORKFLOW_AFT_INS] ON [dbo].[TBPMO_WORKFLOW]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@TITLE = TITLE,
+		@SCREEN_ID = 1,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @ADDED_WHO
+	SET @PMO_OBJECT_NAME = 'TASK_TITLE' + CONVERT(VARCHAR(5),@GUID)
+		
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+	('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME,@TITLE,@ADDED_WHO)
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+	('en-US',@SCREEN_ID,@PMO_OBJECT_NAME,@TITLE,@ADDED_WHO)
+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].[TBPMO_FORM_VIEW_AFT_INS] ON [dbo].[TBPMO_FORM_VIEW]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@FORM_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@ADDED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@SCREEN_ID = SCREEN_ID,
+		@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
+	SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+	('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
+	INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
+	('en-US',@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+DECLARE	@GUID		INTEGER,
+		@SCREEN_ID	INT,
+		@TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION VARCHAR(100)
+
+DECLARE	c_STATE	CURSOR FOR 
+SELECT GUID,1,'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,STATE_DESC
+from TBPMO_WORKFLOW_TASK_STATE 
+
+BEGIN
+	OPEN c_STATE 
+    FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'de-DE')
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'en-US')
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					('en-US',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			
+			FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
+		END
+	CLOSE c_STATE
+    DEALLOCATE c_STATE
+
+END
+GO
+DECLARE	@GUID		INTEGER,
+		@SCREEN_ID	INT,
+		@TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION VARCHAR(100)
+
+DECLARE	c_STATE	CURSOR FOR 
+SELECT GUID,1,'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME, FORM_TITLE
+from TBPMO_FORM_VIEW 
+SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
+
+BEGIN
+	OPEN c_STATE 
+    FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'de-DE')
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'en-US')
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					('en-US',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			
+			FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
+		END
+	CLOSE c_STATE
+    DEALLOCATE c_STATE
+END
+GO
+DECLARE	@GUID		INTEGER,
+		@SCREEN_ID	INT,
+		@TITLE VARCHAR(100),
+		@LANGUAGE VARCHAR(5),
+		@PMO_OBJECT_NAME VARCHAR(100),
+		@CAPTION VARCHAR(100)
+
+DECLARE	c_STATE	CURSOR FOR 
+SELECT GUID,1,'TASK_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME, TITLE FROM TBPMO_WORKFLOW
+
+BEGIN
+	OPEN c_STATE 
+    FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'de-DE')
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'en-US')
+				INSERT INTO TBPMO_LANGUAGE_OBJECT 
+					(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					('en-US',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
+			
+			FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
+		END
+	CLOSE c_STATE
+    DEALLOCATE c_STATE
+END
+GO
+CREATE TABLE TBPMO_WD_IMPORT_PROFILE
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	NAME			VARCHAR(100)	NOT NULL,
+	WD_SEARCH		VARCHAR(1000)	NOT NULL,
+	UNIQUE_DOC_SQL	VARCHAR(5000),
+	SQL_DOCTYPE		VARCHAR(5000)	NOT NULL	DEFAULT 'select GUID from TBDD_DOKUMENTART where BEZEICHNUNG = ''@DOKTYPE_STRING''',
+	SQL_PARENT_RECORD VARCHAR(5000)  NOT NULL DEFAULT '',
+	NEW_OBJECTTYPE	VARCHAR(100)	NOT NULL,
+	OLD_OBJECTTYPE	VARCHAR(100)	NOT NULL,
+	IDX_FILE_WORKED	VARCHAR(100)	NOT NULL	DEFAULT '',
+	ONLY_RECORD_CREATING BIT NOT NULL DEFAULT 0,
+	ENTITY_ID		INTEGER			NOT NULL,
+	CONNECTION_ID	INTEGER,
+	ADDED_WHO		VARCHAR(50)					DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_WD_IMPORT_PROFILE    PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_WD_IMPORT_PROFILE_AFT_UPD ON TBPMO_WD_IMPORT_PROFILE
+FOR UPDATE
+AS
+	UPDATE TBPMO_WD_IMPORT_PROFILE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_IMPORT_PROFILE.GUID = INSERTED.GUID
+GO
+
+CREATE TABLE TBPMO_WD_IMPORT_PROFILE_IDX
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	PROFILE_ID		INTEGER			NOT NULL,
+	STRING1			VARCHAR(200)	NOT NULL,
+	STRING2			VARCHAR(200)	NOT NULL,
+	SQL1			VARCHAR(5000),
+	SQL2			VARCHAR(5000),
+	ADDED_WHO		VARCHAR(50)					DEFAULT 'Digital Data',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_WD_IMPORT_PROFILE_IDX    PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_WD_IMPORT_PROFILE_IDX_1			FOREIGN KEY (PROFILE_ID) REFERENCES  TBPMO_WD_IMPORT_PROFILE (GUID),
+)
+GO
+CREATE TRIGGER TBPMO_WD_IMPORT_PROFILE_IDX_AFT_UPD ON TBPMO_WD_IMPORT_PROFILE_IDX
+FOR UPDATE
+AS
+	UPDATE TBPMO_WD_IMPORT_PROFILE_IDX SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_IMPORT_PROFILE_IDX.GUID = INSERTED.GUID
+GO
+
+CREATE TRIGGER TBPMO_WD_IMPORT_PROFILE_AFT_INS ON TBPMO_WD_IMPORT_PROFILE
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@GUID INTEGER,@ADDED_WHO VARCHAR(50)
+	SELECT 
+		@GUID = GUID,@ADDED_WHO = ADDED_WHO
+	FROM INSERTED
+	
+	INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
+	(@GUID,'DOCTYPE_ORIGIN','SET INDEXNAME',@ADDED_WHO)
+	INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
+	(@GUID,'INDEX_DOCTYPE','SET INDEXNAME',@ADDED_WHO)
+	INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
+	(@GUID,'INDEX_RECORD_ID','SET INDEXNAME',@ADDED_WHO)
+	INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
+	(@GUID,'INDEX_ENTITY_ID','SET INDEXNAME',@ADDED_WHO)
+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 TBDD_DOKUMENTART_AFT_INS2 ON TBDD_DOKUMENTART
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@ADDED_WHO VARCHAR(50),
+		@OBJEKTTYP VARCHAR(50),
+		@GUID INTEGER
+	SELECT 
+		@GUID = GUID,
+		@ADDED_WHO = ERSTELLTWER,
+		@OBJEKTTYP = OBJEKTTYP
+	FROM INSERTED
+
+	INSERT INTO TBPMO_CLIENT_DOCTYPE (CLIENT_ID,DOCTYPE_ID) 
+	SELECT T.CLIENT_ID,@GUID FROM TBDD_CLIENT_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND UPPER(T1.USERNAME) = UPPER(@ADDED_WHO)
+
+	IF OBJECT_ID(N'dbo.TBPMO_WD_OBJECTTYPE', N'U') IS NOT NULL 
+			IF @OBJEKTTYP IS NOT NULL 
+				IF @OBJEKTTYP <> ''
+					BEGIN
+						DECLARE @IDX_DOC VARCHAR(50),@IDX_REC VARCHAR(50)
+						SELECT @IDX_DOC = IDXNAME_DOCTYPE,
+						@IDX_REC = IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = @OBJEKTTYP
+						IF @IDX_REC IS NOT NULL
+							INSERT INTO TBDD_INDEX_AUTOM (DOCTYPE_ID,INDEXNAME,VALUE,ACTIVE,ADDED_WHO) VALUES
+							(@GUID,@IDX_REC,'@Record-ID',1,@ADDED_WHO)
+						IF @IDX_DOC IS NOT NULL
+							INSERT INTO TBDD_INDEX_AUTOM (DOCTYPE_ID,INDEXNAME,VALUE,ACTIVE,ADDED_WHO) VALUES
+							(@GUID,@IDX_DOC,'@Dokart',1,@ADDED_WHO)
+					END
+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 TBDD_DOKUMENTART_AFT_UPD ON TBDD_DOKUMENTART
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@DA_TITLE	VARCHAR(50),
+		@LANGUAGE VARCHAR(5), 
+		@CHANGED_WHO VARCHAR(50),
+		@GUID INTEGER,
+		@SCREEN_ID INTEGER,
+		@PMO_OBJECT_NAME VARCHAR(100)
+	SELECT 
+		@GUID = GUID,
+		@DA_TITLE = BEZEICHNUNG,
+		@SCREEN_ID = 1,
+		@CHANGED_WHO = GEANDERTWER
+	FROM INSERTED
+	SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
+	SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@GUID)
+
+	 UPDATE TBDD_DOKUMENTART SET GEAENDERTWANN = GETDATE() FROM INSERTED 
+	 WHERE TBDD_DOKUMENTART.GUID = INSERTED.GUID
+	IF UPDATE (BEZEICHNUNG)
+		BEGIN
+			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 = @DA_TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
+					PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
+					LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
+			ELSE
+				INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
+					(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@DA_TITLE)
+		END
+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 TBPMO_FORM_VIEW_AFT_UPD ON 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)
+	SELECT 
+		@GUID = GUID,
+		@FORM_TITLE = FORM_TITLE,
+		@SCREEN_ID = SCREEN_ID,
+		@CHANGED_WHO = CHANGED_WHO
+	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
+				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
+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 FUNCTION [dbo].[FNPMO_GET_ENTITY_COLUMN_CONTENT](@pRECORD_ID INTEGER)
+RETURNS VARCHAR(2500)
+AS
+BEGIN
+	DECLARE 
+		@COLUMN1 VARCHAR(100),
+		@ENTITY INTEGER, @CONTROL_ID INTEGER, @RESULT VARCHAR(2500)
+
+	SELECT @ENTITY = FORM_ID FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
+
+	SELECT @COLUMN1 = COLUMN_NAME1 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @ENTITY
+	SELECT @CONTROL_ID = GUID FROm TBPMO_CONTROL WHERE COL_NAME = @COLUMN1
+	SELECT @RESULT = VALUE FROM VWPMO_VALUES WHERE RECORD_ID = @pRECORD_ID AND CONTROL_ID = @CONTROL_ID
+	RETURN(@RESULT)
+END
+GO
+GRANT EXECUTE ON [dbo].[FNPMO_GET_ENTITY_COLUMN_CONTENT] TO [DD_ECM] WITH GRANT OPTION 
+GO
+ALTER VIEW VWPMO_WF_ACTIVE AS 
+SELECT
+	T.GUID AS WF_TASK_ID
+	,T1.GUID AS WF_ID
+	,T.RECORD_ID
+	,T.STATE_ID
+	,T4.GUID FORM_VIEW_ID
+	,T.COMMENT 
+	,T.DUE_DATE
+	,T.ADDED_WHEN
+	,T.CHANGED_WHO
+	,T.CHANGED_WHEN
+	,T.TASK_DATE
+	,T2.FINAL
+	,T2.ENTITY_ID
+	,T5.COLOR
+	,dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(T.RECORD_ID) AS RECORD_DESCRIPTION
+	--,(SELECT COLUMN_NAME1 FROM  ))
+	--, @USER AS USERNAME
+FROM          
+	TBPMO_WORKFLOW_TASK T
+	,TBPMO_WORKFLOW T1
+	,TBPMO_WORKFLOW_ENTITY_STATE T2
+	,TBPMO_FORM T3
+	,TBPMO_FORM_VIEW T4
+	,TBPMO_WORKFLOW_TASK_STATE T5
+WHERE 
+	T.WF_ID = T1.GUID AND
+	T1.GUID = T1.GUID AND
+	T2.WF_ID = t1.GUID AND
+	T2.ENTITY_ID = T3.GUID AND
+	T2.STATE_ID = T.STATE_ID AND
+	T3.GUID = T4.FORM_ID AND
+	T.STATE_ID = T5.GUID AND
+	T4.SCREEN_ID = 1 AND
+	((T2.FINAL = 1 AND T.DUE_DATE IS NULL) OR T2.FINAL = 0) AND
+	T.ACTIVE = 1
+GO
+CREATE PROCEDURE PRPMO_DELETE_RECORD(@pRECORD_ID INT)
+AS
+BEGIN TRY
+	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_FOLLUPEMAIL_RECORD WHERE RECORD_ID = @pRECORD_ID
+    DELETE FROM TBPMO_RECORD WHERE GUID = @pRECORD_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
+GRANT EXECUTE ON [dbo].[PRPMO_DELETE_RECORD] TO [DD_ECM]
+GO
+CREATE TABLE TBPMO_RIGHT_GROUP
+(
+	GUID			INTEGER	IDENTITY(1,1),         				-- Eindeutiger Tabellenschlüssel
+	ENTITY_ID		INTEGER		NOT NULL,
+	GROUP_ID		INTEGER		NOT NULL,
+	EDIT_REC		BIT		NOT NULL	DEFAULT 1,
+	ADD_REC			BIT		NOT NULL	DEFAULT 1,
+	DELETE_REC		BIT		NOT NULL	DEFAULT 0,
+	ADD_DOC			BIT		NOT NULL	DEFAULT 1,
+	VIEW_DOC		BIT		NOT NULL	DEFAULT 1,
+	DELETE_DOC		BIT		NOT NULL	DEFAULT 0,
+	ADDED_WHO		VARCHAR(50)	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 	DEFAULT GETDATE(),
+	CHANGED_WHO		VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_RIGHT_GROUP	PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_RIGHT_GROUP_ENTITY_ID		FOREIGN KEY (ENTITY_ID)  REFERENCES  TBPMO_FORM (GUID),
+	CONSTRAINT		FK_TBPMO_RIGHT_GROUP_GROUP_ID		FOREIGN KEY (GROUP_ID)  REFERENCES  TBDD_USER_GROUPS (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_RIGHT_GROUP_AFT_UPD ON TBPMO_RIGHT_GROUP
+FOR UPDATE
+AS
+BEGIN
+	UPDATE TBPMO_RIGHT_GROUP SET CHANGED_WHEN = GETDATE() FROM INSERTED 
+	WHERE TBPMO_RIGHT_GROUP.GUID = INSERTED.GUID
+END
+GO
+
+--DECLARE	@GROUPID		INT
+
+--DECLARE	c_GROUPS CURSOR FOR SELECT GUID FROM TBDD_USER_GROUPS
+
+--BEGIN
+--	OPEN c_GROUPS 
+--    FETCH NEXT FROM c_GROUPS INTO @GROUPID
+    
+--	WHILE @@FETCH_STATUS = 0
+--		BEGIN
+--			IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = 93 AND GROUP_ID = @GROUPID)
+--				INSERT INTO TBPMO_RIGHT_GROUP (ENTITY_ID,GROUP_ID,ADDED_WHO) VALUES (93,@GROUPID,'Digital Data')
+			
+--			FETCH NEXT FROM c_GROUPS INTO @GROUPID
+--		END
+
+--	CLOSE c_GROUPS
+--    DEALLOCATE c_GROUPS
+--END

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.7.sql

@@ -0,0 +1,52 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.7' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD CONTROL_DOCTYPE_MATCH INTEGER NOT NULL DEFAULT '0'
+GO
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD SQL_RIGHT_READ_AND_VIEW_ONLY VARCHAR(5000) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD SQL_QUICK_VIEW VARCHAR(MAX) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD LOAD_DIRECT BIT NOT NULL DEFAULT 0
+GO
+ALTER VIEW VWPMO_CONSTRUCTOR_FORMS AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T1.GUID FORM_VIEW_ID,
+	T1.SCREEN_ID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.SQL_QUICK_VIEW,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID,
+	T2.LOAD_DIRECT,
+	T2.CONTROL_DOCTYPE_MATCH,
+	T2.SQL_RIGHT_READ_AND_VIEW_ONLY
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+GO
+ALTER TABLE TBPMO_RECORD
+ADD IN_WORK BIT NOT NULL DEFAULT 0
+GO
+ALTER TABLE TBPMO_RECORD
+ADD IN_WORK_WHO VARCHAR(100)
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.8.sql

@@ -0,0 +1,90 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.8' where NAME = 'Record-Organizer' 
+GO
+ALTER VIEW VWPMO_CONTROL_SCREEN AS
+SELECT TOP 100 PERCENT
+	T.GUID			CONTROL_ID,
+	T.NAME			CONTROL_NAME,
+	T.REQUIRED		CONTROL_REQUIRED,
+	T.DEFAULT_VALUE	CONTROL_DEF_VALUE,
+	T.READ_ONLY		CONTROL_READ_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.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
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD SQL_RIGHT_WINDREAM_VIEW VARCHAR(5000) NOT NULL DEFAULT ''
+GO
+ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T1.GUID FORM_VIEW_ID,
+	T1.SCREEN_ID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.SQL_QUICK_VIEW,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID,
+	T2.LOAD_DIRECT,
+	T2.CONTROL_DOCTYPE_MATCH,
+	T2.SQL_RIGHT_READ_AND_VIEW_ONLY,
+	T2.SQL_RIGHT_WINDREAM_VIEW
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+GO
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.9.sql

@@ -0,0 +1,373 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.9' where NAME = 'Record-Organizer' 
+GO
+CREATE TABLE TBPMO_SAP_FUBA
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	NAME			VARCHAR(100)	NOT NULL,
+	COMMENT			VARCHAR(500),
+	Method			VARCHAR(50)		NOT NULL DEFAULT 'TABLE',
+	TableName		VARCHAR(100)	NOT NULL,
+	Host			VARCHAR(100)	NOT NULL,
+	SystemNumber	VARCHAR(30)		NOT NULL,
+	UserName		VARCHAR(50)		NOT NULL,
+	[Password]		VARCHAR(100)	NOT NULL,
+	Client			VARCHAR(100)	NOT NULL,
+	[Language]		VARCHAR(20)		NOT NULL,
+	TempTableName	VARCHAR(100)	NOT NULL,
+	FuBa_SplitCharacter VARCHAR(1) NOT NULL DEFAULT ';',
+	WHERE_CLAUSE	VARCHAR(500),
+	ACTIVE			BIT				NOT NULL	DEFAULT	0,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_SAP_FUBA				PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_SAP_FUBA_AFT_UPD ON TBPMO_SAP_FUBA
+FOR UPDATE
+AS
+	UPDATE TBPMO_SAP_FUBA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_SAP_FUBA.GUID = INSERTED.GUID
+GO
+INSERT INTO TBPMO_CONTROL_TYPE (TYPE_NAME) VALUES ('DatagridviewCheckable')
+GO
+CREATE TRIGGER TBPMO_SAP_FUBA_AFT_UPD ON TBPMO_SAP_FUBA
+FOR UPDATE
+AS
+	UPDATE TBPMO_SAP_FUBA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_SAP_FUBA.GUID = INSERTED.GUID
+GO
+
+
+ALTER VIEW VWPMO_CONTROL_HINT AS 
+SELECT 
+	T2.FORM_ID,
+	T1.CONTROL_ID,
+	T.HINT 
+FROM
+	TBPMO_CONTROL_LANGUAGE T,
+	TBPMO_CONTROL_SCREEN T1,
+	TBPMO_CONTROL T2
+WHERE 
+	T.CONTROL_SCREEN_ID = T1.GUID
+	AND T1.CONTROL_ID = T2.GUID 
+	AND T1.SCREEN_ID = 1
+	AND (HINT IS NOT NULL AND HINT <> '')
+GO
+
+ALTER TABLE TBDD_USER
+ADD WAN_ENVIRONMENT BIT NOT NULL DEFAULT 0
+GO
+UPDATE TBDD_USER SET WAN_ENVIRONMENT = 1
+
+GO
+--RENAME TBDD_EMAIL_ACCOUNT in OLD
+CREATE TABLE TBDD_EMAIL_ACCOUNT
+(
+	GUID			INTEGER	IDENTITY(0,1),         				
+	NAME			VARCHAR(50),
+	EMAIL_FROM		VARCHAR(100)	NOT NULL,
+	EMAIL_SMTP		VARCHAR(100)	NOT NULL,
+	EMAIL_USER		VARCHAR(100)	NOT NULL,
+	EMAIL_PW		VARCHAR(100)	NOT NULL DEFAULT '',
+	PORT			INTEGER			NOT NULL DEFAULT '25',
+	ACTIVE			BIT			NOT NULL DEFAULT 1,
+	ADDED_WHO		VARCHAR(50)	DEFAULT 'DEFAULT'	NOT NULL,
+	ADDED_WHEN		DATETIME 	DEFAULT GETDATE(),
+	CHANGED_WHO		VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBDD_EMAIL_ACCOUNT	PRIMARY KEY (GUID)
+)
+GO
+DROP TRIGGER TBDD_EMAIL_ACCOUNT_AFT_UPD 
+GO
+CREATE TRIGGER TBDD_EMAIL_ACCOUNT_AFT_UPD ON TBDD_EMAIL_ACCOUNT
+FOR UPDATE
+AS
+BEGIN 
+	UPDATE TBDD_EMAIL_ACCOUNT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBDD_EMAIL_ACCOUNT.GUID = INSERTED.GUID
+END		
+GO
+
+INSERT INTO TBDD_EMAIL_ACCOUNT (NAME,
+	EMAIL_FROM,
+	EMAIL_SMTP	,
+	EMAIL_USER,
+	EMAIL_PW,
+	ACTIVE) SELECT NAME,
+	EMAIL_FROM,
+	EMAIL_SMTP	,
+	EMAIL_USER,
+	EMAIL_PW,
+	ACTIVE FROM TBDD_EMAIL_ACCOUNT_OLD
+
+ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
+ADD CTRL_USER_DIRECT INTEGER NOT NULL DEFAULT 0
+GO
+ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
+ADD CTRL_GROUP_DIRECT INTEGER NOT NULL DEFAULT 0
+GO
+ALTER VIEW VWPMO_FOLLOW_UP_EMAIL AS
+SELECT 
+	T1.GUID FOLLOW_UP_ID,
+	T1.NAME,
+	T1.FOLLOW_UP_SEQUENCE,
+	T1.FOLLOW_UP_DAYS,
+	T1.FOLLOW_UP_TIME_SPAN,
+	CONVERT(CHAR(5),GETDATE(),108) NOW_TIME,
+	T.RECORD_ID,
+	CONVERT(DATE,T.VALUE) VALUE,
+	T1.EMAIL_SUBJECT,
+	T1.EMAIL_BODY,
+	T1.PROCESS_SELECT1,
+	T1.PROCESS_SELECT2,
+	T1.PROCESS_SELECT3,
+	T1.PROCESS_SELECT4,
+	T1.PROCESS_SELECT5,
+	T1.PROCESS_SELECT6,
+	T1.PROCESS_SELECT7,
+	T1.PROCESS_SELECT8,
+	T1.PROCESS_SELECT9,
+	T1.PROCESS_SELECT10,
+	T1.TIME_UNITY,
+	T1.TIME_DIST,
+	CASE T1.TIME_UNITY 
+		WHEN 'Month' THEN 
+			DATEDIFF(month, getdate(),convert(Date,T.value))
+		WHEN 'Week' THEN 
+			DATEDIFF(week, getdate(),convert(Date,T.value))
+		END TIME_SPAN,
+	T1.DEPENDENT_DATE_CTRL_ID,
+	T1.DEPENDENT_DONE_CTRL_ID,
+	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) DONE_VALUE,
+	T2.GUID AS CONSTRUCTOR_ID,
+	T2.FORM_TITLE AS CONSTRUCTOR_TITLE,
+	T1.CTRL_USER_DIRECT,
+	T1.CTRL_GROUP_DIRECT
+FROM 
+	VWPMO_VALUES T, 
+	TBPMO_FOLLOW_UP_EMAIL T1,
+	TBPMO_FORM_CONSTRUCTOR T2
+WHERE 
+	T1.ACTIVE = 1 AND
+	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) = 'False' And
+	T.CONTROL_ID = T1.DEPENDENT_DATE_CTRL_ID AND
+	T1.CONSTRUCTOR_ID = T2.GUID AND
+	T1.TIME_SPAN =
+	CASE T1.TIME_UNITY 
+		WHEN 'Month' THEN 
+			DATEDIFF(month, getdate(),convert(Date,T.value))
+		WHEN 'Week' THEN 
+			DATEDIFF(week, getdate(),convert(Date,T.value))
+    END
+
+GO
+ALTER TABLE TBPMO_CONTROL_VALUE
+ADD CHANGE_STEP INTEGER NOT NULL DEFAULT 0
+GO
+ALTER TABLE TBPMO_CONTROL_VALUE
+ADD REDO			BIT				NOT NULL DEFAULT 0
+GO
+CREATE TABLE TBPMO_CONTROL_VALUE_CHANGE_HISTORY
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	RECORD_ID		INTEGER,
+	CONTROL_ID		INTEGER,
+	VALUE			VARCHAR(MAX),
+	CHANGE_STEP		INTEGER,
+	ADDED_WHO		VARCHAR(50)		NOT NULL,
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_CONTROL_VALUE_CHANGE_HISTORY_CHANGE_HISTORY	PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_CONTROL_VALUE_CHANGE_HISTORY_CHANGE_HISTORY_UPD ON TBPMO_CONTROL_VALUE_CHANGE_HISTORY
+FOR UPDATE
+AS
+	UPDATE TBPMO_CONTROL_VALUE_CHANGE_HISTORY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_VALUE_CHANGE_HISTORY.GUID = INSERTED.GUID
+GO
+ALTER TRIGGER [dbo].[TBPMO_CONTROL_VALUE_AFT_UPD] ON [dbo].[TBPMO_CONTROL_VALUE]
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@CONTROL_ID	INTEGER,
+		@RECORD_ID INTEGER,
+		@VALUE_NEW VARCHAR(MAX),
+		@VALUE_OLD VARCHAR(MAX),
+		@CHANGED_WHO VARCHAR(50),
+		@CHANGE_STEP INTEGER,
+		@REDO	BIT
+	IF UPDATE (VALUE)
+		BEGIN
+			SELECT 
+				@CONTROL_ID = DELETED.CONTROL_ID,
+				@RECORD_ID = DELETED.RECORD_ID,
+				@VALUE_OLD = DELETED.VALUE				
+			FROM DELETED
+			--RAISERROR (@VALUE , 16, 1)
+			SELECT 
+				@CHANGE_STEP = CHANGE_STEP,
+				@CHANGED_WHO = CHANGED_WHO,
+				@VALUE_NEW = VALUE,
+				@REDO = REDO
+			FROM INSERTED
+
+			IF @REDO = 0
+				IF @VALUE_OLD <> @VALUE_NEW AND  NOT EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID AND VALUE = @VALUE_OLD AND CHANGE_STEP = @CHANGE_STEP)
+					INSERT INTO TBPMO_CONTROL_VALUE_CHANGE_HISTORY (RECORD_ID,CONTROL_ID,VALUE,CHANGE_STEP,ADDED_WHO) VALUES
+					(@RECORD_ID,@CONTROL_ID,@VALUE_OLD,@CHANGE_STEP,@CHANGED_WHO)
+			--Update des Logs für loggen von Datensatzänderungen
+			IF EXISTS(SELECT LOG_UPDATE FROM TBPMO_RECORD_LOG_CONFIG WHERE CONTROL_ID = @CONTROL_ID AND LOG_UPDATE = 1)
+				BEGIN
+			If @VALUE_OLD <> @VALUE_NEW 
+				BEGIN
+					DECLARE @LOG VARCHAR(1000)
+					SET @LOG = 'Update of Value - OLD-VALUE: ' + @VALUE_OLD + ' / NEW VALUE: ' + @VALUE_NEW
+					INSERT INTO TBPMO_RECORD_LOG (RECORD_ID,CONTROL_ID,LOG_DESCRIPTION,ADDED_WHO) VALUES 
+					(@RECORD_ID,@CONTROL_ID,@LOG,@CHANGED_WHO)
+				END
+			END
+		END
+	--Generelle Updates (Datum und Recor-Änderungen)
+	UPDATE TBPMO_CONTROL_VALUE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_VALUE.GUID = INSERTED.GUID
+	UPDATE TBPMO_RECORD SET	CHANGED_WHO = @CHANGED_WHO	WHERE TBPMO_RECORD.GUID = @RECORD_ID
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) 
+		+ ' - ERROR-MESSAGE: ' 
+		+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+CREATE PROCEDURE [dbo].[PRPMO_REDO_RECORD_CHANGES] (@RECORD_ID INTEGER)
+AS
+BEGIN
+	DECLARE
+		@CHANGE_STEP	INTEGER,
+		@CONTROL_ID		INTEGER,
+		@GUID			INTEGER,
+		@VALUE			VARCHAR(MAX)		
+								
+	DECLARE c_REDO CURSOR FOR 
+		SELECT MAX(GUID),CONTROL_ID, CHANGE_STEP FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID GROUP BY CONTROL_ID, CHANGE_STEP, RECORD_ID 
+  	OPEN c_REDO 
+    	FETCH NEXT FROM c_REDO INTO @GUID,@CONTROL_ID,@CHANGE_STEP
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SELECT @VALUE = VALUE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE GUID = @GUID
+			UPDATE TBPMO_CONTROL_VALUE SET VALUE = @VALUE, REDO = 1 WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID
+			DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE GUID = @GUID
+			UPDATE TBPMO_CONTROL_VALUE SET REDO = 0 WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID									        	
+			FETCH NEXT FROM c_REDO INTO @GUID,@CONTROL_ID,@CHANGE_STEP
+		END
+	CLOSE c_REDO
+	DEALLOCATE c_REDO
+  END
+  GO
+ALTER TABLE TBPMO_RECORD
+ADD COLOR VARCHAR(50) NOT NULL DEFAULT ''
+GO
+
+
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_SQL](@pFORM_ID INT)
+AS
+DECLARE	@COL_NAME		VARCHAR(50),
+		@SQL_BEGIN		VARCHAR(1000),
+		@SQL_END		VARCHAR(2000),
+		@SQL			VARCHAR(5000),
+		@CONTROL_ID		INT,
+		@RESULT			VARCHAR(8000),
+		@TYPEID			INT,
+		@TABINDEX		INT,
+		@SQL_LBL VARCHAR(2000)
+		
+DECLARE	c_SPALTENNAMEN	CURSOR FOR SELECT T.GUID,'['+T.COL_NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE 
+									T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5)  UNION
+								   SELECT T.GUID,'['+T.NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE 
+									T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID and t.CONTROL_TYPE_ID = 1 AND LEN(ISNULL(t.SQL_COMMAND_1,'')) > 0 ORDER BY TAB_INDEX
+BEGIN
+	SET @SQL_BEGIN = 'SELECT T.GUID AS [Record-ID],T.COLOR AS ROW_COLOR, T.FORM_ID AS [Form-ID],'
+	SET @SQL_END = ',T.ADDED_WHO as AddedWho,T.ADDED_WHEN as AddedWhen, T.CHANGED_WHO As ChangedWho, T.CHANGED_WHEN As ChangedWhen FROM TBPMO_RECORD T, TBPMO_FORM T1 WHERE T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID' 
+
+	SET @SQL_END = REPLACE(@SQL_END,'@FORM_ID',@pFORM_ID)
+	
+	OPEN c_SPALTENNAMEN 
+    FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @COL_NAME = REPLACE(@COL_NAME,'lbl','')
+			IF LEN(ISNULL(@SQL,'')) = 0
+				BEGIN
+					IF @TYPEID = 10 OR @TYPEID = 11
+						SET @SQL = 'ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+					ELSE IF @TYPEID = 6
+						SET @SQL = '(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = '(' + @SQL_LBL + ') AS ' + @COL_NAME
+						END
+					ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14 
+						SET @SQL = '(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+					ELSE
+						SET @SQL = '(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+				END
+			ELSE
+				BEGIN
+					IF (@TYPEID = 10) OR (@TYPEID = 11)
+						SET @SQL = @SQL + ',ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+					ELSE IF @TYPEID = 6
+						SET @SQL = @SQL + ',(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = @SQL + ',(' + @SQL_LBL + ') AS ' + @COL_NAME
+						END
+					ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14
+						SET @SQL = @SQL + ',(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+					ELSE
+						SET @SQL = @SQL + ',(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+				END
+			
+			FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+		END
+
+	CLOSE c_SPALTENNAMEN
+    DEALLOCATE c_SPALTENNAMEN
+
+	SET @RESULT = @SQL_BEGIN + @SQL + @SQL_END
+
+	IF EXISTS (SELECT FORM_ID FROM TBPMO_FORM_SQL WHERE FORM_ID = @pFORM_ID)
+		UPDATE TBPMO_FORM_SQL SET SQL_COMMAND = @RESULT WHERE FORM_ID = @pFORM_ID
+	ELSE	
+		INSERT INTO TBPMO_FORM_SQL(FORM_ID,SQL_COMMAND) VALUES(@pFORM_ID,@RESULT)
+END
+GO
+/*UPDATE DER SQLS*/
+BEGIN
+	DECLARE
+		@ENTITY_ID	INTEGER		
+								
+	DECLARE c_REDO CURSOR FOR 
+		SELECT GUID FROM TBPMO_FORM
+  	OPEN c_REDO 
+    	FETCH NEXT FROM c_REDO INTO @ENTITY_ID
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			EXEC DBO.PRPMO_CREATE_SQL @ENTITY_ID
+			FETCH NEXT FROM c_REDO INTO @ENTITY_ID
+		END
+	CLOSE c_REDO
+	DEALLOCATE c_REDO
+  END
+GO
+EXEC PRPMO_CREATE_TEMP_VIEWS 
+GO
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4/FNPMO_GET_CONTROL_CAPTION.sql

@@ -0,0 +1,15 @@
+CREATE FUNCTION [dbo].[FNPMO_GET_CONTROL_CAPTION](@pLANG_TYPE VARCHAR(5), @pSCREEN_ID INTEGER,@pCONTROL_ID INTEGER )
+RETURNS VARCHAR(100)
+AS
+BEGIN
+	DECLARE @CAPTION VARCHAR(100),
+	@CTRL_SCREEN_ID INTEGER
+
+	SELECT @CTRL_SCREEN_ID = GUID FROM TBPMO_CONTROL_SCREEN WHERE 
+	CONTROL_ID = @pCONTROL_ID AND SCREEN_ID = @pSCREEN_ID
+
+	SELECT @CAPTION = CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE LANGUAGE_TYPE = @pLANG_TYPE AND 
+	CONTROL_SCREEN_ID = @CTRL_SCREEN_ID
+
+  RETURN(ISNULL(@CAPTION,''))
+END

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.0.sql

@@ -0,0 +1,39 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.0' where NAME = 'Record-Organizer' 
+GO
+
+CREATE TABLE TBPMO_WD_NAMECONVENTION_FORMAT
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	ID 				INTEGER			NOT NULL,
+	PATTERN			VARCHAR(50)		NOT NULL,
+	FORMAT_RULE		VARCHAR(100)    NOT NULL,
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_WD_NAMECONVENTION_FORMAT				PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_WD_NAMECONVENTION_FORMAT_UPD ON TBPMO_WD_NAMECONVENTION_FORMAT
+FOR UPDATE
+AS
+	UPDATE TBPMO_WD_NAMECONVENTION_FORMAT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_NAMECONVENTION_FORMAT.GUID = INSERTED.GUID
+GO
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_DOCTYPE](@pDOCID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID IN (SELECT GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID)
+	DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = @pDOCID
+	DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_CLIENT_DOCTYPE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_TEMPLATE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_DOKUMENTART WHERE GUID = @pDOCID
+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

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.1.sql

@@ -0,0 +1,38 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.1' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBDD_INDEX_MAN
+ADD SAVE_VALUE BIT NOT NULL DEFAULT 0
+GO
+ALTER VIEW VWDDINDEX_MAN
+AS
+SELECT TOP 2000
+     T.GUID,
+     T.NAME		INDEXNAME,
+	 T.WD_INDEX,
+     T.COMMENT,
+     T.DATATYPE,
+     T.DOK_ID,
+     T1.BEZEICHNUNG	    DOKUMENTART,
+     T1.KURZNAME,
+     T.SUGGESTION,
+     T.CONNECTION_ID,
+     T2.BEZEICHNUNG		CONNECTION,
+     T2.SQL_PROVIDER,
+     T2.SERVER,
+     T2.DATENBANK,
+     T2.USERNAME,
+     T2.PASSWORD,
+     T.SQL_RESULT,
+     T.SQL_CHECK,
+	 T.OPTIONAL,
+	 T.SAVE_VALUE
+FROM
+	 TBDD_INDEX_MAN				T
+	 INNER JOIN TBDD_DOKUMENTART	T1 ON T.DOK_ID = T1.GUID AND T1.AKTIV = 1
+	 LEFT  JOIN TBDD_CONNECTION	T2 ON T.CONNECTION_ID = T2.GUID	AND T2.AKTIV = 1
+WHERE
+	T.ACTIVE = 1
+ORDER BY
+	 T.DOK_ID,
+	 T.GUID
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.2.sql

@@ -0,0 +1,182 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.2' where NAME = 'Record-Organizer' 
+GO
+CREATE PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
+    DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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 TABLE TBPMO_CONTROL
+ADD VISIBLE BIT NOT NULL DEFAULT 1
+GO
+ALTER TABLE TBPMO_CONTROL
+ADD TREE_VIEW BIT NOT NULL DEFAULT 0
+GO
+ALTER VIEW VWPMO_CONTROL_SCREEN AS
+SELECT TOP 100 PERCENT
+	T.GUID			CONTROL_ID,
+	T.NAME			CONTROL_NAME,
+	T.REQUIRED		CONTROL_REQUIRED,
+	T.DEFAULT_VALUE	CONTROL_DEF_VALUE,
+	T.READ_ONLY		CONTROL_READ_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
+ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS 
+SELECT TOP 100 PERCENT
+	W_T.GUID AS WF_TASK_ID
+	,R.GUID AS WF_ID
+	,W_T.RECORD_ID
+	,T.STATE_ID
+	,T4.GUID FORM_VIEW_ID
+	,W_T.COMMENT 
+	,W_T.DUE_DATE
+	,W_T.ADDED_WHEN
+	,W_T.CHANGED_WHO
+	,W_T.CHANGED_WHEN
+	,W_T.TASK_DATE
+	,T.FINAL
+	,T.ENTITY_ID
+	,T5.COLOR
+	,dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(W_T.RECORD_ID) AS RECORD_DESCRIPTION
+FROM  
+	TBPMO_WORKFLOW_ENTITY_STATE T,        
+	TBPMO_WORKFLOW_TASK W_T
+	,TBPMO_WORKFLOW R
+	,TBPMO_FORM T3
+	,TBPMO_FORM_VIEW T4
+	,TBPMO_WORKFLOW_TASK_STATE T5
+	,TBPMO_RECORD REC
+WHERE
+	--W_T.RECORD_ID = 95 AND 
+	--TBPMO_WORKFLOW_ENTITY_STATE
+	T.WF_ID = R.GUID AND
+	T.ENTITY_ID = T3.GUID AND
+	T.STATE_ID = T5.GUID AND
+	W_T.RECORD_ID = REC.GUID AND
+	T.ENTITY_ID = REC.FORM_ID AND
+
+
+	W_T.WF_ID = R.GUID AND
+	R.GUID = R.GUID AND
+	
+	
+	
+	T3.GUID = T4.FORM_ID AND
+	W_T.STATE_ID = T5.GUID AND
+	T4.SCREEN_ID = 1 AND
+	((T.FINAL = 1 AND W_T.DUE_DATE IS NULL) OR T.FINAL = 0) AND
+	W_T.ACTIVE = 1
+ORDER BY W_T.RECORD_ID,W_T.GUID
+
+GO
+ALTER TRIGGER [dbo].[TBPMO_FORM_AFT_INS] ON [dbo].[TBPMO_FORM]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@FORM_ID		INTEGER,
+		@FORM_TYPE		INTEGER,
+		@ADDED_WHO		VARCHAR(50)
+		--@SQL_RECORD1	VARCHAR(500),
+		--@SQL_RECORD2	VARCHAR(500)
+	SELECT
+  		@FORM_ID = GUID,
+		@FORM_TYPE = FORM_TYPE_ID,
+		@ADDED_WHO = ADDED_WHO	
+	FROM INSERTED
+	
+	IF @FORM_TYPE = 5
+		BEGIN	
+			INSERT INTO TBPMO_CONTROL (
+				FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, [COL_NAME]) VALUES (
+				@FORM_ID,2,'GROUP_RECORD','txtGROUP_RECORD','GROUP_RECORD')
+				DECLARE @CTRL_ID INTEGER
+				SELECT @CTRL_ID = MAX(GUID) FROM TBPMO_CONTROL WHERE FORM_ID = @FORM_ID
+				INSERT INTO TBPMO_CONTROL_SCREEN (
+				CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH, TAB_INDEX) VALUES (
+				@CTRL_ID, 1, 'GROUP_RECORD', 5, 5, 22, 100,1)
+		END
+	
+	--EXEC dbo.PRPMO_CREATE_SQL @FORM_ID
+	--EXEC dbo.PRPMO_CREATE_TEMP_VIEWS
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+BEGIN TRY
+	INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID,ENTITY_ID) 
+	SELECT T.CLIENT_ID,@FORM_ID FROM TBDD_CLIENT_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND UPPER(T1.USERNAME) = UPPER(@ADDED_WHO)
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR INSERTING TBPMO_CLIENT_ENTITY-ERROR-MESSAGE: ' + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+
+
+
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.3.sql

@@ -0,0 +1,240 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.3' where NAME = 'Record-Organizer' 
+GO
+
+ALTER TABLE TBPMO_FORM
+ADD DATE_FORMAT VARCHAR(10)  NOT NULL DEFAULT'dd-MM-yyyy'
+GO
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_SQL](@pFORM_ID INT)
+AS
+DECLARE	@COL_NAME		VARCHAR(50),
+		@SQL_BEGIN		VARCHAR(1000),
+		@SQL_END		VARCHAR(2000),
+		@SQL			VARCHAR(5000),
+		@CONTROL_ID		INT,
+		@RESULT			VARCHAR(8000),
+		@TYPEID			INT,
+		@TABINDEX		INT,
+		@SQL_LBL VARCHAR(2000)
+		
+DECLARE	c_SPALTENNAMEN	CURSOR FOR SELECT T.GUID,'['+T.COL_NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE 
+									T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5)  UNION
+								   SELECT T.GUID,'['+T.NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE 
+									T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID and t.CONTROL_TYPE_ID = 1 AND LEN(ISNULL(t.SQL_COMMAND_1,'')) > 0 ORDER BY TAB_INDEX
+BEGIN
+	SET @SQL_BEGIN = 'SELECT T.GUID AS [Record-ID],T.COLOR AS ROW_COLOR, T.FORM_ID AS [Form-ID],'
+	SET @SQL_END = ',T.ADDED_WHO as AddedWho,T.ADDED_WHEN as AddedWhen, T.CHANGED_WHO As ChangedWho, T.CHANGED_WHEN As ChangedWhen FROM TBPMO_RECORD T, TBPMO_FORM T1 WHERE T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID' 
+
+	SET @SQL_END = REPLACE(@SQL_END,'@FORM_ID',@pFORM_ID)
+	
+	OPEN c_SPALTENNAMEN 
+    FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @COL_NAME = REPLACE(@COL_NAME,'lbl','')
+			IF LEN(ISNULL(@SQL,'')) = 0
+				BEGIN
+					IF @TYPEID = 10 OR @TYPEID = 11
+						SET @SQL = 'ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+					ELSE IF @TYPEID = 6
+						SET @SQL = '(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = '(' + @SQL_LBL + ') AS ' + @COL_NAME
+						END
+					ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14 
+						SET @SQL = '(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+					ELSE
+						SET @SQL = '(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+				END
+			ELSE
+				BEGIN
+					IF (@TYPEID = 10) OR (@TYPEID = 11)
+						SET @SQL = @SQL + ',ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+					ELSE IF @TYPEID = 6
+						SET @SQL = @SQL + ',(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = @SQL + ',(' + @SQL_LBL + ') AS ' + @COL_NAME
+						END
+					ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14
+						SET @SQL = @SQL + ',(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+					ELSE
+						SET @SQL = @SQL + ',(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+				END
+			
+			FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+		END
+
+	CLOSE c_SPALTENNAMEN
+    DEALLOCATE c_SPALTENNAMEN
+
+	SET @RESULT = @SQL_BEGIN + @SQL + @SQL_END
+
+	IF EXISTS (SELECT FORM_ID FROM TBPMO_FORM_SQL WHERE FORM_ID = @pFORM_ID)
+		UPDATE TBPMO_FORM_SQL SET SQL_COMMAND = @RESULT WHERE FORM_ID = @pFORM_ID
+	ELSE	
+		INSERT INTO TBPMO_FORM_SQL(FORM_ID,SQL_COMMAND) VALUES(@pFORM_ID,@RESULT)
+END
+GO
+CREATE PROCEDURE [dbo].[PRPMO_DELETE_CONSTRUCTOR](@pCONSTR_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_CLIENT_CONSTRUCTOR WHERE CONSTRUCT_ID = @pCONSTR_ID
+    DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = @pCONSTR_ID
+	DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE FOLLOW_UP_ID IN (SELECT GUID FROM TBPMO_FOLLOW_UP_EMAIL WHERE CONSTRUCTOR_ID = @pCONSTR_ID)
+	DELETE FROM TBPMO_FOLLOW_UP_EMAIL WHERE CONSTRUCTOR_ID = @pCONSTR_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @pCONSTR_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = @pCONSTR_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 PROCEDURE [dbo].[PRPMO_CREATE_CONSTRUCTOR](@pFORM_ID INT, @pNAME VARCHAR(50))
+AS
+DECLARE		
+	@NEW_CONSTR_ID	INTEGER,
+	@FORM_ID		INTEGER,
+	@PARENT_ID		INTEGER,
+	@PARENT_ID2		INTEGER,
+	@LEVEL1_SELECT	INTEGER,
+	@SEQUENCE		INTEGER,
+	@SEQUENCE2		INTEGER,
+	@SQL_SELECT_EBENE1	VARCHAR(4000)
+	
+	IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME))
+		INSERT INTO TBPMO_FORM_CONSTRUCTOR (FORM_TITLE,SEQUENCE_MENU,ADDED_WHO, SHORT_TITLE) VALUES
+		(@pNAME,1, 'CREATE_ROUTINE','SHORT-TITLE')
+	
+	SELECT @NEW_CONSTR_ID =  MAX(GUID) FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME)
+	
+	PRINT 'INSERT1 DURCH' 
+	
+		
+	PRINT 'INSERT2 DURCH' 
+DECLARE	c_ENTITY1	CURSOR FOR 
+	SELECT 
+		T.GUID,	T.PARENT_ID, T.LEVEL
+		FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1  AND T.PARENT_ID = @pFORM_ID ORDER BY T.LEVEL 
+BEGIN
+	OPEN c_ENTITY1 
+    FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @NEW_CONSTR_ID AND FORM_ID = @FORM_ID AND PARENT_ID = @PARENT_ID)
+				BEGIN
+					PRINT 'c_ENTITY1: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @' + CONVERT(VARCHAR(3),@FORM_ID)
+					INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
+						CONSTRUCT_ID
+						,FORM_ID
+						,PARENT_ID
+						,LEVEL1_SELECT
+						,SEQUENCE
+						,SQL_SELECT_EBENE1
+						,SQL_SELECT_EBENE2
+						,ADDED_WHO
+					) VALUES (
+						@NEW_CONSTR_ID
+						,@FORM_ID
+						,@PARENT_ID 
+						,0
+						,@SEQUENCE
+						,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
+						,'SELECT T.* FROM VWTEMP_PMO_FORM' +  CONVERT(VARCHAR(5),@PARENT_ID) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
+						,'CREATE_ROUTINE2'
+					)
+				END
+
+			If EXISTS(SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @FORM_ID)
+				BEGIN
+				PRINT 'c_ENTITY2: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = ' + CONVERT(VARCHAR(3),@FORM_ID)
+			--###############
+					DECLARE	c_ENTITY2	CURSOR FOR 
+						SELECT 
+							T.GUID,	T.PARENT_ID, T.LEVEL
+							FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1  AND T.PARENT_ID = @FORM_ID ORDER BY T.LEVEL
+					BEGIN
+						OPEN c_ENTITY2
+						FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
+    
+						WHILE @@FETCH_STATUS = 0
+							BEGIN
+								INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
+									CONSTRUCT_ID
+									,FORM_ID
+									,PARENT_ID
+									,LEVEL1_SELECT
+									,SEQUENCE
+									,SQL_SELECT_EBENE1
+									,SQL_SELECT_EBENE2
+									,ADDED_WHO
+								) VALUES (
+									@NEW_CONSTR_ID
+									,@FORM_ID
+									,@PARENT_ID2 
+									,0
+									,@SEQUENCE2
+									,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
+									,'SELECT T.* FROM VWTEMP_PMO_FORM' +  CONVERT(VARCHAR(5),@PARENT_ID2) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
+									,'CREATE_ROUTINE3'
+								)
+								FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
+							END
+						CLOSE c_ENTITY2
+						DEALLOCATE c_ENTITY2
+					END
+				END
+			--###############
+				
+			FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
+		END
+
+	CLOSE c_ENTITY1
+    DEALLOCATE c_ENTITY1
+END
+GO
+CREATE VIEW [dbo].[VWPMO_CONTROL_HINT] AS 
+SELECT 
+	T2.FORM_ID,
+	T1.CONTROL_ID,
+	T.HINT 
+FROM
+	TBPMO_CONTROL_LANGUAGE T,
+	TBPMO_CONTROL_SCREEN T1,
+	TBPMO_CONTROL T2
+WHERE 
+	T.CONTROL_SCREEN_ID = T1.GUID
+	AND T1.CONTROL_ID = T2.GUID 
+	AND T1.SCREEN_ID = 1
+	AND (HINT IS NOT NULL AND HINT <> '')
+GO
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
+    DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
+	IF OBJECT_ID (N'TBPMO_DOCSEARCH_RESULTLIST_CONFIG', N'U') IS NOT NULL 
+		DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE [ENTITY_ID]	 = @pENTITY_ID
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.3_RENOLIT.sql

@@ -0,0 +1,60 @@
+ALTER VIEW [dbo].[VWPMO_WD_DOC_SEARCH] AS 
+SELECT 
+	T.dwDocID as DocID
+	,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,20006)							AS [ENTITY_ID]
+	,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,20005)							AS [RECORD_ID]
+	,T.dwInteger24																	AS [PARENT_ID]
+	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) + T.szLongName					AS FULL_FILENAME
+	,szLongName																		as [Filename], 
+	T.szText39																		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
+	,T1.szDocTypeName																AS OBJECTTYPE
+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.dwInteger23 is not null 
+
+GO
+
+USE [DD_ECM]
+GO
+ALTER FUNCTION [dbo].[FNPMO_GET_WINDREAM_VKT_INT](@pdwDocID INTEGER,@pdwAttributID INTEGER)
+RETURNS VARCHAR(4000)
+AS 
+BEGIN
+	DECLARE	
+		@RESULT		VARCHAR(4000),
+		@VALUE	INTEGER
+		
+
+		
+	DECLARE	c_RESULT CURSOR FOR SELECT [dwValue] FROM [172.24.12.41\BRAINPOOL].windream60.[dbo].[Vector] 
+	where dwDocID = @pdwDocID and dwAttrID = @pdwAttributID
+
+
+	BEGIN
+		OPEN c_RESULT 
+		FETCH NEXT FROM c_RESULT INTO @VALUE
+    
+		WHILE @@FETCH_STATUS = 0
+			BEGIN
+				IF LEN(@RESULT) > 0
+					SET @RESULT = @RESULT + '#' + CONVERT(VARCHAR(30),@VALUE)
+				ELSE
+					SET @RESULT = '#' + CONVERT(VARCHAR(30),@VALUE) 
+				FETCH NEXT FROM c_RESULT INTO @VALUE
+			END
+
+		CLOSE c_RESULT
+		DEALLOCATE c_RESULT
+
+		RETURN(@RESULT)
+	END
+END
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.4.sql

@@ -0,0 +1,340 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.4' where NAME = 'Record-Organizer' 
+GO
+CREATE TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	[ENTITY_ID]		INTEGER			NOT NULL,
+	[LANGUAGE]		VARCHAR(5)		NOT NULL	DEFAULT 'de-DE',
+	COLUMN_VIEW		VARCHAR(100)	NOT NULL,
+	HEADER_CAPTION	VARCHAR(100)	NOT NULL,
+	WIDTH			INTEGER			NOT NULL	DEFAULT 250,
+	[TYPE_ID]		TINYINT			NOT NULL	DEFAULT 1,			
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOCSEARCH_RESULTLIST_CONFIG		PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_DOCSEARCH_RESULTLIST_CONFIG_ENTITY_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_DOCSEARCH_RESULTLIST_CONFIG_AFT_UPD ON TBPMO_DOCSEARCH_RESULTLIST_CONFIG
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUID = INSERTED.GUID
+GO
+CREATE TABLE TBPMO_DOCSEARCH_VARIABLE_CONTROLS (
+	GUID				INT IDENTITY(1,1) NOT NULL,
+	[ENTITY_ID]			INT NOT NULL,
+	OPTION1_CTRL		INT NOT NULL DEFAULT 0,
+	OPTION2_CTRL		INT NOT NULL DEFAULT 0,
+	OPTION3_CTRL		INT NOT NULL DEFAULT 0,
+	PTION4_CTRL			INT NOT NULL DEFAULT 0,
+	OPTION5_CTRL		INT NOT NULL DEFAULT 0,
+	OPTION6_CTRL		INT NOT NULL DEFAULT 0,
+	ADDED_WHO			VARCHAR(50) NOT NULL DEFAULT ('DEFAULT'),
+	ADDED_WHEN			DATETIME NULL DEFAULT (GETDATE()),
+	CHANGED_WHO			VARCHAR(50) NULL,
+	CHANGED_WHEN		DATETIME,
+	CONSTRAINT		PK_TBPMO_DOCSEARCH_VARIABLE_CONTROLS		PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_DOCSEARCH_VARIABLE_CONTROLS_ENTITY_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_DOCSEARCH_VARIABLE_CONTROLS_AFT_UPD ON TBPMO_DOCSEARCH_VARIABLE_CONTROLS
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOCSEARCH_VARIABLE_CONTROLS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCSEARCH_VARIABLE_CONTROLS.GUID = INSERTED.GUID
+GO
+
+CREATE TABLE TBPMO_STRUCTURE_NODES
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	[ENTITY_ID]		INTEGER			NOT NULL,
+	RECORD_ID		INTEGER,
+	ID1				VARCHAR(100)	NOT NULL,
+	ID2				VARCHAR(100),
+	ID3				VARCHAR(100),
+	ID4				VARCHAR(100),
+	[TYPE_NODE]		SMALLINT		NOT NULL	DEFAULT 1,	
+	CONTROL_ID		INTEGER			NOT NULL	DEFAULT 0,
+	PARENT_GUID		INTEGER			NOT NULL	DEFAULT 0,
+	BOOL1			BIT				NOT NULL	DEFAULT 0,
+	BOOL2			BIT				NOT NULL	DEFAULT 0,			
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_STRUCTURE_NODES		PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_STRUCTURE_NODESG_ENTITY_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_STRUCTURE_NODES_AFT_UPD ON TBPMO_STRUCTURE_NODES
+FOR UPDATE
+AS
+	UPDATE TBPMO_STRUCTURE_NODES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_STRUCTURE_NODES.GUID = INSERTED.GUID
+GO
+CREATE TABLE TBPMO_STRUCTURE_NODES_CONFIGURATION
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	NAME			VARCHAR(50)		NOT NULL,
+	[ENTITY_ID]		INTEGER			NOT NULL,
+	[TYPE_NODE]		SMALLINT		NOT NULL	DEFAULT 1,	
+	NODE_IMAGE		VARBINARY(MAX),
+	CREATE_RECORD	BIT				NOT NULL	DEFAULT 0,
+	COMMENT			VARCHAR(300),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_STRUCTURE_NODES_CONFIGURATION	PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_STRUCTURE_NODES_CONFIGURATION_AFT_UPD ON TBPMO_STRUCTURE_NODES_CONFIGURATION
+FOR UPDATE
+AS
+	UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_STRUCTURE_NODES_CONFIGURATION.GUID = INSERTED.GUID
+GO
+
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
+    DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
+	IF OBJECT_ID (N'TBPMO_DOCSEARCH_RESULTLIST_CONFIG', N'U') IS NOT NULL 
+		DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE [ENTITY_ID]	 = @pENTITY_ID
+	IF OBJECT_ID (N'TBPMO_STRUCTURE_NODES', N'U') IS NOT NULL 
+		DELETE FROM TBPMO_STRUCTURE_NODES WHERE [ENTITY_ID]	 = @pENTITY_ID
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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
+USE [DD_ECM]
+GO
+/****** Object:  StoredProcedure [dbo].[PRPMO_CREATE_CONSTRUCTOR]    Script Date: 30.06.2016 15:01:24 ******/
+SET ANSI_NULLS ON
+GO
+SET QUOTED_IDENTIFIER ON
+GO
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_CONSTRUCTOR](@pFORM_ID INT, @pNAME VARCHAR(50))
+AS
+DECLARE		
+	@NEW_CONSTR_ID	INTEGER,
+	@FORM_ID		INTEGER,
+	@PARENT_ID		INTEGER,
+	@PARENT_ID2		INTEGER,
+	@LEVEL1_SELECT	INTEGER,
+	@SEQUENCE		INTEGER,
+	@SEQUENCE2		INTEGER,
+	@SQL_SELECT_EBENE1	VARCHAR(4000)
+	
+	IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME))
+		INSERT INTO TBPMO_FORM_CONSTRUCTOR (FORM_TITLE,SEQUENCE_MENU,ADDED_WHO, SHORT_TITLE) VALUES
+		(@pNAME,1, 'CREATE_ROUTINE','SHORT-TITLE')
+	
+	SELECT @NEW_CONSTR_ID =  MAX(GUID) FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME)
+	
+	DECLARE	c_ENTITY0	CURSOR FOR 
+		SELECT T.GUID,T.LEVEL FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE 
+		T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = 0 AND T.GUID = @pFORM_ID  ORDER BY T.LEVEL 
+	BEGIN
+		OPEN c_ENTITY0 
+		FETCH NEXT FROM c_ENTITY0 INTO @FORM_ID,@SEQUENCE
+		WHILE @@FETCH_STATUS = 0
+			BEGIN
+				IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @NEW_CONSTR_ID AND FORM_ID = @FORM_ID AND PARENT_ID = 0)
+					INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
+						CONSTRUCT_ID
+						,FORM_ID
+						,PARENT_ID
+						,LEVEL1_SELECT
+						,SEQUENCE
+						,SQL_SELECT_EBENE1
+						,SQL_SELECT_EBENE2
+						,ADDED_WHO
+					) VALUES (
+						@NEW_CONSTR_ID
+						,@FORM_ID
+						,0
+						,0
+						,0
+						,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
+						,''
+						,'CREATE_ROUTINE2'
+					)
+				FETCH NEXT FROM c_ENTITY0 INTO @FORM_ID,@SEQUENCE	
+			END
+	END
+	CLOSE c_ENTITY0
+    DEALLOCATE c_ENTITY0
+	
+DECLARE	c_ENTITY1	CURSOR FOR 
+	SELECT 
+		T.GUID,	T.PARENT_ID, T.LEVEL
+		FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = @FORM_ID ORDER BY T.LEVEL 
+BEGIN
+	OPEN c_ENTITY1 
+    FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @NEW_CONSTR_ID AND FORM_ID = @FORM_ID AND PARENT_ID = @PARENT_ID)
+				BEGIN
+					PRINT 'c_ENTITY1: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @' + CONVERT(VARCHAR(3),@FORM_ID)
+					INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
+						CONSTRUCT_ID
+						,FORM_ID
+						,PARENT_ID
+						,LEVEL1_SELECT
+						,SEQUENCE
+						,SQL_SELECT_EBENE1
+						,SQL_SELECT_EBENE2
+						,ADDED_WHO
+					) VALUES (
+						@NEW_CONSTR_ID
+						,@FORM_ID
+						,@PARENT_ID 
+						,0
+						,@SEQUENCE
+						,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
+						,'SELECT T.* FROM VWTEMP_PMO_FORM' +  CONVERT(VARCHAR(5),@PARENT_ID) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
+						,'CREATE_ROUTINE2'
+					)
+				END
+
+			If EXISTS(SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @FORM_ID)
+				BEGIN
+				PRINT 'c_ENTITY2: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = ' + CONVERT(VARCHAR(3),@FORM_ID)
+			--###############
+					DECLARE	c_ENTITY2	CURSOR FOR 
+						SELECT 
+							T.GUID,	T.PARENT_ID, T.LEVEL
+							FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1  AND T.PARENT_ID = @FORM_ID ORDER BY T.LEVEL
+					BEGIN
+						OPEN c_ENTITY2
+						FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
+    
+						WHILE @@FETCH_STATUS = 0
+							BEGIN
+								INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
+									CONSTRUCT_ID
+									,FORM_ID
+									,PARENT_ID
+									,LEVEL1_SELECT
+									,SEQUENCE
+									,SQL_SELECT_EBENE1
+									,SQL_SELECT_EBENE2
+									,ADDED_WHO
+								) VALUES (
+									@NEW_CONSTR_ID
+									,@FORM_ID
+									,@PARENT_ID2 
+									,0
+									,@SEQUENCE2
+									,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
+									,'SELECT T.* FROM VWTEMP_PMO_FORM' +  CONVERT(VARCHAR(5),@PARENT_ID2) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
+									,'CREATE_ROUTINE3'
+								)
+								FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
+							END
+						CLOSE c_ENTITY2
+						DEALLOCATE c_ENTITY2
+					END
+				END
+			--###############
+				
+			FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
+		END
+
+	CLOSE c_ENTITY1
+    DEALLOCATE c_ENTITY1
+END
+GO
+ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T1.GUID FORM_VIEW_ID,
+	T1.SCREEN_ID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.SQL_QUICK_VIEW,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID,
+	T2.LOAD_DIRECT,
+	T2.CONTROL_DOCTYPE_MATCH,
+	T2.SQL_RIGHT_READ_AND_VIEW_ONLY,
+	T2.SQL_RIGHT_WINDREAM_VIEW,
+	(SELECT COUNT(GUID) FROm TBPMO_CONTROL WHERE FORM_ID = T1.FORM_ID AND TREE_VIEW = 1) AS COUNT_TREEVIEW
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+GO
+ALTER TABLE TBPMO_RECORD
+ADD NODE_GUID INTEGER
+GO
+ALTER TABLE TBPMO_WORKFLOW
+ADD MANUALLY BIT NOT NULL DEFAULT 0
+GO
+
+ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID	INTEGER,
+		@MAX_ID		INTEGER,
+		@FORM_ID	INTEGER,
+		@WF_ID		INTEGER,
+		@PARENT_ID	INTEGER
+	SELECT
+  		@FORM_ID = FORM_ID,
+		@RECORD_ID = GUID
+	FROM INSERTED
+
+	IF EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID)
+		SELECT @MAX_ID = MAX(RECORD_ENTITY_ID) + 1
+		FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID
+	ELSE
+		SET @MAX_ID = 1
+
+	UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
+
+	----Überprüfen ob für die Entity_ID Workflows definiert sind?
+	IF EXISTS(
+		SELECT DISTINCT T.[ENTITY_ID] FROM TBPMO_WORKFLOW_ENTITY_STATE T,TBPMO_WORKFLOW T1 where T.WF_ID = T1.GUID AND T1.MANUALLY = 0 AND T.[ENTITY_ID] = @FORM_ID
+			)
+		BEGIN
+			EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
+		END
+
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.5.sql

@@ -0,0 +1,348 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.5' where NAME = 'Record-Organizer' 
+GO
+Create FUNCTION [dbo].[FNPMO_GET_WINDREAM_VKT_INT](@pdwDocID INTEGER,@pdwAttributID INTEGER)
+RETURNS VARCHAR(4000)
+AS 
+BEGIN
+	DECLARE	
+		@RESULT		VARCHAR(4000),
+		@VALUE	INTEGER
+		
+
+		
+	DECLARE	c_RESULT CURSOR FOR SELECT [dwValue] FROM [172.24.12.41\BRAINPOOL].[windream60].[dbo].[Vector] 
+	where dwDocID = @pdwDocID and dwAttrID = @pdwAttributID
+
+
+	BEGIN
+		OPEN c_RESULT 
+		FETCH NEXT FROM c_RESULT INTO @VALUE
+    
+		WHILE @@FETCH_STATUS = 0
+			BEGIN
+				IF LEN(@RESULT) > 0
+					SET @RESULT = @RESULT + CONVERT(VARCHAR(30),@VALUE) + '#'
+				ELSE
+					SET @RESULT = '#' + CONVERT(VARCHAR(30),@VALUE) + '#'
+				FETCH NEXT FROM c_RESULT INTO @VALUE
+			END
+
+		CLOSE c_RESULT
+		DEALLOCATE c_RESULT
+
+		RETURN(@RESULT)
+	END
+END
+
+
+CREATE TABLE TBPMO_INDEX_MAN
+( 
+	GUID				INT				IDENTITY(1,1),              		
+	DOCTYPE_ID			INT										NOT NULL,
+	[ENTITY_ID]			INT										NOT NULL,
+	NAME				VARCHAR(50)								NOT NULL,
+	COL_VISIBLE			BIT				DEFAULT 1				NOT NULL,
+	COLUMN_CAPTION		VARCHAR(50)		DEFAULT ''				NOT NULL,						
+	ECM_INDEX			VARCHAR(50)		DEFAULT ''				NOT NULL,
+	COMMENT				VARCHAR(250),
+	DATATYPE			VARCHAR(50),
+	SUGGESTION			BIT				DEFAULT 0				NOT NULL,	-- 1 - Es wird Eingabe vorgeschlagen, bei 0 - manuelle Eingabe.
+	DEFAULT_VALUE		VARCHAR(100)		NOT NULL DEFAULT '',
+	CONNECTION_ID		SMALLINT				DEFAULT 0,
+	SEQUENCE			INTEGER NOT NULL DEFAULT 1,
+	SQL_RESULT			VARCHAR(2000) NOT NULL DEFAULT '',
+	SQL_CHECK			VARCHAR(2000) NOT NULL DEFAULT '',
+	OPTIONAL			BIT				DEFAULT 0				NOT NULL,
+	SAVE_VALUE			BIT				DEFAULT 0				NOT NULL,
+	ACTIVE				BIT				DEFAULT 1				NOT NULL,	-- 1 - Index aktiv, bei 0 - inaktiv.
+	ADDED_WHO			VARCHAR(50)		DEFAULT 'DEFAULT'		NOT NULL,
+	ADDED_WHEN			DATETIME		DEFAULT GETDATE(),
+	CHANGED_WHO			VARCHAR(50),
+	CHANGED_WHEN		DATETIME,
+	CONSTRAINT			PK_TBPMO_INDEX_MAN		PRIMARY KEY(GUID),
+	CONSTRAINT			FK_TBPMO_INDEX_MAN_DOCTYPE_ID	FOREIGN KEY(DOCTYPE_ID)	REFERENCES TBDD_DOKUMENTART(GUID),
+	CONSTRAINT			FK_TBPMO_INDEX_MAN_CID	FOREIGN KEY(CONNECTION_ID)	REFERENCES TBDD_CONNECTION(GUID)
+)
+GO
+------------------------------------------------------------------------------
+CREATE TRIGGER TBPMO_INDEX_MAN_AFT_UPD ON TBPMO_INDEX_MAN
+FOR UPDATE
+AS
+BEGIN
+	UPDATE TBPMO_INDEX_MAN SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_INDEX_MAN.GUID = INSERTED.GUID
+END
+GO
+CREATE TABLE TBPMO_DOC_INDICES
+(
+	GUID			INTEGER NOT NULL IDENTITY(1,1),
+	[DocID]			INTEGER			NOT NULL,
+	[INDEX_ID]		INTEGER	NOT NULL,
+	[VALUE]			VARCHAR(MAX)	NOT NULL,
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOC_INDICES		PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_DOC_INDICES_INDEX_ID	FOREIGN KEY([INDEX_ID])	REFERENCES TBPMO_INDEX_MAN(GUID),
+)
+GO
+
+CREATE TRIGGER TBPMO_DOC_INDICES_AFT_UPD ON TBPMO_DOC_INDICES
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOC_INDICES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOC_INDICES.[DocID] = INSERTED.[DocID]
+GO
+ALTER TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
+ADD VISIBLE BIT NOT NULL DEFAULT 1
+CREATE TABLE TBPMO_DOCRESULT_LIST
+(
+	[DocID]			INTEGER			NOT NULL,
+	[ENTITY_ID]		VARCHAR(500)	NOT NULL,
+	[RECORD_ID]		VARCHAR(500)	NOT NULL,
+	[PARENT_ID]		VARCHAR(500)	NOT NULL,
+	[DISPLAY_NAME]	VARCHAR(250)	NOT NULL,
+	[FULL_FILENAME]	VARCHAR(5000)	NOT NULL,
+	[Filename]		VARCHAR(500)	NOT NULL,
+	[Doctype]		VARCHAR(250)	NOT NULL,
+	[Version]		SMALLINT		NOT NULL	DEFAULT 0,
+	[Objecttype]	VARCHAR(250)	NOT NULL,
+	Creation_DateTime	DATETIME	NOT NULL,
+	Change_DateTime		DATETIME,
+	STRING1			VARCHAR(500),
+	STRING2			VARCHAR(500),
+	STRING3			VARCHAR(500),
+	STRING4			VARCHAR(500),
+	STRING5			VARCHAR(500),
+	STRING6			VARCHAR(500),
+	STRING7			VARCHAR(500),
+	STRING8			VARCHAR(500),
+	STRING9			VARCHAR(500),
+	STRING10		VARCHAR(500),
+	IN_WORK			BIT				NOT NULL	DEFAULT 0,
+	IN_WORK_USER	VARCHAR(250),
+	IN_WORK_COMMENT	VARCHAR(500),
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOCRESULT_LIST		PRIMARY KEY ([DocID])
+)
+GO
+
+CREATE TRIGGER TBPMO_DOCRESULT_LIST_AFT_UPD ON TBPMO_DOCRESULT_LIST
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOCRESULT_LIST SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCRESULT_LIST.[DocID] = INSERTED.[DocID]
+GO
+USE [DD_ECM_RENOLIT]
+GO
+
+CREATE VIEW [dbo].[VWPMO_WD_DOC_SYNC] AS 
+SELECT 
+	T.dwDocID as DocID
+	,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,339)							AS [ENTITY_ID]
+	,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,338)							AS [RECORD_ID]
+	,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,340)							AS [PARENT_ID]
+	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) + T.szLongName				AS FULL_FILENAME
+	,szLongName																	as [Filename], 
+	T.szText39																	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
+FROM 
+	[172.24.12.41\SDD_VMX02_APS02].windream60.dbo.BaseAttributes T
+	,[172.24.12.41\SDD_VMX02_APS02].windream60.dbo.ObjectType T1
+WHERE 
+	--T.dwObjectTypeID > 23 AND
+	T.dwObjectTypeID = T1.dwObjectTypeID 
+	AND [dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,338) is not null 
+
+GO
+
+
+---
+
+CREATE PROCEDURE [dbo].[PRPMO_DOCRESULT_CREATE]
+AS
+BEGIN TRY
+DECLARE @DocID	INTEGER,
+	@ENTITY_ID		VARCHAR(500),
+	@RECORD_ID		VARCHAR(500),
+	@PARENT_ID		VARCHAR(500),
+	@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,ISNULL([ENTITY_ID],0),RECORD_ID,ISNULL(PARENT_ID,0),[Filename],REPLACE(REPLACE(FULL_FILENAME,'\\\','\'),'\\','\'),[Filename],[Doctype],[Version],Objecttype,
+	Creation_DateTime,Change_DateTime from VWPMO_WD_DOC_SEARCH --WHERE CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE())
+ 	OPEN c_Values 
+   	FETCH NEXT FROM c_Values INTO @DocID,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
+	@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)
+		INSERT INTO TBPMO_DOCRESULT_LIST (
+			[DocID],
+			[ENTITY_ID],
+			[RECORD_ID],
+			[PARENT_ID],
+			[DISPLAY_NAME],
+			[FULL_FILENAME],
+			[Filename],
+			[Doctype],
+			[Version],
+			[Objecttype],
+			Creation_DateTime,
+			Change_DateTime) 
+		VALUES (
+			@DocID,
+			@ENTITY_ID,
+			@RECORD_ID,
+			@PARENT_ID,
+			@Filename,
+			@FULL_FILENAME,
+			@Filename,
+			@Doctype,
+			@Version,
+			@Objecttype,
+			@Creation_DateTime,
+			@Change_DateTime
+			)
+		--#####
+		FETCH NEXT FROM c_Values INTO @DocID,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
+	@Filename,@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
+	END
+CLOSE c_Values
+DEALLOCATE c_Values
+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
+CREATE PROCEDURE [dbo].[PRPMO_DOCRESULT_CHANGE]
+AS
+BEGIN TRY
+DECLARE @DocID	INTEGER,
+	@ENTITY_ID		VARCHAR(500),
+	@RECORD_ID		VARCHAR(500),
+	@PARENT_ID		VARCHAR(500),
+	@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,ISNULL([ENTITY_ID],0),RECORD_ID,ISNULL(PARENT_ID,0),[Filename],REPLACE(REPLACE(FULL_FILENAME,'\\\','\'),'\\','\'),
+	[Filename],ISNULL([Doctype],'') as Doctype,ISNULL([Version],0) as [Version],Objecttype,
+	Creation_DateTime,Change_DateTime from VWPMO_WD_DOC_SYNC WHERE CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE())
+ 	OPEN c_Values 
+   	FETCH NEXT FROM c_Values INTO @DocID,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
+	@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],
+				[ENTITY_ID],
+				[RECORD_ID],
+				[PARENT_ID],
+				[DISPLAY_NAME],
+				[FULL_FILENAME],
+				[Filename],
+				[Doctype],
+				[Version],
+				[Objecttype],
+				Creation_DateTime,
+				Change_DateTime) 
+			VALUES (
+				@DocID,
+				@ENTITY_ID,
+				@RECORD_ID,
+				@PARENT_ID,
+				@Filename,
+				@FULL_FILENAME,
+				@Filename,
+				@Doctype,
+				@Version,
+				@Objecttype,
+				@Creation_DateTime,
+				@Change_DateTime
+				)
+			END
+		ELSE
+			UPDATE TBPMO_DOCRESULT_LIST SET 
+				[ENTITY_ID] = @ENTITY_ID,
+				[RECORD_ID] = @RECORD_ID,
+				[PARENT_ID] = @PARENT_ID,
+				[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,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
+	@Filename,@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
+	END
+CLOSE c_Values
+DEALLOCATE c_Values
+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 PROCEDURE [dbo].[PRPMO_DELETE_DOCTYPE](@pDOCID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID IN (SELECT GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID)
+	DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = @pDOCID
+	DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_CLIENT_DOCTYPE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_TEMPLATE WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBPMO_INDEX_MAN WHERE DOCTYPE_ID = @pDOCID
+	DELETE FROM TBDD_DOKUMENTART WHERE GUID = @pDOCID
+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 VIEW VWPMO_DOC_INDICES AS
+SELECT 
+	T.DocID,
+	T.VALUE,
+	T1.COLUMN_CAPTION,
+	T1.GUID				AS INDEX_ID,
+	T1.NAME				AS INDEX_NAME
+FROM
+	TBPMO_DOC_INDICES T,
+	TBPMO_INDEX_MAN T1
+WHERE
+	T.INDEX_ID = T1.GUID AND
+	T1.COL_VISIBLE = 1

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.6.sql

@@ -0,0 +1,48 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.6' where NAME = 'Record-Organizer' 
+GO
+
+CREATE TABLE TBPMO_DOC_USER_VIEW
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	[USER_ID]		INTEGER			NOT NULL,
+	[FILE_EXTENSION]	VARCHAR(10)	NOT NULL,
+	[VIEWER]		VARCHAR(100)	NOT NULL DEFAULT 'DOC_VIEW',
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOC_USER_VIEW		PRIMARY KEY ([GUID]),
+	CONSTRAINT			FK_PK_TBPMO_DOC_USER_VIEW_USER_ID	FOREIGN KEY(USER_ID)	REFERENCES TBDD_USER(GUID)
+)
+GO
+
+CREATE TRIGGER TBPMO_DOC_USER_VIEW_UPD ON TBPMO_DOC_USER_VIEW
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOC_USER_VIEW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOC_USER_VIEW.GUID = INSERTED.GUID
+GO
+
+ALTER TABLE TBPMO_WD_FORMVIEW_DOKTYPES
+ADD MANUAL_SUBFOLDER BIT NOT NULL DEFAULT 0
+GO
+ALTER TABLE [dbo].[TBPMO_INDEX_MAN] DROP CONSTRAINT [FK_TBPMO_INDEX_MAN_DOCTYPE_ID]
+GO
+ALTER TABLE [dbo].[TBPMO_INDEX_MAN]  WITH CHECK ADD  CONSTRAINT [FK_TBPMO_INDEX_MAN_DOCTYPE_ID] FOREIGN KEY([DOCTYPE_ID])
+REFERENCES [dbo].[TBDD_DOKUMENTART] ([GUID])
+GO
+ALTER TABLE [dbo].[TBPMO_INDEX_MAN] CHECK CONSTRAINT [FK_TBPMO_INDEX_MAN_DOCTYPE_ID]
+GO
+
+ALTER TABLE [dbo].[TBPMO_DOC_INDICES] DROP CONSTRAINT [PK_TBPMO_DOC_INDICES]
+GO
+ALTER TABLE [dbo].[TBPMO_DOC_INDICES] 
+ADD GUID INTEGER NOT NULL IDENTITY(1,1)
+GO
+ALTER TABLE [dbo].[TBPMO_DOC_INDICES] ADD  CONSTRAINT [PK_TBPMO_DOC_INDICES] PRIMARY KEY CLUSTERED 
+(
+	[GUID] ASC
+)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
+GO
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.8.sql

@@ -0,0 +1,394 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.8' where NAME = 'Record-Organizer' 
+GO
+DROP TABLE TBPMO_RIGHTS_WORK_SERVICE
+CREATE TABLE TBPMO_RIGHTS_WORK_SERVICE
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	DOC_ID			INTEGER			NOT NULL,
+	USER_ID			INTEGER			NOT NULL,
+	RIGHT_MODIFY	VARCHAR(30)	NOT NULL,
+	FILE_RIGHT		VARCHAR(100)	NOT NULL,
+	REASON			VARCHAR(100)	NOT NULL,
+	WORKED			BIT				NOT NULL	DEFAULT 0,
+	WORKING			BIT				NOT NULL	DEFAULT 0,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'SERVICE',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHEN	DATETIME
+	CONSTRAINT		PK_TBPMO_RIGHTS_WORK_SERVICE PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_RIGHTS_WORK_SERVICE_AFT_UPD ON TBPMO_RIGHTS_WORK_SERVICE
+FOR UPDATE
+AS
+	UPDATE TBPMO_RIGHTS_WORK_SERVICE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RIGHTS_WORK_SERVICE.GUID = INSERTED.GUID
+GO
+--DROP TABLE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT
+CREATE TABLE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	DOC_ID			INTEGER			NOT NULL,
+	DOC_PATH		VARCHAR(1000)	NOT NULL,
+	USER_STRING		VARCHAR(500)	NOT NULL,
+	FILE_RIGHT		INTEGER			NOT NULL,
+	RIGHT_TYPE		VARCHAR(100)	NOT NULL,
+	WORKED			BIT				NOT NULL	DEFAULT 0,
+	COMMENT			VARCHAR(500),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'SERVICE',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHEN	DATETIME
+	CONSTRAINT		PK_TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT_AFT_UPD ON TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT
+FOR UPDATE
+AS
+	UPDATE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT.GUID = INSERTED.GUID
+GO
+--DROP TABLE TBPMO_ENTITY_RIGHT_CONTROLS
+CREATE TABLE TBPMO_ENTITY_RIGHT_CONTROLS
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	ENTITY_ID		INTEGER			NOT NULL,
+	CONTROL_ID		INTEGER			NOT NULL,
+	USED_FOR		VARCHAR(50)		NOT NULL	DEFAULT '',
+	USER_GROUP		VARCHAR(10)		NOT NULL	DEFAULT 'USER',
+	COMMENT			VARCHAR(300),
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_ENTITY_RIGHT_CONTROLS	PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_ENTITY_RIGHT_CONTROLS_CONTROL_ID	FOREIGN KEY (CONTROL_ID) REFERENCES  TBPMO_CONTROL (GUID),
+	CONSTRAINT		FK_TBPMO_ENTITY_RIGHT_CONTROLS_ENTITY_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_ENTITY_RIGHT_CONTROLS_AFT_UPD ON TBPMO_ENTITY_RIGHT_CONTROLS
+FOR UPDATE
+AS
+	UPDATE TBPMO_ENTITY_RIGHT_CONTROLS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_ENTITY_RIGHT_CONTROLS.GUID = INSERTED.GUID
+GO
+INSERT INTO TBPMO_ENTITY_RIGHT_CONTROLS ([ENTITY_ID],CONTROL_ID,USED_FOR) VALUES(1,29,'RIGHT READ/WRITE')
+GO
+INSERT INTO TBPMO_ENTITY_RIGHT_CONTROLS ([ENTITY_ID],CONTROL_ID,USED_FOR) VALUES(1,14,'RIGHT READ/WRITE')
+GO
+INSERT INTO TBPMO_ENTITY_RIGHT_CONTROLS ([ENTITY_ID],CONTROL_ID,USED_FOR) VALUES(1,272,'RIGHT READ/WRITE')
+GO
+INSERT INTO TBPMO_ENTITY_RIGHT_CONTROLS ([ENTITY_ID],CONTROL_ID,USED_FOR,USER_GROUP) VALUES(1,346,'RIGHT READ','GROUP')
+GO
+
+
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_CONTROL](@pCONTROL_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @pCONTROL_ID)
+	DELETE FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_ENTITY_RIGHT_CONTROLS WHERE CONTROL_ID = @pCONTROL_ID
+	DELETE FROM TBPMO_CONTROL WHERE GUID = @pCONTROL_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].[TBPMO_CONTROL_VALUE_AFT_UPD] ON [dbo].[TBPMO_CONTROL_VALUE]
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@CONTROL_ID	INTEGER,
+		@RECORD_ID INTEGER,
+		@VALUE_NEW VARCHAR(MAX),
+		@VALUE_OLD VARCHAR(MAX),
+		@CHANGED_WHO VARCHAR(50),
+		@CHANGE_STEP INTEGER,
+		@REDO	BIT,
+		@CHANGE_ID INTEGER,
+		@DOC_ID	INTEGER,
+		@USER_ID	INTEGER,
+		@RIGHT		INTEGER
+	IF UPDATE (VALUE)
+		BEGIN
+			SELECT 
+				@CONTROL_ID = DELETED.CONTROL_ID,
+				@RECORD_ID = DELETED.RECORD_ID,
+				@VALUE_OLD = DELETED.VALUE				
+			FROM DELETED
+			--RAISERROR (@VALUE , 16, 1)
+			SELECT 
+				@CHANGE_STEP = CHANGE_STEP,
+				@CHANGED_WHO = CHANGED_WHO,
+				@VALUE_NEW = VALUE,
+				@REDO = REDO
+			FROM INSERTED
+			
+			
+			IF NOT EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID AND VALUE = @VALUE_OLD)
+				INSERT INTO TBPMO_CONTROL_VALUE_CHANGE_HISTORY (RECORD_ID,CONTROL_ID,VALUE,CHANGE_STEP,ADDED_WHO) VALUES
+					(@RECORD_ID,@CONTROL_ID,@VALUE_OLD,@CHANGE_STEP,@CHANGED_WHO)	
+			ELSE
+				UPDATE TBPMO_CONTROL_VALUE_CHANGE_HISTORY SET ADDED_WHO = @CHANGED_WHO WHERE GUID = @CHANGE_ID
+			--IF @REDO = 0
+			--	IF @VALUE_OLD <> @VALUE_NEW AND  NOT EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID AND VALUE = @VALUE_OLD AND CHANGE_STEP = @CHANGE_STEP)
+			--		INSERT INTO TBPMO_CONTROL_VALUE_CHANGE_HISTORY (RECORD_ID,CONTROL_ID,VALUE,CHANGE_STEP,ADDED_WHO) VALUES
+			--		(@RECORD_ID,@CONTROL_ID,@VALUE_OLD,@CHANGE_STEP,@CHANGED_WHO)
+			--Update des Logs für loggen von Datensatzänderungen
+			IF EXISTS(SELECT LOG_UPDATE FROM TBPMO_RECORD_LOG_CONFIG WHERE CONTROL_ID = @CONTROL_ID AND LOG_UPDATE = 1)
+				BEGIN
+			If @VALUE_OLD <> @VALUE_NEW 
+				BEGIN
+					DECLARE @LOG VARCHAR(1000)
+					SET @LOG = 'Update of Value - OLD-VALUE: ' + @VALUE_OLD + ' / NEW VALUE: ' + @VALUE_NEW
+					INSERT INTO TBPMO_RECORD_LOG (RECORD_ID,CONTROL_ID,LOG_DESCRIPTION,ADDED_WHO) VALUES 
+					(@RECORD_ID,@CONTROL_ID,@LOG,@CHANGED_WHO)
+				END
+			END
+		END
+		/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
+		IF @CONTROL_ID = 29 --Vertragseigner Person
+			BEGIN
+				select @USER_ID = dbo.FNPMO_GET_USERID_FORSTRING (@VALUE_NEW)
+					If @USER_ID IS NOT NULL AND @USER_ID <> 0
+						BEGIN
+							DECLARE cursDOC_V1 CURSOR FOR 
+								select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+							OPEN cursDOC_V1 
+							FETCH NEXT FROM cursDOC_V1 INTO @DOC_ID
+							WHILE @@FETCH_STATUS = 0
+							BEGIN
+								IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND WORKED = 0 AND WORKING = 0)
+									DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND WORKED = 0 AND WORKING = 0	
+								IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND USER_ID = @USER_ID AND WORKED = 0)
+									INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY, FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'ADD RIGHT',3,'VERTRAGSEIGNER USER','TBPMO_CONTROL_VALUE_AFT_UPD')
+		
+								FETCH NEXT FROM cursDOC_V1 INTO @DOC_ID
+							END
+							CLOSE cursDOC_V1
+							DEALLOCATE cursDOC_V1
+						END
+			END
+		-- ####### Vertragseigner Team ###############
+		ELSE IF @CONTROL_ID = 14 
+			BEGIN
+				DECLARE c_USER CURSOR FOR 
+					SELECT [USER_ID] FROM TBDD_GROUPS_USER WHERE GROUP_ID = (SELECT GUID FROM TBDD_USER_GROUPS WHERE NAME = @VALUE_NEW)
+				OPEN c_USER 
+				FETCH NEXT FROM c_USER INTO @USER_ID
+				WHILE @@FETCH_STATUS = 0
+				BEGIN
+					IF @USER_ID <> 0
+					BEGIN
+						DECLARE cursDOC_V2 CURSOR FOR 
+							select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+						OPEN cursDOC_V2 
+						FETCH NEXT FROM cursDOC_V2 INTO @DOC_ID
+						WHILE @@FETCH_STATUS = 0
+						BEGIN
+							IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND WORKED = 0 AND WORKING = 0)
+								DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND WORKED = 0 AND WORKING = 0	
+							IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND USER_ID = @USER_ID AND WORKED = 0)
+								INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
+									(@DOC_ID,@USER_ID,'ADD RIGHT',3,'VERTRAGSEIGNER TEAM','TBPMO_CONTROL_VALUE_AFT_UPD')
+		
+							FETCH NEXT FROM cursDOC_V2 INTO @DOC_ID
+						END
+						CLOSE cursDOC_V2
+						DEALLOCATE cursDOC_V2
+					END
+					FETCH NEXT FROM c_USER INTO @USER_ID
+				END
+				CLOSE c_USER
+				DEALLOCATE c_USER
+			END
+		-- ####### RecordSupervisor ###############
+			--ELSE IF @CONTROL_ID = 227 --RecordSupervisor
+			--	BEGIN
+				
+			--	END
+			--ELSE IF @CONTROL_ID = 346 --Leseberechtigung CheckableListbox
+			--	BEGIN
+				
+			--	END
+	
+		/*###### KUNDEN-INDIVIDUELL - END   ####################################################################*/
+	--Generelle Updates (Datum und Recor-Änderungen)
+	UPDATE TBPMO_CONTROL_VALUE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_VALUE.GUID = INSERTED.GUID
+	UPDATE TBPMO_RECORD SET	CHANGED_WHO = @CHANGED_WHO	WHERE TBPMO_RECORD.GUID = @RECORD_ID
+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].[TBPMO_CONTROL_VALUE_AFT_INS] ON [dbo].[TBPMO_CONTROL_VALUE]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID		INTEGER,
+		@CONTROL_ID		INTEGER,
+		@ADDED_WHO		VARCHAR(50),
+		@VALUE_NEW		VARCHAR(MAX),
+		@DOC_ID			INTEGER,
+		@USER_ID		INTEGER,
+		@RIGHT			INTEGER
+	SELECT
+  		@RECORD_ID = RECORD_ID,
+		@CONTROL_ID = CONTROL_ID,
+		@ADDED_WHO = ADDED_WHO,
+		@VALUE_NEW = VALUE
+	FROM INSERTED
+	/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
+	IF @CONTROL_ID = 346 
+		BEGIN
+			DECLARE c_USER CURSOR FOR 
+				SELECT [USER_ID] FROM TBDD_GROUPS_USER WHERE GROUP_ID = (SELECT GUID FROM TBDD_USER_GROUPS WHERE NAME = @VALUE_NEW)
+			OPEN c_USER 
+			FETCH NEXT FROM c_USER INTO @USER_ID
+			WHILE @@FETCH_STATUS = 0
+			BEGIN
+				IF @USER_ID <> 0
+				BEGIN
+					DECLARE cursDOC_V2 CURSOR FOR 
+						select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+					OPEN cursDOC_V2 
+					FETCH NEXT FROM cursDOC_V2 INTO @DOC_ID
+					WHILE @@FETCH_STATUS = 0
+					BEGIN
+						IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'LESEBERECHTIGUNG TEAM' AND WORKED = 0 AND WORKING = 0)
+							DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'LESEBERECHTIGUNG TEAM' AND WORKED = 0 AND WORKING = 0	
+						IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'LESEBERECHTIGUNG TEAM' AND USER_ID = @USER_ID AND WORKED = 0)
+							INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
+								(@DOC_ID,@USER_ID,'ADD RIGHT', 1,'LESEBERECHTIGUNG TEAM','TBPMO_CONTROL_VALUE_AFT_INS')
+		
+						FETCH NEXT FROM cursDOC_V2 INTO @DOC_ID
+					END
+					CLOSE cursDOC_V2
+					DEALLOCATE cursDOC_V2
+				END
+				FETCH NEXT FROM c_USER INTO @USER_ID
+			END
+			CLOSE c_USER
+			DEALLOCATE c_USER
+		END
+		/*###### KUNDEN-INDIVIDUELL - ENDE ####################################################################*/
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+CREATE VIEW VWPMO_RIGHTS_2B_WORKED AS
+SELECT 
+	T.GUID
+	,T.DOC_ID
+	,T.USER_ID
+	,T1.USERNAME
+	,T.RIGHT_MODIFY
+	,T.FILE_RIGHT FILE_RIGHT_ID
+	,CASE T.FILE_RIGHT 
+		WHEN 3 THEN 'READ/WRITE'
+		WHEN 1 THEN 'READ'
+		ELSE T.FILE_RIGHT END AS FILE_RIGHT
+	,T.WORKING
+	,T.ADDED_WHO
+	,T.ADDED_WHEN
+FROM 
+	TBPMO_RIGHTS_WORK_SERVICE T,
+	TBDD_USER T1 
+WHERE 
+	T.WORKED = 0
+	AND T.USER_ID = T1.GUID
+GO
+DROP TABLE TBPMO_SERVICE_RIGHT_CONFIG
+CREATE TABLE TBPMO_SERVICE_RIGHT_CONFIG
+(
+	GUID           		TINYINT
+	,LOG_ERR_ONLY		BIT				NOT NULL	DEFAULT 1	
+	,HOUR_BEGIN			INTEGER			NOT NULL	DEFAULT 6
+	,HOUR_END			INTEGER			NOT NULL	DEFAULT 18
+	,AD_DOMAIN			VARCHAR(250)	NOT NULL	DEFAULT ''
+	,AD_USER			VARCHAR(250)	NOT NULL	DEFAULT ''
+	,AD_USER_PW			VARCHAR(500)	NOT NULL	DEFAULT ''
+	,AD_SERVER			VARCHAR(250)	NOT NULL	DEFAULT ''
+	,WD_RIGHT			INTEGER			NOT NULL	DEFAULT '141'
+	,RUN_SERVICE		BIT				NOT NULL	DEFAULT 0			
+	,SERVICE_RUN		DATETIME
+	,SERVICE_FINISHED	DATETIME
+	,CHANGED_WHO	    VARCHAR(50)
+	,CHANGED_WHEN  		DATETIME,
+	CONSTRAINT			PK_TBPMO_SERVICE_RIGHT_CONFIG_GUID PRIMARY KEY(GUID),
+	CONSTRAINT 	  		CH_TBPMO_SERVICE_RIGHT_CONFIG_GUID	CHECK(GUID = 1)
+)
+GO
+INSERT INTO TBPMO_SERVICE_RIGHT_CONFIG (GUID,LOG_ERR_ONLY) VALUES (1,1)
+GO
+CREATE TRIGGER TBPMO_SERVICE_RIGHT_CONFIG_AFT_UPD ON TBPMO_SERVICE_RIGHT_CONFIG
+FOR UPDATE
+AS
+	UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED 
+	WHERE TBPMO_SERVICE_RIGHT_CONFIG.GUID = INSERTED.GUID
+GO
+CREATE PROCEDURE [dbo].[PRPMO_RIGHTS_SERVICE_ADD_RECORD](@pDOC_ID INT, @pDOC_PATH VARCHAR(1000), @pUSERSTRING VARCHAR(250), @pRIGHT INT, @pTYPE VARCHAR(100))
+AS
+BEGIN TRY
+	DECLARE @GUID INTEGER,
+		@RIGHT	INTEGER
+	SELECT @GUID = ISNULL(MAX(GUID),0) FROM TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT WHERE 
+			DOC_ID = @pDOC_ID
+			AND UPPER(DOC_PATH) = UPPER(@pDOC_PATH)
+			AND UPPER(USER_STRING) = UPPER(@pUSERSTRING)
+	IF @GUID = 0
+		INSERT INTO TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT (DOC_ID,DOC_PATH,USER_STRING,FILE_RIGHT,RIGHT_TYPE,ADDED_WHO) 
+			VALUES (@pDOC_ID,UPPER(@pDOC_PATH),UPPER(@pUSERSTRING),@pRIGHT,@pTYPE,'PRPMO_RIGHT_INSERT')
+	ELSE
+		BEGIN
+			SELECT @RIGHT = FILE_RIGHT FROM TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT WHERE GUID = @GUID
+			IF @RIGHT <> @pRIGHT
+				IF @RIGHT < @pRIGHT
+					UPDATE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT SET FILE_RIGHT = @pRIGHT,RIGHT_TYPE = @pTYPE WHERE GUID = @GUID
+		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
+CREATE TABLE TBPMO_ENTITY_USERRIGHT_ADDING
+(
+	GUID           		INTEGER			NOT NULL	IDENTITY(1,1)
+	,ENTITY_ID			INTEGER
+	,AD_DOMAIN			VARCHAR(250)	NOT NULL	DEFAULT ''
+	,AD_USER			VARCHAR(250)	NOT NULL	DEFAULT ''
+	,AD_USER_PW			VARCHAR(500)	NOT NULL	DEFAULT ''
+	,AD_SERVER			VARCHAR(250)	NOT NULL	DEFAULT ''
+	,WD_RIGHT			INTEGER			NOT NULL	DEFAULT '141'
+	,ADDED_WHO			VARCHAR(50)					DEFAULT 'DEFAULT'
+	,ADDED_WHEN			DATETIME					DEFAULT GETDATE()	
+	,CHANGED_WHO	    VARCHAR(50)
+	,CHANGED_WHEN  		DATETIME,
+	CONSTRAINT			PK_TBPMO_ENTITY_USERRIGHT_ADDING_GUID PRIMARY KEY(GUID),
+	CONSTRAINT 	  		UQ_TBPMO_ENTITY_USERRIGHT_ADDING_GUID	UNIQUE(ENTITY_ID)
+)
+GO
+CREATE TRIGGER TBPMO_ENTITY_USERRIGHT_ADDING_AFT_UPD ON TBPMO_ENTITY_USERRIGHT_ADDING
+FOR UPDATE
+AS
+	UPDATE TBPMO_ENTITY_USERRIGHT_ADDING SET CHANGED_WHEN = GETDATE() FROM INSERTED 
+	WHERE TBPMO_ENTITY_USERRIGHT_ADDING.GUID = INSERTED.GUID
+GO
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.5.9.sql

@@ -0,0 +1,391 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.9' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBDD_USER
+ADD GENERAL_VIEWER VARCHAR(30) NOT NULL DEFAULT 'NONE'
+GO
+UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG SET TYPE_ID = 2 WHERE COLUMN_VIEW = 'IN_WORK' and TYPE_ID = 1
+GO
+CREATE TABLE TBPMO_SELECTION_DATA
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1)
+	,VALUE			VARCHAR(250)	NOT NULL
+	,COMMENT		VARCHAR(250)
+	,ID_TYPE		INTEGER			NOT NULL
+	,SEQUENCE		TINYINT			NOT NULL	DEFAULT 0,
+	ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 					DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_SELECTION_DATA	PRIMARY KEY (GUID)
+)
+GO
+CREATE TRIGGER TBPMO_SELECTION_DATA_AFT_UPD ON TBPMO_SELECTION_DATA
+FOR UPDATE
+AS
+	UPDATE TBPMO_SELECTION_DATA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_SELECTION_DATA.GUID = INSERTED.GUID
+GO
+INSERT INTO TBPMO_SELECTION_DATA (VALUE,COMMENT,ID_TYPE,SEQUENCE) VALUES
+('NONE', 'GENERAL-VIEWER',1,0)
+GO
+INSERT INTO TBPMO_SELECTION_DATA (VALUE,COMMENT,ID_TYPE,SEQUENCE) VALUES
+('DOC-VIEW', 'GENERAL-VIEWER',1,1)
+GO
+CREATE FUNCTION [dbo].[FNPMO_DOC_GET_IDX](@pDOCID INTEGER, @pENTITY INTEGER, @DOCIDX VARCHAR(20))
+RETURNS VARCHAR(250)
+AS
+BEGIN
+	DECLARE @HEADER_CAPTION VARCHAR(30), @VALUE VARCHAR(250), @RESULT VARCHAR(250)
+	SELECT @HEADER_CAPTION = HEADER_CAPTION FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @pENTITY AND COLUMN_VIEW = @DOCIDX
+	IF @HEADER_CAPTION IS NULL
+		SET @RESULT = 'NO CONFIGURATION'
+	ELSE
+		BEGIN
+			SELECT @VALUE =  VALUE FROM VWPMO_DOC_INDICES WHERE DocID = @pDOCID AND COLUMN_CAPTION = @HEADER_CAPTION
+			IF @VALUE IS NOT NULL
+				SET @RESULT = @VALUE
+			ELSE
+				SET @RESULT = 'NO RESULT'
+		END
+	RETURN @RESULT
+END
+GO
+DROP TABLE TBPMO_DOCRESULT_DROPDOWN_ITEMS
+CREATE TABLE TBPMO_DOCRESULT_DROPDOWN_ITEMS
+(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1)
+	,CONFIG_ID		INTEGER			NOT NULL
+	,VALUE			VARCHAR(100)	NOT NULL
+	,SEQUENCE		TINYINT			NOT NULL	DEFAULT 0
+	,[DEFAULT]		BIT				NOT NULL	DEFAULT 0
+	,ADDED_WHO		VARCHAR(50)		NOT NULL	DEFAULT 'DEFAULT'
+	,ADDED_WHEN		DATETIME 					DEFAULT GETDATE()
+	,CHANGED_WHO     VARCHAR(50)
+	,CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOCRESULT_DROPDOWN_ITEMS	PRIMARY KEY (GUID),
+	CONSTRAINT		FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID	FOREIGN KEY (CONFIG_ID) REFERENCES  TBPMO_DOCSEARCH_RESULTLIST_CONFIG (GUID),
+)
+GO
+CREATE TRIGGER TBPMO_DOCRESULT_DROPDOWN_ITEMS_AFT_UPD ON TBPMO_DOCRESULT_DROPDOWN_ITEMS
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOCRESULT_DROPDOWN_ITEMS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCRESULT_DROPDOWN_ITEMS.GUID = INSERTED.GUID
+GO
+
+
+ALTER TABLE TBDD_CLIENT
+ADD LICENSE_PMO VARCHAR(5000) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBDD_USER_MODULE_LOG_IN
+ADD CLIENT_ID INTEGER NOT NULL DEFAULT 99
+GO
+
+CREATE TABLE TBPMO_DOC_VALUES
+(
+	GUID			INTEGER			NOT NULL IDENTITY(1,1),
+	[DocID]			INTEGER			NOT NULL,
+	[CONFIG_ID]		INTEGER			NOT NULL,
+	[VALUE]			VARCHAR(MAX)	NOT NULL,
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CHANGED_WHO     VARCHAR(50),
+	CHANGED_WHEN	DATETIME,
+	CONSTRAINT		PK_TBPMO_DOC_VALUES		PRIMARY KEY (GUID)
+)
+GO
+
+CREATE TRIGGER TBPMO_DOC_VALUES_AFT_UPD ON TBPMO_DOC_VALUES
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOC_VALUES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOC_VALUES.[DocID] = INSERTED.[DocID]
+GO
+
+CREATE TRIGGER [dbo].[TBPMO_DOC_RECORD_LINK_AFT_INS] ON [dbo].[TBPMO_DOC_RECORD_LINK]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID		INTEGER,
+		@DOC_ID			INTEGER,
+		@ADDED_WHO		VARCHAR(50),
+		@ENTITY_ID		INTEGER
+	SELECT
+  		@RECORD_ID = RECORD_ID,
+		@DOC_ID = DOC_ID,
+		@ADDED_WHO = ADDED_WHO	
+	FROM INSERTED
+
+	SELECT @ENTITY_ID = FORM_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID
+
+	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,CONFIG_ID,VALUE,ADDED_WHO) 
+			SELECT @DOC_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
+	
+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
+
+GO
+
+CREATE PROCEDURE [dbo].[PRPMO_DELETE_RESULTFILE](@pDOCID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
+	DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
+	DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
+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 TRIGGER [dbo].[TBPMO_CONTROL_VALUE_AFT_UPD] ON [dbo].[TBPMO_CONTROL_VALUE]
+FOR UPDATE
+AS
+BEGIN TRY
+	DECLARE 
+		@CONTROL_ID	INTEGER,
+		@RECORD_ID INTEGER,
+		@VALUE_NEW VARCHAR(MAX),
+		@VALUE_OLD VARCHAR(MAX),
+		@CHANGED_WHO VARCHAR(50),
+		@CHANGE_STEP INTEGER,
+		@REDO	BIT,
+		@CHANGE_ID INTEGER,
+		@DOC_ID	INTEGER,
+		@USER_ID	INTEGER,
+		@RIGHT		INTEGER
+	IF UPDATE (VALUE)
+		BEGIN
+			SELECT 
+				@CONTROL_ID = DELETED.CONTROL_ID,
+				@RECORD_ID = DELETED.RECORD_ID,
+				@VALUE_OLD = DELETED.VALUE				
+			FROM DELETED
+			--RAISERROR (@VALUE , 16, 1)
+			SELECT 
+				@CHANGE_STEP = CHANGE_STEP,
+				@CHANGED_WHO = CHANGED_WHO,
+				@VALUE_NEW = VALUE,
+				@REDO = REDO
+			FROM INSERTED
+			
+			
+			IF NOT EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID AND VALUE = @VALUE_OLD)
+				INSERT INTO TBPMO_CONTROL_VALUE_CHANGE_HISTORY (RECORD_ID,CONTROL_ID,VALUE,CHANGE_STEP,ADDED_WHO) VALUES
+					(@RECORD_ID,@CONTROL_ID,@VALUE_OLD,@CHANGE_STEP,@CHANGED_WHO)	
+			ELSE
+				UPDATE TBPMO_CONTROL_VALUE_CHANGE_HISTORY SET ADDED_WHO = @CHANGED_WHO WHERE GUID = @CHANGE_ID
+			--IF @REDO = 0
+			--	IF @VALUE_OLD <> @VALUE_NEW AND  NOT EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID AND VALUE = @VALUE_OLD AND CHANGE_STEP = @CHANGE_STEP)
+			--		INSERT INTO TBPMO_CONTROL_VALUE_CHANGE_HISTORY (RECORD_ID,CONTROL_ID,VALUE,CHANGE_STEP,ADDED_WHO) VALUES
+			--		(@RECORD_ID,@CONTROL_ID,@VALUE_OLD,@CHANGE_STEP,@CHANGED_WHO)
+			--Update des Logs für loggen von Datensatzänderungen
+			IF EXISTS(SELECT LOG_UPDATE FROM TBPMO_RECORD_LOG_CONFIG WHERE CONTROL_ID = @CONTROL_ID AND LOG_UPDATE = 1)
+				BEGIN
+			If @VALUE_OLD <> @VALUE_NEW 
+				BEGIN
+					DECLARE @LOG VARCHAR(1000)
+					SET @LOG = 'Update of Value - OLD-VALUE: ' + @VALUE_OLD + ' / NEW VALUE: ' + @VALUE_NEW
+					INSERT INTO TBPMO_RECORD_LOG (RECORD_ID,CONTROL_ID,LOG_DESCRIPTION,ADDED_WHO) VALUES 
+					(@RECORD_ID,@CONTROL_ID,@LOG,@CHANGED_WHO)
+				END
+			END
+		END
+		/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
+		IF @CONTROL_ID = 29 --Vertragseigner Person
+			BEGIN
+				/*Das Recht des alten Vertragseigners löschen*/
+				IF @VALUE_OLD <> ''
+					BEGIN
+						select @USER_ID = dbo.FNPMO_GET_USERID_FORSTRING (@VALUE_OLD)
+						If @USER_ID IS NOT NULL AND @USER_ID <> 0
+						BEGIN
+							DECLARE cursDOC_V1 CURSOR FOR 
+								select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+							OPEN cursDOC_V1 
+							FETCH NEXT FROM cursDOC_V1 INTO @DOC_ID
+							WHILE @@FETCH_STATUS = 0
+							BEGIN
+								--DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER'
+								IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND WORKED = 0)
+									BEGIN
+										DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND WORKED = 0
+										INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY, FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'DELETE RIGHT',3,'VERTRAGSEIGNER USER','TBPMO_CONTROL_VALUE_AFT_UPD')
+									END
+								ELSE
+									INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY, FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'DELETE RIGHT',3,'VERTRAGSEIGNER USER','TBPMO_CONTROL_VALUE_AFT_UPD')
+		
+								FETCH NEXT FROM cursDOC_V1 INTO @DOC_ID
+							END
+							CLOSE cursDOC_V1
+							DEALLOCATE cursDOC_V1
+						END
+					END
+				/*Das neue UserRecht hinzufügen*/
+				BEGIN
+					select @USER_ID = dbo.FNPMO_GET_USERID_FORSTRING (@VALUE_NEW)
+					If @USER_ID IS NOT NULL AND @USER_ID <> 0
+						BEGIN
+							DECLARE cursDOC_V1 CURSOR FOR 
+								select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+							OPEN cursDOC_V1 
+							FETCH NEXT FROM cursDOC_V1 INTO @DOC_ID
+							WHILE @@FETCH_STATUS = 0
+							BEGIN
+								IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND WORKED = 0 AND RIGHT_MODIFY = 'ADD RIGHT')
+									BEGIN
+										DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER USER' AND WORKED = 0
+										INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY, FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'ADD RIGHT',3,'VERTRAGSEIGNER USER','TBPMO_CONTROL_VALUE_AFT_UPD')
+									END
+								ELSE
+									INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY, FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'ADD RIGHT',3,'VERTRAGSEIGNER USER','TBPMO_CONTROL_VALUE_AFT_UPD')
+		
+								FETCH NEXT FROM cursDOC_V1 INTO @DOC_ID
+							END
+							CLOSE cursDOC_V1
+							DEALLOCATE cursDOC_V1
+						END
+				END
+			END
+		-- ####### Vertragseigner Team ###############
+		ELSE IF @CONTROL_ID = 14 
+			/*Die Rechte des Teams Vertragseigner löschen*/
+			IF @VALUE_OLD <> ''
+				BEGIN
+					DECLARE c_RIGHT2Delete CURSOR FOR 
+						SELECT [USER_ID] FROM TBDD_GROUPS_USER WHERE GROUP_ID = (SELECT GUID FROM TBDD_USER_GROUPS WHERE NAME = @VALUE_OLD)
+					OPEN c_RIGHT2Delete 
+					FETCH NEXT FROM c_RIGHT2Delete INTO @USER_ID
+					WHILE @@FETCH_STATUS = 0
+					BEGIN
+						IF @USER_ID <> 0
+						BEGIN
+							DECLARE cursDOC_V3 CURSOR FOR 
+								select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+							OPEN cursDOC_V3 
+							FETCH NEXT FROM cursDOC_V3 INTO @DOC_ID
+							WHILE @@FETCH_STATUS = 0
+							BEGIN
+								IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND WORKED = 0)
+									BEGIN
+										DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND WORKED = 0
+										INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'DELETE RIGHT',3,'VERTRAGSEIGNER TEAM','TBPMO_CONTROL_VALUE_AFT_UPD')
+									END
+								ELSE
+									INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'DELETE RIGHT',3,'VERTRAGSEIGNER TEAM','TBPMO_CONTROL_VALUE_AFT_UPD')
+		
+								FETCH NEXT FROM cursDOC_V3 INTO @DOC_ID
+							END
+							CLOSE cursDOC_V3
+							DEALLOCATE cursDOC_V3
+						END
+						FETCH NEXT FROM c_RIGHT2Delete INTO @USER_ID
+					END
+					CLOSE c_RIGHT2Delete
+					DEALLOCATE c_RIGHT2Delete
+			END
+			/*Die Rechte des Teams Vertragseigner hinzufügen*/
+			BEGIN
+				DECLARE c_USER CURSOR FOR 
+					SELECT [USER_ID] FROM TBDD_GROUPS_USER WHERE GROUP_ID = (SELECT GUID FROM TBDD_USER_GROUPS WHERE NAME = @VALUE_NEW)
+				OPEN c_USER 
+				FETCH NEXT FROM c_USER INTO @USER_ID
+				WHILE @@FETCH_STATUS = 0
+				BEGIN
+					IF @USER_ID <> 0
+					BEGIN
+						DECLARE cursDOC_V2 CURSOR FOR 
+							select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+						OPEN cursDOC_V2 
+						FETCH NEXT FROM cursDOC_V2 INTO @DOC_ID
+						WHILE @@FETCH_STATUS = 0
+						BEGIN
+							IF EXISTS(SELECT GUID FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND WORKED = 0 AND RIGHT_MODIFY = 'ADD RIGHT')
+								BEGIN
+									DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE DOC_ID = @DOC_ID AND REASON = 'VERTRAGSEIGNER TEAM' AND WORKED = 0AND RIGHT_MODIFY = 'ADD RIGHT'
+									INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
+										(@DOC_ID,@USER_ID,'ADD RIGHT',3,'VERTRAGSEIGNER TEAM','TBPMO_CONTROL_VALUE_AFT_UPD')
+								END
+							ELSE
+								INSERT INTO TBPMO_RIGHTS_WORK_SERVICE (DOC_ID,USER_ID,RIGHT_MODIFY,FILE_RIGHT,REASON,ADDED_WHO) VALUES
+									(@DOC_ID,@USER_ID,'ADD RIGHT',3,'VERTRAGSEIGNER TEAM','TBPMO_CONTROL_VALUE_AFT_UPD')
+		
+							FETCH NEXT FROM cursDOC_V2 INTO @DOC_ID
+						END
+						CLOSE cursDOC_V2
+						DEALLOCATE cursDOC_V2
+					END
+					FETCH NEXT FROM c_USER INTO @USER_ID
+				END
+				CLOSE c_USER
+				DEALLOCATE c_USER
+			END
+		-- ####### RecordSupervisor ###############
+			--ELSE IF @CONTROL_ID = 227 --RecordSupervisor
+			--	BEGIN
+				
+			--	END
+			--ELSE IF @CONTROL_ID = 346 --Leseberechtigung CheckableListbox
+			--	BEGIN
+				
+			--	END
+	
+		/*###### KUNDEN-INDIVIDUELL - END   ####################################################################*/
+	--Generelle Updates (Datum und Recor-Änderungen)
+	UPDATE TBPMO_CONTROL_VALUE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_VALUE.GUID = INSERTED.GUID
+	UPDATE TBPMO_RECORD SET	CHANGED_WHO = @CHANGED_WHO	WHERE TBPMO_RECORD.GUID = @RECORD_ID
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) 
+		+ ' - ERROR-MESSAGE: ' 
+		+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+ALTER VIEW [dbo].[VWPMO_WD_DOC_SEARCH] AS 
+SELECT 
+	T.DocID
+	,T2.[FORM_ID]  AS [ENTITY_ID]
+	,T1.[RECORD_ID]
+	,(SELECT ISNULL(RECORD1_ID,0) FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = T1.[RECORD_ID]) AS PARENT_ID
+	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.DocID) + T3.szLongName AS FULL_FILENAME--T.FULL_FILENAME
+	,T3.szLongName AS [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
+	,TBPMO_DOC_RECORD_LINK T1
+	,TBPMO_RECORD T2
+	,windream.dbo.BaseAttributes T3
+WHERE 
+	T.DocID = T1.DOC_ID AND
+	T1.RECORD_ID = T2.GUID 
+	AND T.DocID = T3.dwDocID
+
+
+GO
+
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.0.sql

@@ -0,0 +1,70 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.0' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBPMO_FORM
+ADD LOCK_CONTROLS_BG_LOAD BIT NOT NULL DEFAULT 1
+GO
+ALTER VIEW VWPMO_CONSTRUCTOR_FORMS AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T1.GUID FORM_VIEW_ID,
+	T1.SCREEN_ID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.SQL_QUICK_VIEW,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID,
+	T2.LOAD_DIRECT,
+	T2.CONTROL_DOCTYPE_MATCH,
+	T2.SQL_RIGHT_READ_AND_VIEW_ONLY,
+	T2.SQL_RIGHT_WINDREAM_VIEW,
+	T1.DOCUMENT_VIEW,
+	T.DATE_FORMAT,
+	T.LOCK_CONTROLS_BG_LOAD,
+	(SELECT COUNT(GUID) FROm TBPMO_CONTROL WHERE FORM_ID = T1.FORM_ID AND TREE_VIEW = 1) AS COUNT_TREEVIEW
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+GO
+CREATE FUNCTION [dbo].[FNPMO_DOC_GET_DROPDOWN](@pDOCID INTEGER, @pENTITY INTEGER, @DOC_DD VARCHAR(20), @LANGUAGE VARCHAR(5))
+RETURNS VARCHAR(250)
+AS
+BEGIN
+	DECLARE @HEADER_CAPTION VARCHAR(30), 
+		@CONFIG_ID INTEGER, @VALUE VARCHAR(250), @RESULT VARCHAR(250)
+	SELECT 
+		@HEADER_CAPTION = HEADER_CAPTION,
+		@CONFIG_ID = GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE 
+	ENTITY_ID = @pENTITY AND COLUMN_VIEW = @DOC_DD AND LANGUAGE = @LANGUAGE
+
+	IF @HEADER_CAPTION IS NULL
+		SET @RESULT = 'NO DROP-DOWN CONFIGURATION'
+	ELSE
+		BEGIN
+			SELECT @VALUE =  VALUE FROM TBPMO_DOC_VALUES WHERE DocID = @pDOCID AND CONFIG_ID = @CONFIG_ID
+			IF @VALUE IS NOT NULL
+				SET @RESULT = @VALUE
+			ELSE
+				SET @RESULT = 'NO RESULT'
+		END
+	RETURN @RESULT
+END
+
+GO
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.2.sql

@@ -0,0 +1,124 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.2' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBPMO_CHART_ENTITY
+ADD GROUP_ID VARCHAR(50) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT ADD
+	[SERVICE] bit NOT NULL DEFAULT 0
+GO
+ALTER TRIGGER [dbo].[TBDD_USER_AFT_DEL] ON [dbo].[TBDD_USER]
+FOR DELETE
+AS
+DECLARE @USER_ID INTEGER
+BEGIN
+	SELECT @USER_ID = GUID FROM DELETED
+	IF @USER_ID IN (0,1)
+		BEGIN
+			ROLLBACK TRANSACTION
+			RAISERROR('THIS USER CAN NOT BE DELETED!',16,10)
+		END
+	ELSE
+		BEGIN
+			INSERT INTO TBPMO_USER_RIGHTS_JOBS (USER_ID,COMMENT,ADDED_WHO) VALUES
+			(@USER_ID,'USER DELETED','TBDD_GROUPS_USER_AFT_DEL')
+			INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES 
+				(@USER_ID,'USER-ID','USER DELETED','TBDD_GROUPS_USER_AFT_DEL')
+		END
+END
+GO
+ALTER TABLE TBPMO_KONFIGURATION ADD
+SQL_FULLTEXT VARCHAR(5000) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBPMO_FORM ADD
+LOAD_ENT_SEARCH_AT_SU BIT NOT NULL DEFAULT 0
+GO
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_RESULTFILE](@pDOCID INT, @pRECORDID INT, @DELETE_FILE INT)
+AS
+BEGIN TRY
+	DECLARE @COUNT INT
+	SELECT @COUNT = COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @pDOCID
+	IF @COUNT = 1 OR (@DELETE_FILE = 1 AND @COUNT > 1)
+		BEGIN
+			DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
+			DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
+			DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
+		END
+	ELSE IF @COUNT > 1 and @DELETE_FILE = 0
+		BEGIN
+			DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID AND RECORD_ID = @pRECORDID
+		END
+	ELSE IF @DELETE_FILE = 1
+		BEGIN
+			DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
+			DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
+			DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
+		END
+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
+CREATE FUNCTION [dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] (@pCONTROL_ID INTEGER,@pDOC_ID INTEGER, @pENTITY_ID INTEGER)
+RETURNS VARCHAR(1000)
+AS 
+BEGIN
+	DECLARE	
+		@RESULT		VARCHAR(MAX),
+		@TEMP_VALUE	VARCHAR(MAX)
+
+		
+	DECLARE	c_RESULT CURSOR FOR SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = @pCONTROL_ID AND RECORD_ID in (SELECT RECORD_ID FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @pDOC_ID
+	 AND RECORD_ID IN (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID))
+
+
+	BEGIN
+		OPEN c_RESULT 
+		FETCH NEXT FROM c_RESULT INTO @TEMP_VALUE
+    
+		WHILE @@FETCH_STATUS = 0
+			BEGIN
+				IF LEN(@RESULT) > 0
+					SET @RESULT = @RESULT + ';' + @TEMP_VALUE
+				ELSE
+					SET @RESULT = @TEMP_VALUE
+				FETCH NEXT FROM c_RESULT INTO @TEMP_VALUE
+			END
+
+		CLOSE c_RESULT
+		DEALLOCATE c_RESULT
+
+		RETURN(@RESULT)
+	END
+END
+
+GO
+CREATE TABLE [dbo].[TBPMO_CHART_ENTITY](
+	[GUID]			INT IDENTITY(1,1) NOT NULL,
+	[ENTITY_ID]		INT					NOT NULL,
+	[SQL_COMMAND]	VARCHAR(max)		NOT NULL,
+	[TYPE_CHART]	VARCHAR(30)			NOT NULL,
+	[ARGUMENT]		VARCHAR(30)			NOT NULL,
+	[VALUE]			VARCHAR(30)			NOT NULL,
+	[TITLE]			VARCHAR(30)			NOT NULL DEFAULT (''),
+	[ADDED_WHO]		VARCHAR(50)			NOT NULL DEFAULT ('DEFAULT'),
+	[ADDED_WHEN]	DATETIME			DEFAULT (getdate()),
+	[CHANGED_WHO]	VARCHAR(50),
+	[CHANGED_WHEN]	DATETIME,
+	[GROUP_ID]		VARCHAR(50)			NOT NULL DEFAULT (''),
+CONSTRAINT 	   	[PK_TBPMO_CHART_ENTITY] 	PRIMARY KEY(GUID),
+CONSTRAINT		FK_TBPMO_CHART_ENTITY_ENT_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID))
+GO
+
+CREATE TRIGGER [dbo].[TBPMO_CHART_ENTITY_AFT_UPD] ON [dbo].[TBPMO_CHART_ENTITY]
+FOR UPDATE
+AS
+	UPDATE TBPMO_CHART_ENTITY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CHART_ENTITY.GUID = INSERTED.GUID
+
+
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.3.sql

@@ -0,0 +1,223 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.3' where NAME = 'Record-Organizer' 
+GO
+ALTER TRIGGER [dbo].[TBDD_USER_AFT_DEL] ON [dbo].[TBDD_USER]
+FOR DELETE
+AS
+DECLARE @USER_ID INTEGER
+BEGIN
+	SELECT @USER_ID = GUID FROM DELETED
+	IF @USER_ID IN (0,1)
+		BEGIN
+			ROLLBACK TRANSACTION
+			RAISERROR('THIS USER CAN NOT BE DELETED!',16,10)
+		END
+	ELSE
+		BEGIN
+			INSERT INTO TBPMO_USER_RIGHTS_JOBS (USER_ID,COMMENT,ADDED_WHO) VALUES
+			(@USER_ID,'USER DELETED','TBDD_GROUPS_USER_AFT_DEL')
+			INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES 
+				(@USER_ID,'USER-ID','USER DELETED','TBDD_USER_AFT_DEL')
+		END
+END
+GO
+ALTER TRIGGER [dbo].[TBDD_GROUPS_USER_AFT_DEL] ON [dbo].[TBDD_GROUPS_USER]
+FOR DELETE
+AS
+	DECLARE @USER_ID INTEGER
+	SELECT @USER_ID = deleted.USER_ID FROM deleted
+	IF @USER_ID IS NOT NULL
+		BEGIN
+			INSERT INTO TBPMO_USER_RIGHTS_JOBS (USER_ID,COMMENT,ADDED_WHO) VALUES
+			(@USER_ID,'USER DELETED FROM GROUP','TBDD_GROUPS_USER_AFT_DEL')
+			INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES (@USER_ID,'USER-ID','USER DELETED FROM USER-GROUP',(SELECT USERNAME FROM TBDD_USER WHERE GUID = @USER_ID ))
+		END
+GO
+
+
+ ALTER TABLE TBPMO_FORM_SQL
+ ALTER COLUMN SQL_COMMAND VARCHAR(MAX)
+ GO
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_SQL](@pFORM_ID INT)
+AS
+DECLARE	@COL_NAME		VARCHAR(50),
+		@SQL_BEGIN		VARCHAR(4000),
+		@SQL_END		VARCHAR(4000),
+		@SQL			VARCHAR(MAX),
+		@CONTROL_ID		INT,
+		@RESULT			VARCHAR(MAX),
+		@TYPEID			INT,
+		@TABINDEX		INT,
+		@ZAEHLER		INT = 1,
+		@SQL_LBL		VARCHAR(4000)
+		
+DECLARE	c_SPALTENNAMEN	CURSOR FOR	SELECT		T.GUID,'[' + T.COL_NAME + ']' AS 'COL_NAME',T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T,TBPMO_CONTROL_SCREEN T1,TBPMO_CONTROL_TYPE T2
+									WHERE		T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND LEN(ISNULL(T.COL_NAME,'')) > 0 AND T.CONTROL_TYPE_ID NOT IN (1,5)
+									UNION
+									SELECT		T.GUID,'[' + T.NAME + ']' AS 'COL_NAME',T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T,TBPMO_CONTROL_SCREEN T1,TBPMO_CONTROL_TYPE T2
+									WHERE		T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND T.CONTROL_TYPE_ID = 1 AND LEN(ISNULL(T.SQL_COMMAND_1,'')) > 0
+									ORDER BY	TAB_INDEX
+BEGIN
+	SET @SQL_BEGIN = 'SELECT T.GUID AS [Record-ID]' + CHAR(13) + ',T.COLOR AS ROW_COLOR' + CHAR(13) + ',T.FORM_ID AS [Form-ID]' + CHAR(13) + ','
+	--SET @SQL_END = ',T.ADDED_WHO as AddedWho,T.ADDED_WHEN as AddedWhen, T.CHANGED_WHO As ChangedWho, T.CHANGED_WHEN As ChangedWhen FROM TBPMO_RECORD T, TBPMO_FORM T1 WHERE T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID' 
+	SET @SQL_END = ',T.ADDED_WHO AS AddedWho,' + CHAR(13) + 'T.ADDED_WHEN AS AddedWhen,' + CHAR(13) + 'T.CHANGED_WHO AS ChangedWho,' + CHAR(13) + 'T.CHANGED_WHEN AS ChangedWhen FROM TBPMO_RECORD T' + CHAR(13) + 'INNER JOIN TBPMO_FORM T1 ON T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID' + CHAR(13)
+
+	SET @SQL_END = REPLACE(@SQL_END,'@FORM_ID',@pFORM_ID)
+	
+	OPEN c_SPALTENNAMEN 
+    FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @COL_NAME = REPLACE(@COL_NAME,'lbl','')
+			SET @ZAEHLER = @ZAEHLER + 1
+			IF LEN(ISNULL(@SQL,'')) = 0
+				BEGIN
+					IF @TYPEID IN(10,11)
+						BEGIN
+							--SET @SQL = 'ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+							SET @SQL = 'ISNULL(CASE WHEN UPPER(RTRIM(LTRIM(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END,0) AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE IF @TYPEID = 6
+						BEGIN
+							--SET @SQL = '(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = 'T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.IMG AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_IMAGE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						ENd
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = '(' + @SQL_LBL + ') AS ' + @COL_NAME + CHAR(13)
+						END
+					ELSE IF @TYPEID IN(7,12,14)
+						BEGIN
+							--SET @SQL = '(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+							SET @SQL = 'dbo.FNPMO_GET_CONTROL_VALUES(' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID) AS ' + @COL_NAME  + CHAR(13)
+						END
+					ELSE
+						BEGIN
+							--SET @SQL = '(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = 'ISNULL(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE,'''') AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+				END
+			ELSE
+				BEGIN
+					IF @TYPEID IN(10,11)
+						BEGIN
+							--SET @SQL = @SQL + ',ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+							SET @SQL = @SQL + ',ISNULL(CASE WHEN UPPER(RTRIM(LTRIM(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END,0) AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE IF @TYPEID = 6
+						BEGIN
+							--SET @SQL = @SQL + ',(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = @SQL + ',T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.IMG AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_IMAGE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = @SQL + ',(' + @SQL_LBL + ') AS ' + @COL_NAME + CHAR(13)
+						END
+					ELSE IF @TYPEID IN(7,12,14)
+						BEGIN
+							--SET @SQL = @SQL + ',(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+							SET @SQL = @SQL + ',ISNULL(dbo.FNPMO_GET_CONTROL_VALUES(' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID),'''') AS ' + @COL_NAME + CHAR(13)
+						END
+					ELSE
+						BEGIN
+							--SET @SQL = @SQL + ',(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = @SQL + ',ISNULL(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE,'''') AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+				END
+		
+			FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+		END
+
+	CLOSE c_SPALTENNAMEN
+    DEALLOCATE c_SPALTENNAMEN
+
+	--PRint '1'
+	SET @SQL = @SQL + ',(SELECT CASE COUNT(TDS.DocID) WHEN 0 THEN 0 ELSE 1 END AS [files?] FROM VWPMO_DOC_SEARCH TDS, TBPMO_DOC_RECORD_LINK TRL WHERE TDS.DocID = TRL.DOC_ID AND TRL.RECORD_ID = T.GUID) AS [files?]' + CHAR(13)
+	--PRint '2'
+	SET @SQL = @SQL + ',(SELECT COUNT(TDS.DocID) AS [files?] FROM VWPMO_DOC_SEARCH TDS, TBPMO_DOC_RECORD_LINK TRL WHERE  TDS.DocID = TRL.DOC_ID AND TRL.RECORD_ID = T.GUID) AS [file count]' + CHAR(13)
+	--PRint '3'
+	SET @RESULT = @SQL_BEGIN + @SQL + @SQL_END
+	--PRINT 'LEN: ' + CONVERT(VARCHAR(10),LEN(@RESULT))
+
+	IF EXISTS (SELECT FORM_ID FROM TBPMO_FORM_SQL WHERE FORM_ID = @pFORM_ID)
+		UPDATE TBPMO_FORM_SQL SET SQL_COMMAND = @RESULT WHERE FORM_ID = @pFORM_ID
+	ELSE	
+		INSERT INTO TBPMO_FORM_SQL(FORM_ID,SQL_COMMAND) VALUES(@pFORM_ID,@RESULT)
+END
+GO
+CREATE 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
+
+DECLARE
+	@ENTITY_ID	INTEGER,
+	@CONTROL_ID		INTEGER,
+	@GUID			INTEGER,
+	@VALUE			VARCHAR(MAX)		
+								
+DECLARE c_REDO CURSOR FOR 
+	SELECT GUID FROM TBPMO_FORM
+  OPEN c_REDO 
+    FETCH NEXT FROM c_REDO INTO @ENTITY_ID
+    WHILE @@FETCH_STATUS = 0
+	BEGIN
+		EXEC [dbo].[PRPMO_CREATE_SQL] @ENTITY_ID
+		FETCH NEXT FROM c_REDO INTO @ENTITY_ID
+	END
+CLOSE c_REDO
+DEALLOCATE c_REDO
+GO
+EXECUTE [dbo].[PRPMO_CREATE_TEMP_VIEWS] 
+GO
+ALTER PROCEDURE [dbo].[PRPMO_RIGHTS_SERVICE_ADD_RECORD](@pDOC_ID INT, @pDOC_PATH VARCHAR(1000), @pUSERSTRING VARCHAR(250), @pRIGHT INT, @pTYPE VARCHAR(100),@FROM_SERVICE INT)
+AS
+BEGIN TRY
+	DECLARE @GUID INTEGER,
+		@RIGHT	INTEGER
+	SELECT @GUID = ISNULL(MAX(GUID),0) FROM TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT WHERE 
+			DOC_ID = @pDOC_ID
+			AND UPPER(DOC_PATH) = UPPER(@pDOC_PATH)
+			AND UPPER(USER_STRING) = UPPER(@pUSERSTRING)
+	IF @GUID = 0
+		INSERT INTO TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT (DOC_ID,DOC_PATH,USER_STRING,FILE_RIGHT,RIGHT_TYPE,ADDED_WHO,[SERVICE]) 
+			VALUES (@pDOC_ID,UPPER(@pDOC_PATH),UPPER(@pUSERSTRING),@pRIGHT,@pTYPE,'PRPMO_RIGHT_INSERT',@FROM_SERVICE)
+	ELSE
+		BEGIN
+			SELECT @RIGHT = FILE_RIGHT FROM TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT WHERE GUID = @GUID
+			IF @RIGHT <> @pRIGHT
+				IF @RIGHT < @pRIGHT
+					UPDATE TBPMO_RIGHTS_WORK_SERVICE_ADD_RIGHT SET FILE_RIGHT = @pRIGHT,RIGHT_TYPE = @pTYPE WHERE GUID = @GUID
+		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
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.4.sql

@@ -0,0 +1,613 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.4' where NAME = 'Record-Organizer' 
+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_WD_OBJECT_RIGHTS
+AS
+SELECT dwObjectID, dwUserOrGroupID, dwAccessRight, dwObjectDBID
+FROM            [172.24.12.41\BRAINPOOL].windream60.dbo.AccessRight AS AccessRight_1
+WHERE dwUserOrGroupID IN (SELECT USERID_FK_INT_ECM FROM TBDD_USER WHERE USERID_FK_INT_ECM <> 0) 
+GO
+
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_CONSTRUCTOR](@pCONSTR_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_CLIENT_CONSTRUCTOR WHERE CONSTRUCT_ID = @pCONSTR_ID
+    DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = @pCONSTR_ID
+	DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID in (SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @pCONSTR_ID)
+	DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE FOLLOW_UP_ID IN (SELECT GUID FROM TBPMO_FOLLOW_UP_EMAIL WHERE CONSTRUCTOR_ID = @pCONSTR_ID)
+	DELETE FROM TBPMO_FOLLOW_UP_EMAIL WHERE CONSTRUCTOR_ID = @pCONSTR_ID
+	DELETE FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE CONSTR_DET_ID in (SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @pCONSTR_ID)
+	DELETE FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID IN (SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @pCONSTR_ID)
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @pCONSTR_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = @pCONSTR_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].[TBPMO_DOC_VALUES_AFT_UPD] ON [dbo].[TBPMO_DOC_VALUES]
+FOR UPDATE
+AS
+	UPDATE TBPMO_DOC_VALUES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOC_VALUES.GUID = INSERTED.GUID
+GO
+
+ALTER TABLE TBPMO_RECORD
+ADD PARENT_RECORD INTEGER NOT NULL DEFAULT 0
+GO
+ALTER TABLE TBPMO_RECORD
+ADD [VERSION] INTEGER NOT NULL DEFAULT 1
+GO
+ALTER PROCEDURE [dbo].[PRPMO_CREATE_SQL](@pFORM_ID INT)
+AS
+DECLARE	@COL_NAME		VARCHAR(50),
+		@SQL_BEGIN		VARCHAR(4000),
+		@SQL_END		VARCHAR(4000),
+		@SQL			VARCHAR(MAX),
+		@CONTROL_ID		INT,
+		@RESULT			VARCHAR(MAX),
+		@TYPEID			INT,
+		@TABINDEX		INT,
+		@ZAEHLER		INT = 1,
+		@SQL_LBL		VARCHAR(4000)
+		
+DECLARE	c_SPALTENNAMEN	CURSOR FOR	SELECT		T.GUID,'[' + T.COL_NAME + ']' AS 'COL_NAME',T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T,TBPMO_CONTROL_SCREEN T1,TBPMO_CONTROL_TYPE T2
+									WHERE		T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND LEN(ISNULL(T.COL_NAME,'')) > 0 AND T.CONTROL_TYPE_ID NOT IN (1,5)
+									UNION
+									SELECT		T.GUID,'[' + T.NAME + ']' AS 'COL_NAME',T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T,TBPMO_CONTROL_SCREEN T1,TBPMO_CONTROL_TYPE T2
+									WHERE		T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND T.CONTROL_TYPE_ID = 1 AND LEN(ISNULL(T.SQL_COMMAND_1,'')) > 0
+									ORDER BY	TAB_INDEX
+BEGIN
+	SET @SQL_BEGIN = 'SELECT T.GUID AS [Record-ID]' + CHAR(13) + ',T.COLOR AS ROW_COLOR' + CHAR(13) + ',T.FORM_ID AS [Form-ID]' + CHAR(13) + ','
+	--SET @SQL_END = ',T.ADDED_WHO as AddedWho,T.ADDED_WHEN as AddedWhen, T.CHANGED_WHO As ChangedWho, T.CHANGED_WHEN As ChangedWhen FROM TBPMO_RECORD T, TBPMO_FORM T1 WHERE T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID' 
+	SET @SQL_END = ',T.ADDED_WHO AS AddedWho,' + CHAR(13) + 'T.ADDED_WHEN AS AddedWhen,' + CHAR(13) + 'T.CHANGED_WHO AS ChangedWho,' + CHAR(13) + 'T.CHANGED_WHEN AS ChangedWhen FROM TBPMO_RECORD T' + CHAR(13) + 'INNER JOIN TBPMO_FORM T1 ON T.FORM_ID = T1.GUID AND T.[PARENT_RECORD] = 0 AND T.FORM_ID = @FORM_ID' + CHAR(13)
+
+	SET @SQL_END = REPLACE(@SQL_END,'@FORM_ID',@pFORM_ID)
+	
+	OPEN c_SPALTENNAMEN 
+    FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SET @COL_NAME = REPLACE(@COL_NAME,'lbl','')
+			SET @ZAEHLER = @ZAEHLER + 1
+			IF LEN(ISNULL(@SQL,'')) = 0
+				BEGIN
+					IF @TYPEID IN(10,11)
+						BEGIN
+							--SET @SQL = 'ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+							SET @SQL = 'ISNULL(CASE WHEN UPPER(RTRIM(LTRIM(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END,0) AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE IF @TYPEID = 6
+						BEGIN
+							--SET @SQL = '(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = 'T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.IMG AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_IMAGE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						ENd
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = '(' + @SQL_LBL + ') AS ' + @COL_NAME + CHAR(13)
+						END
+					ELSE IF @TYPEID IN(7,12,14)
+						BEGIN
+							SET @SQL = 'dbo.FNPMO_GET_CONTROL_VALUES(' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID) AS ' + @COL_NAME  + CHAR(13)
+						END
+					ELSE IF @TYPEID = 4
+						BEGIN
+							SET @SQL = 'T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE
+						BEGIN
+							--SET @SQL = '(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = 'ISNULL(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE,'''') AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+				END
+			ELSE
+				BEGIN
+					IF @TYPEID IN(10,11)
+						BEGIN
+							--SET @SQL = @SQL + ',ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
+							SET @SQL = @SQL + ',ISNULL(CASE WHEN UPPER(RTRIM(LTRIM(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END,0) AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE IF @TYPEID = 6
+						BEGIN
+							--SET @SQL = @SQL + ',(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = @SQL + ',T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.IMG AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_IMAGE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE IF @TYPEID = 1
+						BEGIN
+							SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
+							SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
+							SET @SQL = @SQL + ',(' + @SQL_LBL + ') AS ' + @COL_NAME + CHAR(13)
+						END
+					ELSE IF @TYPEID IN(7,12,14)
+						BEGIN
+							--SET @SQL = @SQL + ',(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
+							SET @SQL = @SQL + ',ISNULL(dbo.FNPMO_GET_CONTROL_VALUES(' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID),'''') AS ' + @COL_NAME + CHAR(13)
+						END
+					ELSE IF @TYPEID = 4
+						BEGIN
+							SET @SQL = @SQL + ',T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+					ELSE
+						BEGIN
+							--SET @SQL = @SQL + ',(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
+							SET @SQL = @SQL + ',ISNULL(T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.VALUE,'''') AS ' + @COL_NAME + CHAR(13)
+							SET @SQL_END = @SQL_END + 'LEFT JOIN TBPMO_CONTROL_VALUE T' + CONVERT(VARCHAR(5),@ZAEHLER) + ' ON T.GUID = T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.RECORD_ID AND T' + CONVERT(VARCHAR(5),@ZAEHLER) + '.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + CHAR(13)
+						END
+				END
+		
+			FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
+		END
+
+	CLOSE c_SPALTENNAMEN
+    DEALLOCATE c_SPALTENNAMEN
+
+	--PRint '1'
+	SET @SQL = @SQL + ',(SELECT CASE COUNT(TDS.DocID) WHEN 0 THEN 0 ELSE 1 END AS [files?] FROM VWPMO_DOC_SEARCH TDS, TBPMO_DOC_RECORD_LINK TRL WHERE TDS.DocID = TRL.DOC_ID AND TRL.RECORD_ID = T.GUID) AS [files?]' + CHAR(13)
+	--PRint '2'
+	SET @SQL = @SQL + ',(SELECT COUNT(TDS.DocID) AS [files?] FROM VWPMO_DOC_SEARCH TDS, TBPMO_DOC_RECORD_LINK TRL WHERE  TDS.DocID = TRL.DOC_ID AND TRL.RECORD_ID = T.GUID) AS [file count]' + CHAR(13)
+	--PRint '3'
+	SET @RESULT = @SQL_BEGIN + @SQL + @SQL_END
+	--PRINT 'LEN: ' + CONVERT(VARCHAR(10),LEN(@RESULT))
+
+	IF EXISTS (SELECT FORM_ID FROM TBPMO_FORM_SQL WHERE FORM_ID = @pFORM_ID)
+		UPDATE TBPMO_FORM_SQL SET SQL_COMMAND = @RESULT WHERE FORM_ID = @pFORM_ID
+	ELSE	
+		INSERT INTO TBPMO_FORM_SQL(FORM_ID,SQL_COMMAND) VALUES(@pFORM_ID,@RESULT)
+END
+GO
+
+DECLARE
+	@ENTITY_ID	INTEGER,
+	@CONTROL_ID		INTEGER,
+	@GUID			INTEGER,
+	@VALUE			VARCHAR(MAX)		
+								
+DECLARE c_REDO CURSOR FOR 
+	SELECT GUID FROM TBPMO_FORM
+  OPEN c_REDO 
+    FETCH NEXT FROM c_REDO INTO @ENTITY_ID
+    WHILE @@FETCH_STATUS = 0
+	BEGIN
+		EXEC [dbo].[PRPMO_CREATE_SQL] @ENTITY_ID
+		FETCH NEXT FROM c_REDO INTO @ENTITY_ID
+	END
+CLOSE c_REDO
+DEALLOCATE c_REDO
+GO
+EXECUTE [dbo].[PRPMO_CREATE_TEMP_VIEWS] 
+GO
+
+CREATE TABLE TBPMO_RECORD_VARIANT(
+	[GUID]			INT		IDENTITY(1,1) NOT NULL,
+	RECORD_ID		INT					NOT NULL,
+	REASON_CODE		VARCHAR(100)		NOT NULL,
+	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_VARIANT] 	PRIMARY KEY(GUID),
+CONSTRAINT		FK_TBPMO_RECORD_VARIANT_RECORD_ID	FOREIGN KEY (RECORD_ID) REFERENCES  TBPMO_RECORD (GUID))
+GO
+
+CREATE TRIGGER TBPMO_RECORD_VARIANT_AFT_UPD ON TBPMO_RECORD_VARIANT
+FOR UPDATE
+AS
+	UPDATE TBPMO_RECORD_VARIANT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RECORD_VARIANT.GUID = INSERTED.GUID
+GO
+
+CREATE TABLE TBPMO_ENTITY_VARIANT_REASONS(
+	[GUID]			INT		IDENTITY(1,1) NOT NULL,
+	ENTITY_ID		INT					NOT NULL,
+	REASON_CODE		VARCHAR(100)		NOT NULL,
+	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_ENTITY_VARIANT_REASONS] 	PRIMARY KEY(GUID),
+CONSTRAINT		FK_TBPMO_ENTITY_VARIANT_REASONS_ENTITY_ID	FOREIGN KEY (ENTITY_ID) REFERENCES  TBPMO_FORM (GUID))
+GO
+
+CREATE TRIGGER TBPMO_ENTITY_VARIANT_REASONS_AFT_UPD ON TBPMO_ENTITY_VARIANT_REASONS
+FOR UPDATE
+AS
+	UPDATE TBPMO_ENTITY_VARIANT_REASONS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_ENTITY_VARIANT_REASONS.GUID = INSERTED.GUID
+GO
+
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
+    DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE [ENTITY_ID]	 = @pENTITY_ID
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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 TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD [DOC_SEARCH_TAB1] BIT NOT NULL DEFAULT 0
+GO
+ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
+ADD [ACTIVATE_DOC_SEARCH_ON_EDIT] BIT NOT NULL DEFAULT 0
+GO
+ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
+SELECT TOP 100 PERCENT
+	T2.GUID,
+	T1.GUID FORM_VIEW_ID,
+	T1.SCREEN_ID,
+	T2.CONSTRUCT_ID,
+	T.PARENT_ID,
+	T2.SEQUENCE,
+	T2.LEVEL1_SELECT,
+	T.GUID			AS FORM_ID, 
+	T1.FORM_TITLE, 
+	T2.SQL_SELECT_EBENE1,
+	T2.SQL_SELECT_EBENE2,
+	T2.SQL_QUICK_VIEW,
+	T2.COLUMN_NAME1,
+	T2.COLUMN_NAME2,
+	T.FORM_TYPE_ID,
+	T2.LOAD_DIRECT,
+	T2.CONTROL_DOCTYPE_MATCH,
+	T2.SQL_RIGHT_READ_AND_VIEW_ONLY,
+	T2.SQL_RIGHT_WINDREAM_VIEW,
+	T2.DOC_SEARCH_TAB1,
+	T2.[ACTIVATE_DOC_SEARCH_ON_EDIT],
+	T1.DOCUMENT_VIEW,
+	T.DATE_FORMAT,
+	T.LOCK_CONTROLS_BG_LOAD,
+	(SELECT COUNT(GUID) FROm TBPMO_CONTROL WHERE FORM_ID = T1.FORM_ID AND TREE_VIEW = 1) AS COUNT_TREEVIEW
+FROM 
+	tbpmo_form T, 
+	TBPMO_FORM_VIEW T1,
+	TBPMO_FORM_CONSTRUCTOR_DETAIL T2 
+where 
+	T2.FORM_ID = T.GUID AND
+	T.GUID = T1.FORM_ID 
+ORDER BY 
+	T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
+GO
+ALTER TABLE TBPMO_KONFIGURATION
+ADD WM_LAUFWERKBUCHSTABE VARCHAR(1) NOT NULL DEFAULT 'W'
+GO
+
+--CREATE FUNCTION FNPMO_GET_WINDREAM_FILE_PATH_NEU (@pDOCID BIGINT)
+ALTER FUNCTION [dbo].[FNPMO_GET_WINDREAM_FILE_PATH] (@pDOCID BIGINT)
+RETURNS VARCHAR(MAX)
+AS 
+BEGIN
+	DECLARE	
+		@RESULT					VARCHAR(MAX),
+		@DOCID					BIGINT,
+		@a						TINYINT = 1,
+		@i						TINYINT = 0,
+		@PARENT_ID				BIGINT,
+		@DATEINAME				NVARCHAR(255),
+		@PARENTNAME				NVARCHAR(255),
+		@FSFLAGS				INT,
+		@WM_LAUFWERKBUCHSTABE	CHAR(1)		
+	
+	SELECT @WM_LAUFWERKBUCHSTABE = WM_LAUFWERKBUCHSTABE	FROM TBPMO_KONFIGURATION WHERE GUID = 1
+
+	SELECT @FSFLAGS = dwFSFlags FROM [172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes WHERE dwDocID = @pDOCID
+	IF @FSFLAGS = 16
+		BEGIN
+			SET @RESULT = 'THIS IS NOT A FILE!'
+		END
+	ELSE
+		BEGIN
+			SELECT @DATEINAME = szLongName,@PARENT_ID = dwParentID FROM [172.24.12.41\brainpool].windream60.dbo.BaseAttributes WHERE dwDocID = @pDOCID
+			WHILE @a > 0
+				BEGIN
+					IF @i = 0
+						BEGIN
+							IF @PARENT_ID = 1
+								BEGIN
+									SET @RESULT = '\'
+									BREAK
+								END
+							ELSE
+								BEGIN
+									SET @DOCID = @PARENT_ID
+									SET @RESULT = '\'
+								END
+						END
+					ELSE
+						BEGIN
+							IF @PARENT_ID = 1
+								BEGIN
+									SET @RESULT = '\' + @PARENTNAME + @RESULT
+									BREAK
+								END
+							ELSE
+								BEGIN
+									SET @DOCID = @PARENT_ID
+									SET @RESULT = '\' + @PARENTNAME + @RESULT
+								END
+						END	
+					
+					SELECT @PARENTNAME = szLongName,@PARENT_ID = dwParentID FROM [172.24.12.41\brainpool].windream60.dbo.BaseAttributes WHERE dwDocID = @DOCID
+					SET @i = @i + 1
+				END
+		END
+	
+	SET @RESULT = @WM_LAUFWERKBUCHSTABE +':' +  @RESULT + @DATEINAME
+	RETURN @RESULT
+END
+GO
+
+CREATE TABLE TBDD_USER_LOGIN_OUT(
+	[GUID]			INT		IDENTITY(1,1)	NOT NULL,
+	[MODULE]		VARCHAR(30)				NOT NULL,
+	[USER_ID]		INT						NOT NULL,
+	[CLIENT_ID]		INT						NOT NULL,
+	[LOGIN]			DATETIME				DEFAULT (GETDATE()),
+	[LOGOUT]		DATETIME,
+CONSTRAINT 	   	[PK_TBDD_USER_LOGIN_OUT] 	PRIMARY KEY(GUID),
+CONSTRAINT		FK_TBDD_USER_LOGIN_OUT_USER_ID	FOREIGN KEY ([USER_ID]) REFERENCES  TBDD_USER (GUID))
+GO
+
+CREATE TRIGGER TBDD_USER_MODULE_LOG_IN_AFT_INS ON TBDD_USER_MODULE_LOG_IN
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID		INTEGER,
+		@MODULE			VARCHAR(50),
+		@CLIENT_ID		INTEGER
+	SELECT
+  		@USER_ID = USER_ID,
+		@MODULE = MODULE,
+		@CLIENT_ID = CLIENT_ID
+	FROM INSERTED
+	
+	INSERT INTO TBDD_USER_LOGIN_OUT (MODULE,USER_ID,CLIENT_ID) VALUES (@MODULE,@USER_ID,@CLIENT_ID)
+	
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+
+CREATE TRIGGER TBDD_USER_MODULE_LOG_IN_AFT_DEL ON TBDD_USER_MODULE_LOG_IN
+FOR DELETE
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID		INTEGER,
+		@MODULE			VARCHAR(50),
+		@CLIENT_ID		INTEGER
+	SELECT
+  		@USER_ID = USER_ID,
+		@MODULE = MODULE,
+		@CLIENT_ID = CLIENT_ID
+	FROM DELETED
+
+	UPDATE TBDD_USER_LOGIN_OUT SET LOGOUT = GETDATE() WHERE GUID = (
+	SELECT MAX(GUID) FROM TBDD_USER_LOGIN_OUT WHERE USER_ID = @USER_ID AND MODULE = @MODULE AND CLIENT_ID = @CLIENT_ID)
+	
+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].[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 CONSTRUCT_ID = 2 AND 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 PROCEDURE [dbo].[PRPMO_RIGHTS_SERVICE_CHECK_USER](@pUSER_ID INT, @pCHECK_WHO VARCHAR(50))
+AS
+BEGIN TRY
+	DECLARE 
+		@CONSTR_DET_ID	INTEGER,
+		@ENTITY_ID		INTEGER,
+		@RECORD_ID		INTEGER,
+		--@pUSER_ID		INTEGER,
+		@RECORD_SELECT  nvarchar (max),
+		@RECORD_WHERE AS nvarchar (max),
+		@CREATE_VIEW AS nvarchar (max),
+		@USER_RIGHTADMIN_ID_ECM INTEGER--,
+		--@pCHECK_WHO VARCHAR(50)
+		--SET @pUSER_ID = 2
+		--SET @pCHECK_WHO = 'SchreiberM'
+
+	SELECT @USER_RIGHTADMIN_ID_ECM = USERID_FK_INT_ECM FROM TBDD_USER WHERE UPPER(USERNAME) = (
+	SELECT UPPER(AD_USER) FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1)
+	DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE USER_ID = @pUSER_ID
+	DECLARE  Cursor_constructors CURSOR LOCAL  FOR 
+		select T1.GUID, T1.FORM_ID from TBPMO_CONSTRUCTOR_USER T,TBPMO_FORM_CONSTRUCTOR_DETAIL T1 where T.USER_ID = @pUSER_ID AND T.CONSTRUCT_ID = T1.CONSTRUCT_ID
+		AND T1.FORM_ID IN (select DISTINCT TR.FORM_ID from TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD TR WHERE T.RECORD_ID = TR.GUID)
+		--select FORM_ID from TBPMO_CONSTRUCTOR_USER T,TBPMO_FORM_CONSTRUCTOR_DETAIL T1 where T.USER_ID = 1 AND T.CONSTRUCT_ID = T1.GUID
+		OPEN cursor_constructors 
+			FETCH NEXT FROM cursor_constructors INTO @CONSTR_DET_ID,@ENTITY_ID
+			WHILE @@FETCH_STATUS = 0
+			BEGIN
+				BEGIN
+					IF EXISTS(select * FROM sys.views where name = 'VWTEMP_REC_USER')
+						DROP VIEW VWTEMP_REC_USER
+					
+					DECLARE 
+						@WD_RIGHT AS INTEGER
+					SET @WD_RIGHT = 3
+					IF EXISTS(SELECT GUID FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID)
+						SELECT @WD_RIGHT = RIGHT1 FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID
+					ELSE
+						IF EXISTS(SELECT GUID FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID)
+							BEGIN
+								DECLARE @CONFIG AS INT
+								SELECT @CONFIG = [READ_ONLY] FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID
+								IF @CONFIG = 1
+									BEGIN
+										SET @WD_RIGHT = 1
+										Print 'User shall only read'
+									END
+							END
+
+
+					SET @RECORD_SELECT = N'SELECT * FROM VWTEMP_PMO_FORM'  + CONVERT(NVARCHAR(3),@ENTITY_ID) 
+					IF EXISTS(SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE CONSTR_DET_ID = @CONSTR_DET_ID AND USER_ID = @pUSER_ID AND SQL_COMMAND <> '')
+						BEGIN
+							
+							SELECT @RECORD_WHERE = SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE CONSTR_DET_ID = @CONSTR_DET_ID AND USER_ID = @pUSER_ID
+							SET @RECORD_WHERE = REPLACE(@RECORD_WHERE,'@USER_ID',@pUSER_ID)
+							SET @RECORD_SELECT = @RECORD_SELECT + ' ' + @RECORD_WHERE
+						END
+					SET @CREATE_VIEW = N'CREATE VIEW VWTEMP_REC_USER AS ' + @RECORD_SELECT
+					--PRINT 'CREATE VIEW: ' + @CREATE_VIEW
+					
+					EXEC (@CREATE_VIEW)
+			
+										
+					DECLARE cursor_Records CURSOR FOR 
+						SELECT [Record-ID] FROM VWTEMP_REC_USER 
+						--select DocID from VWPMO_WD_DOC_SEARCH where RECORD_ID = @RECORD_ID
+					OPEN cursor_Records 
+					FETCH NEXT FROM cursor_Records INTO @RECORD_ID
+					WHILE @@FETCH_STATUS = 0
+					BEGIN
+						DECLARE @DOC_ID AS INTEGER
+						DECLARE cursor_Docs CURSOR FOR 
+							SELECT T.DOC_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD TR WHERE 
+							T.RECORD_ID = @RECORD_ID 
+							AND T.RECORD_ID = TR.GUID AND TR.FORM_ID = @ENTITY_ID AND T.DOC_ID IN (
+							SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE [dwUserOrGroupID] = @USER_RIGHTADMIN_ID_ECM)
+							
+						OPEN cursor_Docs 
+						FETCH NEXT FROM cursor_Docs INTO @DOC_ID
+						WHILE @@FETCH_STATUS = 0
+						BEGIN
+							--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
+							(@DOC_ID,@pUSER_ID,'ADD RIGHT', @WD_RIGHT,'USER_RIGHTS_RENEW',@pCHECK_WHO)	
+		
+							FETCH NEXT FROM cursor_Docs INTO @DOC_ID
+						END
+						CLOSE cursor_Docs
+						DEALLOCATE cursor_Docs
+
+						
+						FETCH NEXT FROM cursor_Records INTO @RECORD_ID
+					END
+					CLOSE cursor_Records
+					DEALLOCATE cursor_Records
+					DECLARE @DEL_SQL NVARCHAR(500)
+					SET @DEL_SQL = CONVERT(NVARCHAR(30),N'DROP VIEW VWTEMP_REC_USER')
+					EXEC sp_executesql @DEL_SQL
+				END
+				FETCH NEXT FROM cursor_constructors INTO @CONSTR_DET_ID, @ENTITY_ID
+			END
+			CLOSE cursor_constructors
+			DEALLOCATE cursor_constructors
+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_USER_GLOBAL_SEARCH(
+	[GUID]			INT		IDENTITY(1,1) NOT NULL,
+	USER_ID			INT					NOT NULL,
+	COMMENT			VARCHAR(500),
+	ADDED_WHO		VARCHAR(50)			NOT NULL DEFAULT ('DEFAULT'),
+	ADDED_WHEN		DATETIME			DEFAULT (GETDATE()),
+CONSTRAINT 	   	[PK_TBPMO_USER_GLOBAL_SEARCH] 	PRIMARY KEY(GUID),
+CONSTRAINT		FK_TBPMO_USER_GLOBAL_SEARCH_USER_ID	FOREIGN KEY (USER_ID) REFERENCES  TBDD_USER (GUID))
+GO
+
+
+
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.5.sql

@@ -0,0 +1,583 @@
+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
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.6.sql

@@ -0,0 +1,514 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.6' where NAME = 'Record-Organizer' 
+GO
+ALTER PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
+AS
+BEGIN TRY
+	DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
+    DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID))
+	DELETE FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE [ENTITY_ID]	 = @pENTITY_ID
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
+	DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM_VIEW WHERE FORM_ID = @pENTITY_ID
+	DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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 PROCEDURE [dbo].[PRPMO_COPY_ENTITY](@pFORM_ID INT, @pADDEDWHO VARCHAR(50))
+AS
+DECLARE	
+		@NEW_FORM_ID INT,
+		@PARENT_ID INT,
+		@NAME		VARCHAR(100),
+		@LEVEL		VARCHAR(10),
+		@SHOW_FORM_CONSTR	BIT,
+		@FORM_TYPE_ID INT,
+		@CONTROL_GUID INTEGER,
+		@CONTROL_TYPE_ID INT,
+		@CONTROL_NAME VARCHAR(100)
+		,@COL_NAME VARCHAR(100)
+		,@REQUIRED BIT
+		,@DEFAULT_VALUE VARCHAR(100)
+		,@SQL_COMMAND_1 VARCHAR(2000)
+		,@SQL_COMMAND_2 VARCHAR(2000)
+		,@CONNECTION_ID_1 SMALLINT
+		,@CONNECTION_ID_2 SMALLINT
+		,@READ_ONLY BIT
+		,@VALIDATION BIT
+		,@MULTILINE BIT
+		,@PARENT_CONTROL_ID INT
+		,@MASTER_DATA_ID INT
+		,@FORMAT_TYPE VARCHAR(50)
+		,@SHOW_COLUMN BIT
+		,@STATIC_LIST VARCHAR(2000)
+
+		SELECT @PARENT_ID = PARENT_ID, @NAME = 'COPY_' + NAME,@LEVEL = [LEVEL],@SHOW_FORM_CONSTR =  SHOW_FORM_CONSTRUCT, @FORM_TYPE_ID = FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = @pFORM_ID
+		
+		INSERT INTO TBPMO_FORM (
+			PARENT_ID,NAME,LEVEL,ADDED_WHO,SHOW_FORM_CONSTRUCT,FORM_TYPE_ID) VALUES (
+			@PARENT_ID,@NAME,@LEVEL,@pADDEDWHO,@SHOW_FORM_CONSTR,@FORM_TYPE_ID)
+
+		SELECT @NEW_FORM_ID =  MAX(GUID) FROM TBPMO_FORM
+		INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO) VALUES 
+			(@NEW_FORM_ID, 1, 'UNDEFINED_FORMTITLE', '', @pADDEDWHO)
+
+DECLARE	c_CONTROL	CURSOR FOR SELECT GUID,[CONTROL_TYPE_ID]
+							  ,'COPY_' + [NAME]
+							  ,[COL_NAME]
+							  ,[REQUIRED]
+							  ,[DEFAULT_VALUE]
+							  ,[SQL_COMMAND_1]
+							  ,[SQL_COMMAND_2]
+							  ,[CONNECTION_ID_1]
+							  ,[CONNECTION_ID_2]
+							  ,[READ_ONLY]
+							  ,[VALIDATION]
+							  ,[MULTILINE]
+							  ,[PARENT_CONTROL_ID]
+							  ,[MASTER_DATA_ID]
+							  ,[FORMAT_TYPE]
+							  ,[SHOW_COLUMN],STATIC_LIST FROM TBPMO_CONTROL WHERE FORM_ID = @pFORM_ID ORDER BY PARENT_CONTROL_ID
+
+
+BEGIN
+	OPEN c_CONTROL 
+    FETCH NEXT FROM c_CONTROL INTO @CONTROL_GUID,@CONTROL_TYPE_ID,
+		@CONTROL_NAME 
+		,@COL_NAME
+		,@REQUIRED
+		,@DEFAULT_VALUE
+		,@SQL_COMMAND_1
+		,@SQL_COMMAND_2
+		,@CONNECTION_ID_1
+		,@CONNECTION_ID_2
+		,@READ_ONLY
+		,@VALIDATION
+		,@MULTILINE
+		,@PARENT_CONTROL_ID
+		,@MASTER_DATA_ID
+		,@FORMAT_TYPE
+		,@SHOW_COLUMN
+		,@STATIC_LIST
+    
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+		IF @PARENT_CONTROL_ID > 0
+			BEGIN
+				DECLARE @CTRLNAME VARCHAR(100)
+				SELECT @CTRLNAME = 'COPY_' + [NAME] FROM TBPMO_CONTROL WHERE GUID = @PARENT_CONTROL_ID
+				PRINT 'PCTRID = ' + CONVERT(VARCHAR(10),@PARENT_CONTROL_ID)
+				PRINT '@CTRLNAME = ' + @CTRLNAME
+				SELECT @PARENT_CONTROL_ID = GUID FROM TBPMO_CONTROL WHERE NAME = @CTRLNAME AND FORM_ID = @NEW_FORM_ID
+				PRINT 'NEW PCTRID = ' + CONVERT(VARCHAR(10),@PARENT_CONTROL_ID)
+			END
+			
+			INSERT INTO TBPMO_CONTROL (
+				FORM_ID
+				,[CONTROL_TYPE_ID]
+				,[NAME]
+				,[COL_NAME]
+				,[REQUIRED]
+				,[DEFAULT_VALUE]
+				,[SQL_COMMAND_1]
+				,[SQL_COMMAND_2]
+				,[CONNECTION_ID_1]
+				,[CONNECTION_ID_2]
+				,[READ_ONLY]
+				,[VALIDATION]
+				,[MULTILINE]
+				,[PARENT_CONTROL_ID]
+				,[MASTER_DATA_ID]
+				,[FORMAT_TYPE]
+				,[SHOW_COLUMN]
+				,[STATIC_LIST]
+				,ADDED_WHO
+			) VALUES (
+				@NEW_FORM_ID
+				,@CONTROL_TYPE_ID
+				,@CONTROL_NAME 
+				,@COL_NAME
+				,@REQUIRED
+				,@DEFAULT_VALUE
+				,@SQL_COMMAND_1
+				,@SQL_COMMAND_2
+				,@CONNECTION_ID_1
+				,@CONNECTION_ID_2
+				,@READ_ONLY
+				,@VALIDATION
+				,@MULTILINE
+				,@PARENT_CONTROL_ID
+				,@MASTER_DATA_ID
+				,@FORMAT_TYPE
+				,@SHOW_COLUMN
+				,@STATIC_LIST
+				,@pADDEDWHO
+			)
+				DECLARE @NEW_CONTROLID INTEGER
+				SELECT @NEW_CONTROLID = MAX(GUID) FROM TBPMO_CONTROL
+
+				DECLARE
+				   @SCREEN_ID	INTEGER
+				  ,@CONTROL_TEXT VARCHAR(100)
+				  ,@X_LOC	FLOAT
+				  ,@Y_LOC	FLOAT
+				  ,@HEIGHT INTEGER
+				  ,@WIDTH INTEGER
+				  ,@FONT_FAMILY VARCHAR(50)
+				  ,@FONT_COLOR INTEGER
+				  ,@FONT_SIZE INTEGER
+				  ,@FONT_STYLE INTEGER
+				  ,@TAB_INDEX INTEGER
+				  ,@TAB_STOP BIT
+				  ,@BACK_COLOR INTEGER
+
+				 SELECT @SCREEN_ID = [SCREEN_ID], @CONTROL_TEXT = [CONTROL_TEXT],@X_LOC = [X_LOC],
+					@Y_LOC = [Y_LOC],@HEIGHT = [HEIGHT], @WIDTH = [WIDTH],@FONT_FAMILY = [FONT_FAMILY],
+					@FONT_COLOR = [FONT_COLOR], @FONT_SIZE = [FONT_SIZE],@FONT_STYLE = [FONT_STYLE],
+					@TAB_INDEX = [TAB_INDEX], @TAB_STOP = [TAB_STOP], @BACK_COLOR = [BACK_COLOR] FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @CONTROL_GUID
+				INSERT INTO TBPMO_CONTROL_SCREEN (
+					CONTROL_ID,
+					SCREEN_ID
+					,CONTROL_TEXT
+					,X_LOC
+					,Y_LOC
+					,HEIGHT
+					,WIDTH
+					,FONT_FAMILY
+					,FONT_COLOR
+					,FONT_SIZE
+					,FONT_STYLE
+					,TAB_INDEX 
+					,TAB_STOP
+					,BACK_COLOR
+					,ADDED_WHO) 
+				VALUES(
+					@NEW_CONTROLID
+					,@SCREEN_ID
+					,@CONTROL_TEXT
+					,@X_LOC
+					,@Y_LOC
+					,@HEIGHT
+					,@WIDTH
+					,@FONT_FAMILY
+					,@FONT_COLOR
+					,@FONT_SIZE
+					,@FONT_STYLE
+					,@TAB_INDEX
+					,@TAB_STOP
+					,@BACK_COLOR
+					,@pADDEDWHO
+				)
+				DECLARE @NEW_ID INT
+				SELECT @NEW_ID = MAX(GUID) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_TEXT = @CONTROL_TEXT
+				
+				INSERT INTO TBPMO_CONTROL_LANGUAGE ([LANGUAGE_TYPE] ,[CONTROL_SCREEN_ID],[CAPTION],[ADDED_WHO]) VALUES (
+				'de-DE',@NEW_ID,@CONTROL_TEXT,@pADDEDWHO)
+				INSERT INTO TBPMO_CONTROL_LANGUAGE ([LANGUAGE_TYPE] ,[CONTROL_SCREEN_ID],[CAPTION],[ADDED_WHO]) VALUES (
+				'en-US',@NEW_ID,@CONTROL_TEXT,@pADDEDWHO)
+			
+			FETCH NEXT FROM c_CONTROL INTO @CONTROL_GUID,@CONTROL_TYPE_ID,
+					@CONTROL_NAME 
+					,@COL_NAME
+					,@REQUIRED
+					,@DEFAULT_VALUE
+					,@SQL_COMMAND_1
+					,@SQL_COMMAND_2
+					,@CONNECTION_ID_1
+					,@CONNECTION_ID_2
+					,@READ_ONLY
+					,@VALIDATION
+					,@MULTILINE
+					,@PARENT_CONTROL_ID
+					,@MASTER_DATA_ID
+					,@FORMAT_TYPE
+					,@SHOW_COLUMN
+					,@STATIC_LIST
+		END
+
+	CLOSE c_CONTROL
+    DEALLOCATE c_CONTROL
+END
+GO
+
+CREATE TABLE TBPMO_STRUCTURE_NODES_USER_TEMP(
+	USER_ID			int					NOT NULL,
+	RECORD_ID		int					NOT NULL,
+	ADDED_WHEN		datetime			DEFAULT getdate(),
+CONSTRAINT 	   	[PK_TBPMO_STRUCTURE_NODES_USER_TEMP] 	PRIMARY KEY(USER_ID,RECORD_ID))
+GO
+CREATE PROCEDURE PRPMO_NODES_GET_CHILD_RECORDS (@USER_ID INTEGER, @NODE_ID INTEGER)
+AS
+BEGIN
+	DELETE FROM TBPMO_STRUCTURE_NODES_USER_TEMP WHERE USER_ID = @USER_ID;
+	WITH tblChild AS
+	(
+    SELECT GUID,RECORD_ID FROM
+        TBPMO_STRUCTURE_NODES WHERE GUID = @NODE_ID
+    UNION ALL
+    SELECT TBPMO_STRUCTURE_NODES.GUID,TBPMO_STRUCTURE_NODES.RECORD_ID FROM TBPMO_STRUCTURE_NODES  JOIN tblChild  ON TBPMO_STRUCTURE_NODES.PARENT_GUID = tblChild.GUID
+	)
+	INSERT INTO TBPMO_STRUCTURE_NODES_USER_TEMP (USER_ID,RECORD_ID) 
+	SELECT @USER_ID,RECORD_ID FROM tblChild where RECORD_ID is not null
+	OPTION(MAXRECURSION 32767)
+END
+GO
+
+CREATE FUNCTION FNPMO_GET_WINDREAM_FOLDER_PATH (@pDOCID BIGINT)
+RETURNS VARCHAR(MAX)
+AS 
+BEGIN
+	DECLARE	
+		@RESULT					VARCHAR(MAX),
+		@DOCID					BIGINT,
+		@a						TINYINT = 1,
+		@i						TINYINT = 0,
+		@PARENT_ID				BIGINT,
+		@DATEINAME				NVARCHAR(255),
+		@PARENTNAME				NVARCHAR(255),
+		@FSFLAGS				INT,
+		@WM_LAUFWERKBUCHSTABE	CHAR(1)		
+	
+	SELECT @WM_LAUFWERKBUCHSTABE = WM_LAUFWERKBUCHSTABE	FROM TBPMO_KONFIGURATION WHERE GUID = 1
+	
+	IF EXISTS(SELECT dwDocID FROM [172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes WHERE dwDocID = @pDOCID)
+		BEGIN
+			--SELECT dwFSFlags FROM [172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes WHERE dwDocID = 220733
+			SELECT @FSFLAGS = dwFSFlags FROM [172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes WHERE dwDocID = @pDOCID
+			IF @FSFLAGS <> 16
+				BEGIN
+					SET @RESULT = 'THIS IS NOT A FOLDER (dwFSFlags <> 16)!'
+					SET @DATEINAME = ''
+				END
+			ELSE
+				BEGIN
+					SELECT @DATEINAME = szLongName,@PARENT_ID = dwParentID FROM [172.24.12.41\brainpool].windream60.dbo.BaseAttributes WHERE dwDocID = @pDOCID
+					WHILE @a > 0
+						BEGIN
+							IF @i = 0
+								BEGIN
+									IF @PARENT_ID = 1
+										BEGIN
+											SET @RESULT = '\'
+											BREAK
+										END
+									ELSE
+										BEGIN
+											SET @DOCID = @PARENT_ID
+											SET @RESULT = '\'
+										END
+								END
+							ELSE
+								BEGIN
+									IF @PARENT_ID = 1
+										BEGIN
+											SET @RESULT = '\' + @PARENTNAME + @RESULT
+											BREAK
+										END
+									ELSE
+										BEGIN
+											SET @DOCID = @PARENT_ID
+											SET @RESULT = '\' + @PARENTNAME + @RESULT
+										END
+								END	
+					
+							SELECT @PARENTNAME = szLongName,@PARENT_ID = dwParentID FROM [172.24.12.41\brainpool].windream60.dbo.BaseAttributes WHERE dwDocID = @DOCID
+							SET @i = @i + 1
+						END
+				END
+		END
+	ELSE
+		BEGIN
+			SET @RESULT = 'THIS DOC-ID DOES NOT EXIST!'
+			SET @DATEINAME = ''
+		END
+	
+	SET @RESULT = @WM_LAUFWERKBUCHSTABE +':' +  @RESULT + @DATEINAME
+	--PRINT @RESULT
+	RETURN @RESULT
+END
+
+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.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 PROCEDURE PRPMO_RIGHTS_SERVICE_CHECK_USER (@pUSER_ID INT,@pCHECK_WHO VARCHAR(50) = 'DD-Admin')
+ALTER PROCEDURE [dbo].[PRPMO_RIGHTS_SERVICE_CHECK_USER] (@pUSER_ID INT,@pCHECK_WHO VARCHAR(50) = 'DD-Admin')
+AS
+BEGIN TRY
+	DECLARE @CONSTR_DET_ID		INT,
+			@ENTITY_ID			INT,
+			@RECORD_ID			INT,
+			@RECORD_SELECT		NVARCHAR(MAX),
+			@RECORD_WHERE		NVARCHAR(MAX),
+			@CREATE_VIEW		NVARCHAR(MAX),
+			@USER_ID_ECM		INT,
+			@WD_RIGHT			INT,
+			@CONFIG				INT,
+			@DOC_ID				INT,
+			@DEL_SQL			NVARCHAR(30)
+
+	DECLARE Cursor_constructors	CURSOR FOR	SELECT	T1.GUID, T1.FORM_ID FROM TBPMO_CONSTRUCTOR_USER T,TBPMO_FORM_CONSTRUCTOR_DETAIL T1,(SELECT DISTINCT TR.FORM_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD TR WHERE T.RECORD_ID = TR.GUID) T2
+											WHERE	T.CONSTRUCT_ID = T1.CONSTRUCT_ID AND T1.FORM_ID = T2.FORM_ID AND T.USER_ID = @pUSER_ID
+
+	SELECT @USER_ID_ECM = USERID_FK_INT_ECM FROM TBDD_USER WHERE GUID = @pUSER_ID
+	
+	DELETE FROM TBPMO_RIGHTS_WORK_SERVICE WHERE USER_ID = @pUSER_ID
+	
+	OPEN Cursor_constructors 
+	FETCH NEXT FROM Cursor_constructors INTO @CONSTR_DET_ID,@ENTITY_ID
+	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			IF EXISTS(select * FROM sys.views where name = 'VWTEMP_REC_USER')
+				DROP VIEW VWTEMP_REC_USER
+					
+			SET @WD_RIGHT = 3
+			IF EXISTS(SELECT GUID FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID)
+				SELECT @WD_RIGHT = RIGHT1 FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID
+			ELSE
+				BEGIN
+					IF EXISTS(SELECT GUID FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID)
+						BEGIN
+							SELECT @CONFIG = [READ_ONLY] FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID = @pUSER_ID AND ENTITY_ID = @ENTITY_ID
+							IF @CONFIG = 1
+								BEGIN
+									SET @WD_RIGHT = 1
+									--Print 'User shall only read'
+								END
+						END
+				END
+			
+			IF EXISTS(SELECT GUID FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE CONSTR_DET_ID = @CONSTR_DET_ID AND USER_ID = @pUSER_ID)
+				BEGIN
+					SELECT @RECORD_WHERE = ISNULL(SQL_COMMAND1,'') FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE CONSTR_DET_ID = @CONSTR_DET_ID AND USER_ID = @pUSER_ID
+					IF LEN(@RECORD_WHERE) > 0
+						BEGIN
+							SET @RECORD_WHERE = REPLACE(@RECORD_WHERE,'@USER_ID',CONVERT(NVARCHAR(10),@pUSER_ID))
+							SET @RECORD_WHERE = REPLACE(@RECORD_WHERE,'@NUMBER',CONVERT(NVARCHAR(3),@ENTITY_ID))
+							SET @RECORD_SELECT = @RECORD_WHERE
+						END
+					ELSE
+						BEGIN
+							SET @RECORD_SELECT = N'SELECT [Record-ID] FROM VWTEMP_PMO_FORM' + CONVERT(NVARCHAR(3),@ENTITY_ID)
+						END
+				END
+			ELSE
+				BEGIN
+					SET @RECORD_SELECT = N'SELECT [Record-ID] FROM VWTEMP_PMO_FORM' + CONVERT(NVARCHAR(3),@ENTITY_ID)
+				END	
+	
+			SET @CREATE_VIEW = N'CREATE VIEW VWTEMP_REC_USER AS ' + @RECORD_SELECT
+			EXEC (@CREATE_VIEW)
+			
+			DECLARE Cursor_Records CURSOR FOR SELECT [Record-ID] FROM VWTEMP_REC_USER 
+						
+			OPEN Cursor_Records 
+			FETCH NEXT FROM Cursor_Records INTO @RECORD_ID
+			WHILE @@FETCH_STATUS = 0
+			BEGIN
+				DECLARE Cursor_Docs CURSOR FOR	SELECT	T.DOC_ID FROM TBPMO_DOC_RECORD_LINK T,TBPMO_RECORD TR,(SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE [dwUserOrGroupID] = @USER_ID_ECM) T1
+												WHERE	T.RECORD_ID = TR.GUID AND T.DOC_ID = T1.dwObjectID AND T.RECORD_ID = @RECORD_ID AND TR.FORM_ID = @ENTITY_ID
+							
+				OPEN Cursor_Docs 
+				FETCH NEXT FROM Cursor_Docs INTO @DOC_ID
+				WHILE @@FETCH_STATUS = 0
+				BEGIN
+					--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(@DOC_ID,@pUSER_ID,'ADD RIGHT', @WD_RIGHT,'USER_RIGHTS_RENEW',@pCHECK_WHO)
+					FETCH NEXT FROM Cursor_Docs INTO @DOC_ID
+				END
+				CLOSE Cursor_Docs
+				DEALLOCATE Cursor_Docs
+
+				FETCH NEXT FROM Cursor_Records INTO @RECORD_ID
+			END
+			CLOSE Cursor_Records
+			DEALLOCATE Cursor_Records
+			
+			SET @DEL_SQL = CONVERT(NVARCHAR(30),N'DROP VIEW VWTEMP_REC_USER')
+			EXEC sp_executesql @DEL_SQL
+
+			FETCH NEXT FROM Cursor_constructors INTO @CONSTR_DET_ID,@ENTITY_ID
+		END
+		CLOSE Cursor_constructors
+		DEALLOCATE Cursor_constructors
+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
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.7.sql

@@ -0,0 +1,107 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.7' where NAME = 'Record-Organizer' 
+GO
+
+Change Trigger Suche nach VWPMO_WD_DOC_SEARCH und ersetze select
+select DocID from VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK TRL where T.DocID = TRL.DOC_ID AND 
+				TRL.RECORD_ID = @RECORD_ID
+/* FULLTEXT SQL ERSETZEN*/
+SELECT DISTINCT [dwDocID]
+  FROM [dbo].FullText WHERE CONTAINS([Text], '"*@FULLTEXT*"')
+  --OR FREETEXT ([Text], '@FULLTEXT')  
+
+
+ALTER VIEW [dbo].[VWPMO_WD_OBJECT_RIGHTS]
+AS
+SELECT DISTINCT       
+	AR.dwObjectID
+	,AR.dwUserOrGroupID
+	,AR.dwAccessRight
+	,AR.dwObjectDBID
+FROM
+	[172.24.12.41\BRAINPOOL].windream60.dbo.AccessRight AS AR 
+	INNER JOIN TBDD_USER T ON AR.dwUserOrGroupID = T.USERID_FK_INT_ECM
+	INNER JOIN TBPMO_DOC_RECORD_LINK RL ON AR.dwObjectID = RL.DOC_ID
+WHERE T.USERID_FK_INT_ECM <> 0 --ORDER BY dwObjectID
+GO
+CREATE NONCLUSTERED INDEX [IDX_TBPMO_CONTROL_VALUE_RECID_VALUE]
+ON [dbo].[TBPMO_CONTROL_VALUE] ([RECORD_ID])
+INCLUDE ([VALUE])
+GO
+DROP TABLE TBPMO_APPOINTMENT_CONTROLS
+CREATE TABLE TBPMO_APPOINTMENT_CONTROLS(
+	CONTROL_ID		INT					NOT NULL,
+	APPT_SUBJECT	VARCHAR(100)		DEFAULT 'NO APPONTMENT-SUBJECT DEFINED',
+	APPT_LOCATION	VARCHAR(100)		DEFAULT '',
+	APPT_DESCRIPTION	VARCHAR(100)		DEFAULT '',
+	ADDED_WHEN		DATETIME			DEFAULT GETDATE(),
+CONSTRAINT 	   	[PK_TBPMO_APPOINTMENT_CONTROLS] 	PRIMARY KEY(CONTROL_ID))
+GO
+
+ 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
+
+
+
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.8.sql

@@ -0,0 +1,346 @@
+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
+
+
+
+
+
+
+
+
+
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.6.9.sql

@@ -0,0 +1,48 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.9' where NAME = 'Record-Organizer' 
+GO
+
+ALTER TABLE TBDD_USER_LOGIN_OUT
+ ADD VERSION_CLIENT VARCHAR(30)
+GO
+
+ALTER TABLE TBDD_USER_MODULE_LOG_IN
+ ADD VERSION_CLIENT VARCHAR(30)
+GO
+ALTER TRIGGER [dbo].[TBDD_USER_MODULE_LOG_IN_AFT_INS] ON [dbo].[TBDD_USER_MODULE_LOG_IN]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID		INTEGER,
+		@MODULE			VARCHAR(50),
+		@CLIENT_ID		INTEGER,
+		@VERSION_CLIENT	VARCHAR(30)
+	SELECT
+  		@USER_ID = USER_ID,
+		@MODULE = MODULE,
+		@CLIENT_ID = CLIENT_ID,
+		@VERSION_CLIENT = VERSION_CLIENT
+	FROM INSERTED
+	
+	IF @VERSION_CLIENT IS NULL
+		SET @VERSION_CLIENT = '1.0.0.0'
+	INSERT INTO TBDD_USER_LOGIN_OUT (MODULE,USER_ID,CLIENT_ID,VERSION_CLIENT) VALUES (@MODULE,@USER_ID,@CLIENT_ID,@VERSION_CLIENT)
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+CREATE VIEW VWDD_LOGIN_USER_HISTORY AS
+SELECT	TOP (5000) 
+	T.GUID, T.MODULE,T1.USERNAME, T1.NAME, T1.PRENAME, T1.GUID as USER_ID, T.CLIENT_ID,T2.CLIENT_NAME, T.LOGIN, T.LOGOUT, T.VERSION_CLIENT
+FROM TBDD_USER_LOGIN_OUT T,
+TBDD_USER T1,
+TBDD_CLIENT T2
+WHERE 
+	T.USER_ID = T1.GUID 
+	AND T.CLIENT_ID = T2.GUID
+ORDER BY GUID DESC
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.7.0.sql

@@ -0,0 +1,233 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.7.0' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBDD_USER_LOGIN_OUT
+ ADD MACHINE_NAME VARCHAR(250) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBDD_USER_MODULE_LOG_IN
+ ADD MACHINE_NAME VARCHAR(250) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBDD_MODULES
+ ADD VERSION_UPATE_PATH VARCHAR(500) NOT NULL DEFAULT ''
+GO
+ALTER TRIGGER [dbo].[TBDD_USER_MODULE_LOG_IN_AFT_INS] ON [dbo].[TBDD_USER_MODULE_LOG_IN]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID		INTEGER,
+		@MODULE			VARCHAR(50),
+		@CLIENT_ID		INTEGER,
+		@VERSION_CLIENT	VARCHAR(30),
+		@MACHINE_NAME	VARCHAR(50)
+	SELECT
+  		@USER_ID = USER_ID,
+		@MODULE = MODULE,
+		@CLIENT_ID = CLIENT_ID,
+		@VERSION_CLIENT = VERSION_CLIENT,
+		@MACHINE_NAME = MACHINE_NAME
+	FROM INSERTED
+	
+	IF @VERSION_CLIENT IS NULL
+		SET @VERSION_CLIENT = '1.0.0.0'
+	INSERT INTO TBDD_USER_LOGIN_OUT (MODULE,USER_ID,CLIENT_ID,VERSION_CLIENT,MACHINE_NAME) VALUES (@MODULE,@USER_ID,@CLIENT_ID,@VERSION_CLIENT,@MACHINE_NAME)
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+CREATE TABLE TBDD_VERSION_USER_UPDATE_PATH(
+	GUID			INTEGER			NOT NULL	IDENTITY(1,1),
+	USER_ID			INT					NOT NULL,
+	MODULE_NAME		VARCHAR(30)			NOT NULL,
+	UPDATE_PATH		VARCHAR(500)		NOT NULL DEFAULT '',
+	ADDED_WHEN		DATETIME			DEFAULT GETDATE(),
+	CHANGED_WHEN	DATETIME			DEFAULT GETDATE(),
+CONSTRAINT 	   	[PK_TBDD_VERSION_USER_UPDATE_PATH] 	PRIMARY KEY(GUID))
+GO
+CREATE TRIGGER TBDD_VERSION_USER_UPDATE_PATH_AFT_UPD ON TBDD_VERSION_USER_UPDATE_PATH
+FOR UPDATE
+AS
+	UPDATE TBDD_VERSION_USER_UPDATE_PATH SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBDD_VERSION_USER_UPDATE_PATH.GUID = INSERTED.GUID
+
+GO
+CREATE TABLE TBDD_VERSION_UPDATE(
+	GUID				INTEGER				NOT NULL	IDENTITY(1,1),
+	MODULE_NAME			VARCHAR(30)			NOT NULL,
+	VERSION_NO			VARCHAR(20)			NOT NULL,
+	VERSION_FORCE_UPD	VARCHAR(100)		NOT NULL	DEFAULT '',
+	FORCE_UPD			BIT					NOT NULL	DEFAULT 0,
+	ADDED_WHEN			DATETIME			DEFAULT GETDATE(),
+	CHANGED_WHEN		DATETIME			DEFAULT GETDATE(),
+CONSTRAINT 	   	[PK_TBDD_VERSION_UPDATE] 	PRIMARY KEY(GUID))
+GO
+CREATE TABLE TBDD_VERSION_ITEMS(
+	GUID				INTEGER			NOT NULL	IDENTITY(1,1),
+	UPDATE_ID			INTEGER			NOT NULL,
+	ITEM_INFO			VARCHAR(100)	NOT NULL,
+	INFO1				VARCHAR(100),
+	INFO2				VARCHAR(100),
+	INFO3				VARCHAR(100),
+	BIT1				BIT				NOT NULL DEFAULT 0,
+	BIT2				BIT				NOT NULL DEFAULT 0,
+	BIT3				BIT				NOT NULL DEFAULT 0,
+	COMMENT				VARCHAR(250),
+	ADDED_WHEN			DATETIME			DEFAULT GETDATE(),
+	CHANGED_WHEN		DATETIME			DEFAULT GETDATE(),
+CONSTRAINT 	   	[PK_TBDD_VERSION_ITEMS] 	PRIMARY KEY(GUID),
+CONSTRAINT		FK_TBDD_VERSION_ITEMS_UPDATE_ID		FOREIGN KEY (UPDATE_ID)  REFERENCES  TBDD_VERSION_UPDATE (GUID))
+GO
+CREATE TABLE TBDD_USER_MODULES
+(
+	GUID			INTEGER	IDENTITY(1,1),         				
+	[USER_ID]		INT										NOT NULL,
+	MODULE_ID		INT										NOT NULL,
+	COMMENT			VARCHAR(200),
+	ADDED_WHO		VARCHAR(50)		DEFAULT 'DEFAULT',
+	ADDED_WHEN		DATETIME 		DEFAULT GETDATE(),
+	CONSTRAINT		PK_TBDD_USER_MODULES			PRIMARY KEY (GUID),
+	CONSTRAINT		UQ_TBDD_USER_MODULES			UNIQUE([USER_ID],MODULE_ID),
+	CONSTRAINT		FK_TBDD_USER_MODULES_MODULE_ID	FOREIGN KEY(MODULE_ID)	REFERENCES TBDD_MODULES(GUID),
+	CONSTRAINT		FK_TBDD_USER_MODULES2_USER_ID	FOREIGN KEY([USER_ID])	REFERENCES TBDD_USER(GUID),
+)
+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 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 TBDD_USER_MODULES WHERE USER_ID = @pUSER_ID
+	DELETE FROM TBPMO_USER_UPDATE_PATH 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		
+								
+DECLARE c_REDO CURSOR FOR 
+	SELECT GUID FROM TBDD_USER where MODULE_RECORD_ORG = 1
+  OPEN c_REDO 
+    FETCH NEXT FROM c_REDO INTO @USER_ID
+    WHILE @@FETCH_STATUS = 0
+	BEGIN
+		INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES (@USER_ID,0)
+		FETCH NEXT FROM c_REDO INTO @USER_ID
+	END
+CLOSE c_REDO
+DEALLOCATE c_REDO
+GO
+DECLARE
+	@USER_ID	INTEGER		
+DECLARE c_REDO CURSOR FOR 
+	SELECT GUID FROM TBDD_USER where MODULE_RECORD_ORG = 1
+  OPEN c_REDO 
+    FETCH NEXT FROM c_REDO INTO @USER_ID
+    WHILE @@FETCH_STATUS = 0
+	BEGIN
+		IF NOT EXISTS(SELECT GUID FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = @USER_ID AND MODULE_NAME = 'RECORD-ORGANIZER' )
+			INSERT INTO TBDD_VERSION_USER_UPDATE_PATH (USER_ID,MODULE_NAME,UPDATE_PATH) VALUES (@USER_ID,'RECORD-ORGANIZER','P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\TEST\TEST_UPDATE_RECORDGANIZER')
+		FETCH NEXT FROM c_REDO INTO @USER_ID
+	END
+CLOSE c_REDO
+DEALLOCATE c_REDO
+GO
+
+--########aktualisiere Trigger after insert TBDD_USER To ADD USers to table!
+ALTER TRIGGER [dbo].[TBDD_USER_AFT_INS] ON [dbo].[TBDD_USER]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID INTEGER,
+		@CLIENT_ID INTEGER,
+		@ADDED_WHO VARCHAR(50),
+		@CLIENT_COUNT INTEGER,
+		@ECM_USR_ID INTEGER,
+		@USRNAME VARCHAR(50),
+		@MODULE_RO BIT,
+		@UPDATE_PATH VARCHAR(500)
+	SELECT 
+		@USER_ID = GUID,
+		@ADDED_WHO = ADDED_WHO,
+		@USRNAME = USERNAME,
+		@MODULE_RO = MODULE_RECORD_ORG
+		
+	FROM INSERTED
+
+	IF @MODULE_RO = 1
+		BEGIN
+			SELECT @UPDATE_PATH FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')
+			INSERT INTO TBDD_VERSION_USER_UPDATE_PATH (USER_ID,MODULE_NAME,UPDATE_PATH) VALUES
+				(@USER_ID, 'Record-Organizer', @UPDATE_PATH)
+			SELECT @ECM_USR_ID = [dwUserID]
+			 FROM [172.24.12.41\BRAINPOOL].windream60.[dbo].[UserInfo] where UPPER(szUserName) = UPPER(@USRNAME)
+			IF @ECM_USR_ID IS NOT NULL
+				UPDATE TBDD_USER SET USERID_FK_INT_ECM = @ECM_USR_ID
+							FROM INSERTED
+							WHERE TBDD_USER.GUID = INSERTED.GUID
+
+			SELECT @CLIENT_COUNT = COUNT(*) FROM TBDD_CLIENT
+			IF @CLIENT_COUNT = 1
+				BEGIN
+					SELECT @CLIENT_COUNT = GUID FROM TBDD_CLIENT
+					INSERT INTO TBDD_CLIENT_USER (USER_ID,CLIENT_ID,ADDED_WHO) VALUES
+					(@USER_ID,@CLIENT_COUNT,@ADDED_WHO)
+				END
+
+			INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES (@USER_ID,0)
+		END
+		
+END TRY
+BEGIN CATCH   
+	PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+	+ ' - ERROR-MESSAGE: ' 
+	+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO
+ALTER VIEW [dbo].[VWDD_LOGIN_USER_HISTORY] AS
+SELECT TOP (5000) 
+	T.GUID, 
+	T.MODULE,
+	T1.USERNAME, 
+	T1.NAME, 
+	T1.PRENAME, 
+	T1.GUID as USER_ID, 
+	T.CLIENT_ID,
+	T2.CLIENT_NAME, 
+	T.LOGIN, 
+	T.LOGOUT, 
+	T.VERSION_CLIENT,
+	T.MACHINE_NAME
+FROM 
+	TBDD_USER_LOGIN_OUT T,
+	TBDD_USER T1,
+	TBDD_CLIENT T2
+WHERE 
+	T.USER_ID = T1.GUID 
+	AND T.CLIENT_ID = T2.GUID
+ORDER BY GUID DESC
+GO
+
+
+
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.7.1.sql

@@ -0,0 +1,39 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.7.1' where NAME = 'Record-Organizer' 
+GO
+ALTER TABLE TBDD_USER_LOGIN_OUT
+ ADD CONNECTION_STRING VARCHAR(500) NOT NULL DEFAULT ''
+GO
+ALTER TABLE TBDD_USER_MODULE_LOG_IN
+ ADD CONNECTION_STRING VARCHAR(500) NOT NULL DEFAULT ''
+GO
+ALTER TRIGGER [dbo].[TBDD_USER_MODULE_LOG_IN_AFT_INS] ON [dbo].[TBDD_USER_MODULE_LOG_IN]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID		INTEGER,
+		@MODULE			VARCHAR(50),
+		@CLIENT_ID		INTEGER,
+		@VERSION_CLIENT	VARCHAR(30),
+		@MACHINE_NAME	VARCHAR(50),
+		@CONNECTION_STRING	VARCHAR(500)
+	SELECT
+  		@USER_ID = USER_ID,
+		@MODULE = MODULE,
+		@CLIENT_ID = CLIENT_ID,
+		@VERSION_CLIENT = VERSION_CLIENT,
+		@MACHINE_NAME = MACHINE_NAME,
+		@CONNECTION_STRING = CONNECTION_STRING
+	FROM INSERTED
+	
+	IF @VERSION_CLIENT IS NULL
+		SET @VERSION_CLIENT = '1.0.0.0'
+	INSERT INTO TBDD_USER_LOGIN_OUT (MODULE,USER_ID,CLIENT_ID,VERSION_CLIENT,MACHINE_NAME,CONNECTION_STRING) VALUES (@MODULE,@USER_ID,@CLIENT_ID,@VERSION_CLIENT,@MACHINE_NAME,@CONNECTION_STRING)
+END TRY
+BEGIN CATCH   
+	PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+	+ ' - FEHLER-MESSAGE: ' 
+    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
+END CATCH
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.7.2.sql

@@ -0,0 +1,61 @@
+UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.7.2' where NAME = 'Record-Organizer' 
+GO
+ALTER TRIGGER [dbo].[TBDD_USER_AFT_INS] ON [dbo].[TBDD_USER]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@USER_ID INTEGER,
+		@CLIENT_ID INTEGER,
+		@ADDED_WHO VARCHAR(50),
+		@CLIENT_COUNT INTEGER,
+		@ECM_USR_ID INTEGER,
+		@USRNAME VARCHAR(50),
+		@MODULE_RO BIT,
+		@UPDATE_PATH VARCHAR(500)
+	SELECT 
+		@USER_ID = GUID,
+		@ADDED_WHO = ADDED_WHO,
+		@USRNAME = USERNAME,
+		@MODULE_RO = MODULE_RECORD_ORG
+		
+	FROM INSERTED
+
+	IF @MODULE_RO = 1
+		BEGIN
+			SELECT @UPDATE_PATH = VERSION_UPATE_PATH FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')
+			INSERT INTO TBDD_VERSION_USER_UPDATE_PATH (USER_ID,MODULE_NAME,UPDATE_PATH) VALUES
+				(@USER_ID, 'Record-Organizer', @UPDATE_PATH)
+			SELECT @ECM_USR_ID = [dwUserID]
+			 FROM [172.24.12.41\BRAINPOOL].windream60.[dbo].[UserInfo] where UPPER(szUserName) = UPPER(@USRNAME)
+			IF @ECM_USR_ID IS NOT NULL
+				UPDATE TBDD_USER SET USERID_FK_INT_ECM = @ECM_USR_ID
+							FROM INSERTED
+							WHERE TBDD_USER.GUID = INSERTED.GUID
+
+			SELECT @CLIENT_COUNT = COUNT(*) FROM TBDD_CLIENT
+			IF @CLIENT_COUNT = 1
+				BEGIN
+					SELECT @CLIENT_COUNT = GUID FROM TBDD_CLIENT
+					INSERT INTO TBDD_CLIENT_USER (USER_ID,CLIENT_ID,ADDED_WHO) VALUES
+					(@USER_ID,@CLIENT_COUNT,@ADDED_WHO)
+				END
+
+			INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES (@USER_ID,0)
+		END
+		
+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_KONFIGURATION
+ ADD COUNTER_CONTROL_UPDATE_ID INTEGER NOT NULL DEFAULT '1'
+GO
+ALTER TABLE TBPMO_RIGHTS_WORK_SERVICE
+ ADD COUNTER_CONTROL_UPDATE_ID INTEGER NOT NULL DEFAULT '0'
+GO
+