53 lines
3.7 KiB
Transact-SQL
53 lines
3.7 KiB
Transact-SQL
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 |