Alle Updates in MainCreateScripts integriert
This commit is contained in:
@@ -0,0 +1,583 @@
|
||||
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ä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ä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
|
||||
|
||||
Reference in New Issue
Block a user