MS

2021-12-07 16:30:02 +01:00
parent 029166c380
commit 51ed7e249d
188 changed files with 36975 additions and 0 deletions
--- a/08_ADDI/SQL/UPDATE_SCRIPTS/2.4.8.9.sql
+++ b/08_ADDI/SQL/UPDATE_SCRIPTS/2.4.8.9.sql
@@ -0,0 +1,270 @@
+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
+
+
+