271 lines
9.6 KiB
Transact-SQL
271 lines
9.6 KiB
Transact-SQL
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.8.9' where NAME = 'Record-Organizer'
|
||
GO
|
||
CREATE PROCEDURE [dbo].[PRPMO_DOC_CHANGE_DOCID](@pOLD_DOCID INTEGER, @pNEW_DOCID INTEGER,@pWHO As VARCHAR(50))
|
||
AS
|
||
BEGIN TRY
|
||
UPDATE TBPMO_DOCRESULT_LIST SET DocID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DocID = @pOLD_DOCID
|
||
UPDATE TBPMO_DOC_RECORD_LINK SET DOC_ID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DOC_ID = @pOLD_DOCID
|
||
UPDATE TBPMO_DOC_INDICES SET DocID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DocID = @pOLD_DOCID
|
||
UPDATE TBPMO_DOC_VALUES SET DocID = @pNEW_DOCID,CHANGED_WHO = @pWHO WHERE DocID = @pOLD_DOCID
|
||
|
||
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 VIEW [dbo].[VWPMO_CONTROL_SCREEN] AS
|
||
SELECT TOP 100 PERCENT
|
||
T.GUID CONTROL_ID,
|
||
T.FORM_ID CONTROL_ENTITY_ID,
|
||
T.NAME CONTROL_NAME,
|
||
T.REQUIRED CONTROL_REQUIRED,
|
||
T.DEFAULT_VALUE CONTROL_DEF_VALUE,
|
||
T.READ_ONLY CONTROL_READ_ONLY,
|
||
T.SELECT_ONLY CONTROL_SELECT_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,
|
||
T.AUTO_SUGGEST CONTROL_AUTO_SUGGEST,
|
||
T4.GUID CTRLTYPE_ID,
|
||
T4.TYPE_NAME CTRLTYPE_NAME,
|
||
T.FORMAT_TYPE CONTROL_FORMAT_TYPE,
|
||
T.FORM_ID,
|
||
T3.NAME FORM_NAME,
|
||
T5.GUID FORM_VIEW_ID,
|
||
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,
|
||
TBPMO_FORM_VIEW T5
|
||
WHERE
|
||
T.FORM_ID = T3.GUID AND
|
||
T3.GUID = T5.FORM_ID 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_DOC_SYNC] AS
|
||
/*SELECT TOP 100 PERCENT
|
||
T.dwDocID as DocID
|
||
,T.dwParentID
|
||
,dbo.FNPMO_GET_WINDREAM_FILE_PATH (T.dwDocID) AS FULL_FILENAME
|
||
,szLongName AS [Filename]
|
||
,ISNULL(T.wmVar09,'NO DOCTYPE') AS Doctype
|
||
,ISNULL(T.dwVersionNumber,'1') AS [Version]
|
||
,CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwCreationDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwCreation_Time)) + convert(VARCHAR(6),T.dwCreation_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) AS [Creation_DateTime]
|
||
,CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),T.dwChangeDate)) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(T.dwChange_Time)) + convert(VARCHAR(6),T.dwChange_Time),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) AS Change_DateTime
|
||
,T1.szDocTypeName AS OBJECTTYPE
|
||
,T.dwObjectTypeID
|
||
FROM
|
||
DD_VMP01_APS01_windream60.dbo.BaseAttributes T
|
||
,DD_VMP01_APS01_windream60.dbo.ObjectType T1
|
||
WHERE
|
||
T.dwCatalogID = 1
|
||
AND T.dwObjectTypeID = 10005
|
||
AND T.dwObjectTypeID = T1.dwObjectTypeID
|
||
AND T.szText30 = 'ADDI-RELATION'
|
||
*/
|
||
SELECT TOP 100 PERCENT
|
||
MAX(T.dwDocID) as DocID
|
||
,T.dwParentID
|
||
,dbo.FNPMO_GET_WINDREAM_FILE_PATH (MAX(T.dwDocID)) AS FULL_FILENAME
|
||
,(SELECT szLongName from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID)) AS [Filename]
|
||
|
||
,ISNULL(T.wmVar09,'NO DOCTYPE') AS Doctype
|
||
,(SELECT MAX(ISNULL(T.dwVersionNumber,'1')) from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID)) AS [Version]
|
||
,(SELECT CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),MAX(T.dwCreationDate))) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(MAX(T.dwCreation_Time))) + convert(VARCHAR(6),MAX(T.dwCreation_Time)),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID)) AS [Creation_DateTime]
|
||
,(SELECT CAST(CAST(CONVERT(DATE,CONVERT(VARCHAR(10),MAX(T.dwChangeDate))) AS DATETIME) + CAST(STUFF(STUFF(REPLICATE('0',6-LEN(MAX(T.dwChange_Time))) + convert(VARCHAR(6),MAX(T.dwChange_Time)),3,0,':'),6,0,':') AS DATETIME) AS DATETIME) from DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwDocID = MAX(T.dwDocID)) AS Change_DateTime
|
||
,T1.szDocTypeName AS OBJECTTYPE
|
||
,T.dwObjectTypeID
|
||
FROM
|
||
DD_VMP01_APS01_windream60.dbo.BaseAttributes T
|
||
,DD_VMP01_APS01_windream60.dbo.ObjectType T1
|
||
WHERE
|
||
--T.dwParentID = 1896955 AND
|
||
T.dwCatalogID = 1
|
||
AND T.dwObjectTypeID = 10005
|
||
AND T.dwObjectTypeID = T1.dwObjectTypeID
|
||
AND T.szText30 = 'ADDI-RELATION'
|
||
GROUP BY
|
||
T.dwVersionID
|
||
,T.dwParentID
|
||
--,T.szLongName
|
||
,ISNULL(T.wmVar09,'NO DOCTYPE')
|
||
,T1.szDocTypeName
|
||
,T.dwObjectTypeID
|
||
ORDER BY [Creation_DateTime]
|
||
GO
|
||
|
||
CREATE TABLE TBPMO_FILE_FORMATS_CHANGE
|
||
(
|
||
GUID INTEGER IDENTITY(0,1), -- Eindeutiger Tabellenschl<68>ssel
|
||
FILE_EXT VARCHAR(50),
|
||
ADDED_WHO VARCHAR(50) DEFAULT 'DEFAULT' NOT NULL,
|
||
ADDED_WHEN DATETIME DEFAULT GETDATE() NOT NULL,
|
||
CHANGED_WHO VARCHAR(50),
|
||
CHANGED_WHEN DATETIME,
|
||
CONSTRAINT PK_TBPMO_FILE_FORMATS_CHANGE PRIMARY KEY (FILE_EXT)
|
||
)
|
||
GO
|
||
INSERT INTO TBPMO_FILE_FORMATS_CHANGE(FILE_EXT)
|
||
SELECT '.xlsx' UNION
|
||
SELECT '.xls ' UNION
|
||
SELECT '.xlsb ' UNION
|
||
SELECT '.xla ' UNION
|
||
SELECT '.xlsm ' UNION
|
||
SELECT '.doc ' UNION
|
||
SELECT '.dot ' UNION
|
||
SELECT '.wbk ' UNION
|
||
SELECT '.docx ' UNION
|
||
SELECT '.docm ' UNION
|
||
SELECT '.dotm ' UNION
|
||
SELECT '.ppt ' UNION
|
||
SELECT '.pot ' UNION
|
||
SELECT '.pps ' UNION
|
||
SELECT '.pptx ' UNION
|
||
SELECT '.pptm ' UNION
|
||
SELECT '.potx ' UNION
|
||
SELECT '.dwg'
|
||
|
||
GO
|
||
DROP TABLE TBPMO_DOC_ID_CHANGED
|
||
GO
|
||
CREATE TABLE [dbo].[TBPMO_DOC_ID_CHANGED](
|
||
[GUID] INTEGER IDENTITY(1,1) NOT NULL,
|
||
[USER_ID] INTEGER NOT NULL,
|
||
[PROCESS_ID] VARCHAR(50) NOT NULL,
|
||
[OLD_DOC_ID] INTEGER NOT NULL,
|
||
VERSION_ID INTEGER NOT NULL,
|
||
DOC_PATH VARCHAR(500) NOT NULL,
|
||
[NEW_DOC_ID] INTEGER NULL,
|
||
[CREATED_WHEN] DATETIME NULL DEFAULT GETDATE(),
|
||
CHANGED_WHEN DATETIME,
|
||
CONSTRAINT PK_TBPMO_DOC_ID_CHANGED PRIMARY KEY ([GUID])
|
||
) ON [PRIMARY]
|
||
GO
|
||
DROP TABLE TBPMO_DOC_USER_REFRESH_VIEW
|
||
GO
|
||
CREATE TABLE [dbo].[TBPMO_DOC_USER_REFRESH_VIEW](
|
||
GUID INTEGER IDENTITY(1,1) NOT NULL,
|
||
[USER_ID] INTEGER NOT NULL,
|
||
CREATED_WHEN DATETIME NULL DEFAULT GETDATE(),
|
||
REFRESHED_WHEN DATETIME,
|
||
CONSTRAINT PK_TBPMO_DOC_USER_REFRESH_VIEW PRIMARY KEY ([GUID])
|
||
) ON [PRIMARY]
|
||
GO
|
||
CREATE PROCEDURE [dbo].[PRPMO_DOC_HANDLE_DOCID_CHANGED] AS
|
||
DECLARE
|
||
@GUID INTEGER,
|
||
@OLD_DOC_ID INTEGER,
|
||
@VERSION_ID INTEGER,
|
||
@DOC_PATH VARCHAR(500),
|
||
@USER_ID INTEGER
|
||
|
||
DECLARE c_REDO CURSOR FOR
|
||
SELECT GUID,OLD_DOC_ID,VERSION_ID,DOC_PATH,USER_ID FROM TBPMO_DOC_ID_CHANGED WHERE NEW_DOC_ID IS NULL
|
||
OPEN c_REDO
|
||
FETCH NEXT FROM c_REDO INTO @GUID,@OLD_DOC_ID,@VERSION_ID,@DOC_PATH,@USER_ID
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
IF NOT EXISTS(SELECT DocID FROM VWPMO_DOC_SYNC WHERE DocID = @OLD_DOC_ID)
|
||
BEGIN
|
||
DECLARE @NEW_DOC_ID INTEGER
|
||
SELECT @NEW_DOC_ID = MAX(dwDocID) FROM DD_VMP01_APS01_windream60.dbo.BaseAttributes WHERE dwVersionID = @VERSION_ID
|
||
IF @NEW_DOC_ID > 0
|
||
BEGIN
|
||
EXEC PRPMO_DOC_CHANGE_DOCID @OLD_DOC_ID,@NEW_DOC_ID,'DD_HANDLE_DOC_CHANGED'
|
||
UPDATE TBPMO_DOC_ID_CHANGED SET NEW_DOC_ID = @NEW_DOC_ID, CHANGED_WHEN = GETDATE() WHERE GUID = @GUID
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_USER_REFRESH_VIEW WHERE USER_ID = @USER_ID AND REFRESHED_WHEN IS NULL)
|
||
INSERT INTO TBPMO_DOC_USER_REFRESH_VIEW (USER_ID) VALUES (@USER_ID)
|
||
END
|
||
END
|
||
FETCH NEXT FROM c_REDO INTO @GUID,@OLD_DOC_ID,@VERSION_ID,@DOC_PATH,@USER_ID
|
||
END
|
||
CLOSE c_REDO
|
||
DEALLOCATE c_REDO
|
||
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 PRPMO_CREATE_ENTITY_TABLE @FORM_ID
|
||
EXEC PRPMO_CREATE_ENTITY_TABLE_VIEW @FORM_ID
|
||
--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
|
||
|
||
|
||
|