Alle Updates in MainCreateScripts integriert

2023-07-20 08:54:06 +02:00
parent 7669443af5
commit c11a62c129
223 changed files with 42153 additions and 41336 deletions
--- a/01_SMART_UP_TOOLS/08_ORGFLOW/SQL/UPDATE
+++ b/01_SMART_UP_TOOLS/08_ORGFLOW/SQL/UPDATE
@@ -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
+
+
+
+
+