This commit is contained in:
2021-12-07 16:30:02 +01:00
parent 029166c380
commit 51ed7e249d
188 changed files with 36975 additions and 0 deletions

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@@ -0,0 +1,5 @@
select T.VALUE,
T.RECORD_ID, T.CONTROL_ID,T.CONTROL_COLUMN,T1.FORM_TITLE
from VWPMO_VALUES T, TBPMO_FORM_VIEW T1 where
T.FORM_ID = T1.FORM_ID AND
T.VALUE LIKE '%den R%' ORDER BY T.VALUE

View File

@@ -0,0 +1,43 @@
BEGIN
DECLARE
@GUID INTEGER,
@CONTROL_ID INTEGER,
@RECORD_ID INTEGER,
@VALUE VARCHAR(MAX),
@NEW_VALUE VARCHAR(MAX),
@INDEX INTEGER,
@ADDED_WHO VARCHAR(50)
DECLARE c_Values CURSOR FOR
SELECT GUID,CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO FROM TBPMO_CONTROL_VALUE WHERE VALUE LIKE '%;%' AND CONTROL_ID NOT IN (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2) ORDER BY RECORD_ID,CONTROL_ID
OPEN c_Values
FETCH NEXT FROM c_Values INTO @GUID,@CONTROL_ID,@RECORD_ID,@VALUE,@ADDED_WHO
WHILE @@FETCH_STATUS = 0
BEGIN
SET @INDEX = 0
--#####
DECLARE c_NEWVALUES CURSOR FOR
SELECT Item FROM dbo.FN_SPLIT_STRING(@VALUE, ';')
OPEN c_NEWVALUES
FETCH NEXT FROM c_NEWVALUES INTO @NEW_VALUE
WHILE @@FETCH_STATUS = 0
BEGIN
SET @NEW_VALUE = LTRIM(@NEW_VALUE)
IF @INDEX = 0
UPDATE TBPMO_CONTROL_VALUE SET VALUE = @NEW_VALUE WHERE GUID = @GUID
ELSE
INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES
(@CONTROL_ID,@RECORD_ID,@NEW_VALUE,@ADDED_WHO)
PRINT CONVERT(VARCHAR(5),@CONTROL_ID) + '#' + CONVERT(VARCHAR(5),@INDEX) + '-' + @NEW_VALUE
SET @INDEX = @INDEX + 1
FETCH NEXT FROM c_NEWVALUES INTO @NEW_VALUE
END
CLOSE c_NEWVALUES
DEALLOCATE c_NEWVALUES
--#####
FETCH NEXT FROM c_Values INTO @GUID,@CONTROL_ID,@RECORD_ID,@VALUE,@ADDED_WHO
END
CLOSE c_Values
DEALLOCATE c_Values
END

View File

@@ -0,0 +1,43 @@
BEGIN
DECLARE
@CONTROL_ID INTEGER,
@RECORD_ID INTEGER,
@ACT_RECORD_ID INTEGER,
@VALUE VARCHAR(MAX),
@NEW_VALUE VARCHAR(MAX),
@INDEX INTEGER
DECLARE c_Control_Values CURSOR FOR
select CONTROL_ID,RECORD_ID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2) GROUP BY CONTROL_ID,RECORD_ID HAVING COUNT(GUID) > 1 ORDER BY RECORD_ID
OPEN c_Control_Values
FETCH NEXT FROM c_Control_Values INTO @CONTROL_ID, @RECORD_ID
WHILE @@FETCH_STATUS = 0
BEGIN
PRINT 'RECORD: ' + CONVERT(VARCHAR(10),@RECORD_ID)
SET @NEW_VALUE = ''
SET @INDEX = 0
DECLARE c_ROWVALUES CURSOR FOR
SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID
OPEN c_ROWVALUES
FETCH NEXT FROM c_ROWVALUES INTO @VALUE
WHILE @@FETCH_STATUS = 0
BEGIN
IF @INDEX = 0
SET @NEW_VALUE = @VALUE
ELSE
SET @NEW_VALUE += ';' + @VALUE
SET @INDEX += 1
FETCH NEXT FROM c_ROWVALUES INTO @VALUE
END
PRINT 'JETZT DAS UPDATE UND DELETE FÜR RECORD: ' + CONVERT(VARCHAR(10),@RECORD_ID)
PRINT '@NEW_VALUE: ' + CONVERT(VARCHAR(500),@NEW_VALUE)
DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID
INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE) VALUES (@CONTROL_ID,@RECORD_ID,@NEW_VALUE)
CLOSE c_ROWVALUES
DEALLOCATE c_ROWVALUES
FETCH NEXT FROM c_Control_Values INTO @CONTROL_ID, @RECORD_ID
END
CLOSE c_Control_Values
DEALLOCATE c_Control_Values
END

View File

@@ -0,0 +1,12 @@
Use master
Go
Alter Database DD_ECM Set Single_User With RollBack Immediate
ALTER DATABASE DD_ECM -- put your database name here
COLLATE Latin1_General_CI_AS
ALTER DATABASE DD_ECM
SET MULTI_USER;
GO

View File

@@ -0,0 +1,111 @@
DECLARE
@ENTITY_ID INTEGER,
@CONTROL_ID INTEGER,
@GUID INTEGER,
@VALUE VARCHAR(MAX)
DECLARE c_REDO CURSOR FOR
SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE DOCUMENT_VIEW = 1
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Dateiname')
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 LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Dokumentart')
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 LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?')
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH) VALUES
(@ENTITY_ID,'IN_WORK','in work?',50)
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER')
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 LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT')
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 LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Erstellt')
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH) VALUES
(@ENTITY_ID,'Creation_DateTime','Erstellt',100)
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE LANGUAGE = 'de-DE' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Geändert')
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH) VALUES
(@ENTITY_ID,'Change_DateTime','Geändert',100)
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Filename')
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 LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Doctype')
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 LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?')
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH) VALUES
(@ENTITY_ID,'en-US','IN_WORK','in work?',50)
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER')
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 LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT')
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 LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Created')
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH) VALUES
(@ENTITY_ID,'en-US','Creation_DateTime','Created',100)
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE LANGUAGE = 'en-US' AND ENTITY_ID = @ENTITY_ID AND
COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Changed')
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH) VALUES
(@ENTITY_ID,'en-US','Change_DateTime','Changed',100)
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
END
CLOSE c_REDO
DEALLOCATE c_REDO
GO
DECLARE
@ENTITY_ID INTEGER,
@CONTROL_ID INTEGER,
@GUID INTEGER,
@VALUE VARCHAR(MAX)
DECLARE c_REDO CURSOR FOR
SELECT GUID FROM TBPMO_FORM
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
WHILE @@FETCH_STATUS = 0
BEGIN
EXEC [dbo].[PRPMO_CREATE_SQL] @ENTITY_ID
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
END
CLOSE c_REDO
DEALLOCATE c_REDO
EXECUTE [dbo].[PRPMO_CREATE_TEMP_VIEWS]
DECLARE
@ENTITY_ID INTEGER
DECLARE c_REDO CURSOR FOR
SELECT GUID FROM TBPMO_FORM
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
WHILE @@FETCH_STATUS = 0
BEGIN
EXEC [dbo].PRPMO_CREATE_ENTITY_TABLE @ENTITY_ID
EXEC [dbo].PRPMO_ENTITY_TABLE_IMPORT_RECORDS @ENTITY_ID
EXEC [dbo].PRPMO_CREATE_ENTITY_TABLE_VIEW @ENTITY_ID
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
END
CLOSE c_REDO
DEALLOCATE c_REDO

View File

@@ -0,0 +1,41 @@
CREATE VIEW VWEXPORT_CONTRACT AS
SELECT T.[GUID] AS CONTROL_GUID
,T.[FORM_ID] AS CONTROL_FORM_ID
,T.[CONTROL_TYPE_ID] AS CONTROL_TYPE_ID
,T.[NAME] AS CONTROL_NAME
,T.[FORMAT_TYPE] AS CONTROL_FORMAT_TYPE
,T.[SHOW_COLUMN] AS CONTROL_SHOW_COLUMN
,T.[COL_NAME] AS CONTROL_COL_NAME
,T.[REQUIRED] AS CONTROL_REQUIRED
,T.[PARENT_CONTROL_ID] AS CONTROL_PARENT_CONTROL_ID
,T.[MASTER_DATA_ID] AS CONTROL_MASTER_DATA_ID
,T.[MULTILINE] AS CONTROL_MULTILINE
,T.[STATIC_LIST] AS CONTROL_STATIC_LIST
,T.[DEFAULT_VALUE] AS CONTROL_DEFAULT_VALUE
,T.[SQL_COMMAND_1] AS CONTROL_SQL_COMMAND_1
,T.[CONNECTION_ID_1] AS CONTROL_CONNECTION_ID_1
,T.[READ_ONLY] AS CONTROL_READ_ONLY
,T.[VALIDATION] AS CONTROL_VALIDATION
,T.[ADDED_WHO] AS CONTROL_ADDED_WHO
,T.[VISIBLE] AS CONTROL_VISIBLE
,T.[TREE_VIEW] AS CONTROL_TREE_VIEW
,T.[SELECT_ONLY] AS CONTROL_SELECT_ONLY
,T1.[GUID] AS CS_GUID
,T1.[CONTROL_ID] AS CS_CONTROL_ID
,T1.[SCREEN_ID] AS CS_SCREEN_ID
,T1.[CONTROL_TEXT] AS CS_CONTROL_TEXT
,T1.[X_LOC] AS CS_X_LOC
,T1.[Y_LOC] AS CS_Y_LOC
,T1.[HEIGHT] AS CS_HEIGHT
,T1.[WIDTH] AS CS_WIDTH
,T1.[FONT_FAMILY] AS CS_FONT_FAMILY
,T1.[FONT_COLOR] AS CS_FONT_COLOR
,T1.[FONT_SIZE] AS CS_FONT_SIZE
,T1.[FONT_STYLE] AS CS_FONT_STYLE
,T1.[BACK_COLOR] AS CS_BACK_COLOR
,T1.[TAB_INDEX] AS CS_TAB_INDEX
,T1.[TAB_STOP] AS CS_TAB_STOP
FROM [dbo].[TBPMO_CONTROL] T, TBPMO_CONTROL_SCREEN T1 WHERE T.GUID = T1.CONTROL_ID AND T1.SCREEN_ID = 1 AND FORM_ID = 1
GO

View File

@@ -0,0 +1,52 @@
SELECT * FROM sys.fulltext_catalogs
CREATE DATABASE TestDB
GO
USE TestDB
GO
CREATE TABLE [SupportTicketsSummaries] (
ID INT NOT NULL
,[ShortSummary] VARCHAR(200)
,[Description] VARCHAR(200)
,[Problem] VARCHAR(200)
,[Solution] VARCHAR(200)
,[Notes] VARCHAR(200)
,CONSTRAINT PK_SupportTicketsSummaries PRIMARY KEY (ID)
)
GO
IF NOT EXISTS (
SELECT 1
FROM sys.fulltext_catalogs
WHERE [name] = 'SupportTicketsSummariesFT'
)
BEGIN
PRINT 'Creating full-text catalogue SupportTicketsSummariesFT'
CREATE FULLTEXT CATALOG [SupportTicketsSummariesFT]
WITH accent_sensitivity = OFF AUTHORIZATION [dbo]
PRINT 'Adding columns to the full-text catalogue'
CREATE FULLTEXT INDEX ON [dbo].[SupportTicketsSummaries] (
[ShortSummary] LANGUAGE 1033
,[Description] LANGUAGE 1033
,[Problem] LANGUAGE 1033
,[Solution] LANGUAGE 1033
) KEY INDEX PK_SupportTicketsSummaries
ON [SupportTicketsSummariesFT] --catalog
WITH STOPLIST = SYSTEM;
--you can alter the full text index after creating
ALTER FULLTEXT INDEX ON [dbo].[SupportTicketsSummaries] ADD ([Notes] LANGUAGE 1033)
END
GO
USE MASTER
--DROP DATABASE TESTDB
SELECT *
FROM [dbo].[FullText] T WHERE CONTAINS([Text], '*29.04.2010*') AND CONTAINS([Text], '*Ladeliste*')

View File

@@ -0,0 +1,4 @@
select *
from sys.objects
where (type = 'TR' or type = 'P')
and modify_date > dateadd(m, -1, getdate()) order by modify_date desc

View File

@@ -0,0 +1,120 @@
DECLARE @OLD_CONTROLID INTEGER,
@NEW_CONTROLID INTEGER,
@OLD_CONTROL_SCREEN_ID INTEGER,
@NEW_CONTROL_SCREEN_ID INTEGER
--delete from TBPMO_CONTROL_LANGUAGE where convert(date,added_when) = convert(date,GETDATE())
--delete from tbpmo_Control_Screen where convert(date,added_when) = convert(date,GETDATE())
--delete from tbpmo_Control where convert(date,added_when) = convert(date,GETDATE())
DECLARE c_REDO CURSOR FOR
select guid FROM TBPMO_CONTROL_IMPORT WHERE FORM_ID = 1
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @OLD_CONTROLID
WHILE @@FETCH_STATUS = 0
BEGIN
INSERT INTO [dbo].[TBPMO_CONTROL]
([CONTROL_TYPE_ID]
,[COL_NAME]
,[CONNECTION_ID_1]
,[CONNECTION_ID_2]
,[DEFAULT_VALUE]
,[FORM_ID]
,[FORMAT_TYPE]
,[NAME]
,[SHOW_COLUMN]
,[PARENT_CONTROL_ID]
,[REQUIRED]
,[SELECT_ONLY]
,[STATIC_LIST]
,[MASTER_DATA_ID]
,[MULTILINE]
,[READ_ONLY]
,[SQL_COMMAND_1]
,[SQL_COMMAND_2]
,[TREE_VIEW]
,[VALIDATION]
,[VISIBLE]
,[ADDED_WHO]
,[AUTO_SUGGEST])
select [CONTROL_TYPE_ID]
,COALESCE([COL_NAME],'')
,[CONNECTION_ID_1]
,[CONNECTION_ID_2]
,COALESCE([DEFAULT_VALUE],'')
,11
,[FORMAT_TYPE]
,[NAME]
,[SHOW_COLUMN]
,[PARENT_CONTROL_ID]
,[REQUIRED]
,[SELECT_ONLY]
,COALESCE([STATIC_LIST],'')
,[MASTER_DATA_ID]
,[MULTILINE]
,[READ_ONLY]
,COALESCE([SQL_COMMAND_1],'')
,COALESCE([SQL_COMMAND_2],'')
,[TREE_VIEW]
,[VALIDATION]
,[VISIBLE]
,'DD TEMPLATE Import'
,[AUTO_SUGGEST]
FROM TBPMO_CONTROL_IMPORT where GUID = @OLD_CONTROLID
SELECT @NEW_CONTROLID = MAX(GUID) FROM TBPMO_CONTROL
SELECT @OLD_CONTROL_SCREEN_ID = GUID FROM TBPMO_CONTROL_SCREEN_IMPORT WHERE CONTROL_ID = @OLD_CONTROLID
Print '@OLD_CONTROL_SCREEN_ID: ' + convert(varchar(50),@OLD_CONTROL_SCREEN_ID)
--Now Insert of ControlScreen
INSERT INTO [dbo].[TBPMO_CONTROL_SCREEN]
([CONTROL_ID]
,[SCREEN_ID]
,[CONTROL_TEXT]
,[X_LOC]
,[Y_LOC]
,[HEIGHT]
,[WIDTH]
,[FONT_FAMILY]
,[FONT_COLOR]
,[FONT_SIZE]
,[FONT_STYLE]
,[BACK_COLOR]
,[TAB_INDEX]
,[TAB_STOP]
,[ADDED_WHO])
SELECT @NEW_CONTROLID
,1
,COALESCE([CONTROL_TEXT],'')
,[X_LOC]
,[Y_LOC]
,[HEIGHT]
,[WIDTH]
,[FONT_FAMILY]
,[FONT_COLOR]
,[FONT_SIZE]
,[FONT_STYLE]
,[BACK_COLOR]
,[TAB_INDEX]
,[TAB_STOP]
,'DD TEMPLATE Import'
FROM TBPMO_CONTROL_SCREEN_IMPORT WHERE CONTROL_ID = @OLD_CONTROLID
SELECT @NEW_CONTROL_SCREEN_ID = MAX(GUID) FROM TBPMO_CONTROL_SCREEN
Print '@@NEW_CONTROL_SCREEN_ID: ' + convert(varchar(50),@NEW_CONTROL_SCREEN_ID)
INSERT INTO [dbo].[TBPMO_CONTROL_LANGUAGE]
([LANGUAGE_TYPE]
,[CONTROL_SCREEN_ID]
,[CAPTION]
,[HINT]
,[ADDED_WHO])
SELECT [LANGUAGE_TYPE]
,@NEW_CONTROL_SCREEN_ID
,COALESCE([CAPTION],'')
,[HINT]
,[ADDED_WHO] FROM TBPMO_CONTROL_LANGUAGE_IMPORT where CONTROL_SCREEN_ID = @OLD_CONTROL_SCREEN_ID
FETCH NEXT FROM c_REDO INTO @OLD_CONTROLID
END
CLOSE c_REDO
DEALLOCATE c_REDO

View File

@@ -0,0 +1,67 @@
DECLARE
@RECORD_ID INTEGER,
@DOC_ID INTEGER,
@ENT_ID INTEGER,
@Items INTEGER,
@Items1 INTEGER
DECLARE c_REDO CURSOR FOR
SELECT T.RECORD_ID, T.DOC_ID, T1.FORM_ID
,(SELECT COUNT(GUID) FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = T1.FORM_ID AND TYPE_ID = 3 AND CONFIG_COLUMNS = 1) as [DD_Items]
,(SELECT COUNT(GUID) FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = T1.FORM_ID AND TYPE_ID <> 3 AND CONFIG_COLUMNS = 1) as [Values] FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @RECORD_ID,@DOC_ID,@ENT_ID,@Items,@Items1
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @CONFID INTEGER,@VALUE VARCHAR(100)
IF @Items >= 1
BEGIN
DECLARE cursorValues CURSOR LOCAL FOR
SELECT T.GUID,T1.VALUE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG T, TBPMO_DOCRESULT_DROPDOWN_ITEMS T1 WHERE T.GUID = T1.CONFIG_ID AND T1.[DEFAULT] = 1 AND T.ENTITY_ID = @ENT_ID AND T.TYPE_ID = 3
OPEN cursorValues
FETCH NEXT FROM cursorValues INTO @CONFID,@VALUE
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_VALUES WHERE DocID = @DOC_ID AND RECORD_ID = @RECORD_ID AND CONFIG_ID = @CONFID)
BEGIN
PRINT 'VALUES DROPDOWN'
INSERT INTO TBPMO_DOC_VALUES (DocID,RECORD_ID,CONFIG_ID,VALUE,ADDED_WHO) VALUES
(@DOC_ID,@RECORD_ID,@CONFID,@VALUE,'PR_NEW')
END
FETCH NEXT FROM cursorValues INTO @CONFID,@VALUE
END
CLOSE cursorValues
DEALLOCATE cursorValues
END
IF @Items1 >= 1
BEGIN
DECLARE cursorValues1 CURSOR LOCAL FOR
SELECT T.GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG T WHERE T.ENTITY_ID = @ENT_ID AND T.TYPE_ID <> 3 AND T.CONFIG_COLUMNS = 1
OPEN cursorValues1
FETCH NEXT FROM cursorValues1 INTO @CONFID
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_VALUES WHERE DocID = @DOC_ID AND RECORD_ID = @RECORD_ID AND CONFIG_ID = @CONFID)
BEGIN
PRINT 'VALUES DEFAULT'
INSERT INTO TBPMO_DOC_VALUES (DocID,RECORD_ID,CONFIG_ID,VALUE,ADDED_WHO) VALUES
(@DOC_ID,@RECORD_ID,@CONFID,'','PR_NEW')
END
FETCH NEXT FROM cursorValues1 INTO @CONFID
END
CLOSE cursorValues1
DEALLOCATE cursorValues1
END
FETCH NEXT FROM c_REDO INTO @RECORD_ID,@DOC_ID,@ENT_ID,@Items,@Items1
END
CLOSE c_REDO
DEALLOCATE c_REDO

View File

@@ -0,0 +1,18 @@
DECLARE @ENTITY_ID INTEGER,@USER_ID INTEGER
DECLARE c_USER CURSOR FOR
SELECT T.USER_ID, T1.FORM_ID FROM TBPMO_CONSTRUCTOR_USER T, VWPMO_CONSTRUCTOR_FORMS T1 WHERE T.CONSTRUCT_ID = T1.CONSTRUCT_ID AND T1.DOCUMENT_VIEW = 1
OPEN c_USER
FETCH NEXT FROM c_USER INTO @USER_ID,@ENTITY_ID
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_RIGHT_USER WHERE USER_ID = @USER_ID AND ENTITY_ID = @ENTITY_ID)
INSERT INTO TBPMO_RIGHT_USER (USER_ID, ENTITY_ID) VALUES (@USER_ID,@ENTITY_ID)
FETCH NEXT FROM c_USER INTO @USER_ID,@ENTITY_ID
END
CLOSE c_USER
DEALLOCATE c_USER

View File

@@ -0,0 +1,49 @@
DECLARE
@RECORD_ID INTEGER,
@DATE DAtetime,
@GUID INTEGER,
@CAPTION VARCHAR(500)
DECLARE c_REDO CURSOR FOR
select GUID,NODE_CAPTION from VWPMO_STRUCTURE_NODES where ENTITY_ID = 8 and CREATE_RECORD = 1
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @GUID,@CAPTION
WHILE @@FETCH_STATUS = 0
BEGIN
FETCH NEXT FROM c_REDO INTO @GUID,@CAPTION
END
CLOSE c_REDO
DEALLOCATE c_REDO
/*########################################
---CHECKIDENT
##########################################*/
DBCC CHECKIDENT ('TBPMO_CONTROL_SCREEN', RESEED, 1);
select *
from sys.objects
where (type = 'TR' or type = 'P')
and modify_date > dateadd(m, -1, getdate()) order by modify_date desc
/*########################################
---MASSEN INSERT
##########################################*/
Declare @Id int
Set @Id = 1
While @Id <= 200000
Begin
Insert Into TBGI_TEST_KREDITOR (KREDITOR_NAME,CITY) values ('Kreditor- ' + CAST(@Id as nvarchar(10)),
'City - ' + CAST(@Id as nvarchar(10)))
--Print @Id
Set @Id = @Id + 1
End
/*########################################
---Text EXISTS IN PROCEDURE
##########################################*/
SELECT type, *
FROM sys.objects
WHERE OBJECT_DEFINITION(object_id) LIKE '%FROM TBIDB_TERM_LANGUAGE%'
--AND type IN ('V')
ORDER BY name

View File

@@ -0,0 +1,11 @@
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD COLUMN_NAME1 VARCHAR(100) NOT NULL DEFAULT ''
GO
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD COLUMN_NAME2 VARCHAR(100) NOT NULL DEFAULT ''
GO
UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET COLUMN_NAME1 = 'Format' where GUID = 2
GO
UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET COLUMN_NAME1 = 'Sendetitel' where GUID = 3
GO

View File

@@ -0,0 +1,24 @@
ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
SELECT
T2.CONSTRUCT_ID,
T2.PARENT_ID,
T2.SEQUENCE,
T2.LEVEL1_SELECT,
T.GUID AS FORM_ID,
T1.FORM_TITLE,
T2.SQL_SELECT_EBENE1,
T2.SQL_SELECT_EBENE2,
T2.COLUMN_NAME1,
T2.COLUMN_NAME2
FROM
tbpmo_form T,
TBPMO_FORM_VIEW T1,
TBPMO_FORM_CONSTRUCTOR_DETAIL T2
where
T2.FORM_ID = T.GUID AND
T1.SCREEN_ID = 1 AND
T.GUID = T1.FORM_ID
GO

View File

