USE [DD_ECM]
GO
/****** Object:  StoredProcedure [dbo].[PRPMO_AFTER_UPDATE_VALUES]    Script Date: 29.02.2016 09:34:20 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[PRPMO_AFTER_UPDATE_VALUES](@pFORM_ID INT,@pRECORD_ID INT)
AS
DECLARE	@VALUE			VARCHAR(100),
		@NEW_RECORD_ID	INTEGER
		
DECLARE	CURSOR_TODO1	CURSOR FOR SELECT [VALUE] FROM [DD_ECM].[dbo].[VWPMO_VALUES] WHERE 
						FORM_ID = @pFORM_ID AND CONTROL_ID = 220 AND RECORD_ID = @pRECORD_ID


BEGIN TRY
	OPEN CURSOR_TODO1 
    FETCH NEXT FROM CURSOR_TODO1 INTO @VALUE
    
	WHILE @@FETCH_STATUS = 0
		BEGIN
			DECLARE @ANZAHL INT,@VORHANDEN INT
			SELECT @VORHANDEN = COUNT(T.[Record-ID])  FROM VWTEMP_PMO_FORM20 T,TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @pRECORD_ID
			PRINT @VORHANDEN
			PRINT ''
			SET @ANZAHL = @VORHANDEN + 1
				WHILE (@ANZAHL <=cast(@VALUE AS INT)) 
				BEGIN
					PRINT @ANZAHL
					--Record Inserten
					INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('INS_AUTOM_FOLGEN', 20)
					SELECT @NEW_RECORD_ID = MAX(GUID) FROM TBPMO_RECORD WHERE FORM_ID = 20-- ADDED_WHO = 'INS_AUTOM_FOLGEN'
					INSERT INTO  TBPMO_RECORD_CONNECT (RECORD1_ID,RECORD2_ID,COMMENT) VALUES (@pRECORD_ID,@NEW_RECORD_ID,'INS_AUTOM_FOLGEN')
					--FOLGENBEZEICHNUNG
					DECLARE @VALUE_NEW AS VARCHAR(100)
					SET @VALUE_NEW = 'FOLGE ' + cast(@ANZAHL AS VARCHAR(2))
					INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE) VALUES (183,@NEW_RECORD_ID,@VALUE_NEW)
					SET @ANZAHL = @ANZAHL + 1
			END
			
			FETCH NEXT FROM CURSOR_TODO1 INTO @VALUE
		END

	CLOSE CURSOR_TODO1
    DEALLOCATE CURSOR_TODO1

END TRY
BEGIN CATCH   
	PRINT 'FEHLER IN: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
	+ ' - FEHLER-MESSAGE: ' 
    + CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH