UPDATE TBDD_MODULES SET DB_VERSION = '2.4.8.9' where NAME = 'Record-Organizer' 
GO 
CREATE PROCEDURE [dbo].[PRPMO_DOC_CHANGE_DOCID](@pOLD_DOCID INTEGER, @pNEW_DOCID INTEGER,@pWHO As VARCHAR(50))
AS
BEGIN TRY
	UPDATE TBPMO_DOCRESULT_LIST SET DocID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DocID = @pOLD_DOCID
	UPDATE TBPMO_DOC_RECORD_LINK SET DOC_ID = @pNEW_DOCID,CHANGED_WHO = @pWHO  WHERE DOC_ID = @pOLD_DOCID
	UPDATE TBPMO_DOC_INDICES SET DocID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DocID = @pOLD_DOCID
	UPDATE TBPMO_DOC_VALUES SET DocID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DocID = @pOLD_DOCID

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_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,
	T.AUTO_SUGGEST	CONTROL_AUTO_SUGGEST,
	T4.GUID			CTRLTYPE_ID,
	T4.TYPE_NAME	CTRLTYPE_NAME,
	T.FORMAT_TYPE	CONTROL_FORMAT_TYPE,
	T.FORM_ID,
	T3.NAME			FORM_NAME,
	T5.GUID			FORM_VIEW_ID,
	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,
	TBPMO_FORM_VIEW T5
WHERE
	T.FORM_ID = T3.GUID AND
	T3.GUID = T5.FORM_ID 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_DOC_SYNC] AS 
/*SELECT TOP 100 PERCENT
	T.dwDocID as DocID
	,T.dwParentID
	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID)	AS FULL_FILENAME
	,szLongName										AS [Filename]
	,ISNULL(T.wmVar09,'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 
	DD_VMP01_APS01_windream60.dbo.BaseAttributes T
	,DD_VMP01_APS01_windream60.dbo.ObjectType T1
WHERE 
	T.dwCatalogID = 1
	AND T.dwObjectTypeID = 10005
	 AND T.dwObjectTypeID = T1.dwObjectTypeID 
	 AND T.szText30 = 'ADDI-RELATION'
	 */
SELECT TOP 100 PERCENT
	MAX(T.dwDocID) as DocID
	,T.dwParentID
	,dbo.FNPMO_GET_WINDREAM_FILE_PATH (MAX(T.dwDocID))	AS FULL_FILENAME
	,(SELECT szLongName from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID)) AS [Filename]
	
	,ISNULL(T.wmVar09,'NO DOCTYPE')				AS Doctype
	,(SELECT MAX(ISNULL(T.dwVersionNumber,'1')) from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID))  AS [Version]
	,(SELECT CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),MAX(T.dwCreationDate))) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(MAX(T.dwCreation_Time))) + convert(VARCHAR(6),MAX(T.dwCreation_Time)),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID))  AS [Creation_DateTime]
	,(SELECT CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),MAX(T.dwChangeDate))) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(MAX(T.dwChange_Time))) + convert(VARCHAR(6),MAX(T.dwChange_Time)),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID))   AS Change_DateTime
	,T1.szDocTypeName																AS OBJECTTYPE
	,T.dwObjectTypeID
FROM 
	DD_VMP01_APS01_windream60.dbo.BaseAttributes T
	,DD_VMP01_APS01_windream60.dbo.ObjectType T1
WHERE 
	--T.dwParentID = 1896955 AND
	T.dwCatalogID = 1
	AND T.dwObjectTypeID = 10005
	 AND T.dwObjectTypeID = T1.dwObjectTypeID 
	 AND T.szText30 = 'ADDI-RELATION'
GROUP BY 
	T.dwVersionID
	,T.dwParentID
	--,T.szLongName
	,ISNULL(T.wmVar09,'NO DOCTYPE')	
	,T1.szDocTypeName
	,T.dwObjectTypeID
ORDER BY [Creation_DateTime]
GO