@@ -0,0 +1,8 @@
ALTER TABLE TBPMO_CONTROL
ADD FORMAT_TYPE VARCHAR(50)
UPDATE TBPMO_CONTROL SET FORMAT_TYPE = 'String'
--Manuell in Tabelle den Default Wert ändern
ALTER TABLE TBPMO_CONTROL
ADD SHOW_COLUMN BIT
UPDATE TBPMO_CONTROL SET SHOW_COLUMN = 1

View File

@@ -0,0 +1,36 @@
CREATE TABLE TBPMO_CONTROL_IMAGE
(
GUID INTEGER NOT NULL IDENTITY(1,1),
CONTROL_ID INTEGER NOT NULL,
RECORD_ID INTEGER NOT NULL,
IMG VARBINARY(max) NOT NULL,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME NOT NULL DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_CONTROL_IMAGE PRIMARY KEY (GUID),
CONSTRAINT UQ_CONTROLID_RECORDID UNIQUE (CONTROL_ID, RECORD_ID),
CONSTRAINT FK_TBPMO_CONTROL_IMAGE_CONTROL_ID FOREIGN KEY (CONTROL_ID) REFERENCES TBPMO_CONTROL (GUID),
CONSTRAINT FK_TBPMO_CONTROL_IMAGE_RECORD_ID FOREIGN KEY (RECORD_ID) REFERENCES TBPMO_RECORD (GUID),
)
GO
CREATE TRIGGER TBPMO_CONTROL_IMAGE_AFT_UPD ON TBPMO_CONTROL_IMAGE
FOR UPDATE
AS
BEGIN
DECLARE @RECORD_ID INTEGER, @CHANGED_WHO VARCHAR(50)
SELECT
@RECORD_ID = RECORD_ID,
@CHANGED_WHO = CHANGED_WHO
FROM INSERTED
UPDATE TBPMO_CONTROL_IMAGE
SET CHANGED_WHEN = GETDATE() FROM INSERTED
WHERE TBPMO_CONTROL_IMAGE.GUID = INSERTED.GUID
UPDATE TBPMO_RECORD SET
CHANGED_WHO = @CHANGED_WHO
WHERE TBPMO_RECORD.GUID = @RECORD_ID
END

View File

@@ -0,0 +1,19 @@
CREATE TABLE TBPMO_WD_OBJECTTYPE
(
GUID INTEGER NOT NULL IDENTITY(1,1),
OBJECT_TYPE VARCHAR(100) NOT NULL,
IDXNAME_ENTITYID VARCHAR(100) NOT NULL,
IDXNAME_PARENTID VARCHAR(100) NOT NULL,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'Digital Data',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_WD_OBJECTTYPE PRIMARY KEY (GUID),
CONSTRAINT UQ_OBJECTTYPE_TBPMO_WD_OBJECTTYPE UNIQUE (OBJECT_TYPE)
)
GO
CREATE TRIGGER TBPMO_WD_OBJECTTYPE_AFT_UPD ON TBPMO_WD_OBJECTTYPE
FOR UPDATE
AS
UPDATE TBPMO_WD_OBJECTTYPE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_OBJECTTYPE.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,72 @@
USE [DD_ECM]
GO
/****** Object: View [dbo].[VWPMO_CONTROL_SCREEN] Script Date: 30.03.2015 10:13:05 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER VIEW [dbo].[VWPMO_CONTROL_SCREEN] AS
SELECT TOP 100 PERCENT
T.GUID CONTROL_ID,
T.NAME CONTROL_NAME,
T.REQUIRED CONTROL_REQUIRED,
T.FORMAT_TYPE CONTROL_FORMAT_TYPE,
T.DEFAULT_VALUE CONTROL_DEF_VALUE,
T.READ_ONLY CONTROL_READ_ONLY,
T.MULTILINE CONTROL_MULTILINE,
T.PARENT_CONTROL_ID CONTROL_PARENT_ID,
T.COL_NAME CONTROL_COL_NAME,
T.SHOW_COLUMN CONTROL_SHOW_COLUMN,
T.CONNECTION_ID_1 CONTROL_CONNID_1,
T.SQL_COMMAND_1 CONTROL_SQLCOMMAND_1,
T4.GUID CTRLTYPE_ID,
T4.TYPE_NAME CTRLTYPE_NAME,
T.FORM_ID,
T3.NAME FORM_NAME,
T3.LEVEL FORM_LEVEL,
T1.SCREEN_ID SCREEN_ID,
T2.NAME SCREEN_NAME,
T1.GUID CTRLSCR_ID,
T1.CONTROL_TEXT CTRLSCR_CAPTION,
T1.X_LOC CTRLSCR_X_LOC,
T1.Y_LOC CTRLSCR_Y_LOC,
T1.HEIGHT CTRLSCR_HEIGHT,
T1.WIDTH CTRLSCR_WIDTH,
T1.FONT_FAMILY CTRLSCR_FONT_FAMILY,
T1.FONT_COLOR CTRLSCR_FONT_COLOR,
T1.FONT_SIZE CTRLSCR_FONT_SIZE,
T1.FONT_STYLE CTRLSCR_FONT_STYLE,
T1.TAB_INDEX CTRLSCR_TAB_INDEX,
T1.TAB_STOP CTRLSCR_TAB_STOP,
T1.BACK_COLOR CTRLSCR_BACK_COLOR,
T.MASTER_DATA_ID CTRLSCR_MASTER_DATA_ID
FROM
TBPMO_CONTROL T,
TBPMO_CONTROL_SCREEN T1,
TBPMO_SCREEN T2,
TBPMO_FORM T3,
TBPMO_CONTROL_TYPE T4
WHERE
T.FORM_ID = T3.GUID AND
T.GUID = T1.CONTROL_ID AND
T1.SCREEN_ID = T2.GUID AND
T.CONTROL_TYPE_ID = T4.GUID
ORDER BY
T1.SCREEN_ID,
T.FORM_ID,
T1.TAB_STOP
GO

View File

@@ -0,0 +1,15 @@
DBCC CHECKIDENT (TBPMO_CONTROL_TYPE, RESEED, 11)
INSERT INTO TBPMO_CONTROL_TYPE(TYPE_NAME)
VALUES
('CheckedListBox')
GO
INSERT INTO TBPMO_CONTROL_TYPE(TYPE_NAME)
VALUES
('ListBox')
GO
ALTER TABLE TBPMO_RECORD_CONNECT
ADD CONSTRAINT UQ_RECORD_CONNECT UNIQUE (RECORD1_ID, RECORD2_ID)
--In TBPMO_RECORD_AFT_INS die
--EXEC DBO.PRPMO_CREATE_RECORD_CONNECTIONS @FORM_ID,@RECORD_ID

View File

@@ -0,0 +1,23 @@
CREATE TABLE TBPMO_RUN_PROCEDURES
(
GUID INTEGER NOT NULL IDENTITY(1,1),
FORM_ID INTEGER NOT NULL,
EXECUTE_COMMAND VARCHAR(500) NOT NULL,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'Digital Data',
ADDED_WHEN DATETIME NOT NULL DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_RUN_PROCEDURES PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_RUN_PROCEDURES_FORM_ID FOREIGN KEY (FORM_ID) REFERENCES TBPMO_FORM (GUID),
)
GO
CREATE TRIGGER TBPMO_RUN_PROCEDURES_AFT_UPD ON TBPMO_RUN_PROCEDURES
FOR UPDATE
AS
UPDATE TBPMO_RUN_PROCEDURES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_RUN_PROCEDURES.GUID = INSERTED.GUID
GO
INSERT INTO TBPMO_RUN_PROCEDURES(FORM_ID,EXECUTE_COMMAND)
VALUES
(2,'EXEC PRPMO_AFTER_UPDATE_VALUES @FORM_ID,@RECORD_ID')
GO

View File

@@ -0,0 +1,7 @@
SELECT SQL_COMMAND_1
FROM TBPMO_CONTROL
WHERE (SQL_COMMAND_1 LIKE '%@%')
@RECORD_ID
@PARENTRECORD_ID
@FORM_ID

View File

@@ -0,0 +1,8 @@
UPDATE TBPMO_CONTROL SET SHOW_COLUMN = 1 WHERE CONTROL_TYPE_ID = 2 AND SHOW_COLUMN is null
UPDATE TBPMO_CONTROL SET SHOW_COLUMN = 1 WHERE SHOW_COLUMN is null
ALTER TABLE TBPMO_CONTROL
ALTER COLUMN SHOW_COLUMN BIT NOT NULL
ALTER TABLE TBPMO_CONTROL
ADD DEFAULT 1 FOR SHOW_COLUMN

View File

@@ -0,0 +1,2 @@
ALTER TABLE TBPMO_WORKFLOW_TASK
ADD TASK_DATE DATE

View File

@@ -0,0 +1,12 @@
CREATE TABLE TBPMO_FILES_USER
(
GUID INT IDENTITY(1,1),
FILENAME2WORK VARCHAR(500) NOT NULL,
USER@WORK VARCHAR(50) NOT NULL,
HANDLE_TYPE VARCHAR(50) NOT NULL,
WORKED BIT NOT NULL DEFAULT 0,
ADDED_WHEN DATETIME DEFAULT GETDATE() NOT NULL,
CONSTRAINT PK_TBPMO_FILES_USER PRIMARY KEY(GUID)
)
GO
------------------------------------------------------------------------------

View File

@@ -0,0 +1,23 @@
CREATE TABLE TBPMO_FOLLUPEMAIL_RECORD
(
GUID INTEGER IDENTITY(0,1), -- Eindeutiger Tabellenschlüssel
FOLLOW_UP_ID INTEGER NOT NULL,
[USER_ID] INTEGER NOT NULL,
RECORD_ID INTEGER NOT NULL,
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT' NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_FOLLUPEMAIL_RECORD PRIMARY KEY (GUID),
CONSTRAINT UQ_USER_FOLLUP_ID UNIQUE ([USER_ID],FOLLOW_UP_ID),
CONSTRAINT FK_TBPMO_FOLLUPEMAIL_RECORD_USER_ID FOREIGN KEY([USER_ID]) REFERENCES TBDD_USER(GUID),
CONSTRAINT FK_TBPMO_FOLLUPEMAIL_RECORD_FOLLOW_UP_ID FOREIGN KEY(FOLLOW_UP_ID) REFERENCES TBPMO_FOLLOW_UP_EMAIL(GUID),
CONSTRAINT FK_TBPMO_FOLLUPEMAIL_RECORD_RECORD_ID FOREIGN KEY(RECORD_ID) REFERENCES TBPMO_RECORD(GUID)
)
GO
CREATE TRIGGER TBPMO_FOLLUPEMAIL_RECORD_AFT_UPD ON TBPMO_FOLLUPEMAIL_RECORD
FOR UPDATE
AS
UPDATE TBPMO_FOLLUPEMAIL_RECORD SET CHANGED_WHEN = GETDATE() FROM INSERTED
WHERE TBPMO_FOLLUPEMAIL_RECORD.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,23 @@
CREATE VIEW VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD AS
SELECT
T.GUID FOLLOW_UP_ID,
T1.RECORD_ID,
T2.GUID AS ENTITY_ID,
T.NAME,
T.FOLLOW_UP_SEQUENCE,
T.FOLLOW_UP_DAYS,
T.FOLLOW_UP_TIME_SPAN,
CONVERT(DATE,T1.VALUE) RECORD_VALUE,
T.EMAIL_SUBJECT,
T.EMAIL_BODY,
T.DEPENDENT_DATE_CTRL_ID,
T.DEPENDENT_DONE_CTRL_ID
FROM
TBPMO_FOLLOW_UP_EMAIL T,
VWPMO_VALUES T1,
TBPMO_FORM T2
WHERE
T.ACTIVE = 1 AND
T.DEPENDENT_DATE_CTRL_ID = T1.CONTROL_ID AND
T1.FORM_ID = T2.GUID

View File

@@ -0,0 +1,12 @@
CREATE VIEW VWPMO_GUI_ENTITY AS
SELECT TOP 100 PERCENT
TBPMO_FORM.GUID AS ID,
TBPMO_FORM.NAME AS Name,
TBPMO_FORM_VIEW.FORM_TITLE AS Title
FROM
TBPMO_FORM INNER JOIN
TBPMO_FORM_VIEW ON TBPMO_FORM.GUID = TBPMO_FORM_VIEW.FORM_ID
WHERE
(TBPMO_FORM.FORM_TYPE_ID IN (1, 2, 3, 5))
ORDER BY
TBPMO_FORM.PARENT_ID, Title

View File

@@ -0,0 +1,30 @@
ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS
SELECT TOP 100 PERCENT
T.GUID AS WF_TASK_ID,
T1.TITLE,
T.RECORD_ID,
T.STATE_ID,
T2.STATE_DESC,
T2.COLOR,
T.COMMENT,
T.DUE_DATE,
T.TASK_DATE,
'' AS USERNAME,
T.ADDED_WHEN,
T.CHANGED_WHO,
T.CHANGED_WHEN
FROM
TBPMO_WORKFLOW_TASK AS T,
TBPMO_WORKFLOW AS T1,
TBPMO_KONFIGURATION TK,
TBPMO_WORKFLOW_TASK_STATE T2
WHERE
TK.GUID = 1 AND
T.WF_ID = T1.GUID AND
T.STATE_ID = T2.GUID AND
T.STATE_ID <> TK.WORKFLOW_FINAL_STATE1
ORDER BY T.GUID
GO

View File

@@ -0,0 +1,29 @@
CREATE VIEW VWPMO_WF_OVERVIEW_AUTHORITY AS
SELECT
T.GUID as WF_ID,
T.RECORD_ID,
TBPMO_WORKFLOW.TITLE + ' - ' + TBPMO_WORKFLOW_TASK_STATE.STATE_DESC AS STATE,
TBPMO_WORKFLOW_TASK_STATE.GUID AS STATE_ID,
TBPMO_WORKFLOW_TASK_STATE.COLOR,
(SELECT TBDD_USER.NAME + ', ' + TBDD_USER.PRENAME AS Expr1
FROM TBPMO_WORKFLOW_TASK_USER INNER JOIN
TBDD_USER ON TBPMO_WORKFLOW_TASK_USER.USER_ID = TBDD_USER.GUID
WHERE (TBPMO_WORKFLOW_TASK_USER.WF_TASK_ID = T.GUID)) AS Authority,
CASE WHEN (SELECT TBDD_USER.NAME + ', ' + TBDD_USER.PRENAME AS Expr1
FROM TBPMO_WORKFLOW_TASK_USER INNER JOIN
TBDD_USER ON TBPMO_WORKFLOW_TASK_USER.USER_ID = TBDD_USER.GUID
WHERE (TBPMO_WORKFLOW_TASK_USER.WF_TASK_ID = T.GUID)) IS NULL
THEN TBPMO_WORKFLOW.TITLE + ' - ' + TBPMO_WORKFLOW_TASK_STATE.STATE_DESC
ELSE
TBPMO_WORKFLOW.TITLE + ' - ' + TBPMO_WORKFLOW_TASK_STATE.STATE_DESC + ' - ' +
(SELECT TBDD_USER.NAME + ', ' + TBDD_USER.PRENAME AS Expr1
FROM TBPMO_WORKFLOW_TASK_USER INNER JOIN
TBDD_USER ON TBPMO_WORKFLOW_TASK_USER.USER_ID = TBDD_USER.GUID
WHERE (TBPMO_WORKFLOW_TASK_USER.WF_TASK_ID = T.GUID))
END AS String,
T.CHANGED_WHO,
T.CHANGED_WHEN
FROM TBPMO_WORKFLOW_TASK T INNER JOIN
TBPMO_WORKFLOW ON T.WF_ID = TBPMO_WORKFLOW.GUID INNER JOIN
TBPMO_WORKFLOW_TASK_STATE ON T.STATE_ID = TBPMO_WORKFLOW_TASK_STATE.GUID
WHERE (T.ACTIVE = 1)

View File

@@ -0,0 +1,9 @@
ALTER TABLE TBPMO_FORM
ADD SINGLE_RECORD BIT NOT NULL DEFAULT 0
ALTER TABLE TBPMO_KONFIGURATION
ADD FOLLOW_UP_LOG_ERR_ONLY BIT NOT NULL DEFAULT 1
ALTER TABLE TBPMO_KONFIGURATION
ADD FOLLOW_UP_EMAIL_PROFILE INTEGER NOT NULL DEFAULT 99
ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
ADD NAME VARCHAR(100) NOT NULL DEFAULT 'DESCRIPTION FOLLOW UP'

View File

@@ -0,0 +1,44 @@
USE [DD_ECM]
GO
/****** Object: View [dbo].[VWPMO_CONSTRUCTOR_FORMS] Script Date: 28.08.2015 13:22:17 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
SELECT TOP 100 PERCENT
T2.GUID,
T2.CONSTRUCT_ID,
T.PARENT_ID,
T2.SEQUENCE,
T2.LEVEL1_SELECT,
T.GUID AS FORM_ID,
T1.FORM_TITLE,
T2.SQL_SELECT_EBENE1,
T2.SQL_SELECT_EBENE2,
T2.COLUMN_NAME1,
T2.COLUMN_NAME2,
T.FORM_TYPE_ID
FROM
tbpmo_form T,
TBPMO_FORM_VIEW T1,
TBPMO_FORM_CONSTRUCTOR_DETAIL T2
where
T2.FORM_ID = T.GUID AND
T1.SCREEN_ID = 1 AND
T.GUID = T1.FORM_ID
ORDER BY
T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
GO

View File

@@ -0,0 +1,2 @@
ALTER TABLE TBPMO_CONTROL
ADD STATIC_LIST VARCHAR(2000) NOT NULL DEFAULT ''

View File

@@ -0,0 +1,71 @@
USE [DD_ECM]
GO
/****** Object: View [dbo].[VWPMO_CONTROL_SCREEN] Script Date: 03.02.2015 10:27:53 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER VIEW [dbo].[VWPMO_CONTROL_SCREEN] AS
SELECT TOP 100 PERCENT
T.GUID CONTROL_ID,
T.NAME CONTROL_NAME,
T.REQUIRED CONTROL_REQUIRED,
T.DEFAULT_VALUE CONTROL_DEF_VALUE,
T.READ_ONLY CONTROL_READ_ONLY,
T.MULTILINE CONTROL_MULTILINE,
T.PARENT_CONTROL_ID CONTROL_PARENT_ID,
T.COL_NAME CONTROL_COL_NAME,
T.SHOW_COLUMN CONTROL_SHOW_COLUMN,
T.CONNECTION_ID_1 CONTROL_CONNID_1,
T.SQL_COMMAND_1 CONTROL_SQLCOMMAND_1,
T.STATIC_LIST CONTROL_STATIC_LIST,
T4.GUID CTRLTYPE_ID,
T4.TYPE_NAME CTRLTYPE_NAME,
T.FORMAT_TYPE CONTROL_FORMAT_TYPE,
T.FORM_ID,
T3.NAME FORM_NAME,
T3.LEVEL FORM_LEVEL,
T1.SCREEN_ID SCREEN_ID,
T2.NAME SCREEN_NAME,
T1.GUID CTRLSCR_ID,
T1.CONTROL_TEXT CTRLSCR_CAPTION,
T1.X_LOC CTRLSCR_X_LOC,
T1.Y_LOC CTRLSCR_Y_LOC,
T1.HEIGHT CTRLSCR_HEIGHT,
T1.WIDTH CTRLSCR_WIDTH,
T1.FONT_FAMILY CTRLSCR_FONT_FAMILY,
T1.FONT_COLOR CTRLSCR_FONT_COLOR,
T1.FONT_SIZE CTRLSCR_FONT_SIZE,
T1.FONT_STYLE CTRLSCR_FONT_STYLE,
T1.TAB_INDEX CTRLSCR_TAB_INDEX,
T1.TAB_STOP CTRLSCR_TAB_STOP,
T1.BACK_COLOR CTRLSCR_BACK_COLOR,
T.MASTER_DATA_ID CTRLSCR_MASTER_DATA_ID
FROM
TBPMO_CONTROL T,
TBPMO_CONTROL_SCREEN T1,
TBPMO_SCREEN T2,
TBPMO_FORM T3,
TBPMO_CONTROL_TYPE T4
WHERE
T.FORM_ID = T3.GUID AND
T.GUID = T1.CONTROL_ID AND
T1.SCREEN_ID = T2.GUID AND
T.CONTROL_TYPE_ID = T4.GUID
ORDER BY
T1.SCREEN_ID,
T.FORM_ID,
T1.TAB_STOP
GO

View File

@@ -0,0 +1,15 @@
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD LOAD_DIRECT BIT NOT NULL DEFAULT 0
ALTER TABLE TBDD_MODULES
ADD BACKGROUND_IMAGE VARBINARY(MAX)
GO
ALTER TABLE TBDD_MODULES
ADD PRODUCT_NAME1 VARCHAR(200) NOT NULL DEFAULT 'RECORD-ORGANIZER'
GO
ALTER TABLE TBDD_MODULES
ADD PRODUCT_NAME2 VARCHAR(200)
GO
ALTER TABLE TBDD_INDEX_AUTOM
ADD [ENTITY_ID] INTEGER NOT NULL DEFAULT 0
GO

View File

@@ -0,0 +1,3 @@
INSERT INTO TBPMO_FORM_TYPE(FORM_TYPE)
VALUES
('GROUP ENTITY')

View File

@@ -0,0 +1,16 @@
CREATE VIEW VWPMO_TEMPLATE_ENTITY AS
SELECT
T.GUID AS TEMPLATE_ID,
T.NAME AS TEMPLATE_NAME,
T.TEMPLATE_PATH AS TEMPLATE_PATH,
T1.GUID AS TEMPLATE_ENTITY_ID,
T2.GUID AS ENTITY_ID,
T2.NAME
FROM
TBPMO_TEMPLATE T,
TBPMO_TEMPLATE_ENTITY T1,
TBPMO_FORM T2
WHERE
T.ACTIVE = 1 AND
T.GUID = T1.TEMPLATE_ID AND
T1.ENTITY_ID = T2.GUID

View File

@@ -0,0 +1,21 @@
CREATE TABLE TBPMO_TEMPLATE
(
GUID INTEGER NOT NULL IDENTITY(1,1),
NAME VARCHAR(100) NOT NULL UNIQUE,
TEMPLATE_PATH VARCHAR(1000) NOT NULL,
DOCTYPE_ID INTEGER NOT NULL,
ACTIVE BIT NOT NULL DEFAULT 1,
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_TEMPLATE PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_TEMPLATE_DOCTYPE_ID FOREIGN KEY(DOCTYPE_ID) REFERENCES TBDD_DOKUMENTART(GUID)
)
GO
CREATE TRIGGER TBPMO_TEMPLATE_AFT_UPD ON TBPMO_TEMPLATE
FOR UPDATE
AS
UPDATE TBPMO_TEMPLATE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_TEMPLATE.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,19 @@
CREATE TABLE TBPMO_TEMPLATE_ENTITY
(
GUID INTEGER NOT NULL IDENTITY(1,1),
TEMPLATE_ID INTEGER NOT NULL,
ENTITY_ID INTEGER NOT NULL,
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_TEMPLATE_ENTITY PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID FOREIGN KEY(TEMPLATE_ID) REFERENCES TBPMO_TEMPLATE(GUID),
CONSTRAINT FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID FOREIGN KEY(ENTITY_ID) REFERENCES TBPMO_FORM(GUID)
)
GO
CREATE TRIGGER TBPMO_TEMPLATE_ENTITY_AFT_UPD ON TBPMO_TEMPLATE_ENTITY
FOR UPDATE
AS
UPDATE TBPMO_TEMPLATE_ENTITY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_TEMPLATE_ENTITY.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,23 @@
CREATE TABLE TBPMO_TEMPLATE_PATTERN
(
GUID INTEGER NOT NULL IDENTITY(1,1),
TEMPLATE_ID INTEGER NOT NULL,
NAME_PATTERN VARCHAR(100) NOT NULL,
FIXED_VALUE VARCHAR(100),
CONNECTION_ID INTEGER,
SQL_COMMAND VARCHAR(2000),
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_TEMPLATE_PATTERN PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ID FOREIGN KEY(TEMPLATE_ID) REFERENCES TBPMO_TEMPLATE(GUID),
CONSTRAINT UQ_TBPMO_TEMPLATE_PATTERN UNIQUE (TEMPLATE_ID, NAME_PATTERN)
)
GO
CREATE TRIGGER TBPMO_TEMPLATE_PATTERN_AFT_UPD ON TBPMO_TEMPLATE_PATTERN
FOR UPDATE
AS
UPDATE TBPMO_TEMPLATE_PATTERN SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_TEMPLATE_PATTERN.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,5 @@
ALTER TABLE TBPMO_CONTROL_VALUE
ALTER COLUMN VALUE NVARCHAR(MAX) NOT NULL
ALTER TABLE TBPMO_WD_FORMVIEW_DOKTYPES
ADD NAME_CONVENTION VARCHAR(100) NOT NULL DEFAULT ''

View File

@@ -0,0 +1,3 @@
DROP TABLE TBPMO_TEMPLATE_ENTITY_PATTERN
DROP TABLE TBPMO_TEMPLATE_ENTITY
DROP TABLE TBPMO_TEMPLATE

View File

@@ -0,0 +1,36 @@
ALTER PROCEDURE [dbo].[PRPMO_CREATE_TEMP_VIEWS]
AS
BEGIN
DECLARE
@FORM_ID INTEGER,
@SQL_COMMAND nvarchar(MAX),
@VIEW_NAME nvarchar(30),
@DEL_SQL NVARCHAR(100),
@CREATE_VIEW NVARCHAR(MAX)
DECLARE c_TASK CURSOR FOR
SELECT FORM_ID,SQL_COMMAND
FROM TBPMO_FORM_SQL where SQL_COMMAND is not null
OPEN c_TASK
FETCH NEXT FROM c_TASK INTO @FORM_ID,@SQL_COMMAND
WHILE @@FETCH_STATUS = 0
BEGIN
SET @VIEW_NAME = 'VWTEMP_PMO_FORM' + CONVERT(VARCHAR(3),@FORM_ID)
IF EXISTS(select * FROM sys.views where name = @VIEW_NAME)
BEGIN
SET @DEL_SQL = 'DROP VIEW dbo.' + QUOTENAME(@VIEW_NAME) + ''
EXEC sp_executesql @DEL_SQL
END
SELECT @SQL_COMMAND = SQL_COMMAND FROM TBPMO_FORM_SQL where FORM_ID = @FORM_ID
SET @CREATE_VIEW = 'CREATE VIEW ' + @VIEW_NAME + ' AS ' + @SQL_COMMAND
EXEC sp_executesql @CREATE_VIEW
FETCH NEXT FROM c_TASK INTO @FORM_ID,@SQL_COMMAND
END
CLOSE c_TASK
DEALLOCATE c_TASK
END
GO

View File

@@ -0,0 +1,102 @@
CREATE TABLE TBPMO_FORM_CONSTR_QUICK_DISPLAY
(
GUID INTEGER NOT NULL IDENTITY(1,1),
CONSTRUCT_ID INTEGER NOT NULL,
CONTROL_ID INTEGER NOT NULL,
HEADLINE BIT NOT NULL DEFAULT 0,
PICTURE BIT NOT NULL DEFAULT 0,
SEQUENCE INTEGER NOT NULL DEFAULT 0,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'Digital Data',
ADDED_WHEN DATETIME NOT NULL DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_FORM_CONSTR_QUICK_DISPLAY PRIMARY KEY (GUID),
CONSTRAINT UNIQUE_CONSTRUCTID_CONTROL_ID UNIQUE(CONSTRUCT_ID,CONTROL_ID),
CONSTRAINT FK_TBPMO_FORM_CONSTR_QUICK_DISPLAY_CONSTRUCT_ID FOREIGN KEY (CONSTRUCT_ID) REFERENCES TBPMO_FORM_CONSTRUCTOR_DETAIL (GUID),
CONSTRAINT FK_TBPMO_FORM_CONSTR_QUICK_DISPLAY_CONTROL_ID FOREIGN KEY (CONTROL_ID) REFERENCES TBPMO_CONTROL (GUID),
)
GO
CREATE TRIGGER [dbo].[TBPMO_FORM_CONSTR_QUICK_DISPLAY_AFT_UPD] ON [dbo].[TBPMO_FORM_CONSTR_QUICK_DISPLAY]
FOR UPDATE
AS
DECLARE
@GUID INTEGER,
@CONSTRUCT_ID INTEGER,
@HEADLINE BIT
SELECT
@GUID = GUID,
@CONSTRUCT_ID = CONSTRUCT_ID,
@HEADLINE = HEADLINE
FROM INSERTED
IF @HEADLINE = 1
BEGIN
UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 0 WHERE CONSTRUCT_ID = @CONSTRUCT_ID AND PICTURE = 0 AND GUID <> @GUID
EXEC dbo.PRPMO_CREATE_QUICK_SQL @CONSTRUCT_ID
END
UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_FORM_CONSTR_QUICK_DISPLAY.GUID = INSERTED.GUID
GO
--Insert trigger
CREATE TRIGGER TBPMO_FORM_CONSTR_QUICK_DISPLAY_AFT_INS ON TBPMO_FORM_CONSTR_QUICK_DISPLAY
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@CONSTRUCT_ID INTEGER,
@SEQUENCE INTEGER,
@COUNT INT
SELECT
@CONSTRUCT_ID = CONSTRUCT_ID
FROM INSERTED
SELECT
@SEQUENCE = MAX(SEQUENCE),
@COUNT = COUNT(*)
FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE HEADLINE = 0 AND PICTURE = 0 AND CONSTRUCT_ID = @CONSTRUCT_ID
IF @COUNT = 1
UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1 FROM INSERTED WHERE TBPMO_FORM_CONSTR_QUICK_DISPLAY.GUID = INSERTED.GUID
IF @COUNT > 1
UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET SEQUENCE = @SEQUENCE + 1 FROM INSERTED WHERE TBPMO_FORM_CONSTR_QUICK_DISPLAY.GUID = INSERTED.GUID
EXEC dbo.PRPMO_CREATE_QUICK_SQL @CONSTRUCT_ID
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
CREATE TRIGGER TBPMO_FORM_CONSTR_QUICK_DISPLAY_AFT_DEL ON TBPMO_FORM_CONSTR_QUICK_DISPLAY
WITH EXECUTE AS CALLER
FOR DELETE
AS
BEGIN TRY
DECLARE
@CONSTRUCT_ID INTEGER,
@COUNT INT
SELECT
@CONSTRUCT_ID = CONSTRUCT_ID
FROM deleted
SELECT
@COUNT = COUNT(*)
FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = @CONSTRUCT_ID
IF @COUNT >= 2
EXEC dbo.PRPMO_CREATE_QUICK_SQL @CONSTRUCT_ID
ELSE
UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET SQL_QUICK_VIEW = '' WHERE GUID = @CONSTRUCT_ID
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH

View File

@@ -0,0 +1,21 @@
CREATE TABLE TBPMO_CONTROL_HINT
(
GUID INTEGER NOT NULL IDENTITY(1,1),
CONTROL_ID INTEGER NOT NULL,
HINT_COMMENT VARCHAR(500) NOT NULL,
LANGUAGE_CODE VARCHAR(10) NOT NULL DEFAULT 'de-DE',
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_CONTROL_HINT PRIMARY KEY (GUID),
CONSTRAINT UNIQUE_CONTROL_ID_LANGUAGE_CODE_CONTROL_ID UNIQUE(CONTROL_ID,LANGUAGE_CODE),
CONSTRAINT FK_TBPMO_CONTROL_HINT_CONTROL_ID FOREIGN KEY (CONTROL_ID) REFERENCES TBPMO_CONTROL (GUID),
)
GO
CREATE TRIGGER TBPMO_CONTROL_HINT_AFT_UPD ON TBPMO_CONTROL_HINT
FOR UPDATE
AS
UPDATE TBPMO_CONTROL_HINT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_HINT.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,2 @@
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD SQL_QUICK_VIEW NVARCHAR(MAX) DEFAULT '' NOT NULL

View File

@@ -0,0 +1,25 @@
CREATE TABLE TBPMO_USER_CONSTR_VIEW_TYPE
(
GUID INTEGER NOT NULL IDENTITY(1,1),
[USER_ID] INTEGER NOT NULL,
CONSTRUCTOR_DETAIL_ID INTEGER NOT NULL,
[ENTITY_ID] INTEGER NOT NULL,
VIEW_ID INTEGER NOT NULL DEFAULT 1, --1=TileView,2=Carousel,3=GridView
COMMENT VARCHAR(300),
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_USER_CONSTR_VIEW_TYPE PRIMARY KEY (GUID),
CONSTRAINT UNIQUE_CONSTRUCTOR_ID_VIEW_ID UNIQUE(CONSTRUCTOR_DETAIL_ID,VIEW_ID,[USER_ID]),
CONSTRAINT FK_TBPMO_USER_CONSTR_VIEW_TYPE_USER_ID FOREIGN KEY (USER_ID) REFERENCES TBDD_USER (GUID),
CONSTRAINT FK_TBPMO_USER_CONSTR_VIEW_TYPE_CONSTRUCTOR_ID FOREIGN KEY (CONSTRUCTOR_DETAIL_ID) REFERENCES TBPMO_FORM_CONSTRUCTOR_DETAIL (GUID),
CONSTRAINT FK_TBPMO_USER_CONSTR_VIEW_TYPE_ENTITY_ID FOREIGN KEY ([ENTITY_ID]) REFERENCES TBPMO_FORM (GUID),
)
GO
CREATE TRIGGER TBPMO_USER_CONSTR_VIEW_TYPE_AFT_UPD ON TBPMO_USER_CONSTR_VIEW_TYPE
FOR UPDATE
AS
UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_USER_CONSTR_VIEW_TYPE.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,32 @@
CREATE TABLE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG
(
GUID INTEGER NOT NULL IDENTITY(1,1),
[USER_ID] INTEGER NOT NULL,
CONSTRUCTOR_DETAIL_ID INTEGER NOT NULL,
COLUMN1 VARCHAR(50) NOT NULL,
COLUMN1_WIDTH INTEGER NOT NULL,
COLUMN2 VARCHAR(50) NOT NULL,
COLUMN2_WIDTH INTEGER NOT NULL,
COLUMN3 VARCHAR(50) NOT NULL,
COLUMN3_WIDTH INTEGER NOT NULL,
COLUMN4 VARCHAR(50),
COLUMN4_WIDTH INTEGER,
COLUMN5 VARCHAR(50),
COLUMN5_WIDTH INTEGER,
COLUMN6 VARCHAR(50),
COLUMN6_WIDTH INTEGER,
COLUMN7 VARCHAR(50),
COLUMN7_WIDTH INTEGER,
COMMENT VARCHAR(300),
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_USER_WINDREAM_RESULTLIST_CONFIG PRIMARY KEY (GUID),
)
GO
CREATE TRIGGER TBPMO_USER_WINDREAM_RESULTLIST_CONFIG_AFT_UPD ON TBPMO_USER_WINDREAM_RESULTLIST_CONFIG
FOR UPDATE
AS
UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,33 @@
DROP TABLE TBPMO_WINDREAM_RESULTLIST_CONFIG
CREATE TABLE TBPMO_WINDREAM_RESULTLIST_CONFIG
(
GUID TINYINT,
COLUMN1 VARCHAR(50) NOT NULL,
COLUMN1_WIDTH INTEGER NOT NULL,
COLUMN2 VARCHAR(50) NOT NULL,
COLUMN2_WIDTH INTEGER NOT NULL,
COLUMN3 VARCHAR(50) NOT NULL,
COLUMN3_WIDTH INTEGER NOT NULL,
COLUMN4 VARCHAR(50),
COLUMN4_WIDTH INTEGER,
COLUMN5 VARCHAR(50),
COLUMN5_WIDTH INTEGER,
COLUMN6 VARCHAR(50),
COLUMN6_WIDTH INTEGER,
COLUMN7 VARCHAR(50),
COLUMN7_WIDTH INTEGER,
COMMENT VARCHAR(300),
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_WINDREAM_RESULTLIST_CONFIG_GUID PRIMARY KEY(GUID),
CONSTRAINT CH_TBPMO_WINDREAM_RESULTLIST_CONFIG_GUID CHECK(GUID = 1),
)
GO
CREATE TRIGGER TBPMO_WINDREAM_RESULTLIST_CONFIG_AFT_UPD ON TBPMO_WINDREAM_RESULTLIST_CONFIG
FOR UPDATE
AS
UPDATE TBPMO_WINDREAM_RESULTLIST_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WINDREAM_RESULTLIST_CONFIG.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,2 @@
ALTER TABLE TBPMO_FORM
ADD POS_ENTITY INTEGER DEFAULT '0' NOT NULL

View File

@@ -0,0 +1,22 @@
UPDATE TBPMO_KONFIGURATION SET SQL_RECORD_SQL1 = 'SELECT T.GUID AS [Record-ID],T.FORM_ID AS [Form-ID],' where GUID = 1
DECLARE @FORM_ID INT
DECLARE c_FORM CURSOR FOR SELECT GUID FROM TBPMO_FORM
OPEN c_FORM
FETCH NEXT FROM c_FORM INTO @FORM_ID
WHILE @@FETCH_STATUS = 0
BEGIN
EXEC PRPMO_CREATE_SQL @FORM_ID
FETCH NEXT FROM c_FORM INTO @FORM_ID
END
CLOSE c_FORM
DEALLOCATE c_FORM
GO
EXEC [dbo].[PRPMO_CREATE_TEMP_VIEWS]

View File

@@ -0,0 +1,8 @@
USE [DD_ECM]
GO
/****** Object: Index [UQ_USER_FOLLUP_ID] Script Date: 07.12.2015 11:47:08 ******/
ALTER TABLE [dbo].[TBPMO_FOLLUPEMAIL_RECORD] DROP CONSTRAINT [UQ_USER_FOLLUP_ID]
GO

View File

@@ -0,0 +1,31 @@
--Insert trigger
CREATE TRIGGER [dbo].[TBPMO_CONTROL_SCREEN_AFT_INS] ON [dbo].[TBPMO_CONTROL_SCREEN]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@GUID INTEGER,
@CONTROL_ID INTEGER,
@ENTITY_ID INTEGER,
@SEQUENCE INTEGER
SELECT
@GUID = GUID,
@CONTROL_ID = CONTROL_ID
FROM INSERTED
SELECT
@ENTITY_ID = FORM_ID
FROM TBPMO_CONTROL WHERE [GUID] = @CONTROL_ID
SELECT @SEQUENCE = MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = @ENTITY_ID)
UPDATE TBPMO_CONTROL_SCREEN SET TAB_INDEX = @SEQUENCE + 1 FROM INSERTED WHERE TBPMO_CONTROL_SCREEN.GUID = INSERTED.GUID
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH

View File

@@ -0,0 +1,21 @@
CREATE TABLE TBPMO_FOLDERWATCH_USER
(
GUID INTEGER IDENTITY(0,1), -- Eindeutiger Tabellenschlüssel
[USER_ID] INT NOT NULL,
FOLDER_PATH VARCHAR(800) NOT NULL,
FOLDER_TYPE VARCHAR(20) DEFAULT 'DEFAULT' NOT NULL,
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT' NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_FOLDERWATCH_USER PRIMARY KEY (GUID),
CONSTRAINT UQ_TBPMO_FOLDERWATCH_USER UNIQUE([USER_ID],FOLDER_PATH),
CONSTRAINT FK_TBPMO_FOLDERWATCH_USER_USER_ID FOREIGN KEY([USER_ID]) REFERENCES TBDD_USER(GUID),
)
GO
CREATE TRIGGER TBPMO_FOLDERWATCH_USER_AFT_UPD ON TBPMO_FOLDERWATCH_USER
FOR UPDATE
AS
UPDATE TBPMO_FOLDERWATCH_USER SET CHANGED_WHEN = GETDATE() FROM INSERTED
WHERE TBPMO_FOLDERWATCH_USER.GUID = INSERTED.GUID
GO

View File

@@ -0,0 +1,54 @@
ALTER VIEW [dbo].[VWPMO_FOLLOW_UP_EMAIL] AS
SELECT
T1.GUID FOLLOW_UP_ID,
T1.NAME,
T1.FOLLOW_UP_SEQUENCE,
T1.FOLLOW_UP_DAYS,
T1.FOLLOW_UP_TIME_SPAN,
CONVERT(CHAR(5),GETDATE(),108) NOW_TIME,
T.RECORD_ID,
CONVERT(DATE,T.VALUE) VALUE,
T1.EMAIL_SUBJECT,
T1.EMAIL_BODY,
T1.PROCESS_SELECT1,
T1.PROCESS_SELECT2,
T1.PROCESS_SELECT3,
T1.PROCESS_SELECT4,
T1.PROCESS_SELECT5,
T1.PROCESS_SELECT6,
T1.PROCESS_SELECT7,
T1.PROCESS_SELECT8,
T1.PROCESS_SELECT9,
T1.PROCESS_SELECT10,
T1.TIME_UNITY,
T1.TIME_DIST,
CASE T1.TIME_UNITY
WHEN 'Month' THEN
DATEDIFF(month, getdate(),convert(Date,T.value))
WHEN 'Week' THEN
DATEDIFF(week, getdate(),convert(Date,T.value))
END TIME_SPAN,
T1.DEPENDENT_DATE_CTRL_ID,
T1.DEPENDENT_DONE_CTRL_ID,
(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) DONE_VALUE,
T2.GUID AS CONSTRUCTOR_ID,
T2.FORM_TITLE AS CONSTRUCTOR_TITLE
FROM
VWPMO_VALUES T,
TBPMO_FOLLOW_UP_EMAIL T1,
TBPMO_FORM_CONSTRUCTOR T2
WHERE
T1.ACTIVE = 1 AND
(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) = 'False' And
T.CONTROL_ID = T1.DEPENDENT_DATE_CTRL_ID AND
T1.CONSTRUCTOR_ID = T2.GUID AND
T1.TIME_SPAN =
CASE T1.TIME_UNITY
WHEN 'Month' THEN
DATEDIFF(month, getdate(),convert(Date,T.value))
WHEN 'Week' THEN
DATEDIFF(week, getdate(),convert(Date,T.value))
END
GO

View File

@@ -0,0 +1,27 @@
ALTER VIEW VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD AS
SELECT
T.GUID FOLLOW_UP_ID,
T1.RECORD_ID,
T2.GUID AS ENTITY_ID,
T.NAME,
T.FOLLOW_UP_SEQUENCE,
T.FOLLOW_UP_DAYS,
T.FOLLOW_UP_TIME_SPAN,
CONVERT(DATE,T1.VALUE) RECORD_VALUE,
T.EMAIL_SUBJECT,
T.EMAIL_BODY,
T.DEPENDENT_DATE_CTRL_ID,
T.DEPENDENT_DONE_CTRL_ID,
T3.GUID AS CONSTRUCTOR_ID,
T3.FORM_TITLE AS CONSTRUCTOR_TITLE
FROM
TBPMO_FOLLOW_UP_EMAIL T,
VWPMO_VALUES T1,
TBPMO_FORM T2,
TBPMO_FORM_CONSTRUCTOR T3
WHERE
T.ACTIVE = 1 AND
T.DEPENDENT_DATE_CTRL_ID = T1.CONTROL_ID AND
T1.FORM_ID = T2.GUID AND
T.CONSTRUCTOR_ID = T3.GUID

View File

@@ -0,0 +1,10 @@
ALTER TABLE TBPMO_FILES_USER
ADD FILENAME_ONLY VARCHAR(100) DEFAULT '' NOT NULL
GO
ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
ADD CONSTRUCTOR_ID INTEGER DEFAULT '1' NOT NULL
GO
ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
ADD CONSTRAINT FK_TBPMO_FOLLOW_UP_EMAIL_CONSTR_ID FOREIGN KEY (CONSTRUCTOR_ID)
REFERENCES TBPMO_FORM_CONSTRUCTOR(GUID)

View File

@@ -0,0 +1,4 @@
CREATE NONCLUSTERED INDEX [IDXTBPMO_CONTROL_VALUE_RECID_VALUE]
ON [dbo].[TBPMO_CONTROL_VALUE] ([CONTROL_ID])
INCLUDE ([RECORD_ID],[VALUE])
GO

View File

@@ -0,0 +1,27 @@
CREATE PROCEDURE [dbo].[PRDD_COPY_RECORD](@pRECORD_ID INT,@WHO VARCHAR(50)) --,@pMODULE_ID INT)
AS
DECLARE @NEW_RECORD_ID INT
BEGIN TRY
INSERT INTO TBPMO_RECORD (
FORM_ID,ADDED_WHO)
SELECT FORM_ID,@WHO FROM TBPMO_RECORD WHERE GUID = @pRECORD_ID
SELECT @NEW_RECORD_ID = MAX(GUID) FROM TBPMO_RECORD
INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT) SELECT
RECORD1_ID,@NEW_RECORD_ID,COMMENT FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = @pRECORD_ID
INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) SELECT
CONTROL_ID,@NEW_RECORD_ID,VALUE,@WHO FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @pRECORD_ID
INSERT INTO TBPMO_CONTROL_IMAGE(CONTROL_ID,RECORD_ID,IMG,ADDED_WHO) SELECT
CONTROL_ID,@NEW_RECORD_ID,IMG,@WHO FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = @pRECORD_ID
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

View File

@@ -0,0 +1,69 @@
ALTER TABLE TBPMO_RECORD
ADD RECORD_ENTITY_ID INTEGER NOT NULL DEFAULT 0
GO
ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@RECORD_ID INTEGER,
@MAX_ID INTEGER,
@FORM_ID INTEGER,
@WF_ID INTEGER,
@PARENT_ID INTEGER
SELECT
@FORM_ID = FORM_ID,
@RECORD_ID = GUID
FROM INSERTED
SELECT
@MAX_ID = MAX(RECORD_ENTITY_ID) + 1
FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID
UPDATE TBPMO_RECORD SET
RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
--Überprüfen ob dieser Rec
IF EXISTS(
SELECT * FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID
)
BEGIN
EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
END
--EXEC DBO.PRPMO_CREATE_RECORD_CONNECTIONS @FORM_ID,@RECORD_ID
--SELECT @PARENT_ID = PARENT_ID FROM TBPMO_FORM WHERE GUID = @FORM_ID
--IF @PARENT_ID > 0
-- INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID) VALUES (@PARENT_ID,@RECORD_ID)
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
DECLARE
@GUID INTEGER,
@FORM_ID INTEGER ,
@MAX_ID INTEGER
DECLARE c_RECORD CURSOR FOR
SELECT GUID,FORM_ID FROM TBPMO_RECORD ORDER BY GUID
OPEN c_RECORD
FETCH NEXT FROM c_RECORD INTO @GUID,@FORM_ID
WHILE @@FETCH_STATUS = 0
BEGIN
SELECT
@MAX_ID = MAX(RECORD_ENTITY_ID) + 1
FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID
UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID WHERE GUID = @GUID
FETCH NEXT FROM c_RECORD INTO @GUID,@FORM_ID
END
CLOSE c_RECORD
DEALLOCATE c_RECORD
GO

View File

@@ -0,0 +1,103 @@
ALTER TABLE TBPMO_FORM_CONSTRUCTOR
ADD LANGUAGE VARCHAR(5) NOT NULL DEFAULT 'de-DE'
GO
DROP TABLE TBPMO_CONTROL_LANGUAGE
CREATE TABLE TBPMO_CONTROL_LANGUAGE
(
GUID INT IDENTITY(1,1), -- Eindeutiger Tabellenschlüssel,
LANGUAGE_TYPE VARCHAR(5) NOT NULL,
CONTROL_SCREEN_ID INTEGER NOT NULL,
CAPTION VARCHAR(100) NOT NULL,
HINT VARCHAR(500),
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data' NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_CONTROL_LANGUAGE PRIMARY KEY(GUID),
CONSTRAINT FK_TBPMO_CONTROL_LANGUAGE_CTRLSCR_ID FOREIGN KEY(CONTROL_SCREEN_ID) REFERENCES TBPMO_CONTROL_SCREEN(GUID)
)
GO
------------------------------------------------------------------------------
CREATE TRIGGER TBPMO_CONTROL_LANGUAGE_AFT_UPD ON TBPMO_CONTROL_LANGUAGE
FOR UPDATE
AS
BEGIN
UPDATE TBPMO_CONTROL_LANGUAGE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_LANGUAGE.GUID = INSERTED.GUID
END
GO
CREATE TABLE TBPMO_LANGUAGE_OBJECT
(
GUID INT IDENTITY(1,1), -- Eindeutiger Tabellenschlüssel,
LANGUAGE_TYPE VARCHAR(5) NOT NULL,
SCREEN_ID INTEGER NOT NULL,
PMO_OBJECT_NAME VARCHAR(100) NOT NULL,
CAPTION VARCHAR(100) NOT NULL,
HINT VARCHAR(500),
ADDED_WHO VARCHAR(50) DEFAULT 'Digital Data' NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_LANGUAGE_OBJECT PRIMARY KEY(GUID),
CONSTRAINT FK_TBPMO_LANGUAGE_OBJECT_SCREEN_ID FOREIGN KEY(SCREEN_ID) REFERENCES TBPMO_SCREEN(GUID)
)
GO
------------------------------------------------------------------------------
CREATE TRIGGER TBPMO_LANGUAGE_OBJECT_AFT_UPD ON TBPMO_LANGUAGE_OBJECT
FOR UPDATE
AS
BEGIN
UPDATE TBPMO_LANGUAGE_OBJECT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_LANGUAGE_OBJECT.GUID = INSERTED.GUID
END
GO
CREATE 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
RETURN(ISNULL(@PMOOBJ_CAPTION,''))
END
GO
ALTER TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_AFT_UPD] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
FOR UPDATE
AS
BEGIN
DECLARE @FORM_TITLE VARCHAR(50),
@LANGUAGE VARCHAR(5), @CHANGED_WHO VARCHAR(50),
@GUID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@FORM_TITLE = FORM_TITLE,
@LANGUAGE = [LANGUAGE],
@CHANGED_WHO = CHANGED_WHO
FROM INSERTED
SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
UPDATE TBPMO_FORM_CONSTRUCTOR SET CHANGED_WHEN = GETDATE()
FROM INSERTED WHERE TBPMO_FORM_CONSTRUCTOR.GUID = INSERTED.GUID
If exists(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
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 = 1
ELSE
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,1,@PMO_OBJECT_NAME,@FORM_TITLE)
END
GO

View File

@@ -0,0 +1,250 @@
ALTER TABLE TBPMO_FORM_VIEW
ADD LANGUAGE VARCHAR(5) NOT NULL DEFAULT 'de-DE'
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)
SELECT
@GUID = GUID,
@FORM_TITLE = FORM_TITLE,
@LANGUAGE = [LANGUAGE],
@SCREEN_ID = SCREEN_ID,
@CHANGED_WHO = CHANGED_WHO
FROM INSERTED
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 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 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 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,
@LANGUAGE = [LANGUAGE],
@SCREEN_ID = SCREEN_ID,
@ADDED_WHO = CHANGED_WHO
FROM INSERTED
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
(@LANGUAGE,@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
CREATE TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_AFT_INS] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@FORM_TITLE VARCHAR(50),
@LANGUAGE VARCHAR(5),
@ADDED_WHO VARCHAR(50),
@GUID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@FORM_TITLE = FORM_TITLE,
@LANGUAGE = [LANGUAGE],
@ADDED_WHO = CHANGED_WHO
FROM INSERTED
SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
(@LANGUAGE,1,@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
ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
SELECT TOP 100 PERCENT
T2.GUID,
T1.GUID FORM_VIEW_ID,
T1.SCREEN_ID,
T2.CONSTRUCT_ID,
T.PARENT_ID,
T2.SEQUENCE,
T2.LEVEL1_SELECT,
T.GUID AS FORM_ID,
T1.FORM_TITLE,
T2.SQL_SELECT_EBENE1,
T2.SQL_SELECT_EBENE2,
T2.SQL_QUICK_VIEW,
T2.COLUMN_NAME1,
T2.COLUMN_NAME2,
T.FORM_TYPE_ID,
T2.LOAD_DIRECT
FROM
tbpmo_form T,
TBPMO_FORM_VIEW T1,
TBPMO_FORM_CONSTRUCTOR_DETAIL T2
where
T2.FORM_ID = T.GUID AND
T.GUID = T1.FORM_ID
ORDER BY
T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
GO
DECLARE @ID INTEGER,
@SCREEN_ID INT,
@FORM_TITLE VARCHAR(100),
@LANGUAGE VARCHAR(5),
@PMO_OBJECT_NAME VARCHAR(100)
DECLARE c_FORM_VIEW CURSOR FOR
SELECT GUID ,SCREEN_ID, FORM_TITLE, LANGUAGE FROM TBPMO_FORM_VIEW
BEGIN
OPEN c_FORM_VIEW
FETCH NEXT FROM c_FORM_VIEW INTO @ID, @SCREEN_ID,@FORM_TITLE,@LANGUAGE
WHILE @@FETCH_STATUS = 0
BEGIN
SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@ID)
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID)
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE)
FETCH NEXT FROM c_FORM_VIEW INTO @ID, @SCREEN_ID,@FORM_TITLE,@LANGUAGE
END
CLOSE c_FORM_VIEW
DEALLOCATE c_FORM_VIEW
END
GO
--############## DOKUMENTART #####################
ALTER TABLE TBDD_DOKUMENTART
ADD LANGUAGE VARCHAR(5) NOT NULL DEFAULT 'de-DE'
GO
ALTER TRIGGER [dbo].[TBDD_DOKUMENTART_AFT_UPD] ON [dbo].[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,
@LANGUAGE = [LANGUAGE],
@SCREEN_ID = 1,
@CHANGED_WHO = GEANDERTWER
FROM INSERTED
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 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 TRY
BEGIN CATCH
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
CREATE TRIGGER [dbo].[TBDD_DOKUMENTART_AFT_INS] ON [dbo].[TBDD_DOKUMENTART]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@DA_TITLE VARCHAR(50),
@LANGUAGE VARCHAR(5),
@ADDED_WHO VARCHAR(50),
@GUID INTEGER,
@SCREEN_ID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@DA_TITLE = BEZEICHNUNG,
@LANGUAGE = [LANGUAGE],
@SCREEN_ID = 1,
@ADDED_WHO = ERSTELLTWER
FROM INSERTED
SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@GUID)
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@DA_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

View File

@@ -0,0 +1,572 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.6.1' where NAME = 'Record-Organizer'
GO
ALTER TABLE TBPMO_FORM
ADD REDUNDANT_ENTITY INTEGER NOT NULL DEFAULT 0
GO
ALTER TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
ADD EDITABLE BIT NOT NULL DEFAULT 0
GO
ALTER PROCEDURE PRPMO_COPY_ENTITY (@pFORM_ID INT, @pADDEDWHO VARCHAR(50))
AS
DECLARE
@NEW_FORM_ID INT,
@PARENT_ID INT,
@NAME VARCHAR(100),
@LEVEL VARCHAR(10),
@SHOW_FORM_CONSTR BIT,
@FORM_TYPE_ID INT,
@CONTROL_GUID INTEGER,
@CONTROL_TYPE_ID INT,
@CONTROL_NAME VARCHAR(100)
,@COL_NAME VARCHAR(100)
,@REQUIRED BIT
,@DEFAULT_VALUE VARCHAR(100)
,@SQL_COMMAND_1 VARCHAR(2000)
,@SQL_COMMAND_2 VARCHAR(2000)
,@CONNECTION_ID_1 SMALLINT
,@CONNECTION_ID_2 SMALLINT
,@READ_ONLY BIT
,@VALIDATION BIT
,@MULTILINE BIT
,@PARENT_CONTROL_ID INT
,@MASTER_DATA_ID INT
,@FORMAT_TYPE VARCHAR(50)
,@SHOW_COLUMN BIT
,@STATIC_LIST VARCHAR(2000)
SELECT @PARENT_ID = PARENT_ID, @NAME = 'COPY_' + NAME,@LEVEL = [LEVEL],@SHOW_FORM_CONSTR = SHOW_FORM_CONSTRUCT, @FORM_TYPE_ID = FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = @pFORM_ID
INSERT INTO TBPMO_FORM (
PARENT_ID,NAME,LEVEL,ADDED_WHO,SHOW_FORM_CONSTRUCT,FORM_TYPE_ID) VALUES (
@PARENT_ID,@NAME,@LEVEL,@pADDEDWHO,@SHOW_FORM_CONSTR,@FORM_TYPE_ID)
SELECT @NEW_FORM_ID = MAX(GUID) FROM TBPMO_FORM
INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO) VALUES
(@NEW_FORM_ID, 1, 'UNDEFINED_FORMTITLE', '', @pADDEDWHO)
DECLARE c_CONTROL CURSOR FOR SELECT GUID,[CONTROL_TYPE_ID]
,'COPY_' + [NAME]
,[COL_NAME]
,[REQUIRED]
,[DEFAULT_VALUE]
,[SQL_COMMAND_1]
,[SQL_COMMAND_2]
,[CONNECTION_ID_1]
,[CONNECTION_ID_2]
,[READ_ONLY]
,[VALIDATION]
,[MULTILINE]
,[PARENT_CONTROL_ID]
,[MASTER_DATA_ID]
,[FORMAT_TYPE]
,[SHOW_COLUMN],STATIC_LIST FROM TBPMO_CONTROL WHERE FORM_ID = @pFORM_ID ORDER BY PARENT_CONTROL_ID
BEGIN
OPEN c_CONTROL
FETCH NEXT FROM c_CONTROL INTO @CONTROL_GUID,@CONTROL_TYPE_ID,
@CONTROL_NAME
,@COL_NAME
,@REQUIRED
,@DEFAULT_VALUE
,@SQL_COMMAND_1
,@SQL_COMMAND_2
,@CONNECTION_ID_1
,@CONNECTION_ID_2
,@READ_ONLY
,@VALIDATION
,@MULTILINE
,@PARENT_CONTROL_ID
,@MASTER_DATA_ID
,@FORMAT_TYPE
,@SHOW_COLUMN
,@STATIC_LIST
WHILE @@FETCH_STATUS = 0
BEGIN
IF @PARENT_CONTROL_ID > 0
BEGIN
DECLARE @CTRLNAME VARCHAR(100)
SELECT @CTRLNAME = 'COPY_' + [NAME] FROM TBPMO_CONTROL WHERE GUID = @PARENT_CONTROL_ID
PRINT 'PCTRID = ' + CONVERT(VARCHAR(10),@PARENT_CONTROL_ID)
PRINT '@CTRLNAME = ' + @CTRLNAME
SELECT @PARENT_CONTROL_ID = GUID FROM TBPMO_CONTROL WHERE NAME = @CTRLNAME AND FORM_ID = @NEW_FORM_ID
PRINT 'NEW PCTRID = ' + CONVERT(VARCHAR(10),@PARENT_CONTROL_ID)
END
INSERT INTO TBPMO_CONTROL (
FORM_ID
,[CONTROL_TYPE_ID]
,[NAME]
,[COL_NAME]
,[REQUIRED]
,[DEFAULT_VALUE]
,[SQL_COMMAND_1]
,[SQL_COMMAND_2]
,[CONNECTION_ID_1]
,[CONNECTION_ID_2]
,[READ_ONLY]
,[VALIDATION]
,[MULTILINE]
,[PARENT_CONTROL_ID]
,[MASTER_DATA_ID]
,[FORMAT_TYPE]
,[SHOW_COLUMN]
,[STATIC_LIST]
,ADDED_WHO
) VALUES (
@NEW_FORM_ID
,@CONTROL_TYPE_ID
,@CONTROL_NAME
,@COL_NAME
,@REQUIRED
,@DEFAULT_VALUE
,@SQL_COMMAND_1
,@SQL_COMMAND_2
,@CONNECTION_ID_1
,@CONNECTION_ID_2
,@READ_ONLY
,@VALIDATION
,@MULTILINE
,@PARENT_CONTROL_ID
,@MASTER_DATA_ID
,@FORMAT_TYPE
,@SHOW_COLUMN
,@STATIC_LIST
,@pADDEDWHO
)
DECLARE @NEW_CONTROLID INTEGER
SELECT @NEW_CONTROLID = MAX(GUID) FROM TBPMO_CONTROL
DECLARE
@SCREEN_ID INTEGER
,@CONTROL_TEXT VARCHAR(100)
,@X_LOC FLOAT
,@Y_LOC FLOAT
,@HEIGHT INTEGER
,@WIDTH INTEGER
,@FONT_FAMILY VARCHAR(50)
,@FONT_COLOR INTEGER
,@FONT_SIZE INTEGER
,@FONT_STYLE INTEGER
,@TAB_INDEX INTEGER
,@TAB_STOP BIT
,@BACK_COLOR INTEGER
SELECT @SCREEN_ID = [SCREEN_ID], @CONTROL_TEXT = [CONTROL_TEXT],@X_LOC = [X_LOC],
@Y_LOC = [Y_LOC],@HEIGHT = [HEIGHT], @WIDTH = [WIDTH],@FONT_FAMILY = [FONT_FAMILY],
@FONT_COLOR = [FONT_COLOR], @FONT_SIZE = [FONT_SIZE],@FONT_STYLE = [FONT_STYLE],
@TAB_INDEX = [TAB_INDEX], @TAB_STOP = [TAB_STOP], @BACK_COLOR = [BACK_COLOR] FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @CONTROL_GUID
INSERT INTO TBPMO_CONTROL_SCREEN (
CONTROL_ID,
SCREEN_ID
,CONTROL_TEXT
,X_LOC
,Y_LOC
,HEIGHT
,WIDTH
,FONT_FAMILY
,FONT_COLOR
,FONT_SIZE
,FONT_STYLE
,TAB_INDEX
,TAB_STOP
,BACK_COLOR
,ADDED_WHO)
VALUES(
@NEW_CONTROLID
,@SCREEN_ID
,@CONTROL_TEXT
,@X_LOC
,@Y_LOC
,@HEIGHT
,@WIDTH
,@FONT_FAMILY
,@FONT_COLOR
,@FONT_SIZE
,@FONT_STYLE
,@TAB_INDEX
,@TAB_STOP
,@BACK_COLOR
,@pADDEDWHO
)
DECLARE @NEW_ID INT
SELECT @NEW_ID = MAX(GUID) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_TEXT = @CONTROL_TEXT
INSERT INTO TBPMO_CONTROL_LANGUAGE ([LANGUAGE_TYPE] ,[CONTROL_SCREEN_ID],[CAPTION],[ADDED_WHO]) VALUES (
'de-DE',@NEW_ID,@CONTROL_TEXT,@pADDEDWHO)
INSERT INTO TBPMO_CONTROL_LANGUAGE ([LANGUAGE_TYPE] ,[CONTROL_SCREEN_ID],[CAPTION],[ADDED_WHO]) VALUES (
'en-EN',@NEW_ID,@CONTROL_TEXT,@pADDEDWHO)
FETCH NEXT FROM c_CONTROL INTO @CONTROL_GUID,@CONTROL_TYPE_ID,
@CONTROL_NAME
,@COL_NAME
,@REQUIRED
,@DEFAULT_VALUE
,@SQL_COMMAND_1
,@SQL_COMMAND_2
,@CONNECTION_ID_1
,@CONNECTION_ID_2
,@READ_ONLY
,@VALIDATION
,@MULTILINE
,@PARENT_CONTROL_ID
,@MASTER_DATA_ID
,@FORMAT_TYPE
,@SHOW_COLUMN
,@STATIC_LIST
END
CLOSE c_CONTROL
DEALLOCATE c_CONTROL
END
ALTER FUNCTION [dbo].[FNPMO_DOC_GET_IDX](@pDOCID INTEGER, @pENTITY INTEGER, @DOCIDX VARCHAR(20))
RETURNS VARCHAR(250)
AS
BEGIN
DECLARE @HEADER_CAPTION VARCHAR(30), @VALUE VARCHAR(250), @RESULT VARCHAR(250), @REDUNDANT_ID INTEGER
SELECT @HEADER_CAPTION = HEADER_CAPTION FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @pENTITY AND COLUMN_VIEW = @DOCIDX
IF @HEADER_CAPTION IS NULL
BEGIN
SELECT @REDUNDANT_ID = REDUNDANT_ENTITY FROM TBPMO_FORM WHERE GUID = @pENTITY
IF @REDUNDANT_ID <> 0
SELECT @RESULT = dbo.FNPMO_DOC_GET_IDX(@pDOCID,@REDUNDANT_ID,@DOCIDX)
ELSE
SET @RESULT = 'NO CONFIGURATION'
END
ELSE
BEGIN
SELECT @VALUE = VALUE FROM VWPMO_DOC_INDICES WHERE DocID = @pDOCID AND COLUMN_CAPTION = @HEADER_CAPTION
IF @VALUE IS NOT NULL
SET @RESULT = @VALUE
ELSE
SET @RESULT = ''
END
RETURN @RESULT
END
GO
ALTER TRIGGER [dbo].[TBPMO_DOC_RECORD_LINK_AFT_INS] ON [dbo].[TBPMO_DOC_RECORD_LINK]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@RECORD_ID INTEGER,
@DOC_ID INTEGER,
@ADDED_WHO VARCHAR(50),
@ENTITY_ID INTEGER
SELECT
@RECORD_ID = RECORD_ID,
@DOC_ID = DOC_ID,
@ADDED_WHO = ADDED_WHO
FROM INSERTED
SELECT @ENTITY_ID = FORM_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID
--Den Defaultvalue der DropdownListe eintragen
IF (SELECT COUNT(GUID) FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND TYPE_ID = 4) >= 1
BEGIN
INSERT INTO TBPMO_DOC_VALUES (DocID,CONFIG_ID,VALUE,ADDED_WHO)
SELECT @DOC_ID,T.GUID,T1.VALUE,@ADDED_WHO FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG T, TBPMO_DOCRESULT_DROPDOWN_ITEMS T1 WHERE T.GUID = T1.CONFIG_ID AND T1.[DEFAULT] = 1 AND T.ENTITY_ID = @ENTITY_ID AND T.TYPE_ID = 4
END
/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
--DECLARE
-- @NODE_CONFIG_ID INTEGER,
-- @MATERIAL VARCHAR(50)
--IF @ADDED_WHO <> 'ZSG-IMPORT'
-- BEGIN
-- SELECT @NODE_CONFIG_ID = NODE_CONFIG_ID FROM TBPMO_STRUCTURE_NODES WHERE GUID = (SELECT NODE_GUID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID )
-- IF @NODE_CONFIG_ID IN (7,8,14)
-- IF EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = 14 AND RECORD_ID = @RECORD_ID)
-- BEGIN
-- DECLARE @RECID_LINK INTEGER
-- SELECT @MATERIAL = UPPER(LTRIM(RTRIM(VALUE))) FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = 14 AND RECORD_ID = @RECORD_ID
-- DECLARE curs_RECORD CURSOR LOCAL FOR
-- SELECT RECORD_ID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = 14 AND UPPER(LTRIM(RTRIM(VALUE))) = @MATERIAL AND RECORD_ID <> @RECORD_ID
-- OPEN curs_RECORD
-- FETCH NEXT FROM curs_RECORD INTO @RECID_LINK
-- WHILE @@FETCH_STATUS = 0
-- BEGIN
-- IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @DOC_ID AND RECORD_ID = @RECID_LINK)
-- INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT, ADDED_WHO) VALUES
-- (@RECID_LINK,@DOC_ID,'MATERIAL INSERT',@ADDED_WHO)
-- FETCH NEXT FROM curs_RECORD INTO @RECID_LINK
-- END
-- CLOSE curs_RECORD
-- DEALLOCATE curs_RECORD
-- END
-- END
/*###### KUNDEN-INDIVIDUELL - ENDE ####################################################################*/
END TRY
BEGIN CATCH
PRINT 'ERROR IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
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 CONSTRUCT_ID = 2 AND 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')
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 TBPMO_RIGHT_USER
(
GUID INTEGER NOT NULL IDENTITY(1,1),
USER_ID INTEGER NOT NULL,
ENTITY_ID INTEGER 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
CREATE 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
ALTER TABLE TBPMO_KONFIGURATION
ADD WIKI_STRING VARCHAR(500) NOT NULL DEFAULT ''
GO
ALTER PROCEDURE [dbo].[PRPMO_DELETE_RESULTFILE](@pDOCID INT, @pRECORDID INT, @DELETE_FILE INT)
AS
BEGIN TRY
DECLARE @COUNT INT
SELECT @COUNT = COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = @pDOCID
IF @COUNT = 1 OR (@DELETE_FILE = 1 AND @COUNT > 1)
BEGIN
DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
END
ELSE IF @COUNT > 1 and @DELETE_FILE = 0
BEGIN
DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID AND RECORD_ID = @pRECORDID
END
ELSE IF @DELETE_FILE = 1
BEGIN
DELETE FROM TBPMO_DOC_INDICES WHERE DocID = @pDOCID
DELETE FROM TBPMO_DOC_RECORD_LINK WHERE Doc_ID = @pDOCID
DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = @pDOCID
END
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
CREATE TRIGGER TBPMO_DOCSEARCH_RESULTLIST_CONFIG_AFT_DEL ON TBPMO_DOCSEARCH_RESULTLIST_CONFIG
FOR DELETE
AS
BEGIN TRY
DECLARE
@CONFIG_ID INTEGER,
@LANGUAGE VARCHAR(5)
SELECT
@CONFIG_ID = deleted.GUID,
@LANGUAGE = deleted.LANGUAGE
FROM deleted
DELETE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = @CONFIG_ID
END TRY
BEGIN CATCH
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
DROP TABLE TBPMO_DOCRESULT_DROPDOWN_ITEMS
CREATE TABLE TBPMO_DOCRESULT_DROPDOWN_ITEMS
(
GUID INTEGER NOT NULL IDENTITY(1,1)
,CONFIG_ID INTEGER NOT NULL
,VALUE VARCHAR(100) NOT NULL
,SEQUENCE TINYINT NOT NULL DEFAULT 0
,[DEFAULT] BIT NOT NULL DEFAULT 0
,COLOR VARCHAR(50) NOT NULL DEFAULT ''
,ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT'
,ADDED_WHEN DATETIME DEFAULT GETDATE()
,CHANGED_WHO VARCHAR(50)
,CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_DOCRESULT_DROPDOWN_ITEMS PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID FOREIGN KEY (CONFIG_ID) REFERENCES TBPMO_DOCSEARCH_RESULTLIST_CONFIG (GUID),
CONSTRAINT UQ_TBPMO_DOCRESULT_DROPDOWN_ITEMS UNIQUE (CONFIG_ID,VALUE),
CONSTRAINT UQ2_TBPMO_DOCRESULT_DROPDOWN_ITEMS UNIQUE (CONFIG_ID,[DEFAULT]),
)
GO
CREATE TRIGGER TBPMO_DOCRESULT_DROPDOWN_ITEMS_AFT_UPD ON TBPMO_DOCRESULT_DROPDOWN_ITEMS
FOR UPDATE
AS
UPDATE TBPMO_DOCRESULT_DROPDOWN_ITEMS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCRESULT_DROPDOWN_ITEMS.GUID = INSERTED.GUID
GO
ALTER FUNCTION [dbo].[FNPMO_DOC_GET_DROPDOWN](@pDOCID INTEGER, @pENTITY INTEGER, @DOC_DD VARCHAR(20), @LANGUAGE VARCHAR(5))
RETURNS VARCHAR(250)
AS
BEGIN
DECLARE @HEADER_CAPTION VARCHAR(30),
@CONFIG_ID INTEGER, @VALUE VARCHAR(250), @RESULT VARCHAR(250)
SELECT
@HEADER_CAPTION = HEADER_CAPTION,
@CONFIG_ID = GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE
ENTITY_ID = @pENTITY AND COLUMN_VIEW = @DOC_DD AND LANGUAGE = @LANGUAGE
IF @HEADER_CAPTION IS NULL
SET @RESULT = 'NO DROP-DOWN CONFIGURATION'
ELSE
BEGIN
SELECT @VALUE = VALUE FROM TBPMO_DOC_VALUES WHERE DocID = @pDOCID AND CONFIG_ID = @CONFIG_ID
IF @VALUE IS NOT NULL
SET @RESULT = @VALUE
ELSE
SET @RESULT = ''
END
RETURN @RESULT
END
GO
CREATE TABLE TBPMO_CONTROL_ENTITY_LINK
(
GUID INTEGER NOT NULL IDENTITY(1,1),
ORIGIN_CTRL_ID INTEGER NOT NULL,
LINKED_CTRL_ID INTEGER NOT NULL,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_CONTROL_ENTITY_LINK PRIMARY KEY (GUID),
CONSTRAINT UNIQUE_ORIGIN_CTRL_ID_LINKED_CONTROL_ID UNIQUE(ORIGIN_CTRL_ID,LINKED_CTRL_ID),
CONSTRAINT FK_TBPMO_CONTROL_ENTITY_LINK_ORIGIN_CTRL_ID FOREIGN KEY (ORIGIN_CTRL_ID) REFERENCES TBPMO_CONTROL (GUID),
CONSTRAINT FK_TBPMO_CONTROL_ENTITY_LINKED_CONTROL_ID FOREIGN KEY (LINKED_CTRL_ID) REFERENCES TBPMO_CONTROL (GUID),
)
GO
CREATE TRIGGER TBPMO_CONTROL_ENTITY_LINK_AFT_UPD ON TBPMO_CONTROL_ENTITY_LINK
FOR UPDATE
AS
UPDATE TBPMO_CONTROL_ENTITY_LINK SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_ENTITY_LINK.GUID = INSERTED.GUID
GO
CREATE TABLE TBPMO_CHART_ENTITY
(
GUID INTEGER NOT NULL IDENTITY(1,1),
ENTITY_ID INTEGER NOT NULL,
GROUP_ID VARCHAR(50) NOT NULL DEFAULT '',
SQL_COMMAND VARCHAR(MAX) NOT NULL,
TYPE_CHART VARCHAR(30) NOT NULL,
ARGUMENT VARCHAR(30) NOT NULL,
VALUE VARCHAR(30) NOT NULL,
TITLE VARCHAR(30) NOT NULL DEFAULT '',
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_CHART_ENTITY PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_CHART_ENTITY_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID),
)
GO
CREATE TRIGGER TBPMO_CHART_ENTITY_AFT_UPD ON TBPMO_CHART_ENTITY
FOR UPDATE
AS
UPDATE TBPMO_CHART_ENTITY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CHART_ENTITY.GUID = INSERTED.GUID
GO
ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS
SELECT TOP 100 PERCENT
W_T.GUID AS WF_TASK_ID
,R.GUID AS WF_ID
,W_T.RECORD_ID
,T.STATE_ID
,T4.GUID FORM_VIEW_ID
,R.DESCRIPTION
,R.MANUALLY
,R.CREATE_ON_REC_CREATE
,R.CREATE_ON_FOLL_UP
,W_T.COMMENT
,W_T.DUE_DATE
,W_T.ADDED_WHEN
,W_T.CHANGED_WHO
,W_T.CHANGED_WHEN
,W_T.TASK_DATE
,T.FINAL
,T.ENTITY_ID
,T5.COLOR
,dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(W_T.RECORD_ID) AS RECORD_DESCRIPTION
,FINISHED
FROM
TBPMO_WORKFLOW_ENTITY_STATE T,
TBPMO_WORKFLOW_TASK W_T
,TBPMO_WORKFLOW R
,TBPMO_FORM T3
,TBPMO_FORM_VIEW T4
,TBPMO_WORKFLOW_TASK_STATE T5
,TBPMO_RECORD REC
WHERE
--W_T.RECORD_ID = 95 AND
--TBPMO_WORKFLOW_ENTITY_STATE
T.WF_ID = R.GUID AND
T.ENTITY_ID = T3.GUID AND
T.STATE_ID = T5.GUID AND
W_T.RECORD_ID = REC.GUID AND
T.ENTITY_ID = REC.FORM_ID AND
W_T.WF_ID = R.GUID AND
R.GUID = R.GUID AND
T3.GUID = T4.FORM_ID AND
W_T.STATE_ID = T5.GUID AND
T4.SCREEN_ID = 1 AND
((T.FINAL = 1 AND W_T.DUE_DATE IS NULL) OR T.FINAL = 0) AND
W_T.ACTIVE = 1
ORDER BY W_T.RECORD_ID,W_T.GUID
GO

