607 lines
20 KiB
Transact-SQL
607 lines
20 KiB
Transact-SQL
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<68>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
|