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