View File

@@ -0,0 +1,57 @@
DECLARE @ID INTEGER,
@SCREEN_ID INT,
@DT_TITLE VARCHAR(100),
@LANGUAGE VARCHAR(5),
@PMO_OBJECT_NAME VARCHAR(100)
DECLARE c_DOKART CURSOR FOR
SELECT GUID,BEZEICHNUNG, 'de-DE' FROM TBDD_DOKUMENTART
BEGIN
OPEN c_DOKART
FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
WHILE @@FETCH_STATUS = 0
BEGIN
SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@ID)
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,1,@PMO_OBJECT_NAME,@DT_TITLE)
FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
END
CLOSE c_DOKART
DEALLOCATE c_DOKART
END
GO
DECLARE @ID INTEGER,
@SCREEN_ID INT,
@DT_TITLE VARCHAR(100),
@LANGUAGE VARCHAR(5),
@PMO_OBJECT_NAME VARCHAR(100)
DECLARE c_DOKART CURSOR FOR
SELECT GUID,BEZEICHNUNG, 'en-US' FROM TBDD_DOKUMENTART
BEGIN
OPEN c_DOKART
FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
WHILE @@FETCH_STATUS = 0
BEGIN
SET @PMO_OBJECT_NAME = 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5),@ID)
SET @DT_TITLE = 'Object ' +@PMO_OBJECT_NAME + ' not translated'
IF NOT EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,1,@PMO_OBJECT_NAME,@DT_TITLE)
FETCH NEXT FROM c_DOKART INTO @ID, @DT_TITLE,@LANGUAGE
END
CLOSE c_DOKART
DEALLOCATE c_DOKART
END

View File

@@ -0,0 +1,44 @@
DECLARE @SCREEN_ID INT,
@FORM_VIEW_ID INTEGER,
@FORM_TITLE VARCHAR(100),
@LANGUAGE VARCHAR(5),
@PMO_OBJECT_NAME VARCHAR(100),
@CAPTION_TEMP VARCHAR(100)
DECLARE c_FORM_VIEW CURSOR FOR
SELECT GUID,SCREEN_ID,'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,'en-US'
from TBPMO_FORM_VIEW --WHERE GUID
--[dbo].[FNPMO_GETOBJECTCAPTION]('en-US','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), SCREEN_ID) = 'CAPTION (OBJ) NOT TRANSLATED'
BEGIN
OPEN c_FORM_VIEW
FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
WHILE @@FETCH_STATUS = 0
BEGIN
IF EXISTS(SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE)
BEGIN
--SELECT @CAPTION_TEMP = 'Not translated ' + FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
PRINT 'UPDATE: ' + @CAPTION_TEMP
--UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @CAPTION_TEMP WHERE GUID = (
--SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
--LANGUAGE_TYPE = 'de-DE'
--)
END
ELSE
BEGIN
SELECT @CAPTION_TEMP = 'Not translated ' + FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
PRINT 'INSERT: ' + @CAPTION_TEMP + '#' + CONVERT(VARCHAR(5),@FORM_VIEW_ID)
INSERT INTO TBPMO_LANGUAGE_OBJECT
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION_TEMP)
END
FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
END
CLOSE c_FORM_VIEW
DEALLOCATE c_FORM_VIEW
END

View File

@@ -0,0 +1,48 @@
DECLARE @GUID INTEGER,
@SCREEN_ID INT,
@FORM_VIEW_ID INTEGER,
@FORM_TITLE VARCHAR(100),
@LANGUAGE VARCHAR(5),
@PMO_OBJECT_NAME VARCHAR(100),
@CAPTION_TEMP VARCHAR(100)
DECLARE c_FORM_VIEW CURSOR FOR
SELECT GUID,SCREEN_ID,'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,'de-DE'
from TBPMO_FORM_VIEW --WHERE GUID --WHERE GUID = 3
--[dbo].[FNPMO_GETOBJECTCAPTION]('en-US','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), SCREEN_ID) = 'CAPTION (OBJ) NOT TRANSLATED'
BEGIN
OPEN c_FORM_VIEW
FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @CAPTION VARCHAR(50)
IF EXISTS(SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE)
BEGIN
--SELECT @CAPTION = CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
--LANGUAGE_TYPE = @LANGUAGE
--PRINT 'SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = ' + @PMO_OBJECT_NAME + ' AND LANGUAGE_TYPE = ' + @LANGUAGE
--SELECT @CAPTION_TEMP = 'Not translated ' + FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
PRINT 'UPDATE: ' + @CAPTION_TEMP
--UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @CAPTION_TEMP WHERE GUID = (
--SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
--LANGUAGE_TYPE = 'de-DE'
--)
END
ELSE
BEGIN
SELECT @CAPTION_TEMP = FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = @FORM_VIEW_ID
PRINT 'INSERT: ' + @CAPTION_TEMP + '#' + CONVERT(VARCHAR(5),@FORM_VIEW_ID)
INSERT INTO TBPMO_LANGUAGE_OBJECT
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION_TEMP)
END
FETCH NEXT FROM c_FORM_VIEW INTO @FORM_VIEW_ID,@SCREEN_ID,@PMO_OBJECT_NAME,@LANGUAGE
END
CLOSE c_FORM_VIEW
DEALLOCATE c_FORM_VIEW
END

View File

@@ -0,0 +1,13 @@
/*#################### Update 2.4.4.2 #########################*/
CREATE TABLE TBPMO_CONSTRUCTOR_USER
(
GUID INTEGER NOT NULL IDENTITY(1,1),
CONSTRUCT_ID INTEGER NOT NULL,
[USER_ID] INTEGER NOT NULL,
ADDED_WHEN DATETIME NOT NULL DEFAULT GETDATE(),
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
CONSTRAINT PK_TBPMO_CONSTRUCTOR_USER PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_CONSTRUCTOR_USER_CID FOREIGN KEY (CONSTRUCT_ID) REFERENCES TBPMO_FORM_CONSTRUCTOR (GUID),
CONSTRAINT FK_TTBPMO_CONSTRUCTOR_USER_UID FOREIGN KEY (USER_ID) REFERENCES TBDD_USER (GUID)
)
GO

View File

@@ -0,0 +1,30 @@
CREATE PROCEDURE [dbo].[PRPMO_DELETE_CONTROL](@pCONTROL_ID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = @pCONTROL_ID
DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @pCONTROL_ID)
DELETE FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @pCONTROL_ID
DELETE FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = @pCONTROL_ID
DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = @pCONTROL_ID
DELETE FROM TBPMO_CONTROL WHERE GUID = @pCONTROL_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_RECORD_CREATE_WORKFLOWTASKS](@RECORD_ID INTEGER)
AS
BEGIN TRY
DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @RECORD_ID
INSERT INTO TBPMO_WORKFLOW_TASK (RECORD_ID,WF_ID,STATE_ID,ACTIVE)
SELECT @RECORD_ID, T.WF_ID,1,1 FROM TBPMO_WORKFLOW_FORM T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = @RECORD_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

View File

@@ -0,0 +1,588 @@
ALTER TABLE TBDD_MODULES
ADD PRODUCT_VERSION VARCHAR(10) NOT NULL DEFAULT '1.0.0.0'
GO
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.4' where NAME = 'Record-Organizer'
GO
ALTER VIEW [dbo].[VWPMO_GUI_ENTITY] AS
SELECT TOP 100 PERCENT
TBPMO_FORM.GUID AS ID,
TBPMO_FORM.PARENT_ID,
TBPMO_FORM.LEVEL,
TBPMO_FORM.FORM_TYPE_ID,
TBPMO_FORM.NAME AS Name,
TBPMO_FORM_VIEW.GUID As FormViewID,
TBPMO_FORM_VIEW.FORM_TITLE AS Title
FROM
TBPMO_FORM INNER JOIN
TBPMO_FORM_VIEW ON TBPMO_FORM.GUID = TBPMO_FORM_VIEW.FORM_ID
WHERE
(TBPMO_FORM.FORM_TYPE_ID IN (1, 2, 3, 5))
ORDER BY
TBPMO_FORM.PARENT_ID, Title
GO
CREATE TABLE TBPMO_WORKFLOW_ENTITY_STATE
(
GUID INTEGER NOT NULL IDENTITY(1,1),
WF_ID INTEGER NOT NULL,
ENTITY_ID INTEGER NOT NULL,
STATE_ID INTEGER NOT NULL,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CONSTRAINT PK_TBPMO_WORKFLOW_ENTITY_STATE PRIMARY KEY (GUID),
CONSTRAINT UNIQUE_ENTITY_ID_STATE_ID UNIQUE(WF_ID,ENTITY_ID,STATE_ID),
CONSTRAINT FK_TBPMO_WORKFLOW_ENTITY_STATE_WF_ID FOREIGN KEY (WF_ID) REFERENCES TBPMO_WORKFLOW (GUID),
CONSTRAINT FK_TBPMO_WORKFLOW_ENTITY_STATE_STATE_ID FOREIGN KEY (STATE_ID) REFERENCES TBPMO_WORKFLOW_TASK_STATE (GUID),
CONSTRAINT FK_TBPMO_WORKFLOW_ENTITY_STATE_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID)
)
GO
CREATE TRIGGER TBPMO_WORKFLOW_TASK_STATE_DELETE
ON TBPMO_WORKFLOW_TASK_STATE
FOR DELETE
AS
DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = (
SELECT GUID FROM DELETED)
GO
CREATE TABLE TBPMO_WORKFLOW_TASK
(
GUID INTEGER NOT NULL IDENTITY(1,1),
RECORD_ID INTEGER NOT NULL,
WF_ID INTEGER NOT NULL,
COMMENT VARCHAR(500),
DUE_DATE DATE,
TASK_DATE DATE,
STATE_ID INTEGER NOT NULL DEFAULT 1,
ACTIVE BIT NOT NULL DEFAULT 0,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_WORKFLOW_TASK PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_WORKFLOW_TASK_RECORD_ID FOREIGN KEY (RECORD_ID) REFERENCES TBPMO_RECORD (GUID),
CONSTRAINT FK_TBPMO_WORKFLOW_TASK_WF_ID FOREIGN KEY (WF_ID) REFERENCES TBPMO_WORKFLOW (GUID),
CONSTRAINT FK_TBPMO_WORKFLOW_TASK_STATE_ID FOREIGN KEY (STATE_ID) REFERENCES TBPMO_WORKFLOW_ENTITY_STATE (GUID)
)
GO
CREATE TRIGGER TBPMO_WORKFLOW_TASK_AFT_UPD ON TBPMO_WORKFLOW_TASK
FOR UPDATE
AS
UPDATE TBPMO_WORKFLOW_TASK SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WORKFLOW_TASK.GUID = INSERTED.GUID
GO
--###############################################################################
CREATE TABLE TBPMO_WORKFLOW_TASK_USER
(
GUID INTEGER NOT NULL IDENTITY(1,1),
WF_TASK_ID INTEGER NOT NULL,
[USER_ID] INTEGER NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
CONSTRAINT PK_TBPMO_WF_TASK_USER PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_WF_TASK_USER_WF_TASK_ID FOREIGN KEY (WF_TASK_ID) REFERENCES TBPMO_WORKFLOW_TASK (GUID),
CONSTRAINT FK_TBPMO_WF_TASK_USER_USER_ID FOREIGN KEY (USER_ID) REFERENCES TBDD_USER (GUID)
)
GO
ALTER PROCEDURE [dbo].[PRPMO_CREATE_WF_TASKS] (@FORM_ID INTEGER, @RECORD_ID INTEGER)
AS
BEGIN
DECLARE
@WF_ID INTEGER,
@TITLE VARCHAR(50),
@SEQUENCE INTEGER,
@MELDUNG VARCHAR(250)--,
--@STATE_ID INTEGER
DECLARE c_TASK CURSOR FOR
SELECT T.WF_ID
FROM TBPMO_WORKFLOW_FORM T, TBPMO_WORKFLOW T1
WHERE T.WF_ID = T1.GUID AND
T.FORM_ID = @FORM_ID ORDER BY T.SEQUENCE
OPEN c_TASK
FETCH NEXT FROM c_TASK INTO @WF_ID
WHILE @@FETCH_STATUS = 0
BEGIN
DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID IN (SELECT GUID FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @RECORD_ID AND WF_ID = @WF_ID)
DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID IN (SELECT GUID FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = @RECORD_ID AND WF_ID = @WF_ID)
--SELECT @STATE_ID = STATE_ID FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @FORM_ID and WF_ID = @WF_ID
--IF @STATE_ID IS NOT NULL
BEGIN
--INSERT DES TASKS
INSERT INTO TBPMO_WORKFLOW_TASK(
RECORD_ID,
WF_ID,
ACTIVE,
STATE_ID)
VALUES (
@RECORD_ID,
@WF_ID,
1,
1)
END
FETCH NEXT FROM c_TASK INTO @WF_ID
END
CLOSE c_TASK
DEALLOCATE c_TASK
END
GO
ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_TASK_STATE_AFT_UPD] ON [dbo].[TBPMO_WORKFLOW_TASK_STATE]
FOR UPDATE
AS
BEGIN TRY
DECLARE
@STATE_DESC VARCHAR(50),
@LANGUAGE VARCHAR(5),
@CHANGED_WHO VARCHAR(50),
@GUID INTEGER,
@SCREEN_ID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@STATE_DESC = STATE_DESC,
@SCREEN_ID = 1,
@CHANGED_WHO = CHANGED_WHO
FROM INSERTED
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @CHANGED_WHO
SET @PMO_OBJECT_NAME = 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),@GUID)
UPDATE TBPMO_WORKFLOW_TASK_STATE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WORKFLOW_TASK_STATE.GUID = INSERTED.GUID
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 = @STATE_DESC,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,@STATE_DESC)
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 TRY
BEGIN CATCH
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
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),
@LANGUAGE VARCHAR(5),
@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
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
SET @PMO_OBJECT_NAME = 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),@GUID)
IF @LANGUAGE is not null
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
(@LANGUAGE,@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
DECLARE @GUID INTEGER,
@SCREEN_ID INT,
@FORM_VIEW_ID INTEGER,
@FORM_TITLE VARCHAR(100),
@LANGUAGE VARCHAR(5),
@PMO_OBJECT_NAME VARCHAR(100),
@CAPTION VARCHAR(100)
DECLARE c_STATE CURSOR FOR
SELECT GUID,1,'en-US','WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,STATE_DESC
from TBPMO_WORKFLOW_TASK_STATE
UNION
SELECT GUID,1,'de-DE','WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,STATE_DESC
from TBPMO_WORKFLOW_TASK_STATE ORDER BY GUID
BEGIN
OPEN c_STATE
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@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 = @LANGUAGE)
INSERT INTO TBPMO_LANGUAGE_OBJECT
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@PMO_OBJECT_NAME,@CAPTION
END
CLOSE c_STATE
DEALLOCATE c_STATE
END
GO
--'#####################################################
ALTER TRIGGER [dbo].[TBPMO_WORKFLOW_AFT_UPD] ON [dbo].[TBPMO_WORKFLOW]
FOR UPDATE
AS
BEGIN TRY
DECLARE
@TITLE VARCHAR(50),
@LANGUAGE VARCHAR(5),
@CHANGED_WHO VARCHAR(50),
@GUID INTEGER,
@SCREEN_ID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@TITLE = TITLE,
@SCREEN_ID = 1,
@CHANGED_WHO = CHANGED_WHO
FROM INSERTED
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE USERNAME = @CHANGED_WHO
SET @PMO_OBJECT_NAME = 'TASK_TITLE' + CONVERT(VARCHAR(5),@GUID)
UPDATE TBPMO_WORKFLOW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WORKFLOW.GUID = INSERTED.GUID
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 = @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,@TITLE)
END TRY
BEGIN CATCH
PRINT 'ERROR IN Trigger: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
END TRY
BEGIN CATCH
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
CREATE 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
(@LANGUAGE,@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
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,'en-US','TASK_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,TITLE
from TBPMO_WORKFLOW
UNION
SELECT GUID,1,'de-DE','TASK_TITLE' + CONVERT(VARCHAR(5), GUID) as OBJ_NAME,TITLE
from TBPMO_WORKFLOW ORDER BY GUID
BEGIN
OPEN c_STATE
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@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 = @LANGUAGE)
INSERT INTO TBPMO_LANGUAGE_OBJECT
(LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME, @CAPTION)
FETCH NEXT FROM c_STATE INTO @GUID, @SCREEN_ID,@LANGUAGE,@PMO_OBJECT_NAME,@CAPTION
END
CLOSE c_STATE
DEALLOCATE c_STATE
END
GO
--##################################
ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@RECORD_ID INTEGER,
@MAX_ID INTEGER,
@FORM_ID INTEGER,
@WF_ID INTEGER,
@PARENT_ID INTEGER
SELECT
@FORM_ID = FORM_ID,
@RECORD_ID = GUID
FROM INSERTED
IF EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID)
SELECT @MAX_ID = MAX(RECORD_ENTITY_ID) + 1
FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID
ELSE
SET @MAX_ID = 1
UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
--Überprüfen ob für die Entity_ID Workflows definiert sind?
IF EXISTS(
SELECT * FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID
)
BEGIN
EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
END
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS
SELECT TOP 100 PERCENT
T.GUID AS WF_TASK_ID,
T.WF_ID ,
T1.TITLE,
T.RECORD_ID,
T.STATE_ID,
T2.STATE_DESC,
T2.COLOR,
T.COMMENT,
T.DUE_DATE,
T.TASK_DATE,
'' AS USERNAME,
T.ADDED_WHEN,
T.CHANGED_WHO,
T.CHANGED_WHEN
FROM
TBPMO_WORKFLOW_TASK AS T,
TBPMO_WORKFLOW AS T1,
TBPMO_WORKFLOW_TASK_STATE T2
WHERE
T.WF_ID = T1.GUID AND
T.STATE_ID = T2.GUID
ORDER BY T.GUID
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)
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 @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 TRY
BEGIN CATCH
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
+ ' - 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)
IF @LANGUAGE is not null
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
(@LANGUAGE,@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
ALTER TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_AFT_INS] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@FORM_TITLE VARCHAR(50),
@LANGUAGE VARCHAR(5),
@ADDED_WHO VARCHAR(50),
@GUID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@FORM_TITLE = FORM_TITLE,
@ADDED_WHO = ADDED_WHO
FROM INSERTED
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@ADDED_WHO)
SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
IF @LANGUAGE is not null
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION,ADDED_WHO) VALUES
(@LANGUAGE,1,@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
ALTER TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_AFT_UPD] ON [dbo].[TBPMO_FORM_CONSTRUCTOR]
FOR UPDATE
AS
BEGIN
DECLARE @FORM_TITLE VARCHAR(50),
@LANGUAGE VARCHAR(5), @CHANGED_WHO VARCHAR(50),
@GUID INTEGER,
@PMO_OBJECT_NAME VARCHAR(100)
SELECT
@GUID = GUID,
@FORM_TITLE = FORM_TITLE,
@LANGUAGE = [LANGUAGE],
@CHANGED_WHO = CHANGED_WHO
FROM INSERTED
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
SET @PMO_OBJECT_NAME = 'CONSTR_MENUE' + CONVERT(VARCHAR(5),@GUID)
IF @LANGUAGE is not null
UPDATE TBPMO_FORM_CONSTRUCTOR SET CHANGED_WHEN = GETDATE()
FROM INSERTED WHERE TBPMO_FORM_CONSTRUCTOR.GUID = INSERTED.GUID
If exists(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = 1)
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 = 1
ELSE
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
(@LANGUAGE,1,@PMO_OBJECT_NAME,@FORM_TITLE)
END
GO
ALTER TABLE TBPMO_CONSTRUCTOR_USER
ADD HOME_MENUE BIT NOT NULL DEFAULT 1
GO
ALTER TRIGGER [dbo].[TBPMO_FORM_CONSTRUCTOR_DETAIL_AFT_INS] ON [dbo].[TBPMO_FORM_CONSTRUCTOR_DETAIL]
FOR INSERT
AS
DECLARE @CONSTRUCT_ID INTEGER,
@PARENT_ID INTEGER,
@EXISTS as INTEGER
BEGIN
SELECT @CONSTRUCT_ID = CONSTRUCT_ID, @PARENT_ID = PARENT_ID FROM INSERTED
IF @PARENT_ID = 0
BEGIN
SELECT @EXISTS = COUNT(*) FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @CONSTRUCT_ID AND PARENT_ID = @PARENT_ID
IF @EXISTS > 1
BEGIN
ROLLBACK TRANSACTION
RAISERROR('ONLY ONE FORM WITH PARENT_ID 0 IS ALLOWED WITHIN CONSTRUCT-ID',16,10)
END
END
END
GO

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,78 @@
CREATE FUNCTION [dbo].[FN_SPLIT_STRING]
(
@Input NVARCHAR(MAX),
@Character CHAR(1)
)
RETURNS @Output TABLE (
Item NVARCHAR(1000)
)
AS
BEGIN
DECLARE @StartIndex INT, @EndIndex INT
SET @StartIndex = 1
IF SUBSTRING(@Input, LEN(@Input) - 1, LEN(@Input)) <> @Character
BEGIN
SET @Input = @Input + @Character
END
WHILE CHARINDEX(@Character, @Input) > 0
BEGIN
SET @EndIndex = CHARINDEX(@Character, @Input)
INSERT INTO @Output(Item)
SELECT SUBSTRING(@Input, @StartIndex, @EndIndex - 1)
SET @Input = SUBSTRING(@Input, @EndIndex + 1, LEN(@Input))
END
RETURN
END
GO
--FUNKTION ZUR AKTUALISIERUNG der DATEN
BEGIN
DECLARE
@GUID INTEGER,
@CONTROL_ID INTEGER,
@RECORD_ID INTEGER,
@VALUE VARCHAR(MAX),
@NEW_VALUE VARCHAR(MAX),
@INDEX INTEGER,
@ADDED_WHO VARCHAR(50)
DECLARE c_Values CURSOR FOR
SELECT GUID,CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO FROM TBPMO_CONTROL_VALUE WHERE VALUE LIKE '%;%' AND CONTROL_ID NOT IN (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2) ORDER BY RECORD_ID,CONTROL_ID
OPEN c_Values
FETCH NEXT FROM c_Values INTO @GUID,@CONTROL_ID,@RECORD_ID,@VALUE,@ADDED_WHO
WHILE @@FETCH_STATUS = 0
BEGIN
SET @INDEX = 0
--#####
DECLARE c_NEWVALUES CURSOR FOR
SELECT Item FROM dbo.FN_SPLIT_STRING(@VALUE, ';')
OPEN c_NEWVALUES
FETCH NEXT FROM c_NEWVALUES INTO @NEW_VALUE
WHILE @@FETCH_STATUS = 0
BEGIN
SET @NEW_VALUE = LTRIM(@NEW_VALUE)
IF @INDEX = 0
UPDATE TBPMO_CONTROL_VALUE SET VALUE = @NEW_VALUE WHERE GUID = @GUID
ELSE
INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES
(@CONTROL_ID,@RECORD_ID,@NEW_VALUE,@ADDED_WHO)
PRINT CONVERT(VARCHAR(5),@CONTROL_ID) + '#' + CONVERT(VARCHAR(5),@INDEX) + '-' + @NEW_VALUE
SET @INDEX = @INDEX + 1
FETCH NEXT FROM c_NEWVALUES INTO @NEW_VALUE
END
CLOSE c_NEWVALUES
DEALLOCATE c_NEWVALUES
--#####
FETCH NEXT FROM c_Values INTO @GUID,@CONTROL_ID,@RECORD_ID,@VALUE,@ADDED_WHO
END
CLOSE c_Values
DEALLOCATE c_Values
END

