340 lines
15 KiB
Transact-SQL
340 lines
15 KiB
Transact-SQL
UPDATE TBDD_MODULES SET PRODUCT_VERSION = '2.4.7.4' where NAME = 'Record-Organizer'
|
||
GO
|
||
ALTER TRIGGER [dbo].[TBPMO_FORM_VIEW_AFT_UPD] ON [dbo].[TBPMO_FORM_VIEW]
|
||
FOR UPDATE
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE
|
||
@FORM_TITLE VARCHAR(50),
|
||
@LANGUAGE VARCHAR(5),
|
||
@CHANGED_WHO VARCHAR(50),
|
||
@GUID INTEGER,
|
||
@SCREEN_ID INTEGER,
|
||
@PMO_OBJECT_NAME VARCHAR(100),
|
||
@ENTITY_ID INTEGER,
|
||
@DOC_VIEW BIT
|
||
SELECT
|
||
@GUID = GUID,
|
||
@FORM_TITLE = FORM_TITLE,
|
||
@SCREEN_ID = SCREEN_ID,
|
||
@CHANGED_WHO = CHANGED_WHO,
|
||
@ENTITY_ID = FORM_ID,
|
||
@DOC_VIEW = DOCUMENT_VIEW
|
||
FROM INSERTED
|
||
SELECT @LANGUAGE = [LANGUAGE] FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER(@CHANGED_WHO)
|
||
SET @PMO_OBJECT_NAME = 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),@GUID)
|
||
|
||
UPDATE TBPMO_FORM_VIEW SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_FORM_VIEW.GUID = INSERTED.GUID
|
||
IF UPDATE (FORM_TITLE)
|
||
BEGIN
|
||
IF @LANGUAGE is not null
|
||
If EXISTS(SELECT * FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
|
||
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID)
|
||
UPDATE TBPMO_LANGUAGE_OBJECT SET CAPTION = @FORM_TITLE,CHANGED_WHO = @CHANGED_WHO WHERE
|
||
PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND
|
||
LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID
|
||
ELSE
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_LANGUAGE_OBJECT WHERE LANGUAGE_TYPE = @LANGUAGE AND SCREEN_ID = @SCREEN_ID AND PMO_OBJECT_NAME = @PMO_OBJECT_NAME AND CAPTION = @FORM_TITLE)
|
||
BEGIN TRY
|
||
INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES
|
||
(@LANGUAGE,@SCREEN_ID,@PMO_OBJECT_NAME,@FORM_TITLE)
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 72'
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
END
|
||
IF UPDATE(DOCUMENT_VIEW)
|
||
IF @DOC_VIEW = 1
|
||
BEGIN
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Dateiname' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'Filename','Dateiname')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Dokumentart' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'Doctype','Dokumentart')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'IN_WORK','in work?',50,2)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'IN_WORK_USER','IW_USER',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'IN_WORK_COMMENT','IW_COMMENT',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Erstellt' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'Creation_DateTime','Erstellt',100,4)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Ge<EFBFBD>ndert' AND LANGUAGE = 'de-DE')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'Change_DateTime','Ge<EFBFBD>ndert',100,4)
|
||
--####
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Filename' AND HEADER_CAPTION = 'Filename' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'en-US','Filename','Filename')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Doctype' AND HEADER_CAPTION = 'Doctype' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION) VALUES
|
||
(@ENTITY_ID,'en-US','Doctype','Doctype')
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK' AND HEADER_CAPTION = 'in work?' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'en-US','IN_WORK','in work?',50,2)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_USER' AND HEADER_CAPTION = 'IW_USER' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'en-US','IN_WORK_USER','IW_USER',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'IN_WORK_COMMENT' AND HEADER_CAPTION = 'IW_COMMENT' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,VISIBLE) VALUES
|
||
(@ENTITY_ID,'en-US','IN_WORK_COMMENT','IW_COMMENT',0)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Creation_DateTime' AND HEADER_CAPTION = 'Created' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'en-US','Creation_DateTime','Created',100,4)
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND COLUMN_VIEW = 'Change_DateTime' AND HEADER_CAPTION = 'Changed' AND LANGUAGE = 'en-US')
|
||
INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG (ENTITY_ID,LANGUAGE,COLUMN_VIEW,HEADER_CAPTION,WIDTH,TYPE_ID) VALUES
|
||
(@ENTITY_ID,'en-US','Change_DateTime','Changed',100,4)
|
||
END
|
||
ELSE
|
||
DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'ERROR IN PROCEDURE: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ROW 84'
|
||
+ ' - ERROR-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH
|
||
GO
|
||
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 = 3 AND CONFIG_COLUMNS = 1) >= 1
|
||
BEGIN
|
||
INSERT INTO TBPMO_DOC_VALUES (DocID,RECORD_ID,CONFIG_ID,VALUE,ADDED_WHO)
|
||
SELECT @DOC_ID,@RECORD_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
|
||
IF (SELECT COUNT(GUID) FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = @ENTITY_ID AND TYPE_ID <> 3 AND CONFIG_COLUMNS = 1) >= 1
|
||
INSERT INTO TBPMO_DOC_VALUES (DocID,RECORD_ID,CONFIG_ID,VALUE,ADDED_WHO)
|
||
SELECT @DOC_ID,@RECORD_ID,T.GUID,'',@ADDED_WHO FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG T WHERE T.ENTITY_ID = @ENTITY_ID AND T.TYPE_ID <> 4 AND T.CONFIG_COLUMNS = 1
|
||
/*###### KUNDEN-INDIVIDUELL - BEGIN ####################################################################*/
|
||
DECLARE
|
||
@ENITTY_ID INTEGER,
|
||
@DOCTYPE VARCHAR(250),
|
||
@SUPPLIER VARCHAR(250)
|
||
SELECT @ENITTY_ID = FORM_ID FROM TBPMO_RECORD WHERE GUID = @RECORD_ID
|
||
|
||
IF @ENITTY_ID = 21
|
||
BEGIN
|
||
SELECT @SUPPLIER = VALUE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = @RECORD_ID AND CONTROL_ID = 258
|
||
SELECT @DOCTYPE = T.Doctype FROM TBPMO_DOCRESULT_LIST T, TBPMO_DOC_RECORD_LINK T1 WHERE T.DocID = T1.DOC_ID AND T1.RECORD_ID = @RECORD_ID
|
||
IF @SUPPLIER <> '' and @DOCTYPE <> '' AND @DOCTYPE IN ('55.SA','23B.NDA/CA')
|
||
BEGIN
|
||
INSERT INTO TBPMO_DOC_RECORD_LINK (DOC_ID,RECORD_ID,ADDED_WHO) SELECT @DOC_ID,[Record-ID],'TBPMO_DOC_RECORD_LINK_AFT_INS' FROM VWTEMP_PMO_FORM19 where UPPER(Supplier_name) = UPPER(@SUPPLIER)
|
||
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 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 TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBDD_USER_MODULES WHERE USER_ID = @pUSER_ID
|
||
DELETE FROM TBDD_VERSION_USER_UPDATE_PATH 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
|
||
|
||
ALTER TRIGGER [dbo].[TBDD_USER_AFT_UPD] ON [dbo].[TBDD_USER]
|
||
FOR UPDATE
|
||
AS
|
||
BEGIN
|
||
DECLARE @USRNAME VARCHAR(50)
|
||
SELECT @USRNAME = USERNAME FROM inserted
|
||
IF UPDATE (USERNAME)
|
||
BEGIN
|
||
DECLARE @ECM_USR_ID INTEGER
|
||
SELECT @ECM_USR_ID = [dwUserID]
|
||
FROM [172.24.12.41\BRAINPOOL].windream60.[dbo].[UserInfo] where UPPER(szUserName) = UPPER(@USRNAME)
|
||
IF @ECM_USR_ID IS NOT NULL
|
||
UPDATE TBDD_USER SET USERID_FK_INT_ECM = @ECM_USR_ID
|
||
FROM INSERTED
|
||
WHERE TBDD_USER.GUID = INSERTED.GUID
|
||
END
|
||
UPDATE TBDD_USER SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBDD_USER.GUID = INSERTED.GUID
|
||
END
|
||
GO
|
||
ALTER PROCEDURE [dbo].[PRPMO_DOCRESULT_CHANGE]
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE @DocID INTEGER,
|
||
@DISPLAY_NAME VARCHAR(250),
|
||
@FULL_FILENAME VARCHAR(5000),
|
||
@Filename VARCHAR(500),
|
||
@Doctype VARCHAR(250),
|
||
@Version SMALLINT,
|
||
@Objecttype VARCHAR(250),
|
||
@Creation_DateTime DATETIME,
|
||
@Change_DateTime DATETIME
|
||
DECLARE c_Values CURSOR LOCAL FOR
|
||
select DocID, [Filename], FULL_FILENAME,
|
||
Doctype, [Version] as [Version], Objecttype,
|
||
Creation_DateTime, Change_DateTime from VWPMO_DOC_SYNC
|
||
--WHERE
|
||
--CONVERT(DATE,Creation_DateTime) = CONVERT(DATE,GETDATE()) OR
|
||
--CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())
|
||
OPEN c_Values
|
||
FETCH NEXT FROM c_Values INTO @DocID,@Filename,@FULL_FILENAME,
|
||
@Doctype,@Version,@Objecttype,
|
||
@Creation_DateTime,@Change_DateTime
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
IF NOT EXISTS(SELECT [DocID] FROM TBPMO_DOCRESULT_LIST WHERE DocID = @DocID)
|
||
BEGIN
|
||
PRINT 'INSERT NECESSARY'
|
||
INSERT INTO TBPMO_DOCRESULT_LIST (
|
||
[DocID],
|
||
[DISPLAY_NAME],
|
||
[FULL_FILENAME],
|
||
[Filename],
|
||
[Doctype],
|
||
[Version],
|
||
[Objecttype],
|
||
Creation_DateTime,
|
||
Change_DateTime)
|
||
VALUES (
|
||
@DocID,
|
||
@Filename,
|
||
@FULL_FILENAME,
|
||
@Filename,
|
||
@Doctype,
|
||
@Version,
|
||
@Objecttype,
|
||
@Creation_DateTime,
|
||
@Change_DateTime
|
||
)
|
||
END
|
||
ELSE
|
||
UPDATE TBPMO_DOCRESULT_LIST SET
|
||
[FULL_FILENAME] = @FULL_FILENAME,
|
||
[Filename] = @Filename,
|
||
[Doctype] = @Doctype,
|
||
[Version] = @Version,
|
||
[Objecttype] = @Objecttype,
|
||
Change_DateTime = @Change_DateTime
|
||
WHERE DocID = @DocID
|
||
|
||
--#####
|
||
FETCH NEXT FROM c_Values INTO @DocID,@Filename,@FULL_FILENAME,
|
||
@Doctype,@Version,@Objecttype,@Creation_DateTime,@Change_DateTime
|
||
END
|
||
CLOSE c_Values
|
||
DEALLOCATE c_Values
|
||
|
||
DECLARE @DocID1 INTEGER
|
||
DECLARE c_2_Delete CURSOR LOCAL FOR
|
||
select DocID from TBPMO_DOCRESULT_LIST where DocID not in (SELECT DocID from VWPMO_DOC_SYNC)
|
||
OPEN c_2_Delete
|
||
FETCH NEXT FROM c_2_Delete INTO @DocID1
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
EXEC PRPMO_DELETE_RESULTFILE @DocID1, 0, 1
|
||
|
||
--#####
|
||
FETCH NEXT FROM c_2_Delete INTO @DocID1
|
||
END
|
||
CLOSE c_2_Delete
|
||
DEALLOCATE c_2_Delete
|
||
|
||
DECLARE @RECID INTEGER
|
||
DECLARE cursor_RELINK CURSOR LOCAL FOR
|
||
select T.DocID,T1.dwValue from TBPMO_DOCRESULT_LIST T,[172.24.12.41\BRAINPOOL].windream60.dbo.Vector T1
|
||
WHERE T.DocID = T1.dwDocID AND T1.dwAttrID = 20005 AND T1.dwValue NOT IN (SELECT RECORD_ID from TBPMO_DOC_RECORD_LINK) ORDER BY T.DocID
|
||
OPEN cursor_RELINK
|
||
FETCH NEXT FROM cursor_RELINK INTO @DocID,@RECID
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
IF EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE GUID = @RECID)
|
||
BEGIN
|
||
IF NOT EXISTS(SELECT GUID FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = @RECID AND DOC_ID = @DocID)
|
||
INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,ADDED_WHO) VALUES
|
||
(@RECID,@DocID,'PRPMO_DOCRESULT_CHANGE')
|
||
END
|
||
|
||
FETCH NEXT FROM cursor_RELINK INTO @DocID,@RECID
|
||
END
|
||
CLOSE cursor_RELINK
|
||
DEALLOCATE cursor_RELINK
|
||
|
||
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_DOKUMENTTYPES]
|
||
AS
|
||
SELECT TOP 2000
|
||
T2.FORMVIEW_ID,
|
||
T3.FORM_ID,
|
||
T3.FORM_TITLE,
|
||
T.GUID DOKUMENTTYPE_ID,
|
||
T.BEZEICHNUNG DOKUMENTTYPE,
|
||
T.ZIEL_PFAD [PATH],
|
||
T.KURZNAME SHORTNAME,
|
||
T2.GUID FW_DOCTYPE_ID,
|
||
T2.OBJECT_TYPE,
|
||
T.SEQUENCE
|
||
FROM
|
||
TBDD_DOKUMENTART T,
|
||
TBDD_EINGANGSARTEN T1,
|
||
TBPMO_WD_FORMVIEW_DOKTYPES T2,
|
||
TBPMO_FORM_VIEW T3
|
||
WHERE
|
||
T.AKTIV = 1 AND
|
||
T.EINGANGSART_ID = T1.GUID AND
|
||
T.GUID = T2.DOCTYPE_ID AND
|
||
T2.FORMVIEW_ID = T3.GUID
|
||
ORDER BY
|
||
T2.FORMVIEW_ID
|
||
|
||
GO
|
||
|
||
|
||
|