MS
This commit is contained in:
606
08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.6.sql
Normal file
606
08_ADDI/SQL/UPDATE Archiv (added to main script)/2.4.4.6.sql
Normal file
@@ -0,0 +1,606 @@
|
||||
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.6' where NAME = 'Record-Organizer'
|
||||
GO
|
||||
ALTER TABLE TBPMO_WD_OBJECTTYPE
|
||||
ADD IDXNAME_RECORDID VARCHAR(100)
|
||||
GO
|
||||
ALTER TABLE TBPMO_WD_OBJECTTYPE
|
||||
ADD IDXNAME_DOCTYPE VARCHAR(100)
|
||||
GO
|
||||
CREATE FUNCTION [dbo].[FNPMO_GET_ENTITY_COLUMN_CONTENT](@pRECORD_ID INTEGER)
|
||||
RETURNS VARCHAR(2500)
|
||||
AS
|
||||
BEGIN
|
||||
DECLARE
|
||||
@COLUMN1 VARCHAR(100),
|
||||
@ENTITY INTEGER, @CONTROL_ID INTEGER, @RESULT VARCHAR(2500)
|
||||
|
||||
SELECT @ENTITY = FORM_ID FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
|
||||
|
||||
SELECT @COLUMN1 = COLUMN_NAME1 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @ENTITY
|
||||
SELECT @CONTROL_ID = GUID FROm TBPMO_CONTROL WHERE COL_NAME = @COLUMN1
|
||||
SELECT @RESULT = VALUE FROM VWPMO_VALUES WHERE RECORD_ID = @pRECORD_ID AND CONTROL_ID = @CONTROL_ID
|
||||
RETURN(@RESULT)
|
||||
END
|
||||
|
||||
GO
|
||||
CREATE 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 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 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
|
||||
CREATE PROCEDURE [dbo].[PRPMO_DELETE_DOCTYPE](@pDOCID INT)
|
||||
AS
|
||||
BEGIN TRY
|
||||
DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID
|
||||
DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = @pDOCID
|
||||
DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = @pDOCID
|
||||
DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = @pDOCID
|
||||
DELETE FROM TBPMO_CLIENT_DOCTYPE WHERE DOCTYPE_ID = @pDOCID
|
||||
DELETE FROM TBPMO_TEMPLATE WHERE DOCTYPE_ID = @pDOCID
|
||||
DELETE FROM TBDD_DOKUMENTART WHERE GUID = @pDOCID
|
||||
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
|
||||
ALTER FUNCTION [dbo].[FNPMO_GETOBJECTCAPTION](@pLANG_TYPE VARCHAR(5), @pOBJ_NAME VARCHAR(100), @pSCREEN_ID INT)
|
||||
RETURNS VARCHAR(100)
|
||||
AS
|
||||
BEGIN
|
||||
DECLARE @PMOOBJ_CAPTION VARCHAR(100)
|
||||
|
||||
SELECT @PMOOBJ_CAPTION = CAPTION FROM
|
||||
TBPMO_LANGUAGE_OBJECT AS T
|
||||
WHERE
|
||||
T.LANGUAGE_TYPE = @pLANG_TYPE AND
|
||||
T.SCREEN_ID = @pSCREEN_ID AND
|
||||
T.PMO_OBJECT_NAME = @pOBJ_NAME
|
||||
|
||||
IF @PMOOBJ_CAPTION is null AND @pLANG_TYPE <> 'de-DE'
|
||||
SELECT @PMOOBJ_CAPTION = CAPTION FROM
|
||||
TBPMO_LANGUAGE_OBJECT AS T
|
||||
WHERE
|
||||
T.LANGUAGE_TYPE = 'de-DE' AND
|
||||
T.SCREEN_ID = @pSCREEN_ID AND
|
||||
T.PMO_OBJECT_NAME = @pOBJ_NAME
|
||||
|
||||
|
||||
RETURN(ISNULL(@PMOOBJ_CAPTION,'CAPTION (OBJ) NOT TRANSLATED'))
|
||||
END
|
||||
GO
|
||||
|
||||
ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_TASK_STATE_AFT_INS] ON [dbo].[TBPMO_WORKFLOW_TASK_STATE]
|
||||
WITH EXECUTE AS CALLER
|
||||
FOR INSERT
|
||||
AS
|
||||
BEGIN TRY
|
||||
DECLARE
|
||||
@STATE_DESC VARCHAR(50),
|
||||
@ADDED_WHO VARCHAR(50),
|
||||
@GUID INTEGER,
|
||||
@SCREEN_ID INTEGER,
|
||||
@PMO_OBJECT_NAME VARCHAR(100)
|
||||
SELECT
|
||||
@GUID = GUID,
|
||||
@STATE_DESC = STATE_DESC,
|
||||
@SCREEN_ID = 1,
|
||||
@ADDED_WHO = ADDED_WHO
|
||||
FROM INSERTED
|
||||
|
||||
SET @PMO_OBJECT_NAME = 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||||
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
|
||||
('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME,@STATE_DESC,@ADDED_WHO)
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
|
||||
('en-US',@SCREEN_ID,@PMO_OBJECT_NAME,@STATE_DESC,@ADDED_WHO)
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||||
+ ' - ERROR-MESSAGE: '
|
||||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||||
END CATCH
|
||||
GO
|
||||
ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_AFT_INS] ON [dbo].[TBPMO_WORKFLOW]
|
||||
WITH EXECUTE AS CALLER
|
||||
FOR INSERT
|
||||
AS
|
||||
BEGIN TRY
|
||||
DECLARE
|
||||
@TITLE VARCHAR(50),
|
||||
@LANGUAGE VARCHAR(5),
|
||||
@ADDED_WHO VARCHAR(50),
|
||||
@GUID INTEGER,
|
||||
@SCREEN_ID INTEGER,
|
||||
@PMO_OBJECT_NAME VARCHAR(100)
|
||||
SELECT
|
||||
@GUID = GUID,
|
||||
@TITLE = TITLE,
|
||||
@SCREEN_ID = 1,
|
||||
@ADDED_WHO = ADDED_WHO
|
||||
FROM INSERTED
|
||||
|
||||
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @ADDED_WHO
|
||||
SET @PMO_OBJECT_NAME = 'TASK_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||||
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
|
||||
('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME,@TITLE,@ADDED_WHO)
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
|
||||
('en-US',@SCREEN_ID,@PMO_OBJECT_NAME,@TITLE,@ADDED_WHO)
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||||
+ ' - ERROR-MESSAGE: '
|
||||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||||
END CATCH
|
||||
GO
|
||||
ALTER TRIGGER [dbo].[TBPMO_FORM_VIEW_AFT_INS] ON [dbo].[TBPMO_FORM_VIEW]
|
||||
WITH EXECUTE AS CALLER
|
||||
FOR INSERT
|
||||
AS
|
||||
BEGIN TRY
|
||||
DECLARE
|
||||
@FORM_TITLE VARCHAR(50),
|
||||
@LANGUAGE VARCHAR(5),
|
||||
@ADDED_WHO VARCHAR(50),
|
||||
@GUID INTEGER,
|
||||
@SCREEN_ID INTEGER,
|
||||
@PMO_OBJECT_NAME VARCHAR(100)
|
||||
SELECT
|
||||
@GUID = GUID,
|
||||
@FORM_TITLE = FORM_TITLE,
|
||||
@SCREEN_ID = SCREEN_ID,
|
||||
@ADDED_WHO = ADDED_WHO
|
||||
FROM INSERTED
|
||||
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
|
||||
SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
|
||||
('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
|
||||
('en-US',@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE,@ADDED_WHO)
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||||
+ ' - ERROR-MESSAGE: '
|
||||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||||
END CATCH
|
||||
GO
|
||||
DECLARE @GUID INTEGER,
|
||||
@SCREEN_ID INT,
|
||||
@TITLE VARCHAR(100),
|
||||
@LANGUAGE VARCHAR(5),
|
||||
@PMO_OBJECT_NAME VARCHAR(100),
|
||||
@CAPTION VARCHAR(100)
|
||||
|
||||
DECLARE c_STATE CURSOR FOR
|
||||
SELECT GUID,1,'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,STATE_DESC
|
||||
from TBPMO_WORKFLOW_TASK_STATE
|
||||
|
||||
BEGIN
|
||||
OPEN c_STATE
|
||||
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
|
||||
|
||||
WHILE @@FETCH_STATUS = 0
|
||||
BEGIN
|
||||
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'de-DE')
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT
|
||||
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
|
||||
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'en-US')
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT
|
||||
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
('en-US',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
|
||||
|
||||
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
|
||||
END
|
||||
CLOSE c_STATE
|
||||
DEALLOCATE c_STATE
|
||||
|
||||
END
|
||||
GO
|
||||
DECLARE @GUID INTEGER,
|
||||
@SCREEN_ID INT,
|
||||
@TITLE VARCHAR(100),
|
||||
@LANGUAGE VARCHAR(5),
|
||||
@PMO_OBJECT_NAME VARCHAR(100),
|
||||
@CAPTION VARCHAR(100)
|
||||
|
||||
DECLARE c_STATE CURSOR FOR
|
||||
SELECT GUID,1,'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME, FORM_TITLE
|
||||
from TBPMO_FORM_VIEW
|
||||
SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||||
|
||||
BEGIN
|
||||
OPEN c_STATE
|
||||
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
|
||||
|
||||
WHILE @@FETCH_STATUS = 0
|
||||
BEGIN
|
||||
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'de-DE')
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT
|
||||
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
|
||||
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'en-US')
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT
|
||||
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
('en-US',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
|
||||
|
||||
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
|
||||
END
|
||||
CLOSE c_STATE
|
||||
DEALLOCATE c_STATE
|
||||
END
|
||||
GO
|
||||
DECLARE @GUID INTEGER,
|
||||
@SCREEN_ID INT,
|
||||
@TITLE VARCHAR(100),
|
||||
@LANGUAGE VARCHAR(5),
|
||||
@PMO_OBJECT_NAME VARCHAR(100),
|
||||
@CAPTION VARCHAR(100)
|
||||
|
||||
DECLARE c_STATE CURSOR FOR
|
||||
SELECT GUID,1,'TASK_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME, TITLE FROM TBPMO_WORKFLOW
|
||||
|
||||
BEGIN
|
||||
OPEN c_STATE
|
||||
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
|
||||
|
||||
WHILE @@FETCH_STATUS = 0
|
||||
BEGIN
|
||||
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'de-DE')
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT
|
||||
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
('de-DE',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
|
||||
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND LANGUAGE_TYPE = 'en-US')
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT
|
||||
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
('en-US',@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
|
||||
|
||||
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@PMO_OBJECT_NAME,@CAPTION
|
||||
END
|
||||
CLOSE c_STATE
|
||||
DEALLOCATE c_STATE
|
||||
END
|
||||
GO
|
||||
CREATE TABLE TBPMO_WD_IMPORT_PROFILE
|
||||
(
|
||||
GUID INTEGER NOT NULL IDENTITY(1,1),
|
||||
NAME VARCHAR(100) NOT NULL,
|
||||
WD_SEARCH VARCHAR(1000) NOT NULL,
|
||||
UNIQUE_DOC_SQL VARCHAR(5000),
|
||||
SQL_DOCTYPE VARCHAR(5000) NOT NULL DEFAULT 'select GUID from TBDD_DOKUMENTART where BEZEICHNUNG = ''@DOKTYPE_STRING''',
|
||||
SQL_PARENT_RECORD VARCHAR(5000) NOT NULL DEFAULT '',
|
||||
NEW_OBJECTTYPE VARCHAR(100) NOT NULL,
|
||||
OLD_OBJECTTYPE VARCHAR(100) NOT NULL,
|
||||
IDX_FILE_WORKED VARCHAR(100) NOT NULL DEFAULT '',
|
||||
ONLY_RECORD_CREATING BIT NOT NULL DEFAULT 0,
|
||||
ENTITY_ID INTEGER NOT NULL,
|
||||
CONNECTION_ID INTEGER,
|
||||
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data',
|
||||
ADDED_WHEN DATETIME DEFAULT GETDATE(),
|
||||
CHANGED_WHO VARCHAR(50),
|
||||
CHANGED_WHEN DATETIME,
|
||||
CONSTRAINT PK_TBPMO_WD_IMPORT_PROFILE PRIMARY KEY (GUID)
|
||||
)
|
||||
GO
|
||||
CREATE TRIGGER TBPMO_WD_IMPORT_PROFILE_AFT_UPD ON TBPMO_WD_IMPORT_PROFILE
|
||||
FOR UPDATE
|
||||
AS
|
||||
UPDATE TBPMO_WD_IMPORT_PROFILE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_IMPORT_PROFILE.GUID = INSERTED.GUID
|
||||
GO
|
||||
|
||||
CREATE TABLE TBPMO_WD_IMPORT_PROFILE_IDX
|
||||
(
|
||||
GUID INTEGER NOT NULL IDENTITY(1,1),
|
||||
PROFILE_ID INTEGER NOT NULL,
|
||||
STRING1 VARCHAR(200) NOT NULL,
|
||||
STRING2 VARCHAR(200) NOT NULL,
|
||||
SQL1 VARCHAR(5000),
|
||||
SQL2 VARCHAR(5000),
|
||||
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data',
|
||||
ADDED_WHEN DATETIME DEFAULT GETDATE(),
|
||||
CHANGED_WHO VARCHAR(50),
|
||||
CHANGED_WHEN DATETIME,
|
||||
CONSTRAINT PK_TBPMO_WD_IMPORT_PROFILE_IDX PRIMARY KEY (GUID),
|
||||
CONSTRAINT FK_TBPMO_WD_IMPORT_PROFILE_IDX_1 FOREIGN KEY (PROFILE_ID) REFERENCES TBPMO_WD_IMPORT_PROFILE (GUID),
|
||||
)
|
||||
GO
|
||||
CREATE TRIGGER TBPMO_WD_IMPORT_PROFILE_IDX_AFT_UPD ON TBPMO_WD_IMPORT_PROFILE_IDX
|
||||
FOR UPDATE
|
||||
AS
|
||||
UPDATE TBPMO_WD_IMPORT_PROFILE_IDX SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_IMPORT_PROFILE_IDX.GUID = INSERTED.GUID
|
||||
GO
|
||||
|
||||
CREATE TRIGGER TBPMO_WD_IMPORT_PROFILE_AFT_INS ON TBPMO_WD_IMPORT_PROFILE
|
||||
WITH EXECUTE AS CALLER
|
||||
FOR INSERT
|
||||
AS
|
||||
BEGIN TRY
|
||||
DECLARE
|
||||
@GUID INTEGER,@ADDED_WHO VARCHAR(50)
|
||||
SELECT
|
||||
@GUID = GUID,@ADDED_WHO = ADDED_WHO
|
||||
FROM INSERTED
|
||||
|
||||
INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
|
||||
(@GUID,'DOCTYPE_ORIGIN','SET INDEXNAME',@ADDED_WHO)
|
||||
INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
|
||||
(@GUID,'INDEX_DOCTYPE','SET INDEXNAME',@ADDED_WHO)
|
||||
INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
|
||||
(@GUID,'INDEX_RECORD_ID','SET INDEXNAME',@ADDED_WHO)
|
||||
INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX (PROFILE_ID,STRING1,STRING2,ADDED_WHO) VALUES
|
||||
(@GUID,'INDEX_ENTITY_ID','SET INDEXNAME',@ADDED_WHO)
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||||
+ ' - ERROR-MESSAGE: '
|
||||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||||
END CATCH
|
||||
GO
|
||||
ALTER TRIGGER TBDD_DOKUMENTART_AFT_INS2 ON TBDD_DOKUMENTART
|
||||
WITH EXECUTE AS CALLER
|
||||
FOR INSERT
|
||||
AS
|
||||
BEGIN TRY
|
||||
DECLARE
|
||||
@ADDED_WHO VARCHAR(50),
|
||||
@OBJEKTTYP VARCHAR(50),
|
||||
@GUID INTEGER
|
||||
SELECT
|
||||
@GUID = GUID,
|
||||
@ADDED_WHO = ERSTELLTWER,
|
||||
@OBJEKTTYP = OBJEKTTYP
|
||||
FROM INSERTED
|
||||
|
||||
INSERT INTO TBPMO_CLIENT_DOCTYPE (CLIENT_ID,DOCTYPE_ID)
|
||||
SELECT T.CLIENT_ID,@GUID FROM TBDD_CLIENT_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND UPPER(T1.USERNAME) = UPPER(@ADDED_WHO)
|
||||
|
||||
IF OBJECT_ID(N'dbo.TBPMO_WD_OBJECTTYPE', N'U') IS NOT NULL
|
||||
IF @OBJEKTTYP IS NOT NULL
|
||||
IF @OBJEKTTYP <> ''
|
||||
BEGIN
|
||||
DECLARE @IDX_DOC VARCHAR(50),@IDX_REC VARCHAR(50)
|
||||
SELECT @IDX_DOC = IDXNAME_DOCTYPE,
|
||||
@IDX_REC = IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = @OBJEKTTYP
|
||||
IF @IDX_REC IS NOT NULL
|
||||
INSERT INTO TBDD_INDEX_AUTOM (DOCTYPE_ID,INDEXNAME,VALUE,ACTIVE,ADDED_WHO) VALUES
|
||||
(@GUID,@IDX_REC,'@Record-ID',1,@ADDED_WHO)
|
||||
IF @IDX_DOC IS NOT NULL
|
||||
INSERT INTO TBDD_INDEX_AUTOM (DOCTYPE_ID,INDEXNAME,VALUE,ACTIVE,ADDED_WHO) VALUES
|
||||
(@GUID,@IDX_DOC,'@Dokart',1,@ADDED_WHO)
|
||||
END
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||||
+ ' - ERROR-MESSAGE: '
|
||||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||||
END CATCH
|
||||
GO
|
||||
ALTER TRIGGER TBDD_DOKUMENTART_AFT_UPD ON TBDD_DOKUMENTART
|
||||
FOR UPDATE
|
||||
AS
|
||||
BEGIN TRY
|
||||
DECLARE
|
||||
@DA_TITLE VARCHAR(50),
|
||||
@LANGUAGE VARCHAR(5),
|
||||
@CHANGED_WHO VARCHAR(50),
|
||||
@GUID INTEGER,
|
||||
@SCREEN_ID INTEGER,
|
||||
@PMO_OBJECT_NAME VARCHAR(100)
|
||||
SELECT
|
||||
@GUID = GUID,
|
||||
@DA_TITLE = BEZEICHNUNG,
|
||||
@SCREEN_ID = 1,
|
||||
@CHANGED_WHO = GEANDERTWER
|
||||
FROM INSERTED
|
||||
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
|
||||
SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||||
|
||||
UPDATE TBDD_DOKUMENTART SET GEAENDERTWANN = GETDATE() FROM INSERTED
|
||||
WHERE TBDD_DOKUMENTART.GUID = INSERTED.GUID
|
||||
IF UPDATE (BEZEICHNUNG)
|
||||
BEGIN
|
||||
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 = @DA_TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
|
||||
PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
|
||||
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
|
||||
ELSE
|
||||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||||
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@DA_TITLE)
|
||||
END
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
|
||||
+ ' - ERROR-MESSAGE: '
|
||||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||||
END CATCH
|
||||
GO
|
||||
ALTER TRIGGER TBPMO_FORM_VIEW_AFT_UPD ON 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)
|
||||
SELECT
|
||||
@GUID = GUID,
|
||||
@FORM_TITLE = FORM_TITLE,
|
||||
@SCREEN_ID = SCREEN_ID,
|
||||
@CHANGED_WHO = CHANGED_WHO
|
||||
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
|
||||
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
|
||||
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 FUNCTION [dbo].[FNPMO_GET_ENTITY_COLUMN_CONTENT](@pRECORD_ID INTEGER)
|
||||
RETURNS VARCHAR(2500)
|
||||
AS
|
||||
BEGIN
|
||||
DECLARE
|
||||
@COLUMN1 VARCHAR(100),
|
||||
@ENTITY INTEGER, @CONTROL_ID INTEGER, @RESULT VARCHAR(2500)
|
||||
|
||||
SELECT @ENTITY = FORM_ID FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
|
||||
|
||||
SELECT @COLUMN1 = COLUMN_NAME1 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @ENTITY
|
||||
SELECT @CONTROL_ID = GUID FROm TBPMO_CONTROL WHERE COL_NAME = @COLUMN1
|
||||
SELECT @RESULT = VALUE FROM VWPMO_VALUES WHERE RECORD_ID = @pRECORD_ID AND CONTROL_ID = @CONTROL_ID
|
||||
RETURN(@RESULT)
|
||||
END
|
||||
GO
|
||||
GRANT EXECUTE ON [dbo].[FNPMO_GET_ENTITY_COLUMN_CONTENT] TO [DD_ECM] WITH GRANT OPTION
|
||||
GO
|
||||
ALTER VIEW VWPMO_WF_ACTIVE AS
|
||||
SELECT
|
||||
T.GUID AS WF_TASK_ID
|
||||
,T1.GUID AS WF_ID
|
||||
,T.RECORD_ID
|
||||
,T.STATE_ID
|
||||
,T4.GUID FORM_VIEW_ID
|
||||
,T.COMMENT
|
||||
,T.DUE_DATE
|
||||
,T.ADDED_WHEN
|
||||
,T.CHANGED_WHO
|
||||
,T.CHANGED_WHEN
|
||||
,T.TASK_DATE
|
||||
,T2.FINAL
|
||||
,T2.ENTITY_ID
|
||||
,T5.COLOR
|
||||
,dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(T.RECORD_ID) AS RECORD_DESCRIPTION
|
||||
--,(SELECT COLUMN_NAME1 FROM ))
|
||||
--, @USER AS USERNAME
|
||||
FROM
|
||||
TBPMO_WORKFLOW_TASK T
|
||||
,TBPMO_WORKFLOW T1
|
||||
,TBPMO_WORKFLOW_ENTITY_STATE T2
|
||||
,TBPMO_FORM T3
|
||||
,TBPMO_FORM_VIEW T4
|
||||
,TBPMO_WORKFLOW_TASK_STATE T5
|
||||
WHERE
|
||||
T.WF_ID = T1.GUID AND
|
||||
T1.GUID = T1.GUID AND
|
||||
T2.WF_ID = t1.GUID AND
|
||||
T2.ENTITY_ID = T3.GUID AND
|
||||
T2.STATE_ID = T.STATE_ID AND
|
||||
T3.GUID = T4.FORM_ID AND
|
||||
T.STATE_ID = T5.GUID AND
|
||||
T4.SCREEN_ID = 1 AND
|
||||
((T2.FINAL = 1 AND T.DUE_DATE IS NULL) OR T2.FINAL = 0) AND
|
||||
T.ACTIVE = 1
|
||||
GO
|
||||
CREATE PROCEDURE PRPMO_DELETE_RECORD(@pRECORD_ID INT)
|
||||
AS
|
||||
BEGIN TRY
|
||||
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_FOLLUPEMAIL_RECORD WHERE RECORD_ID = @pRECORD_ID
|
||||
DELETE FROM TBPMO_RECORD WHERE GUID = @pRECORD_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
|
||||
GRANT EXECUTE ON [dbo].[PRPMO_DELETE_RECORD] TO [DD_ECM]
|
||||
GO
|
||||
CREATE TABLE TBPMO_RIGHT_GROUP
|
||||
(
|
||||
GUID INTEGER IDENTITY(1,1), -- Eindeutiger Tabellenschlüssel
|
||||
ENTITY_ID INTEGER NOT NULL,
|
||||
GROUP_ID INTEGER NOT NULL,
|
||||
EDIT_REC BIT NOT NULL DEFAULT 1,
|
||||
ADD_REC BIT NOT NULL DEFAULT 1,
|
||||
DELETE_REC BIT NOT NULL DEFAULT 0,
|
||||
ADD_DOC BIT NOT NULL DEFAULT 1,
|
||||
VIEW_DOC BIT NOT NULL DEFAULT 1,
|
||||
DELETE_DOC BIT NOT NULL DEFAULT 0,
|
||||
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT',
|
||||
ADDED_WHEN DATETIME DEFAULT GETDATE(),
|
||||
CHANGED_WHO VARCHAR(50),
|
||||
CHANGED_WHEN DATETIME,
|
||||
CONSTRAINT PK_TBPMO_RIGHT_GROUP PRIMARY KEY (GUID),
|
||||
CONSTRAINT FK_TBPMO_RIGHT_GROUP_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID),
|
||||
CONSTRAINT FK_TBPMO_RIGHT_GROUP_GROUP_ID FOREIGN KEY (GROUP_ID) REFERENCES TBDD_USER_GROUPS (GUID)
|
||||
)
|
||||
GO
|
||||
CREATE TRIGGER TBPMO_RIGHT_GROUP_AFT_UPD ON TBPMO_RIGHT_GROUP
|
||||
FOR UPDATE
|
||||
AS
|
||||
BEGIN
|
||||
UPDATE TBPMO_RIGHT_GROUP SET CHANGED_WHEN = GETDATE() FROM INSERTED
|
||||
WHERE TBPMO_RIGHT_GROUP.GUID = INSERTED.GUID
|
||||
END
|
||||
GO
|
||||
|
||||
--DECLARE @GROUPID INT
|
||||
|
||||
--DECLARE c_GROUPS CURSOR FOR SELECT GUID FROM TBDD_USER_GROUPS
|
||||
|
||||
--BEGIN
|
||||
-- OPEN c_GROUPS
|
||||
-- FETCH NEXT FROM c_GROUPS INTO @GROUPID
|
||||
|
||||
-- WHILE @@FETCH_STATUS = 0
|
||||
-- BEGIN
|
||||
-- IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = 93 AND GROUP_ID = @GROUPID)
|
||||
-- INSERT INTO TBPMO_RIGHT_GROUP (ENTITY_ID,GROUP_ID,ADDED_WHO) VALUES (93,@GROUPID,'Digital Data')
|
||||
|
||||
-- FETCH NEXT FROM c_GROUPS INTO @GROUPID
|
||||
-- END
|
||||
|
||||
-- CLOSE c_GROUPS
|
||||
-- DEALLOCATE c_GROUPS
|
||||
--END
|
||||
Reference in New Issue
Block a user