View 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

View File

@@ -0,0 +1,52 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.7' where NAME = 'Record-Organizer'
GO
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD CONTROL_DOCTYPE_MATCH INTEGER NOT NULL DEFAULT '0'
GO
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD SQL_RIGHT_READ_AND_VIEW_ONLY VARCHAR(5000) NOT NULL DEFAULT ''
GO
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD SQL_QUICK_VIEW VARCHAR(MAX) NOT NULL DEFAULT ''
GO
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD LOAD_DIRECT BIT NOT NULL DEFAULT 0
GO
ALTER VIEW VWPMO_CONSTRUCTOR_FORMS AS
SELECT TOP 100 PERCENT
T2.GUID,
T1.GUID FORM_VIEW_ID,
T1.SCREEN_ID,
T2.CONSTRUCT_ID,
T.PARENT_ID,
T2.SEQUENCE,
T2.LEVEL1_SELECT,
T.GUID AS FORM_ID,
T1.FORM_TITLE,
T2.SQL_SELECT_EBENE1,
T2.SQL_SELECT_EBENE2,
T2.SQL_QUICK_VIEW,
T2.COLUMN_NAME1,
T2.COLUMN_NAME2,
T.FORM_TYPE_ID,
T2.LOAD_DIRECT,
T2.CONTROL_DOCTYPE_MATCH,
T2.SQL_RIGHT_READ_AND_VIEW_ONLY
FROM
tbpmo_form T,
TBPMO_FORM_VIEW T1,
TBPMO_FORM_CONSTRUCTOR_DETAIL T2
where
T2.FORM_ID = T.GUID AND
T.GUID = T1.FORM_ID
ORDER BY
T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
GO
ALTER TABLE TBPMO_RECORD
ADD IN_WORK BIT NOT NULL DEFAULT 0
GO
ALTER TABLE TBPMO_RECORD
ADD IN_WORK_WHO VARCHAR(100)
GO

View File

@@ -0,0 +1,90 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.8' where NAME = 'Record-Organizer'
GO
ALTER VIEW VWPMO_CONTROL_SCREEN AS
SELECT TOP 100 PERCENT
T.GUID CONTROL_ID,
T.NAME CONTROL_NAME,
T.REQUIRED CONTROL_REQUIRED,
T.DEFAULT_VALUE CONTROL_DEF_VALUE,
T.READ_ONLY CONTROL_READ_ONLY,
T.MULTILINE CONTROL_MULTILINE,
T.PARENT_CONTROL_ID CONTROL_PARENT_ID,
T.COL_NAME CONTROL_COL_NAME,
T.SHOW_COLUMN CONTROL_SHOW_COLUMN,
T.CONNECTION_ID_1 CONTROL_CONNID_1,
T.SQL_COMMAND_1 CONTROL_SQLCOMMAND_1,
T.SQL_COMMAND_2 CONTROL_SQLCOMMAND_2,
T.STATIC_LIST CONTROL_STATIC_LIST,
T4.GUID CTRLTYPE_ID,
T4.TYPE_NAME CTRLTYPE_NAME,
T.FORMAT_TYPE CONTROL_FORMAT_TYPE,
T.FORM_ID,
T3.NAME FORM_NAME,
T3.LEVEL FORM_LEVEL,
T1.SCREEN_ID SCREEN_ID,
T2.NAME SCREEN_NAME,
T1.GUID CTRLSCR_ID,
T1.CONTROL_TEXT CTRLSCR_CAPTION,
T1.X_LOC CTRLSCR_X_LOC,
T1.Y_LOC CTRLSCR_Y_LOC,
T1.HEIGHT CTRLSCR_HEIGHT,
T1.WIDTH CTRLSCR_WIDTH,
T1.FONT_FAMILY CTRLSCR_FONT_FAMILY,
T1.FONT_COLOR CTRLSCR_FONT_COLOR,
T1.FONT_SIZE CTRLSCR_FONT_SIZE,
T1.FONT_STYLE CTRLSCR_FONT_STYLE,
T1.TAB_INDEX CTRLSCR_TAB_INDEX,
T1.TAB_STOP CTRLSCR_TAB_STOP,
T1.BACK_COLOR CTRLSCR_BACK_COLOR,
T.MASTER_DATA_ID CTRLSCR_MASTER_DATA_ID
FROM
TBPMO_CONTROL T,
TBPMO_CONTROL_SCREEN T1,
TBPMO_SCREEN T2,
TBPMO_FORM T3,
TBPMO_CONTROL_TYPE T4
WHERE
T.FORM_ID = T3.GUID AND
T.GUID = T1.CONTROL_ID AND
T1.SCREEN_ID = T2.GUID AND
T.CONTROL_TYPE_ID = T4.GUID
ORDER BY
T1.SCREEN_ID,
T.FORM_ID,
T1.TAB_STOP
GO
ALTER TABLE TBPMO_FORM_CONSTRUCTOR_DETAIL
ADD SQL_RIGHT_WINDREAM_VIEW VARCHAR(5000) NOT NULL DEFAULT ''
GO
ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
SELECT TOP 100 PERCENT
T2.GUID,
T1.GUID FORM_VIEW_ID,
T1.SCREEN_ID,
T2.CONSTRUCT_ID,
T.PARENT_ID,
T2.SEQUENCE,
T2.LEVEL1_SELECT,
T.GUID AS FORM_ID,
T1.FORM_TITLE,
T2.SQL_SELECT_EBENE1,
T2.SQL_SELECT_EBENE2,
T2.SQL_QUICK_VIEW,
T2.COLUMN_NAME1,
T2.COLUMN_NAME2,
T.FORM_TYPE_ID,
T2.LOAD_DIRECT,
T2.CONTROL_DOCTYPE_MATCH,
T2.SQL_RIGHT_READ_AND_VIEW_ONLY,
T2.SQL_RIGHT_WINDREAM_VIEW
FROM
tbpmo_form T,
TBPMO_FORM_VIEW T1,
TBPMO_FORM_CONSTRUCTOR_DETAIL T2
where
T2.FORM_ID = T.GUID AND
T.GUID = T1.FORM_ID
ORDER BY
T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
GO

View File

@@ -0,0 +1,373 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.4.9' where NAME = 'Record-Organizer'
GO
CREATE TABLE TBPMO_SAP_FUBA
(
GUID INTEGER NOT NULL IDENTITY(1,1),
NAME VARCHAR(100) NOT NULL,
COMMENT VARCHAR(500),
Method VARCHAR(50) NOT NULL DEFAULT 'TABLE',
TableName VARCHAR(100) NOT NULL,
Host VARCHAR(100) NOT NULL,
SystemNumber VARCHAR(30) NOT NULL,
UserName VARCHAR(50) NOT NULL,
[Password] VARCHAR(100) NOT NULL,
Client VARCHAR(100) NOT NULL,
[Language] VARCHAR(20) NOT NULL,
TempTableName VARCHAR(100) NOT NULL,
FuBa_SplitCharacter VARCHAR(1) NOT NULL DEFAULT ';',
WHERE_CLAUSE VARCHAR(500),
ACTIVE BIT NOT NULL DEFAULT 0,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_SAP_FUBA PRIMARY KEY (GUID)
)
GO
CREATE TRIGGER TBPMO_SAP_FUBA_AFT_UPD ON TBPMO_SAP_FUBA
FOR UPDATE
AS
UPDATE TBPMO_SAP_FUBA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_SAP_FUBA.GUID = INSERTED.GUID
GO
INSERT INTO TBPMO_CONTROL_TYPE (TYPE_NAME) VALUES ('DatagridviewCheckable')
GO
CREATE TRIGGER TBPMO_SAP_FUBA_AFT_UPD ON TBPMO_SAP_FUBA
FOR UPDATE
AS
UPDATE TBPMO_SAP_FUBA SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_SAP_FUBA.GUID = INSERTED.GUID
GO
ALTER VIEW VWPMO_CONTROL_HINT AS
SELECT
T2.FORM_ID,
T1.CONTROL_ID,
T.HINT
FROM
TBPMO_CONTROL_LANGUAGE T,
TBPMO_CONTROL_SCREEN T1,
TBPMO_CONTROL T2
WHERE
T.CONTROL_SCREEN_ID = T1.GUID
AND T1.CONTROL_ID = T2.GUID
AND T1.SCREEN_ID = 1
AND (HINT IS NOT NULL AND HINT <> '')
GO
ALTER TABLE TBDD_USER
ADD WAN_ENVIRONMENT BIT NOT NULL DEFAULT 0
GO
UPDATE TBDD_USER SET WAN_ENVIRONMENT = 1
GO
--RENAME TBDD_EMAIL_ACCOUNT in OLD
CREATE TABLE TBDD_EMAIL_ACCOUNT
(
GUID INTEGER IDENTITY(0,1),
NAME VARCHAR(50),
EMAIL_FROM VARCHAR(100) NOT NULL,
EMAIL_SMTP VARCHAR(100) NOT NULL,
EMAIL_USER VARCHAR(100) NOT NULL,
EMAIL_PW VARCHAR(100) NOT NULL DEFAULT '',
PORT INTEGER NOT NULL DEFAULT '25',
ACTIVE BIT NOT NULL DEFAULT 1,
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT' NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBDD_EMAIL_ACCOUNT PRIMARY KEY (GUID)
)
GO
DROP TRIGGER TBDD_EMAIL_ACCOUNT_AFT_UPD
GO
CREATE TRIGGER TBDD_EMAIL_ACCOUNT_AFT_UPD ON TBDD_EMAIL_ACCOUNT
FOR UPDATE
AS
BEGIN
UPDATE TBDD_EMAIL_ACCOUNT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBDD_EMAIL_ACCOUNT.GUID = INSERTED.GUID
END
GO
INSERT INTO TBDD_EMAIL_ACCOUNT (NAME,
EMAIL_FROM,
EMAIL_SMTP ,
EMAIL_USER,
EMAIL_PW,
ACTIVE) SELECT NAME,
EMAIL_FROM,
EMAIL_SMTP ,
EMAIL_USER,
EMAIL_PW,
ACTIVE FROM TBDD_EMAIL_ACCOUNT_OLD
ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
ADD CTRL_USER_DIRECT INTEGER NOT NULL DEFAULT 0
GO
ALTER TABLE TBPMO_FOLLOW_UP_EMAIL
ADD CTRL_GROUP_DIRECT INTEGER NOT NULL DEFAULT 0
GO
ALTER VIEW VWPMO_FOLLOW_UP_EMAIL AS
SELECT
T1.GUID FOLLOW_UP_ID,
T1.NAME,
T1.FOLLOW_UP_SEQUENCE,
T1.FOLLOW_UP_DAYS,
T1.FOLLOW_UP_TIME_SPAN,
CONVERT(CHAR(5),GETDATE(),108) NOW_TIME,
T.RECORD_ID,
CONVERT(DATE,T.VALUE) VALUE,
T1.EMAIL_SUBJECT,
T1.EMAIL_BODY,
T1.PROCESS_SELECT1,
T1.PROCESS_SELECT2,
T1.PROCESS_SELECT3,
T1.PROCESS_SELECT4,
T1.PROCESS_SELECT5,
T1.PROCESS_SELECT6,
T1.PROCESS_SELECT7,
T1.PROCESS_SELECT8,
T1.PROCESS_SELECT9,
T1.PROCESS_SELECT10,
T1.TIME_UNITY,
T1.TIME_DIST,
CASE T1.TIME_UNITY
WHEN 'Month' THEN
DATEDIFF(month, getdate(),convert(Date,T.value))
WHEN 'Week' THEN
DATEDIFF(week, getdate(),convert(Date,T.value))
END TIME_SPAN,
T1.DEPENDENT_DATE_CTRL_ID,
T1.DEPENDENT_DONE_CTRL_ID,
(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) DONE_VALUE,
T2.GUID AS CONSTRUCTOR_ID,
T2.FORM_TITLE AS CONSTRUCTOR_TITLE,
T1.CTRL_USER_DIRECT,
T1.CTRL_GROUP_DIRECT
FROM
VWPMO_VALUES T,
TBPMO_FOLLOW_UP_EMAIL T1,
TBPMO_FORM_CONSTRUCTOR T2
WHERE
T1.ACTIVE = 1 AND
(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = T1.DEPENDENT_DONE_CTRL_ID AND RECORD_ID = T.RECORD_ID) = 'False' And
T.CONTROL_ID = T1.DEPENDENT_DATE_CTRL_ID AND
T1.CONSTRUCTOR_ID = T2.GUID AND
T1.TIME_SPAN =
CASE T1.TIME_UNITY
WHEN 'Month' THEN
DATEDIFF(month, getdate(),convert(Date,T.value))
WHEN 'Week' THEN
DATEDIFF(week, getdate(),convert(Date,T.value))
END
GO
ALTER TABLE TBPMO_CONTROL_VALUE
ADD CHANGE_STEP INTEGER NOT NULL DEFAULT 0
GO
ALTER TABLE TBPMO_CONTROL_VALUE
ADD REDO BIT NOT NULL DEFAULT 0
GO
CREATE TABLE TBPMO_CONTROL_VALUE_CHANGE_HISTORY
(
GUID INTEGER NOT NULL IDENTITY(1,1),
RECORD_ID INTEGER,
CONTROL_ID INTEGER,
VALUE VARCHAR(MAX),
CHANGE_STEP INTEGER,
ADDED_WHO VARCHAR(50) NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_CONTROL_VALUE_CHANGE_HISTORY_CHANGE_HISTORY PRIMARY KEY (GUID)
)
GO
CREATE TRIGGER TBPMO_CONTROL_VALUE_CHANGE_HISTORY_CHANGE_HISTORY_UPD ON TBPMO_CONTROL_VALUE_CHANGE_HISTORY
FOR UPDATE
AS
UPDATE TBPMO_CONTROL_VALUE_CHANGE_HISTORY SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_VALUE_CHANGE_HISTORY.GUID = INSERTED.GUID
GO
ALTER TRIGGER [dbo].[TBPMO_CONTROL_VALUE_AFT_UPD] ON [dbo].[TBPMO_CONTROL_VALUE]
FOR UPDATE
AS
BEGIN TRY
DECLARE
@CONTROL_ID INTEGER,
@RECORD_ID INTEGER,
@VALUE_NEW VARCHAR(MAX),
@VALUE_OLD VARCHAR(MAX),
@CHANGED_WHO VARCHAR(50),
@CHANGE_STEP INTEGER,
@REDO BIT
IF UPDATE (VALUE)
BEGIN
SELECT
@CONTROL_ID = DELETED.CONTROL_ID,
@RECORD_ID = DELETED.RECORD_ID,
@VALUE_OLD = DELETED.VALUE
FROM DELETED
--RAISERROR (@VALUE , 16, 1)
SELECT
@CHANGE_STEP = CHANGE_STEP,
@CHANGED_WHO = CHANGED_WHO,
@VALUE_NEW = VALUE,
@REDO = REDO
FROM INSERTED
IF @REDO = 0
IF @VALUE_OLD <> @VALUE_NEW AND NOT EXISTS(SELECT GUID FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID AND VALUE = @VALUE_OLD AND CHANGE_STEP = @CHANGE_STEP)
INSERT INTO TBPMO_CONTROL_VALUE_CHANGE_HISTORY (RECORD_ID,CONTROL_ID,VALUE,CHANGE_STEP,ADDED_WHO) VALUES
(@RECORD_ID,@CONTROL_ID,@VALUE_OLD,@CHANGE_STEP,@CHANGED_WHO)
--Update des Logs für loggen von Datensatzänderungen
IF EXISTS(SELECT LOG_UPDATE FROM TBPMO_RECORD_LOG_CONFIG WHERE CONTROL_ID = @CONTROL_ID AND LOG_UPDATE = 1)
BEGIN
If @VALUE_OLD <> @VALUE_NEW
BEGIN
DECLARE @LOG VARCHAR(1000)
SET @LOG = 'Update of Value - OLD-VALUE: ' + @VALUE_OLD + ' / NEW VALUE: ' + @VALUE_NEW
INSERT INTO TBPMO_RECORD_LOG (RECORD_ID,CONTROL_ID,LOG_DESCRIPTION,ADDED_WHO) VALUES
(@RECORD_ID,@CONTROL_ID,@LOG,@CHANGED_WHO)
END
END
END
--Generelle Updates (Datum und Recor-Änderungen)
UPDATE TBPMO_CONTROL_VALUE SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_CONTROL_VALUE.GUID = INSERTED.GUID
UPDATE TBPMO_RECORD SET CHANGED_WHO = @CHANGED_WHO WHERE TBPMO_RECORD.GUID = @RECORD_ID
END TRY
BEGIN CATCH
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE())
+ ' - ERROR-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO
CREATE PROCEDURE [dbo].[PRPMO_REDO_RECORD_CHANGES] (@RECORD_ID INTEGER)
AS
BEGIN
DECLARE
@CHANGE_STEP INTEGER,
@CONTROL_ID INTEGER,
@GUID INTEGER,
@VALUE VARCHAR(MAX)
DECLARE c_REDO CURSOR FOR
SELECT MAX(GUID),CONTROL_ID, CHANGE_STEP FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE RECORD_ID = @RECORD_ID GROUP BY CONTROL_ID, CHANGE_STEP, RECORD_ID
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @GUID,@CONTROL_ID,@CHANGE_STEP
WHILE @@FETCH_STATUS = 0
BEGIN
SELECT @VALUE = VALUE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE GUID = @GUID
UPDATE TBPMO_CONTROL_VALUE SET VALUE = @VALUE, REDO = 1 WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID
DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE GUID = @GUID
UPDATE TBPMO_CONTROL_VALUE SET REDO = 0 WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = @CONTROL_ID
FETCH NEXT FROM c_REDO INTO @GUID,@CONTROL_ID,@CHANGE_STEP
END
CLOSE c_REDO
DEALLOCATE c_REDO
END
GO
ALTER TABLE TBPMO_RECORD
ADD COLOR VARCHAR(50) NOT NULL DEFAULT ''
GO
ALTER PROCEDURE [dbo].[PRPMO_CREATE_SQL](@pFORM_ID INT)
AS
DECLARE @COL_NAME VARCHAR(50),
@SQL_BEGIN VARCHAR(1000),
@SQL_END VARCHAR(2000),
@SQL VARCHAR(5000),
@CONTROL_ID INT,
@RESULT VARCHAR(8000),
@TYPEID INT,
@TABINDEX INT,
@SQL_LBL VARCHAR(2000)
DECLARE c_SPALTENNAMEN CURSOR FOR SELECT T.GUID,'['+T.COL_NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE
T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5) UNION
SELECT T.GUID,'['+T.NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE
T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID and t.CONTROL_TYPE_ID = 1 AND LEN(ISNULL(t.SQL_COMMAND_1,'')) > 0 ORDER BY TAB_INDEX
BEGIN
SET @SQL_BEGIN = 'SELECT T.GUID AS [Record-ID],T.COLOR AS ROW_COLOR, T.FORM_ID AS [Form-ID],'
SET @SQL_END = ',T.ADDED_WHO as AddedWho,T.ADDED_WHEN as AddedWhen, T.CHANGED_WHO As ChangedWho, T.CHANGED_WHEN As ChangedWhen FROM TBPMO_RECORD T, TBPMO_FORM T1 WHERE T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID'
SET @SQL_END = REPLACE(@SQL_END,'@FORM_ID',@pFORM_ID)
OPEN c_SPALTENNAMEN
FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
WHILE @@FETCH_STATUS = 0
BEGIN
SET @COL_NAME = REPLACE(@COL_NAME,'lbl','')
IF LEN(ISNULL(@SQL,'')) = 0
BEGIN
IF @TYPEID = 10 OR @TYPEID = 11
SET @SQL = 'ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
ELSE IF @TYPEID = 6
SET @SQL = '(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
ELSE IF @TYPEID = 1
BEGIN
SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
SET @SQL = '(' + @SQL_LBL + ') AS ' + @COL_NAME
END
ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14
SET @SQL = '(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
ELSE
SET @SQL = '(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
END
ELSE
BEGIN
IF (@TYPEID = 10) OR (@TYPEID = 11)
SET @SQL = @SQL + ',ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
ELSE IF @TYPEID = 6
SET @SQL = @SQL + ',(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
ELSE IF @TYPEID = 1
BEGIN
SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
SET @SQL = @SQL + ',(' + @SQL_LBL + ') AS ' + @COL_NAME
END
ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14
SET @SQL = @SQL + ',(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
ELSE
SET @SQL = @SQL + ',(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
END
FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
END
CLOSE c_SPALTENNAMEN
DEALLOCATE c_SPALTENNAMEN
SET @RESULT = @SQL_BEGIN + @SQL + @SQL_END
IF EXISTS (SELECT FORM_ID FROM TBPMO_FORM_SQL WHERE FORM_ID = @pFORM_ID)
UPDATE TBPMO_FORM_SQL SET SQL_COMMAND = @RESULT WHERE FORM_ID = @pFORM_ID
ELSE
INSERT INTO TBPMO_FORM_SQL(FORM_ID,SQL_COMMAND) VALUES(@pFORM_ID,@RESULT)
END
GO
/*UPDATE DER SQLS*/
BEGIN
DECLARE
@ENTITY_ID INTEGER
DECLARE c_REDO CURSOR FOR
SELECT GUID FROM TBPMO_FORM
OPEN c_REDO
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
WHILE @@FETCH_STATUS = 0
BEGIN
EXEC DBO.PRPMO_CREATE_SQL @ENTITY_ID
FETCH NEXT FROM c_REDO INTO @ENTITY_ID
END
CLOSE c_REDO
DEALLOCATE c_REDO
END
GO
EXEC PRPMO_CREATE_TEMP_VIEWS
GO

