584 lines
24 KiB
Transact-SQL
584 lines
24 KiB
Transact-SQL
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.5' where NAME = 'Record-Organizer'
|
||
GO
|
||
CREATE VIEW [dbo].[VWPMO_DOC_SYNC] AS
|
||
SELECT TOP 100 PERCENT
|
||
T.dwDocID as DocID
|
||
,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) AS FULL_FILENAME
|
||
,szLongName as [Filename],
|
||
ISNULL(T.szText39, 'NO DOCTYPE') AS Doctype
|
||
,T.dwVersionNumber 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
|
||
[172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes T
|
||
,[172.24.12.41\BRAINPOOL].windream60.dbo.ObjectType T1
|
||
WHERE
|
||
T.dwObjectTypeID = T1.dwObjectTypeID
|
||
AND T.szText36 = 'ADDI-RELATION'
|
||
ORDER BY [Creation_DateTime]
|
||
|
||
|
||
|
||
GO
|
||
|
||
|
||
|
||
ALTER TRIGGER [dbo].[TBPMO_CONSTRUCTOR_USER_AFT_INS] ON [dbo].[TBPMO_CONSTRUCTOR_USER]
|
||
WITH EXECUTE AS CALLER
|
||
FOR INSERT
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE
|
||
@USER_ID INTEGER,
|
||
@CONSTRUCT_ID INTEGER,
|
||
@ADDED_WHO VARCHAR(50)
|
||
SELECT
|
||
@CONSTRUCT_ID = CONSTRUCT_ID,
|
||
@USER_ID = GUID,
|
||
@ADDED_WHO = ADDED_WHO
|
||
FROM INSERTED
|
||
|
||
DECLARE @ENTITY_ID INTEGER
|
||
|
||
DECLARE c_USER CURSOR FOR
|
||
SELECT
|
||
FORM_ID FROM
|
||
VWPMO_CONSTRUCTOR_FORMS WHERE DOCUMENT_VIEW = 1
|
||
OPEN c_USER
|
||
FETCH NEXT FROM c_USER INTO @ENTITY_ID
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
INSERT INTO TBPMO_USER_RIGHTS_JOBS (USER_ID,[ENTITY_ID],COMMENT,ADDED_WHO) VALUES
|
||
(@USER_ID,@ENTITY_ID,'USER ADDED TO CONSTRUCTOR','TBPMO_CONSTRUCTOR_USER_AFT_INS')
|
||
INSERT INTO TBPMO_ENTITY_USER_RIGHTS (USER_ID,ENTITY_ID,READ_ONLY,FILES_VISIBLE) VALUES
|
||
(@USER_ID,@ENTITY_ID,0,1)
|
||
|
||
FETCH NEXT FROM c_USER INTO @ENTITY_ID
|
||
END
|
||
CLOSE c_USER
|
||
DEALLOCATE c_USER
|
||
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
CREATE TABLE dbo.TBPMO_ENTITY_USER_RIGHTS(
|
||
GUID int IDENTITY(1,1) NOT NULL,
|
||
USER_ID int NOT NULL,
|
||
ENTITY_ID int NOT NULL,
|
||
READ_ONLY bit NOT NULL DEFAULT 0,
|
||
FILES_VISIBLE bit NOT NULL DEFAULT 1,
|
||
ADDED_WHEN datetime DEFAULT getdate(),
|
||
CHANGED_WHEN datetime,
|
||
CONSTRAINT PK_TBPMO_ENTITY_USER_RIGHTS PRIMARY KEY(GUID))
|
||
|
||
GO
|
||
CREATE TRIGGER [dbo].[TBPMO_ENTITY_USER_RIGHTS_AFT_UPD] ON [dbo].[TBPMO_ENTITY_USER_RIGHTS]
|
||
FOR UPDATE
|
||
AS
|
||
UPDATE TBPMO_ENTITY_USER_RIGHTS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_ENTITY_USER_RIGHTS.GUID = INSERTED.GUID
|
||
GO
|
||
ALTER PROCEDURE [dbo].[PRPMO_DOCRESULT_CHANGE]
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE @DocID INTEGER,
|
||
@DISPLAY_NAME VARCHAR(250),
|
||
@FULL_FILENAME VARCHAR(5000),
|
||
@Filename VARCHAR(500),
|
||
@Doctype VARCHAR(250),
|
||
@Version SMALLINT,
|
||
@Objecttype VARCHAR(250),
|
||
@Creation_DateTime DATETIME,
|
||
@Change_DateTime DATETIME
|
||
DECLARE c_Values CURSOR LOCAL FOR
|
||
select DocID, [Filename], FULL_FILENAME,
|
||
Doctype, [Version] as [Version], Objecttype,
|
||
Creation_DateTime, Change_DateTime from VWPMO_DOC_SYNC
|
||
--WHERE
|
||
--CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE()) OR
|
||
--CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())
|
||
OPEN c_Values
|
||
FETCH NEXT FROM c_Values INTO @DocID,@Filename,@FULL_FILENAME,
|
||
@Doctype,@Version,@Objecttype,
|
||
@Creation_DateTime,@Change_DateTime
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
IF NOT EXISTS(SELECT [DocID] FROM TBPMO_DOCRESULT_LIST WHERE DocID = @DocID)
|
||
BEGIN
|
||
PRINT 'INSERT NECESSARY'
|
||
INSERT INTO TBPMO_DOCRESULT_LIST (
|
||
[DocID],
|
||
[DISPLAY_NAME],
|
||
[FULL_FILENAME],
|
||
[Filename],
|
||
[Doctype],
|
||
[Version],
|
||
[Objecttype],
|
||
Creation_DateTime,
|
||
Change_DateTime)
|
||
VALUES (
|
||
@DocID,
|
||
@Filename,
|
||
@FULL_FILENAME,
|
||
@Filename,
|
||
@Doctype,
|
||
@Version,
|
||
@Objecttype,
|
||
@Creation_DateTime,
|
||
@Change_DateTime
|
||
)
|
||
END
|
||
ELSE
|
||
UPDATE TBPMO_DOCRESULT_LIST SET
|
||
[FULL_FILENAME] = @FULL_FILENAME,
|
||
[Filename] = @Filename,
|
||
[Doctype] = @Doctype,
|
||
[Version] = @Version,
|
||
[Objecttype] = @Objecttype,
|
||
Change_DateTime = @Change_DateTime
|
||
WHERE DocID = @DocID
|
||
|
||
--#####
|
||
FETCH NEXT FROM c_Values INTO @DocID,@Filename,@FULL_FILENAME,
|
||
@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
|
||
END
|
||
CLOSE c_Values
|
||
DEALLOCATE c_Values
|
||
|
||
DECLARE @DocID1 INTEGER
|
||
DECLARE c_2_Delete CURSOR LOCAL FOR
|
||
select DocID from TBPMO_DOCRESULT_LIST where DocID not in (SELECT DocID from VWPMO_DOC_SYNC)
|
||
OPEN c_2_Delete
|
||
FETCH NEXT FROM c_2_Delete INTO @DocID1
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
EXEC PRPMO_DELETE_RESULTFILE @DocID1, 0, 1
|
||
|
||
--#####
|
||
FETCH NEXT FROM c_2_Delete INTO @DocID1
|
||
END
|
||
CLOSE c_2_Delete
|
||
DEALLOCATE c_2_Delete
|
||
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 TABLE TBPMO_WD_OBJECTTYPE
|
||
ADD IDXNAME_RELATION VARCHAR(100) NOT NULL DEFAULT 1
|
||
GO
|
||
|
||
|
||
CREATE TABLE TBPMO_RIGHT_USER(
|
||
GUID int IDENTITY(1,1) NOT NULL,
|
||
USER_ID int NOT NULL,
|
||
ENTITY_ID int NOT NULL,
|
||
EDIT_REC bit NOT NULL DEFAULT 1,
|
||
ADD_REC bit NOT NULL DEFAULT 0,
|
||
DELETE_REC bit NOT NULL DEFAULT 0,
|
||
ADD_DOC bit NOT NULL DEFAULT 0,
|
||
READ_ONLY_DOC bit NOT NULL DEFAULT 0,
|
||
DELETE_DOC bit NOT NULL DEFAULT 0,
|
||
FILES_VISIBLE bit NOT NULL DEFAULT 1,
|
||
ADDED_WHEN datetime DEFAULT getdate(),
|
||
CHANGED_WHEN datetime,
|
||
CONSTRAINT [PK_TBPMO_RIGHT_USER] PRIMARY KEY(GUID))
|
||
GO
|
||
ALTER TRIGGER TBPMO_RIGHT_USER_AFT_UPD ON TBPMO_RIGHT_USER
|
||
FOR UPDATE
|
||
AS
|
||
UPDATE TBPMO_RIGHT_USER SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RIGHT_USER.GUID = INSERTED.GUID
|
||
GO
|
||
|
||
|
||
DECLARE @DoctypeID INTEGER
|
||
DECLARE cursor_Doctype CURSOR LOCAL FOR
|
||
select GUID from TBDD_DOKUMENTART
|
||
OPEN cursor_Doctype
|
||
FETCH NEXT FROM cursor_Doctype INTO @DoctypeID
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
INSERT INTO TBDD_INDEX_AUTOM (DOCTYPE_ID, INDEXNAME,VALUE,ADDED_WHO) VALUES
|
||
(@DoctypeID,'String 36','ADDI-RELATION','Digital Data')
|
||
|
||
--#####
|
||
FETCH NEXT FROM cursor_Doctype INTO @DoctypeID
|
||
END
|
||
CLOSE cursor_Doctype
|
||
DEALLOCATE cursor_Doctype
|
||
GO
|
||
ALTER VIEW VWPMO_DOC_SEARCH AS
|
||
SELECT
|
||
CONVERT(INTEGER,T.DocID) AS DocID
|
||
,T.FULL_FILENAME AS FULL_FILENAME
|
||
,T.[Filename]
|
||
,T.Doctype
|
||
,T.[Version]
|
||
,T.Creation_DateTime
|
||
,T.Change_DateTime
|
||
,T.OBJECTTYPE
|
||
,T.DISPLAY_NAME
|
||
,T.IN_WORK
|
||
,T.IN_WORK_USER
|
||
,T.IN_WORK_COMMENT
|
||
FROM
|
||
TBPMO_DOCRESULT_LIST T
|
||
GO
|
||
CREATE VIEW [dbo].[VWPMO_DOC_SYNC] AS
|
||
SELECT TOP 100 PERCENT
|
||
T.dwDocID as DocID
|
||
,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) AS FULL_FILENAME
|
||
,szLongName AS [Filename]
|
||
,ISNULL(T.szText39,'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
|
||
[172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes T
|
||
,[172.24.12.41\BRAINPOOL].windream60.dbo.ObjectType T1
|
||
WHERE
|
||
T.dwObjectTypeID = T1.dwObjectTypeID
|
||
AND T.szText36 = 'ADDI-RELATION'
|
||
ORDER BY [Creation_DateTime]
|
||
GO
|
||
DROP VIEW VWPMO_WD_DOC_SYNC
|
||
GO
|
||
ALTER VIEW [dbo].[VWPMO_DOC_SEARCH] AS
|
||
SELECT
|
||
CONVERT(INTEGER,T.DocID) AS DocID
|
||
,T.FULL_FILENAME AS FULL_FILENAME
|
||
,T.[Filename]
|
||
,T.Doctype
|
||
,T.[Version]
|
||
,T.Creation_DateTime
|
||
,T.Change_DateTime
|
||
,T.OBJECTTYPE
|
||
,T.DISPLAY_NAME
|
||
,T.IN_WORK
|
||
,T.IN_WORK_USER
|
||
,T.IN_WORK_COMMENT
|
||
FROM
|
||
TBPMO_DOCRESULT_LIST T
|
||
GO
|
||
|
||
CREATE PROCEDURE [dbo].[PRPMO_DOC_CREATE_NEW_DOC](@pDOC_ID INTEGER,@pREC_ID INTEGER,@WHO VARCHAR(50))
|
||
AS
|
||
BEGIN TRY
|
||
|
||
DECLARE
|
||
--@pDOC_ID INTEGER,@pREC_ID INTEGER,@WHO VARCHAR(50),
|
||
@DISPLAY_NAME VARCHAR(250),
|
||
@FULL_FILENAME VARCHAR(5000),
|
||
@Filename VARCHAR(500),
|
||
@Doctype VARCHAR(250),
|
||
@Version SMALLINT,
|
||
@Objecttype VARCHAR(250),
|
||
@Creation_DateTime DATETIME,
|
||
@Change_DateTime DATETIME
|
||
--SET @pDOC_ID = 260882
|
||
--SET @pREC_ID = 4388
|
||
--SET @WHO = 'SChreiberM'
|
||
SELECT @FULL_FILENAME = dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID)
|
||
,@DISPLAY_NAME = szLongName
|
||
,@Filename = szLongName
|
||
,@Doctype = ISNULL(T.szText39,'NO DOCTYPE')
|
||
,@Version = T.dwVersionNumber
|
||
,@Creation_DateTime = 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)
|
||
,@Change_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)
|
||
,@Objecttype = T1.szDocTypeName
|
||
FROM
|
||
[172.24.12.41\BRAINPOOL].windream60.dbo.BaseAttributes T
|
||
,[172.24.12.41\BRAINPOOL].windream60.dbo.ObjectType T1
|
||
WHERE
|
||
T.dwObjectTypeID = T1.dwObjectTypeID
|
||
AND T.dwDocID = @pDOC_ID
|
||
IF NOT EXISTS(SELECT DocID FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOC_ID)
|
||
INSERT INTO TBPMO_DOCRESULT_LIST (
|
||
[DocID],
|
||
[DISPLAY_NAME],
|
||
[FULL_FILENAME],
|
||
[Filename],
|
||
[Doctype],
|
||
[Version],
|
||
[Objecttype],
|
||
Creation_DateTime,
|
||
Change_DateTime)
|
||
VALUES (
|
||
@pDOC_ID,
|
||
@Filename,
|
||
@FULL_FILENAME,
|
||
@Filename,
|
||
@Doctype,
|
||
@Version,
|
||
@Objecttype,
|
||
@Creation_DateTime,
|
||
@Change_DateTime)
|
||
ELSE
|
||
PRINT 'NO INSERT 1'
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @pDOC_ID AND RECORD_ID = @pREC_ID)
|
||
INSERT INTO TBPMO_DOC_RECORD_LINK (DOC_ID, RECORD_ID,ADDED_WHO) VALUES (@pDOC_ID,@pREC_ID,@WHO)
|
||
ELSE
|
||
PRINT 'NO INSERT 2'
|
||
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'FEHLER IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
|
||
+ ' - FEHLER-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
CREATE TABLE TBPMO_RECORD_GEODATA(
|
||
[GUID] INT IDENTITY(1,1) NOT NULL,
|
||
RECORD_ID INT NOT NULL,
|
||
LATITUDE Decimal(9,6),
|
||
LONGITUDE Decimal(9,6),
|
||
LOCATION VARCHAR(2000),
|
||
COMMENT VARCHAR(500),
|
||
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT ('DEFAULT'),
|
||
ADDED_WHEN DATETIME DEFAULT (GETDATE()),
|
||
CHANGED_WHO VARCHAR(50),
|
||
CHANGED_WHEN DATETIME,
|
||
CONSTRAINT [PK_TBPMO_RECORD_GEODATA] PRIMARY KEY(RECORD_ID),
|
||
CONSTRAINT FK_TBPMO_RECORD_GEODATA_RECORD_ID FOREIGN KEY (RECORD_ID) REFERENCES TBPMO_RECORD (GUID))
|
||
GO
|
||
CREATE TRIGGER TBPMO_RECORD_GEODATA_AFT_UPD ON TBPMO_RECORD_GEODATA
|
||
FOR UPDATE
|
||
AS
|
||
UPDATE TBPMO_RECORD_GEODATA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RECORD_GEODATA.GUID = INSERTED.GUID
|
||
GO
|
||
|
||
ALTER PROCEDURE [dbo].[PRPMO_DELETE_RECORD](@pRECORD_ID INT, @WHO VARCHAR(30))
|
||
AS
|
||
BEGIN TRY
|
||
DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID IN (SELECT GUID FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @pRECORD_ID)
|
||
DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = @pRECORD_ID OR RECORD2_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_WORKFLOW_REMINDER WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_RECORD_VARIANT WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = @pRECORD_ID
|
||
DELETE FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
|
||
INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES (@pRECORD_ID,'RECORD-ID','RECORD DELETED BY USER',@WHO)
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'FEHLER IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
|
||
+ ' - FEHLER-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
|
||
DELETE FROM TBPMO_RIGHT_USER WHERE USER_ID NOT IN (SELECT GUID FROM TBDD_USER)
|
||
GO
|
||
DELETE FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID NOT IN (SELECT GUID FROM TBDD_USER)
|
||
GO
|
||
ALTER PROCEDURE [dbo].[PRPMO_DELETE_USER](@pUSER_ID INT)
|
||
AS
|
||
BEGIN TRY
|
||
IF OBJECT_ID(N'dbo.TBGI_FOLDERWATCH_USER', N'U') IS NOT NULL
|
||
DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = @pUSER_ID
|
||
IF OBJECT_ID(N'dbo.TBHOTKEY_USER_PROFILE', N'U') IS NOT NULL
|
||
DELETE FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_RIGHT_USER WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBDD_CLIENT_USER WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBDD_GROUPS_USER WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBPMO_ENTITY_USER_RIGHTS WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBDD_USER WHERE GUID = @pUSER_ID
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'FEHLER IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
|
||
+ ' - FEHLER-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
|
||
DECLARE
|
||
@USER_ID INTEGER,
|
||
@ENTITY_ID INTEGER,
|
||
@READ_ONLY BIT,
|
||
@FILES_VISIBLE BIT
|
||
|
||
DECLARE c_REDO CURSOR FOR
|
||
SELECT USER_ID, ENTITY_ID, READ_ONLY,FILES_VISIBLE FROM TBPMO_ENTITY_USER_RIGHTS
|
||
OPEN c_REDO
|
||
|
||
FETCH NEXT FROM c_REDO INTO @USER_ID,@ENTITY_ID,@READ_ONLY,@FILES_VISIBLE
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
IF NOT EXISTS(select guid from TBPMO_RIGHT_USER where USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID)
|
||
BEGIN
|
||
INSERT INTO TBPMO_RIGHT_USER (USER_ID, ENTITY_ID) VALUES (@USER_ID,@ENTITY_ID)
|
||
END
|
||
IF @READ_ONLY = 1
|
||
UPDATE TBPMO_RIGHT_USER SET READ_ONLY_DOC = 1 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID
|
||
ELSE
|
||
UPDATE TBPMO_RIGHT_USER SET READ_ONLY_DOC = 0 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID
|
||
|
||
IF @FILES_VISIBLE = 1
|
||
UPDATE TBPMO_RIGHT_USER SET FILES_VISIBLE = 1 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID
|
||
ELSE
|
||
UPDATE TBPMO_RIGHT_USER SET FILES_VISIBLE = 0 WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID
|
||
|
||
FETCH NEXT FROM c_REDO INTO @USER_ID,@ENTITY_ID,@READ_ONLY,@FILES_VISIBLE
|
||
END
|
||
CLOSE c_REDO
|
||
DEALLOCATE c_REDO
|
||
GO
|
||
|
||
ALTER TRIGGER [dbo].[TBPMO_FORM_VIEW_AFT_UPD] ON [dbo].[TBPMO_FORM_VIEW]
|
||
FOR UPDATE
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE
|
||
@FORM_TITLE VARCHAR(50),
|
||
@LANGUAGE VARCHAR(5),
|
||
@CHANGED_WHO VARCHAR(50),
|
||
@GUID INTEGER,
|
||
@SCREEN_ID INTEGER,
|
||
@PMO_OBJECT_NAME VARCHAR(100),
|
||
@ENTITY_ID INTEGER,
|
||
@DOC_VIEW BIT
|
||
SELECT
|
||
@GUID = GUID,
|
||
@FORM_TITLE = FORM_TITLE,
|
||
@SCREEN_ID = SCREEN_ID,
|
||
@CHANGED_WHO = CHANGED_WHO,
|
||
@ENTITY_ID = FORM_ID,
|
||
@DOC_VIEW = DOCUMENT_VIEW
|
||
FROM INSERTED
|
||
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
|
||
SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||
|
||
UPDATE TBPMO_FORM_VIEW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_FORM_VIEW.GUID = INSERTED.GUID
|
||
IF UPDATE (FORM_TITLE)
|
||
BEGIN
|
||
IF @LANGUAGE is not null
|
||
If EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
|
||
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID)
|
||
UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @FORM_TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
|
||
PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
|
||
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
|
||
ELSE
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID AND PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND CAPTION = @FORM_TITLE)
|
||
BEGIN TRY
|
||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE)
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 72'
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
END
|
||
IF UPDATE(DOCUMENT_VIEW)
|
||
IF @DOC_VIEW = 1
|
||
BEGIN
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Dateiname' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'Filename','Dateiname')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Dokumentart' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'Doctype','Dokumentart')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'IN_WORK','in work?',50,2)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'IN_WORK_USER','IW_USER',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'IN_WORK_COMMENT','IW_COMMENT',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Erstellt' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'Creation_DateTime','Erstellt',100,3)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Ge<EFBFBD>ndert' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'Change_DateTime','Ge<EFBFBD>ndert',100,3)
|
||
--####
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Filename' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'en-US','Filename','Filename')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Doctype' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'en-US','Doctype','Doctype')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'en-US','IN_WORK','in work?',50,2)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'en-US','IN_WORK_USER','IW_USER',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'en-US','IN_WORK_COMMENT','IW_COMMENT',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Created' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'en-US','Creation_DateTime','Created',100,3)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Changed' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'en-US','Change_DateTime','Changed',100,3)
|
||
END
|
||
ELSE
|
||
DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
|
||
CREATE PROCEDURE PRPMO_CREATE_VARIANT(@pREC_ID INTEGER,@WHO VARCHAR(50), @REASON VARCHAR(50),@COMMENT VARCHAR(500),@LINKFILES BIT)
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE @return_value int
|
||
EXEC @return_value = [dbo].[PRDD_COPY_RECORD] @pREC_ID,@WHO
|
||
IF @return_value = 0
|
||
BEGIN
|
||
DECLARE @NEW_RECORD_ID INTEGER
|
||
SELECT @NEW_RECORD_ID = MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = UPPER(@WHO)
|
||
UPDATE TBPMO_RECORD SET
|
||
PARENT_RECORD = @NEW_RECORD_ID
|
||
,CHANGED_WHO = @WHO WHERE GUID = @pREC_ID
|
||
INSERT INTO TBPMO_RECORD_VARIANT (RECORD_ID,REASON_CODE,COMMENT,ADDED_WHO) VALUES
|
||
(@pREC_ID,@REASON,@COMMENT,@WHO)
|
||
UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID =
|
||
(SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = @pREC_ID)
|
||
,CHANGED_WHO = @WHO WHERE GUID = @NEW_RECORD_ID
|
||
IF @LINKFILES = 1
|
||
INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID, COMMENT, ADDED_WHO)
|
||
SELECT @NEW_RECORD_ID, DOC_ID, 'NEW VARIANT LINK', @WHO FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = @pREC_ID
|
||
END
|
||
ELSE
|
||
RAISERROR ('ERROR WHILE COPYING RECORD',
|
||
10, -- Severity.
|
||
1, -- State.
|
||
'99', -- First substitution argument.
|
||
'PRDD_COPY_RECORD'); -- Second substitution argument.
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'FEHLER IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
|
||
+ ' - FEHLER-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG SET VISIBLE = 0 WHERE ENTITY_ID = 1 AND COLUMN_VIEW = 'IN_WORK'
|
||
GO
|
||
|