MS

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.2/IDX.sql

@@ -0,0 +1,4 @@
+CREATE NONCLUSTERED INDEX [IDXTBPMO_CONTROL_VALUE_RECID_VALUE]
+ON [dbo].[TBPMO_CONTROL_VALUE] ([CONTROL_ID])
+INCLUDE ([RECORD_ID],[VALUE])
+GO

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.2/PRDD_COPY_RECORD.sql

@@ -0,0 +1,27 @@
+CREATE PROCEDURE [dbo].[PRDD_COPY_RECORD](@pRECORD_ID INT,@WHO VARCHAR(50)) --,@pMODULE_ID INT)
+AS
+DECLARE	@NEW_RECORD_ID	INT
+		
+BEGIN TRY 
+	INSERT INTO TBPMO_RECORD (
+		FORM_ID,ADDED_WHO) 
+	SELECT FORM_ID,@WHO FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
+
+	SELECT @NEW_RECORD_ID = MAX(GUID) FROM TBPMO_RECORD
+	
+	INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT) SELECT
+	RECORD1_ID,@NEW_RECORD_ID,COMMENT FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = @pRECORD_ID
+
+	INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) SELECT
+	CONTROL_ID,@NEW_RECORD_ID,VALUE,@WHO FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @pRECORD_ID
+
+	INSERT INTO TBPMO_CONTROL_IMAGE(CONTROL_ID,RECORD_ID,IMG,ADDED_WHO) SELECT
+	CONTROL_ID,@NEW_RECORD_ID,IMG,@WHO FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = @pRECORD_ID
+
+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
+

08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.2/Update Skript.sql

@@ -0,0 +1,69 @@
+ALTER TABLE TBPMO_RECORD
+ADD RECORD_ENTITY_ID INTEGER NOT NULL DEFAULT 0
+GO
+
+ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
+WITH EXECUTE AS CALLER
+FOR INSERT
+AS
+BEGIN TRY
+	DECLARE 
+		@RECORD_ID	INTEGER,
+		@MAX_ID		INTEGER,
+		@FORM_ID	INTEGER,
+		@WF_ID		INTEGER,
+		@PARENT_ID	INTEGER
+	SELECT
+  		@FORM_ID = FORM_ID,
+		@RECORD_ID = GUID
+	FROM INSERTED
+
+	SELECT
+  		@MAX_ID = MAX(RECORD_ENTITY_ID) + 1
+	FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID
+
+	UPDATE TBPMO_RECORD SET 
+		RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
+
+	--Überprüfen ob dieser Rec
+	IF EXISTS(
+		SELECT * FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID
+			)
+		BEGIN
+			EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
+		END
+
+	--EXEC DBO.PRPMO_CREATE_RECORD_CONNECTIONS @FORM_ID,@RECORD_ID
+	--SELECT @PARENT_ID = PARENT_ID FROM TBPMO_FORM WHERE GUID = @FORM_ID
+	--IF @PARENT_ID > 0
+	--	INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID) VALUES (@PARENT_ID,@RECORD_ID)
+
+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
+GO
+
+DECLARE
+		@GUID		INTEGER,
+		@FORM_ID	INTEGER	,
+		@MAX_ID		INTEGER					
+	DECLARE c_RECORD CURSOR FOR 
+		SELECT GUID,FORM_ID FROM TBPMO_RECORD ORDER BY GUID
+  	OPEN c_RECORD 
+    	FETCH NEXT FROM c_RECORD INTO @GUID,@FORM_ID
+    	WHILE @@FETCH_STATUS = 0
+		BEGIN
+			SELECT
+  				@MAX_ID = MAX(RECORD_ENTITY_ID) + 1
+			FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID
+
+			UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID WHERE GUID = @GUID
+								        	
+			FETCH NEXT FROM c_RECORD INTO @GUID,@FORM_ID
+		END
+	CLOSE c_RECORD
+	DEALLOCATE c_RECORD
+GO