View File

@@ -0,0 +1,15 @@
CREATE FUNCTION [dbo].[FNPMO_GET_CONTROL_CAPTION](@pLANG_TYPE VARCHAR(5), @pSCREEN_ID INTEGER,@pCONTROL_ID INTEGER )
RETURNS VARCHAR(100)
AS
BEGIN
DECLARE @CAPTION VARCHAR(100),
@CTRL_SCREEN_ID INTEGER
SELECT @CTRL_SCREEN_ID = GUID FROM TBPMO_CONTROL_SCREEN WHERE
CONTROL_ID = @pCONTROL_ID AND SCREEN_ID = @pSCREEN_ID
SELECT @CAPTION = CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE LANGUAGE_TYPE = @pLANG_TYPE AND
CONTROL_SCREEN_ID = @CTRL_SCREEN_ID
RETURN(ISNULL(@CAPTION,''))
END

View File

@@ -0,0 +1,39 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.0' where NAME = 'Record-Organizer'
GO
CREATE TABLE TBPMO_WD_NAMECONVENTION_FORMAT
(
GUID INTEGER NOT NULL IDENTITY(1,1),
ID INTEGER NOT NULL,
PATTERN VARCHAR(50) NOT NULL,
FORMAT_RULE VARCHAR(100) NOT NULL,
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_WD_NAMECONVENTION_FORMAT PRIMARY KEY (GUID)
)
GO
CREATE TRIGGER TBPMO_WD_NAMECONVENTION_FORMAT_UPD ON TBPMO_WD_NAMECONVENTION_FORMAT
FOR UPDATE
AS
UPDATE TBPMO_WD_NAMECONVENTION_FORMAT SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_WD_NAMECONVENTION_FORMAT.GUID = INSERTED.GUID
GO
ALTER PROCEDURE [dbo].[PRPMO_DELETE_DOCTYPE](@pDOCID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID IN (SELECT GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID)
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

View File

@@ -0,0 +1,38 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.1' where NAME = 'Record-Organizer'
GO
ALTER TABLE TBDD_INDEX_MAN
ADD SAVE_VALUE BIT NOT NULL DEFAULT 0
GO
ALTER VIEW VWDDINDEX_MAN
AS
SELECT TOP 2000
T.GUID,
T.NAME INDEXNAME,
T.WD_INDEX,
T.COMMENT,
T.DATATYPE,
T.DOK_ID,
T1.BEZEICHNUNG DOKUMENTART,
T1.KURZNAME,
T.SUGGESTION,
T.CONNECTION_ID,
T2.BEZEICHNUNG CONNECTION,
T2.SQL_PROVIDER,
T2.SERVER,
T2.DATENBANK,
T2.USERNAME,
T2.PASSWORD,
T.SQL_RESULT,
T.SQL_CHECK,
T.OPTIONAL,
T.SAVE_VALUE
FROM
TBDD_INDEX_MAN T
INNER JOIN TBDD_DOKUMENTART T1 ON T.DOK_ID = T1.GUID AND T1.AKTIV = 1
LEFT JOIN TBDD_CONNECTION T2 ON T.CONNECTION_ID = T2.GUID AND T2.AKTIV = 1
WHERE
T.ACTIVE = 1
ORDER BY
T.DOK_ID,
T.GUID
GO

View File

@@ -0,0 +1,182 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.2' where NAME = 'Record-Organizer'
GO
CREATE PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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
ALTER TABLE TBPMO_CONTROL
ADD VISIBLE BIT NOT NULL DEFAULT 1
GO
ALTER TABLE TBPMO_CONTROL
ADD TREE_VIEW BIT NOT NULL DEFAULT 0
GO
ALTER VIEW VWPMO_CONTROL_SCREEN AS
SELECT TOP 100 PERCENT
T.GUID CONTROL_ID,
T.NAME CONTROL_NAME,
T.REQUIRED CONTROL_REQUIRED,
T.DEFAULT_VALUE CONTROL_DEF_VALUE,
T.READ_ONLY CONTROL_READ_ONLY,
T.MULTILINE CONTROL_MULTILINE,
T.PARENT_CONTROL_ID CONTROL_PARENT_ID,
T.COL_NAME CONTROL_COL_NAME,
T.SHOW_COLUMN CONTROL_SHOW_COLUMN,
T.CONNECTION_ID_1 CONTROL_CONNID_1,
T.SQL_COMMAND_1 CONTROL_SQLCOMMAND_1,
T.SQL_COMMAND_2 CONTROL_SQLCOMMAND_2,
T.VISIBLE CONTROL_VISIBLE,
T.TREE_VIEW CONTROL_TREE_VIEW,
T.STATIC_LIST CONTROL_STATIC_LIST,
T4.GUID CTRLTYPE_ID,
T4.TYPE_NAME CTRLTYPE_NAME,
T.FORMAT_TYPE CONTROL_FORMAT_TYPE,
T.FORM_ID,
T3.NAME FORM_NAME,
T3.LEVEL FORM_LEVEL,
T1.SCREEN_ID SCREEN_ID,
T2.NAME SCREEN_NAME,
T1.GUID CTRLSCR_ID,
T1.CONTROL_TEXT CTRLSCR_CAPTION,
T1.X_LOC CTRLSCR_X_LOC,
T1.Y_LOC CTRLSCR_Y_LOC,
T1.HEIGHT CTRLSCR_HEIGHT,
T1.WIDTH CTRLSCR_WIDTH,
T1.FONT_FAMILY CTRLSCR_FONT_FAMILY,
T1.FONT_COLOR CTRLSCR_FONT_COLOR,
T1.FONT_SIZE CTRLSCR_FONT_SIZE,
T1.FONT_STYLE CTRLSCR_FONT_STYLE,
T1.TAB_INDEX CTRLSCR_TAB_INDEX,
T1.TAB_STOP CTRLSCR_TAB_STOP,
T1.BACK_COLOR CTRLSCR_BACK_COLOR,
T.MASTER_DATA_ID CTRLSCR_MASTER_DATA_ID
FROM
TBPMO_CONTROL T,
TBPMO_CONTROL_SCREEN T1,
TBPMO_SCREEN T2,
TBPMO_FORM T3,
TBPMO_CONTROL_TYPE T4
WHERE
T.FORM_ID = T3.GUID AND
T.GUID = T1.CONTROL_ID AND
T1.SCREEN_ID = T2.GUID AND
T.CONTROL_TYPE_ID = T4.GUID
ORDER BY
T1.SCREEN_ID,
T.FORM_ID,
T1.TAB_STOP
GO
ALTER VIEW [dbo].[VWPMO_WF_ACTIVE] AS
SELECT TOP 100 PERCENT
W_T.GUID AS WF_TASK_ID
,R.GUID AS WF_ID
,W_T.RECORD_ID
,T.STATE_ID
,T4.GUID FORM_VIEW_ID
,W_T.COMMENT
,W_T.DUE_DATE
,W_T.ADDED_WHEN
,W_T.CHANGED_WHO
,W_T.CHANGED_WHEN
,W_T.TASK_DATE
,T.FINAL
,T.ENTITY_ID
,T5.COLOR
,dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(W_T.RECORD_ID) AS RECORD_DESCRIPTION
FROM
TBPMO_WORKFLOW_ENTITY_STATE T,
TBPMO_WORKFLOW_TASK W_T
,TBPMO_WORKFLOW R
,TBPMO_FORM T3
,TBPMO_FORM_VIEW T4
,TBPMO_WORKFLOW_TASK_STATE T5
,TBPMO_RECORD REC
WHERE
--W_T.RECORD_ID = 95 AND
--TBPMO_WORKFLOW_ENTITY_STATE
T.WF_ID = R.GUID AND
T.ENTITY_ID = T3.GUID AND
T.STATE_ID = T5.GUID AND
W_T.RECORD_ID = REC.GUID AND
T.ENTITY_ID = REC.FORM_ID AND
W_T.WF_ID = R.GUID AND
R.GUID = R.GUID AND
T3.GUID = T4.FORM_ID AND
W_T.STATE_ID = T5.GUID AND
T4.SCREEN_ID = 1 AND
((T.FINAL = 1 AND W_T.DUE_DATE IS NULL) OR T.FINAL = 0) AND
W_T.ACTIVE = 1
ORDER BY W_T.RECORD_ID,W_T.GUID
GO
ALTER TRIGGER [dbo].[TBPMO_FORM_AFT_INS] ON [dbo].[TBPMO_FORM]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@FORM_ID INTEGER,
@FORM_TYPE INTEGER,
@ADDED_WHO VARCHAR(50)
--@SQL_RECORD1 VARCHAR(500),
--@SQL_RECORD2 VARCHAR(500)
SELECT
@FORM_ID = GUID,
@FORM_TYPE = FORM_TYPE_ID,
@ADDED_WHO = ADDED_WHO
FROM INSERTED
IF @FORM_TYPE = 5
BEGIN
INSERT INTO TBPMO_CONTROL (
FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, [COL_NAME]) VALUES (
@FORM_ID,2,'GROUP_RECORD','txtGROUP_RECORD','GROUP_RECORD')
DECLARE @CTRL_ID INTEGER
SELECT @CTRL_ID = MAX(GUID) FROM TBPMO_CONTROL WHERE FORM_ID = @FORM_ID
INSERT INTO TBPMO_CONTROL_SCREEN (
CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH, TAB_INDEX) VALUES (
@CTRL_ID, 1, 'GROUP_RECORD', 5, 5, 22, 100,1)
END
--EXEC dbo.PRPMO_CREATE_SQL @FORM_ID
--EXEC dbo.PRPMO_CREATE_TEMP_VIEWS
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
BEGIN TRY
INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID,ENTITY_ID)
SELECT T.CLIENT_ID,@FORM_ID FROM TBDD_CLIENT_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND UPPER(T1.USERNAME) = UPPER(@ADDED_WHO)
END TRY
BEGIN CATCH
PRINT 'ERROR INSERTING TBPMO_CLIENT_ENTITY-ERROR-MESSAGE: ' + CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH
GO

View File

@@ -0,0 +1,240 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.3' where NAME = 'Record-Organizer'
GO
ALTER TABLE TBPMO_FORM
ADD DATE_FORMAT VARCHAR(10) NOT NULL DEFAULT'dd-MM-yyyy'
GO
ALTER PROCEDURE [dbo].[PRPMO_CREATE_SQL](@pFORM_ID INT)
AS
DECLARE @COL_NAME VARCHAR(50),
@SQL_BEGIN VARCHAR(1000),
@SQL_END VARCHAR(2000),
@SQL VARCHAR(5000),
@CONTROL_ID INT,
@RESULT VARCHAR(8000),
@TYPEID INT,
@TABINDEX INT,
@SQL_LBL VARCHAR(2000)
DECLARE c_SPALTENNAMEN CURSOR FOR SELECT T.GUID,'['+T.COL_NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE
T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5) UNION
SELECT T.GUID,'['+T.NAME+']' AS 'COL_NAME', T2.GUID,T1.TAB_INDEX FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE
T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = @pFORM_ID and t.CONTROL_TYPE_ID = 1 AND LEN(ISNULL(t.SQL_COMMAND_1,'')) > 0 ORDER BY TAB_INDEX
BEGIN
SET @SQL_BEGIN = 'SELECT T.GUID AS [Record-ID],T.COLOR AS ROW_COLOR, T.FORM_ID AS [Form-ID],'
SET @SQL_END = ',T.ADDED_WHO as AddedWho,T.ADDED_WHEN as AddedWhen, T.CHANGED_WHO As ChangedWho, T.CHANGED_WHEN As ChangedWhen FROM TBPMO_RECORD T, TBPMO_FORM T1 WHERE T.FORM_ID = T1.GUID AND T.FORM_ID = @FORM_ID'
SET @SQL_END = REPLACE(@SQL_END,'@FORM_ID',@pFORM_ID)
OPEN c_SPALTENNAMEN
FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
WHILE @@FETCH_STATUS = 0
BEGIN
SET @COL_NAME = REPLACE(@COL_NAME,'lbl','')
IF LEN(ISNULL(@SQL,'')) = 0
BEGIN
IF @TYPEID = 10 OR @TYPEID = 11
SET @SQL = 'ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
ELSE IF @TYPEID = 6
SET @SQL = '(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
ELSE IF @TYPEID = 1
BEGIN
SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
SET @SQL = '(' + @SQL_LBL + ') AS ' + @COL_NAME
END
ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14
SET @SQL = '(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
ELSE
SET @SQL = '(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
END
ELSE
BEGIN
IF (@TYPEID = 10) OR (@TYPEID = 11)
SET @SQL = @SQL + ',ISNULL((SELECT CASE WHEN UPPER(RTRIM(LTRIM(T5.VALUE))) = ''TRUE'' THEN 1 ELSE 0 END FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + '),0) AS ' + @COL_NAME
ELSE IF @TYPEID = 6
SET @SQL = @SQL + ',(SELECT T6.IMG FROM TBPMO_CONTROL_IMAGE T6 WHERE T6.RECORD_ID = T.GUID AND T6.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
ELSE IF @TYPEID = 1
BEGIN
SELECT @SQL_LBL = SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = @CONTROL_ID
SET @SQL_LBL = REPLACE(UPPER(@SQL_LBL),'@RECORD_ID','T.GUID')
SET @SQL = @SQL + ',(' + @SQL_LBL + ') AS ' + @COL_NAME
END
ELSE IF @TYPEID = 12 OR @TYPEID = 7 OR @TYPEID = 14
SET @SQL = @SQL + ',(SELECT [dbo].[FNPMO_GET_CONTROL_VALUES](' + CONVERT(VARCHAR(20),@CONTROL_ID) + ', T.GUID)) AS ' + @COL_NAME
ELSE
SET @SQL = @SQL + ',(SELECT T5.VALUE FROM TBPMO_CONTROL_VALUE T5 WHERE T5.RECORD_ID = T.GUID AND T5.CONTROL_ID = ' + CONVERT(VARCHAR(20),@CONTROL_ID) + ') AS ' + @COL_NAME
END
FETCH NEXT FROM c_SPALTENNAMEN INTO @CONTROL_ID,@COL_NAME,@TYPEID,@TABINDEX
END
CLOSE c_SPALTENNAMEN
DEALLOCATE c_SPALTENNAMEN
SET @RESULT = @SQL_BEGIN + @SQL + @SQL_END
IF EXISTS (SELECT FORM_ID FROM TBPMO_FORM_SQL WHERE FORM_ID = @pFORM_ID)
UPDATE TBPMO_FORM_SQL SET SQL_COMMAND = @RESULT WHERE FORM_ID = @pFORM_ID
ELSE
INSERT INTO TBPMO_FORM_SQL(FORM_ID,SQL_COMMAND) VALUES(@pFORM_ID,@RESULT)
END
GO
CREATE PROCEDURE [dbo].[PRPMO_DELETE_CONSTRUCTOR](@pCONSTR_ID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_CLIENT_CONSTRUCTOR WHERE CONSTRUCT_ID = @pCONSTR_ID
DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = @pCONSTR_ID
DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE FOLLOW_UP_ID IN (SELECT GUID FROM TBPMO_FOLLOW_UP_EMAIL WHERE CONSTRUCTOR_ID = @pCONSTR_ID)
DELETE FROM TBPMO_FOLLOW_UP_EMAIL WHERE CONSTRUCTOR_ID = @pCONSTR_ID
DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @pCONSTR_ID
DELETE FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = @pCONSTR_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
ALTER PROCEDURE [dbo].[PRPMO_CREATE_CONSTRUCTOR](@pFORM_ID INT, @pNAME VARCHAR(50))
AS
DECLARE
@NEW_CONSTR_ID INTEGER,
@FORM_ID INTEGER,
@PARENT_ID INTEGER,
@PARENT_ID2 INTEGER,
@LEVEL1_SELECT INTEGER,
@SEQUENCE INTEGER,
@SEQUENCE2 INTEGER,
@SQL_SELECT_EBENE1 VARCHAR(4000)
IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME))
INSERT INTO TBPMO_FORM_CONSTRUCTOR (FORM_TITLE,SEQUENCE_MENU,ADDED_WHO, SHORT_TITLE) VALUES
(@pNAME,1, 'CREATE_ROUTINE','SHORT-TITLE')
SELECT @NEW_CONSTR_ID = MAX(GUID) FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME)
PRINT 'INSERT1 DURCH'
PRINT 'INSERT2 DURCH'
DECLARE c_ENTITY1 CURSOR FOR
SELECT
T.GUID, T.PARENT_ID, T.LEVEL
FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = @pFORM_ID ORDER BY T.LEVEL
BEGIN
OPEN c_ENTITY1
FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @NEW_CONSTR_ID AND FORM_ID = @FORM_ID AND PARENT_ID = @PARENT_ID)
BEGIN
PRINT 'c_ENTITY1: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @' + CONVERT(VARCHAR(3),@FORM_ID)
INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
CONSTRUCT_ID
,FORM_ID
,PARENT_ID
,LEVEL1_SELECT
,SEQUENCE
,SQL_SELECT_EBENE1
,SQL_SELECT_EBENE2
,ADDED_WHO
) VALUES (
@NEW_CONSTR_ID
,@FORM_ID
,@PARENT_ID
,0
,@SEQUENCE
,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
,'SELECT T.* FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@PARENT_ID) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
,'CREATE_ROUTINE2'
)
END
If EXISTS(SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @FORM_ID)
BEGIN
PRINT 'c_ENTITY2: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = ' + CONVERT(VARCHAR(3),@FORM_ID)
--###############
DECLARE c_ENTITY2 CURSOR FOR
SELECT
T.GUID, T.PARENT_ID, T.LEVEL
FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = @FORM_ID ORDER BY T.LEVEL
BEGIN
OPEN c_ENTITY2
FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
WHILE @@FETCH_STATUS = 0
BEGIN
INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
CONSTRUCT_ID
,FORM_ID
,PARENT_ID
,LEVEL1_SELECT
,SEQUENCE
,SQL_SELECT_EBENE1
,SQL_SELECT_EBENE2
,ADDED_WHO
) VALUES (
@NEW_CONSTR_ID
,@FORM_ID
,@PARENT_ID2
,0
,@SEQUENCE2
,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
,'SELECT T.* FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@PARENT_ID2) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
,'CREATE_ROUTINE3'
)
FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
END
CLOSE c_ENTITY2
DEALLOCATE c_ENTITY2
END
END
--###############
FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
END
CLOSE c_ENTITY1
DEALLOCATE c_ENTITY1
END
GO
CREATE VIEW [dbo].[VWPMO_CONTROL_HINT] AS
SELECT
T2.FORM_ID,
T1.CONTROL_ID,
T.HINT
FROM
TBPMO_CONTROL_LANGUAGE T,
TBPMO_CONTROL_SCREEN T1,
TBPMO_CONTROL T2
WHERE
T.CONTROL_SCREEN_ID = T1.GUID
AND T1.CONTROL_ID = T2.GUID
AND T1.SCREEN_ID = 1
AND (HINT IS NOT NULL AND HINT <> '')
GO
ALTER PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
IF OBJECT_ID (N'TBPMO_DOCSEARCH_RESULTLIST_CONFIG', N'U') IS NOT NULL
DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE [ENTITY_ID] = @pENTITY_ID
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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

View File

@@ -0,0 +1,60 @@
ALTER VIEW [dbo].[VWPMO_WD_DOC_SEARCH] AS
SELECT
T.dwDocID as DocID
,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,20006) AS [ENTITY_ID]
,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,20005) AS [RECORD_ID]
,T.dwInteger24 AS [PARENT_ID]
,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) + T.szLongName AS FULL_FILENAME
,szLongName as [Filename],
T.szText39 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
,T1.szDocTypeName AS OBJECTTYPE
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.dwInteger23 is not null
GO
USE [DD_ECM]
GO
ALTER FUNCTION [dbo].[FNPMO_GET_WINDREAM_VKT_INT](@pdwDocID INTEGER,@pdwAttributID INTEGER)
RETURNS VARCHAR(4000)
AS
BEGIN
DECLARE
@RESULT VARCHAR(4000),
@VALUE INTEGER
DECLARE c_RESULT CURSOR FOR SELECT [dwValue] FROM [172.24.12.41\BRAINPOOL].windream60.[dbo].[Vector]
where dwDocID = @pdwDocID and dwAttrID = @pdwAttributID
BEGIN
OPEN c_RESULT
FETCH NEXT FROM c_RESULT INTO @VALUE
WHILE @@FETCH_STATUS = 0
BEGIN
IF LEN(@RESULT) > 0
SET @RESULT = @RESULT + '#' + CONVERT(VARCHAR(30),@VALUE)
ELSE
SET @RESULT = '#' + CONVERT(VARCHAR(30),@VALUE)
FETCH NEXT FROM c_RESULT INTO @VALUE
END
CLOSE c_RESULT
DEALLOCATE c_RESULT
RETURN(@RESULT)
END
END

View File