CREATE TABLE TBPMO_FILE_FORMATS_CHANGE
(
	GUID			INTEGER	IDENTITY(0,1),         				-- Eindeutiger Tabellenschlüssel
	FILE_EXT		VARCHAR(50),
	ADDED_WHO		VARCHAR(50)	DEFAULT 'DEFAULT'	NOT NULL,
	ADDED_WHEN		DATETIME 	DEFAULT GETDATE()		NOT NULL,
	CHANGED_WHO		VARCHAR(50),
	CHANGED_WHEN	DATETIME,
	CONSTRAINT		PK_TBPMO_FILE_FORMATS_CHANGE	PRIMARY KEY (FILE_EXT)
)
GO
INSERT INTO TBPMO_FILE_FORMATS_CHANGE(FILE_EXT)
SELECT '.xlsx' UNION
SELECT '.xls ' UNION
SELECT '.xlsb ' UNION
SELECT '.xla ' UNION
SELECT '.xlsm ' UNION
SELECT '.doc ' UNION
SELECT '.dot ' UNION
SELECT '.wbk ' UNION
SELECT '.docx ' UNION
SELECT '.docm ' UNION
SELECT '.dotm ' UNION
SELECT '.ppt ' UNION
SELECT '.pot ' UNION
SELECT '.pps ' UNION
SELECT '.pptx ' UNION
SELECT '.pptm ' UNION
SELECT '.potx ' UNION
SELECT '.dwg'

GO
DROP TABLE TBPMO_DOC_ID_CHANGED
GO
CREATE TABLE [dbo].[TBPMO_DOC_ID_CHANGED](
	[GUID]			INTEGER IDENTITY(1,1) NOT NULL,
	[USER_ID]		INTEGER NOT NULL,
	[PROCESS_ID]	VARCHAR(50) NOT NULL,
	[OLD_DOC_ID]	INTEGER NOT NULL,
	VERSION_ID		INTEGER NOT NULL,
	DOC_PATH		VARCHAR(500) NOT NULL,
	[NEW_DOC_ID]	INTEGER NULL,
	[CREATED_WHEN]	DATETIME NULL DEFAULT GETDATE(),
	CHANGED_WHEN	DATETIME,
	CONSTRAINT		PK_TBPMO_DOC_ID_CHANGED	PRIMARY KEY ([GUID])
) ON [PRIMARY]
GO
DROP TABLE TBPMO_DOC_USER_REFRESH_VIEW
GO
CREATE TABLE [dbo].[TBPMO_DOC_USER_REFRESH_VIEW](
	GUID			INTEGER IDENTITY(1,1) NOT NULL,
	[USER_ID]		INTEGER NOT NULL,
	CREATED_WHEN	DATETIME NULL DEFAULT GETDATE(),
	REFRESHED_WHEN	DATETIME,
	CONSTRAINT		PK_TBPMO_DOC_USER_REFRESH_VIEW PRIMARY KEY ([GUID])
) ON [PRIMARY]
GO
CREATE PROCEDURE [dbo].[PRPMO_DOC_HANDLE_DOCID_CHANGED] AS
DECLARE
	@GUID	INTEGER,
	@OLD_DOC_ID	INTEGER,
	@VERSION_ID	INTEGER,
	@DOC_PATH	VARCHAR(500),
	@USER_ID	INTEGER		
								
DECLARE c_REDO CURSOR FOR 
	SELECT GUID,OLD_DOC_ID,VERSION_ID,DOC_PATH,USER_ID FROM TBPMO_DOC_ID_CHANGED WHERE NEW_DOC_ID IS NULL
  OPEN c_REDO 
    FETCH NEXT FROM c_REDO INTO @GUID,@OLD_DOC_ID,@VERSION_ID,@DOC_PATH,@USER_ID
    WHILE @@FETCH_STATUS = 0
	BEGIN
		IF NOT EXISTS(SELECT DocID FROM VWPMO_DOC_SYNC WHERE DocID = @OLD_DOC_ID)
			BEGIN
				DECLARE @NEW_DOC_ID INTEGER
				SELECT @NEW_DOC_ID = MAX(dwDocID) FROM DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwVersionID = @VERSION_ID
				IF @NEW_DOC_ID > 0
					BEGIN
						EXEC PRPMO_DOC_CHANGE_DOCID @OLD_DOC_ID,@NEW_DOC_ID,'DD_HANDLE_DOC_CHANGED'
						UPDATE TBPMO_DOC_ID_CHANGED SET NEW_DOC_ID = @NEW_DOC_ID, CHANGED_WHEN = GETDATE() WHERE GUID = @GUID
						IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_USER_REFRESH_VIEW WHERE USER_ID = @USER_ID AND REFRESHED_WHEN IS NULL)
							INSERT INTO TBPMO_DOC_USER_REFRESH_VIEW (USER_ID) VALUES (@USER_ID)
					END
			END
		FETCH NEXT FROM c_REDO INTO @GUID,@OLD_DOC_ID,@VERSION_ID,@DOC_PATH,@USER_ID
	END
CLOSE c_REDO
DEALLOCATE c_REDO
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 PRPMO_CREATE_ENTITY_TABLE @FORM_ID
	EXEC PRPMO_CREATE_ENTITY_TABLE_VIEW @FORM_ID
	--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