UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.7.4' where NAME = 'Record-Organizer' 
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,4)
				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,4)
				--####
				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,4)
				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,4)
			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
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 = 3 AND CONFIG_COLUMNS = 1) >= 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 <> 3 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
	/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
	DECLARE 
		@ENITTY_ID	INTEGER,
		@DOCTYPE	VARCHAR(250),
		@SUPPLIER	VARCHAR(250)
	SELECT @ENITTY_ID = FORM_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID

	IF @ENITTY_ID = 21
		BEGIN
			SELECT @SUPPLIER = VALUE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = 258
			SELECT @DOCTYPE = T.Doctype FROM TBPMO_DOCRESULT_LIST T, TBPMO_DOC_RECORD_LINK T1 WHERE T.DocID = T1.DOC_ID AND T1.RECORD_ID = @RECORD_ID
			IF @SUPPLIER <> '' and @DOCTYPE <> '' AND @DOCTYPE IN ('55.SA','23B.NDA/CA')
				BEGIN
					INSERT INTO TBPMO_DOC_RECORD_LINK (DOC_ID,RECORD_ID,ADDED_WHO) SELECT @DOC_ID,[Record-ID],'TBPMO_DOC_RECORD_LINK_AFT_INS' FROM VWTEMP_PMO_FORM19 where UPPER(Supplier_name) = UPPER(@SUPPLIER)
				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 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 TBDD_VERSION_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

ALTER TRIGGER [dbo].[TBDD_USER_AFT_UPD] ON [dbo].[TBDD_USER]
FOR UPDATE
AS
BEGIN 
	DECLARE @USRNAME VARCHAR(50)
	SELECT  @USRNAME = USERNAME FROM inserted
	IF UPDATE (USERNAME)
		BEGIN
			DECLARE @ECM_USR_ID INTEGER
			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
		END
	UPDATE TBDD_USER SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBDD_USER.GUID = INSERTED.GUID
END	
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

DECLARE @RECID INTEGER
DECLARE cursor_RELINK CURSOR LOCAL FOR 
	select T.DocID,T1.dwValue from TBPMO_DOCRESULT_LIST T,[172.24.12.41\BRAINPOOL].windream60.dbo.Vector T1
	WHERE T.DocID = T1.dwDocID AND T1.dwAttrID = 20005 AND T1.dwValue NOT IN (SELECT RECORD_ID from TBPMO_DOC_RECORD_LINK) ORDER BY T.DocID
OPEN cursor_RELINK 
FETCH NEXT FROM cursor_RELINK INTO @DocID,@RECID
WHILE @@FETCH_STATUS = 0
BEGIN
	IF EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE GUID = @RECID)
		BEGIN
			IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = @RECID AND DOC_ID = @DocID)
				INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,ADDED_WHO) VALUES
					(@RECID,@DocID,'PRPMO_DOCRESULT_CHANGE')
		END
		
	FETCH NEXT FROM cursor_RELINK INTO @DocID,@RECID
END
CLOSE cursor_RELINK
DEALLOCATE cursor_RELINK

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 VIEW [dbo].[VWPMO_DOKUMENTTYPES]
AS
SELECT TOP 2000
	 T2.FORMVIEW_ID,
	 T3.FORM_ID,
	 T3.FORM_TITLE,
     T.GUID				DOKUMENTTYPE_ID,
     T.BEZEICHNUNG	    DOKUMENTTYPE,
     T.ZIEL_PFAD	    [PATH],
     T.KURZNAME			SHORTNAME,
	 T2.GUID			FW_DOCTYPE_ID,
	 T2.OBJECT_TYPE,
	 T.SEQUENCE
FROM
	TBDD_DOKUMENTART T,
	TBDD_EINGANGSARTEN T1,
	TBPMO_WD_FORMVIEW_DOKTYPES T2,
	TBPMO_FORM_VIEW T3
WHERE
	T.AKTIV = 1 AND
	T.EINGANGSART_ID = T1.GUID AND
	T.GUID = T2.DOCTYPE_ID AND
	T2.FORMVIEW_ID = T3.GUID
ORDER BY
	 T2.FORMVIEW_ID

GO