@@ -0,0 +1,340 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.4' where NAME = 'Record-Organizer'
GO
CREATE TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
(
GUID INTEGER NOT NULL IDENTITY(1,1),
[ENTITY_ID] INTEGER NOT NULL,
[LANGUAGE] VARCHAR(5) NOT NULL DEFAULT 'de-DE',
COLUMN_VIEW VARCHAR(100) NOT NULL,
HEADER_CAPTION VARCHAR(100) NOT NULL,
WIDTH INTEGER NOT NULL DEFAULT 250,
[TYPE_ID] TINYINT NOT NULL DEFAULT 1,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_DOCSEARCH_RESULTLIST_CONFIG PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_DOCSEARCH_RESULTLIST_CONFIG_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID)
)
GO
CREATE TRIGGER TBPMO_DOCSEARCH_RESULTLIST_CONFIG_AFT_UPD ON TBPMO_DOCSEARCH_RESULTLIST_CONFIG
FOR UPDATE
AS
UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUID = INSERTED.GUID
GO
CREATE TABLE TBPMO_DOCSEARCH_VARIABLE_CONTROLS (
GUID INT IDENTITY(1,1) NOT NULL,
[ENTITY_ID] INT NOT NULL,
OPTION1_CTRL INT NOT NULL DEFAULT 0,
OPTION2_CTRL INT NOT NULL DEFAULT 0,
OPTION3_CTRL INT NOT NULL DEFAULT 0,
PTION4_CTRL INT NOT NULL DEFAULT 0,
OPTION5_CTRL INT NOT NULL DEFAULT 0,
OPTION6_CTRL INT NOT NULL DEFAULT 0,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT ('DEFAULT'),
ADDED_WHEN DATETIME NULL DEFAULT (GETDATE()),
CHANGED_WHO VARCHAR(50) NULL,
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_DOCSEARCH_VARIABLE_CONTROLS PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_DOCSEARCH_VARIABLE_CONTROLS_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID)
)
GO
CREATE TRIGGER TBPMO_DOCSEARCH_VARIABLE_CONTROLS_AFT_UPD ON TBPMO_DOCSEARCH_VARIABLE_CONTROLS
FOR UPDATE
AS
UPDATE TBPMO_DOCSEARCH_VARIABLE_CONTROLS SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCSEARCH_VARIABLE_CONTROLS.GUID = INSERTED.GUID
GO
CREATE TABLE TBPMO_STRUCTURE_NODES
(
GUID INTEGER NOT NULL IDENTITY(1,1),
[ENTITY_ID] INTEGER NOT NULL,
RECORD_ID INTEGER,
ID1 VARCHAR(100) NOT NULL,
ID2 VARCHAR(100),
ID3 VARCHAR(100),
ID4 VARCHAR(100),
[TYPE_NODE] SMALLINT NOT NULL DEFAULT 1,
CONTROL_ID INTEGER NOT NULL DEFAULT 0,
PARENT_GUID INTEGER NOT NULL DEFAULT 0,
BOOL1 BIT NOT NULL DEFAULT 0,
BOOL2 BIT NOT NULL DEFAULT 0,
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_STRUCTURE_NODES PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_STRUCTURE_NODESG_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID)
)
GO
CREATE TRIGGER TBPMO_STRUCTURE_NODES_AFT_UPD ON TBPMO_STRUCTURE_NODES
FOR UPDATE
AS
UPDATE TBPMO_STRUCTURE_NODES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_STRUCTURE_NODES.GUID = INSERTED.GUID
GO
CREATE TABLE TBPMO_STRUCTURE_NODES_CONFIGURATION
(
GUID INTEGER NOT NULL IDENTITY(1,1),
NAME VARCHAR(50) NOT NULL,
[ENTITY_ID] INTEGER NOT NULL,
[TYPE_NODE] SMALLINT NOT NULL DEFAULT 1,
NODE_IMAGE VARBINARY(MAX),
CREATE_RECORD BIT NOT NULL DEFAULT 0,
COMMENT VARCHAR(300),
ADDED_WHO VARCHAR(50) NOT NULL DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_STRUCTURE_NODES_CONFIGURATION PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID FOREIGN KEY (ENTITY_ID) REFERENCES TBPMO_FORM (GUID)
)
GO
CREATE TRIGGER TBPMO_STRUCTURE_NODES_CONFIGURATION_AFT_UPD ON TBPMO_STRUCTURE_NODES_CONFIGURATION
FOR UPDATE
AS
UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_STRUCTURE_NODES_CONFIGURATION.GUID = INSERTED.GUID
GO
ALTER PROCEDURE [dbo].[PRPMO_DELETE_ENTITY](@pENTITY_ID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_CLIENT_ENTITY WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = @pENTITY_ID
DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_CONTROL WHERE FORM_ID = @pENTITY_ID
IF OBJECT_ID (N'TBPMO_DOCSEARCH_RESULTLIST_CONFIG', N'U') IS NOT NULL
DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE [ENTITY_ID] = @pENTITY_ID
IF OBJECT_ID (N'TBPMO_STRUCTURE_NODES', N'U') IS NOT NULL
DELETE FROM TBPMO_STRUCTURE_NODES WHERE [ENTITY_ID] = @pENTITY_ID
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID)
DELETE FROM TBPMO_RECORD WHERE FORM_ID = @pENTITY_ID
DELETE FROM TBPMO_FORM WHERE GUID = @pENTITY_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
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRPMO_CREATE_CONSTRUCTOR] Script Date: 30.06.2016 15:01:24 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[PRPMO_CREATE_CONSTRUCTOR](@pFORM_ID INT, @pNAME VARCHAR(50))
AS
DECLARE
@NEW_CONSTR_ID INTEGER,
@FORM_ID INTEGER,
@PARENT_ID INTEGER,
@PARENT_ID2 INTEGER,
@LEVEL1_SELECT INTEGER,
@SEQUENCE INTEGER,
@SEQUENCE2 INTEGER,
@SQL_SELECT_EBENE1 VARCHAR(4000)
IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME))
INSERT INTO TBPMO_FORM_CONSTRUCTOR (FORM_TITLE,SEQUENCE_MENU,ADDED_WHO, SHORT_TITLE) VALUES
(@pNAME,1, 'CREATE_ROUTINE','SHORT-TITLE')
SELECT @NEW_CONSTR_ID = MAX(GUID) FROM TBPMO_FORM_CONSTRUCTOR WHERE UPPER(FORM_TITLE) = UPPER(@pNAME)
DECLARE c_ENTITY0 CURSOR FOR
SELECT T.GUID,T.LEVEL FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE
T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = 0 AND T.GUID = @pFORM_ID ORDER BY T.LEVEL
BEGIN
OPEN c_ENTITY0
FETCH NEXT FROM c_ENTITY0 INTO @FORM_ID,@SEQUENCE
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @NEW_CONSTR_ID AND FORM_ID = @FORM_ID AND PARENT_ID = 0)
INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
CONSTRUCT_ID
,FORM_ID
,PARENT_ID
,LEVEL1_SELECT
,SEQUENCE
,SQL_SELECT_EBENE1
,SQL_SELECT_EBENE2
,ADDED_WHO
) VALUES (
@NEW_CONSTR_ID
,@FORM_ID
,0
,0
,0
,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
,''
,'CREATE_ROUTINE2'
)
FETCH NEXT FROM c_ENTITY0 INTO @FORM_ID,@SEQUENCE
END
END
CLOSE c_ENTITY0
DEALLOCATE c_ENTITY0
DECLARE c_ENTITY1 CURSOR FOR
SELECT
T.GUID, T.PARENT_ID, T.LEVEL
FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = @FORM_ID ORDER BY T.LEVEL
BEGIN
OPEN c_ENTITY1
FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @NEW_CONSTR_ID AND FORM_ID = @FORM_ID AND PARENT_ID = @PARENT_ID)
BEGIN
PRINT 'c_ENTITY1: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @' + CONVERT(VARCHAR(3),@FORM_ID)
INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
CONSTRUCT_ID
,FORM_ID
,PARENT_ID
,LEVEL1_SELECT
,SEQUENCE
,SQL_SELECT_EBENE1
,SQL_SELECT_EBENE2
,ADDED_WHO
) VALUES (
@NEW_CONSTR_ID
,@FORM_ID
,@PARENT_ID
,0
,@SEQUENCE
,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
,'SELECT T.* FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@PARENT_ID) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
,'CREATE_ROUTINE2'
)
END
If EXISTS(SELECT * FROM TBPMO_FORM WHERE PARENT_ID = @FORM_ID)
BEGIN
PRINT 'c_ENTITY2: SELECT * FROM TBPMO_FORM WHERE PARENT_ID = ' + CONVERT(VARCHAR(3),@FORM_ID)
--###############
DECLARE c_ENTITY2 CURSOR FOR
SELECT
T.GUID, T.PARENT_ID, T.LEVEL
FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 AND T.PARENT_ID = @FORM_ID ORDER BY T.LEVEL
BEGIN
OPEN c_ENTITY2
FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
WHILE @@FETCH_STATUS = 0
BEGIN
INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (
CONSTRUCT_ID
,FORM_ID
,PARENT_ID
,LEVEL1_SELECT
,SEQUENCE
,SQL_SELECT_EBENE1
,SQL_SELECT_EBENE2
,ADDED_WHO
) VALUES (
@NEW_CONSTR_ID
,@FORM_ID
,@PARENT_ID2
,0
,@SEQUENCE2
,'SELECT * FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@FORM_ID)
,'SELECT T.* FROM VWTEMP_PMO_FORM' + CONVERT(VARCHAR(5),@PARENT_ID2) + ' AS T, TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID'
,'CREATE_ROUTINE3'
)
FETCH NEXT FROM c_ENTITY2 INTO @FORM_ID,@PARENT_ID2,@SEQUENCE2
END
CLOSE c_ENTITY2
DEALLOCATE c_ENTITY2
END
END
--###############
FETCH NEXT FROM c_ENTITY1 INTO @FORM_ID,@PARENT_ID,@SEQUENCE
END
CLOSE c_ENTITY1
DEALLOCATE c_ENTITY1
END
GO
ALTER VIEW [dbo].[VWPMO_CONSTRUCTOR_FORMS] AS
SELECT TOP 100 PERCENT
T2.GUID,
T1.GUID FORM_VIEW_ID,
T1.SCREEN_ID,
T2.CONSTRUCT_ID,
T.PARENT_ID,
T2.SEQUENCE,
T2.LEVEL1_SELECT,
T.GUID AS FORM_ID,
T1.FORM_TITLE,
T2.SQL_SELECT_EBENE1,
T2.SQL_SELECT_EBENE2,
T2.SQL_QUICK_VIEW,
T2.COLUMN_NAME1,
T2.COLUMN_NAME2,
T.FORM_TYPE_ID,
T2.LOAD_DIRECT,
T2.CONTROL_DOCTYPE_MATCH,
T2.SQL_RIGHT_READ_AND_VIEW_ONLY,
T2.SQL_RIGHT_WINDREAM_VIEW,
(SELECT COUNT(GUID) FROm TBPMO_CONTROL WHERE FORM_ID = T1.FORM_ID AND TREE_VIEW = 1) AS COUNT_TREEVIEW
FROM
tbpmo_form T,
TBPMO_FORM_VIEW T1,
TBPMO_FORM_CONSTRUCTOR_DETAIL T2
where
T2.FORM_ID = T.GUID AND
T.GUID = T1.FORM_ID
ORDER BY
T2.CONSTRUCT_ID,T.PARENT_ID,T2.SEQUENCE
GO
ALTER TABLE TBPMO_RECORD
ADD NODE_GUID INTEGER
GO
ALTER TABLE TBPMO_WORKFLOW
ADD MANUALLY BIT NOT NULL DEFAULT 0
GO
ALTER TRIGGER [dbo].[TBPMO_RECORD_AFT_INS] ON [dbo].[TBPMO_RECORD]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN TRY
DECLARE
@RECORD_ID INTEGER,
@MAX_ID INTEGER,
@FORM_ID INTEGER,
@WF_ID INTEGER,
@PARENT_ID INTEGER
SELECT
@FORM_ID = FORM_ID,
@RECORD_ID = GUID
FROM INSERTED
IF EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID)
SELECT @MAX_ID = MAX(RECORD_ENTITY_ID) + 1
FROM TBPMO_RECORD WHERE FORM_ID = @FORM_ID AND GUID <> @RECORD_ID
ELSE
SET @MAX_ID = 1
UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = @MAX_ID FROM INSERTED WHERE TBPMO_RECORD.GUID = INSERTED.GUID
----Überprüfen ob für die Entity_ID Workflows definiert sind?
IF EXISTS(
SELECT DISTINCT T.[ENTITY_ID] FROM TBPMO_WORKFLOW_ENTITY_STATE T,TBPMO_WORKFLOW T1 where T.WF_ID = T1.GUID AND T1.MANUALLY = 0 AND T.[ENTITY_ID] = @FORM_ID
)
BEGIN
EXECUTE dbo.PRPMO_CREATE_WF_TASKS @FORM_ID, @RECORD_ID
END
END TRY
BEGIN CATCH
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
+ ' - FEHLER-MESSAGE: '
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
END CATCH

View File

@@ -0,0 +1,348 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.5' where NAME = 'Record-Organizer'
GO
Create FUNCTION [dbo].[FNPMO_GET_WINDREAM_VKT_INT](@pdwDocID INTEGER,@pdwAttributID INTEGER)
RETURNS VARCHAR(4000)
AS
BEGIN
DECLARE
@RESULT VARCHAR(4000),
@VALUE INTEGER
DECLARE c_RESULT CURSOR FOR SELECT [dwValue] FROM [172.24.12.41\BRAINPOOL].[windream60].[dbo].[Vector]
where dwDocID = @pdwDocID and dwAttrID = @pdwAttributID
BEGIN
OPEN c_RESULT
FETCH NEXT FROM c_RESULT INTO @VALUE
WHILE @@FETCH_STATUS = 0
BEGIN
IF LEN(@RESULT) > 0
SET @RESULT = @RESULT + CONVERT(VARCHAR(30),@VALUE) + '#'
ELSE
SET @RESULT = '#' + CONVERT(VARCHAR(30),@VALUE) + '#'
FETCH NEXT FROM c_RESULT INTO @VALUE
END
CLOSE c_RESULT
DEALLOCATE c_RESULT
RETURN(@RESULT)
END
END
CREATE TABLE TBPMO_INDEX_MAN
(
GUID INT IDENTITY(1,1),
DOCTYPE_ID INT NOT NULL,
[ENTITY_ID] INT NOT NULL,
NAME VARCHAR(50) NOT NULL,
COL_VISIBLE BIT DEFAULT 1 NOT NULL,
COLUMN_CAPTION VARCHAR(50) DEFAULT '' NOT NULL,
ECM_INDEX VARCHAR(50) DEFAULT '' NOT NULL,
COMMENT VARCHAR(250),
DATATYPE VARCHAR(50),
SUGGESTION BIT DEFAULT 0 NOT NULL, -- 1 - Es wird Eingabe vorgeschlagen, bei 0 - manuelle Eingabe.
DEFAULT_VALUE VARCHAR(100) NOT NULL DEFAULT '',
CONNECTION_ID SMALLINT DEFAULT 0,
SEQUENCE INTEGER NOT NULL DEFAULT 1,
SQL_RESULT VARCHAR(2000) NOT NULL DEFAULT '',
SQL_CHECK VARCHAR(2000) NOT NULL DEFAULT '',
OPTIONAL BIT DEFAULT 0 NOT NULL,
SAVE_VALUE BIT DEFAULT 0 NOT NULL,
ACTIVE BIT DEFAULT 1 NOT NULL, -- 1 - Index aktiv, bei 0 - inaktiv.
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT' NOT NULL,
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_INDEX_MAN PRIMARY KEY(GUID),
CONSTRAINT FK_TBPMO_INDEX_MAN_DOCTYPE_ID FOREIGN KEY(DOCTYPE_ID) REFERENCES TBDD_DOKUMENTART(GUID),
CONSTRAINT FK_TBPMO_INDEX_MAN_CID FOREIGN KEY(CONNECTION_ID) REFERENCES TBDD_CONNECTION(GUID)
)
GO
------------------------------------------------------------------------------
CREATE TRIGGER TBPMO_INDEX_MAN_AFT_UPD ON TBPMO_INDEX_MAN
FOR UPDATE
AS
BEGIN
UPDATE TBPMO_INDEX_MAN SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_INDEX_MAN.GUID = INSERTED.GUID
END
GO
CREATE TABLE TBPMO_DOC_INDICES
(
GUID INTEGER NOT NULL IDENTITY(1,1),
[DocID] INTEGER NOT NULL,
[INDEX_ID] INTEGER NOT NULL,
[VALUE] VARCHAR(MAX) NOT NULL,
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_DOC_INDICES PRIMARY KEY (GUID),
CONSTRAINT FK_TBPMO_DOC_INDICES_INDEX_ID FOREIGN KEY([INDEX_ID]) REFERENCES TBPMO_INDEX_MAN(GUID),
)
GO
CREATE TRIGGER TBPMO_DOC_INDICES_AFT_UPD ON TBPMO_DOC_INDICES
FOR UPDATE
AS
UPDATE TBPMO_DOC_INDICES SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOC_INDICES.[DocID] = INSERTED.[DocID]
GO
ALTER TABLE TBPMO_DOCSEARCH_RESULTLIST_CONFIG
ADD VISIBLE BIT NOT NULL DEFAULT 1
CREATE TABLE TBPMO_DOCRESULT_LIST
(
[DocID] INTEGER NOT NULL,
[ENTITY_ID] VARCHAR(500) NOT NULL,
[RECORD_ID] VARCHAR(500) NOT NULL,
[PARENT_ID] VARCHAR(500) NOT NULL,
[DISPLAY_NAME] VARCHAR(250) NOT NULL,
[FULL_FILENAME] VARCHAR(5000) NOT NULL,
[Filename] VARCHAR(500) NOT NULL,
[Doctype] VARCHAR(250) NOT NULL,
[Version] SMALLINT NOT NULL DEFAULT 0,
[Objecttype] VARCHAR(250) NOT NULL,
Creation_DateTime DATETIME NOT NULL,
Change_DateTime DATETIME,
STRING1 VARCHAR(500),
STRING2 VARCHAR(500),
STRING3 VARCHAR(500),
STRING4 VARCHAR(500),
STRING5 VARCHAR(500),
STRING6 VARCHAR(500),
STRING7 VARCHAR(500),
STRING8 VARCHAR(500),
STRING9 VARCHAR(500),
STRING10 VARCHAR(500),
IN_WORK BIT NOT NULL DEFAULT 0,
IN_WORK_USER VARCHAR(250),
IN_WORK_COMMENT VARCHAR(500),
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_DOCRESULT_LIST PRIMARY KEY ([DocID])
)
GO
CREATE TRIGGER TBPMO_DOCRESULT_LIST_AFT_UPD ON TBPMO_DOCRESULT_LIST
FOR UPDATE
AS
UPDATE TBPMO_DOCRESULT_LIST SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOCRESULT_LIST.[DocID] = INSERTED.[DocID]
GO
USE [DD_ECM_RENOLIT]
GO
CREATE VIEW [dbo].[VWPMO_WD_DOC_SYNC] AS
SELECT
T.dwDocID as DocID
,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,339) AS [ENTITY_ID]
,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,338) AS [RECORD_ID]
,[dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,340) AS [PARENT_ID]
,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) + T.szLongName AS FULL_FILENAME
,szLongName as [Filename],
T.szText39 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
FROM
[172.24.12.41\SDD_VMX02_APS02].windream60.dbo.BaseAttributes T
,[172.24.12.41\SDD_VMX02_APS02].windream60.dbo.ObjectType T1
WHERE
--T.dwObjectTypeID > 23 AND
T.dwObjectTypeID = T1.dwObjectTypeID
AND [dbo].[FNPMO_GET_WINDREAM_VKT_INT](T.dwDocID,338) is not null
GO
---
CREATE PROCEDURE [dbo].[PRPMO_DOCRESULT_CREATE]
AS
BEGIN TRY
DECLARE @DocID INTEGER,
@ENTITY_ID VARCHAR(500),
@RECORD_ID VARCHAR(500),
@PARENT_ID VARCHAR(500),
@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,ISNULL([ENTITY_ID],0),RECORD_ID,ISNULL(PARENT_ID,0),[Filename],REPLACE(REPLACE(FULL_FILENAME,'\\\','\'),'\\','\'),[Filename],[Doctype],[Version],Objecttype,
Creation_DateTime,Change_DateTime from VWPMO_WD_DOC_SEARCH --WHERE CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE())
OPEN c_Values
FETCH NEXT FROM c_Values INTO @DocID,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
@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)
INSERT INTO TBPMO_DOCRESULT_LIST (
[DocID],
[ENTITY_ID],
[RECORD_ID],
[PARENT_ID],
[DISPLAY_NAME],
[FULL_FILENAME],
[Filename],
[Doctype],
[Version],
[Objecttype],
Creation_DateTime,
Change_DateTime)
VALUES (
@DocID,
@ENTITY_ID,
@RECORD_ID,
@PARENT_ID,
@Filename,
@FULL_FILENAME,
@Filename,
@Doctype,
@Version,
@Objecttype,
@Creation_DateTime,
@Change_DateTime
)
--#####
FETCH NEXT FROM c_Values INTO @DocID,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
@Filename,@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
END
CLOSE c_Values
DEALLOCATE c_Values
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
CREATE PROCEDURE [dbo].[PRPMO_DOCRESULT_CHANGE]
AS
BEGIN TRY
DECLARE @DocID INTEGER,
@ENTITY_ID VARCHAR(500),
@RECORD_ID VARCHAR(500),
@PARENT_ID VARCHAR(500),
@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,ISNULL([ENTITY_ID],0),RECORD_ID,ISNULL(PARENT_ID,0),[Filename],REPLACE(REPLACE(FULL_FILENAME,'\\\','\'),'\\','\'),
[Filename],ISNULL([Doctype],'') as Doctype,ISNULL([Version],0) as [Version],Objecttype,
Creation_DateTime,Change_DateTime from VWPMO_WD_DOC_SYNC WHERE CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE())
OPEN c_Values
FETCH NEXT FROM c_Values INTO @DocID,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
@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],
[ENTITY_ID],
[RECORD_ID],
[PARENT_ID],
[DISPLAY_NAME],
[FULL_FILENAME],
[Filename],
[Doctype],
[Version],
[Objecttype],
Creation_DateTime,
Change_DateTime)
VALUES (
@DocID,
@ENTITY_ID,
@RECORD_ID,
@PARENT_ID,
@Filename,
@FULL_FILENAME,
@Filename,
@Doctype,
@Version,
@Objecttype,
@Creation_DateTime,
@Change_DateTime
)
END
ELSE
UPDATE TBPMO_DOCRESULT_LIST SET
[ENTITY_ID] = @ENTITY_ID,
[RECORD_ID] = @RECORD_ID,
[PARENT_ID] = @PARENT_ID,
[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,@ENTITY_ID,@RECORD_ID,@PARENT_ID,@Filename,@FULL_FILENAME,
@Filename,@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
END
CLOSE c_Values
DEALLOCATE c_Values
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 PROCEDURE [dbo].[PRPMO_DELETE_DOCTYPE](@pDOCID INT)
AS
BEGIN TRY
DELETE FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID IN (SELECT GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = @pDOCID)
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 TBPMO_INDEX_MAN 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
CREATE VIEW VWPMO_DOC_INDICES AS
SELECT
T.DocID,
T.VALUE,
T1.COLUMN_CAPTION,
T1.GUID AS INDEX_ID,
T1.NAME AS INDEX_NAME
FROM
TBPMO_DOC_INDICES T,
TBPMO_INDEX_MAN T1
WHERE
T.INDEX_ID = T1.GUID AND
T1.COL_VISIBLE = 1

View File

@@ -0,0 +1,48 @@
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.5.6' where NAME = 'Record-Organizer'
GO
CREATE TABLE TBPMO_DOC_USER_VIEW
(
GUID INTEGER NOT NULL IDENTITY(1,1),
[USER_ID] INTEGER NOT NULL,
[FILE_EXTENSION] VARCHAR(10) NOT NULL,
[VIEWER] VARCHAR(100) NOT NULL DEFAULT 'DOC_VIEW',
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT',
ADDED_WHEN DATETIME DEFAULT GETDATE(),
CHANGED_WHO VARCHAR(50),
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBPMO_DOC_USER_VIEW PRIMARY KEY ([GUID]),
CONSTRAINT FK_PK_TBPMO_DOC_USER_VIEW_USER_ID FOREIGN KEY(USER_ID) REFERENCES TBDD_USER(GUID)
)
GO
CREATE TRIGGER TBPMO_DOC_USER_VIEW_UPD ON TBPMO_DOC_USER_VIEW
FOR UPDATE
AS
UPDATE TBPMO_DOC_USER_VIEW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_DOC_USER_VIEW.GUID = INSERTED.GUID
GO
ALTER TABLE TBPMO_WD_FORMVIEW_DOKTYPES
ADD MANUAL_SUBFOLDER BIT NOT NULL DEFAULT 0
GO
ALTER TABLE [dbo].[TBPMO_INDEX_MAN] DROP CONSTRAINT [FK_TBPMO_INDEX_MAN_DOCTYPE_ID]
GO
ALTER TABLE [dbo].[TBPMO_INDEX_MAN] WITH CHECK ADD CONSTRAINT [FK_TBPMO_INDEX_MAN_DOCTYPE_ID] FOREIGN KEY([DOCTYPE_ID])
REFERENCES [dbo].[TBDD_DOKUMENTART] ([GUID])
GO
ALTER TABLE [dbo].[TBPMO_INDEX_MAN] CHECK CONSTRAINT [FK_TBPMO_INDEX_MAN_DOCTYPE_ID]
GO
ALTER TABLE [dbo].[TBPMO_DOC_INDICES] DROP CONSTRAINT [PK_TBPMO_DOC_INDICES]
GO
ALTER TABLE [dbo].[TBPMO_DOC_INDICES]
ADD GUID INTEGER NOT NULL IDENTITY(1,1)
GO
ALTER TABLE [dbo].[TBPMO_DOC_INDICES] ADD CONSTRAINT [PK_TBPMO_DOC_INDICES] PRIMARY KEY CLUSTERED
(
[GUID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO

Some files were not shown because too many files have changed in this diff Show More