OrgFLOW Update, dadurch auch DD_ECM

This commit is contained in:
Developer01
2025-06-12 09:09:36 +02:00
parent 25eeb6d310
commit ba27b6989c
19 changed files with 1118 additions and 1197 deletions

View File

@@ -11,8 +11,15 @@
####################################*/
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.8.4' where NAME = 'Record-Organizer'
GO
INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,IS_ADMIN)
IF EXISTS(select GUID from TBDD_USER_MODULES where USER_ID = (SELECT GUID AS USRID FROM TBDD_USER where USERNAME = '@INSTALL_ADMIN_USER')
AND MODULE_ID = (SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'ADDI'))
BEGIN
PRINT 'USER-MODULE ZO GIBT ES SCHON!'
UPDATE TBDD_USER_MODULES SET IS_ADMIN = 1 WHERE GUID = (select GUID from TBDD_USER_MODULES where USER_ID = (SELECT GUID AS USRID FROM TBDD_USER where USERNAME = '@INSTALL_ADMIN_USER')
AND MODULE_ID = (SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'ADDI'))
END
ELSE
INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,IS_ADMIN)
SELECT GUID,(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'ADDI'),1 FROM TBDD_USER where USERNAME = '@INSTALL_ADMIN_USER';
GO

View File

@@ -0,0 +1,93 @@
DECLARE @REMOTE_CONF_ID INT,@LOCAL_ENT_ID INT = 15,@PARID INT
DECLARE cursControls CURSOR FOR
SELECT GUID,PARENT_NODE
FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE ENTITY_ID = 15 ORDER BY PARENT_NODE
OPEN cursControls
FETCH NEXT FROM cursControls INTO @REMOTE_CONF_ID,@PARID
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @LOCAL_CTRL_ID INT, @LOCAL_CTRL_SCR_ID INT
INSERT INTO [dbo].[TBPMO_STRUCTURE_NODES_CONFIGURATION]
([PARENT_NODE]
,[CONTROL_ID]
,[NAME]
,[ENTITY_ID]
,[TYPE_NODE]
,[NODE_IMAGE]
,[CREATE_RECORD]
,[COMMENT]
,[EXPAND]
,[FONT_FAMILY]
,[FONT_COLOR]
,[FONT_SIZE]
,[FONT_STYLE]
,[BACK_COLOR]
)
SELECT
[PARENT_NODE]
,[CONTROL_ID]
,[NAME]
,15
,[TYPE_NODE]
,[NODE_IMAGE]
,[CREATE_RECORD]
,[COMMENT]
,[EXPAND]
,[FONT_FAMILY]
,[FONT_COLOR]
,[FONT_SIZE]
,[FONT_STYLE]
,[BACK_COLOR]
FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_STRUCTURE_NODES_CONFIGURATION] WHERE GUID = 1
SELECT @LOCAL_CTRL_ID = MAX(GUID) FROM TBPMO_CONTROL;
--CONTROL-SCREEN INSERTEN
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] )
SELECT
@LOCAL_CTRL_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]
FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL_SCREEN] WHERE CONTROL_ID = @REMOTE_CONF_ID;
SELECT @LOCAL_CTRL_SCR_ID = MAX(GUID) FROM [TBPMO_CONTROL_SCREEN] WHERE CONTROL_ID = @LOCAL_CTRL_ID;
INSERT INTO [dbo].[TBPMO_CONTROL_LANGUAGE]
([LANGUAGE_TYPE]
,[CONTROL_SCREEN_ID]
,[CAPTION]
,[HINT])
SELECT [LANGUAGE_TYPE]
,@LOCAL_CTRL_SCR_ID
,[CAPTION]
,[HINT] FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL_LANGUAGE] WHERE CONTROL_SCREEN_ID = (
SELECT GUID FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL_SCREEN] WHERE CONTROL_ID = @REMOTE_CONF_ID)
FETCH NEXT FROM cursControls INTO @REMOTE_CONF_ID,@PARID
END
CLOSE cursControls
DEALLOCATE cursControls

View File

@@ -0,0 +1,78 @@
DECLARE @NC_PERSONAL INT,@NC_SF INT,@SN_MAIN_GUID INTEGER,@NODE_PERSONAL INTEGER,@ID1 VARCHAR(100)
SELECT @NC_PERSONAL = GUID FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE NAME = 'Hauptknoten Personal'
SELECT @NC_SF = GUID FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE NAME = 'Dateiablage'
SELECT @SN_MAIN_GUID = [CAT_STRING] FROM TBDD_CATALOG where CAT_TITLE = 'PA_NODE_GUID_STAMM';
DECLARE cursMA CURSOR FOR
SELECT A.Personal FROM
(select 'Fuchs, Nadine' as Personal union
select 'König, Klaus' as Personal union
select 'Müller, Gabriele' as Personal union
select 'Schröder, Anke' as Personal union
select 'Li, Kim' as Personal union
select 'Zimmer, Klaus' as Personal union
select 'Faber, Sandra' as Personal union
select 'Hofamnn, Thomas' as Personal) A -- WHERE NOT EXISTS(SELECT GUID FROM TBPMO_STRUCTURE_NODES WHERE ID1 = A.Personal)
OPEN cursMA
FETCH NEXT FROM cursMA INTO @ID1
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM [TBPMO_STRUCTURE_NODES] WHERE ID1 = @ID1 and NODE_CONFIG_ID = @NC_PERSONAL AND PARENT_GUID = @SN_MAIN_GUID)
INSERT INTO [dbo].[TBPMO_STRUCTURE_NODES]
([NODE_CONFIG_ID]
,[NODE_CAPTION]
,[ID1]
,[PARENT_GUID])
VALUES
(@NC_PERSONAL,
@ID1,
@ID1,
@SN_MAIN_GUID);
ELSE
PRINT 'MITARBEITER-KNOTEN GIBT ES SChon'
SELECT @NODE_PERSONAL = GUID FROM TBPMO_STRUCTURE_NODES WHERE ID1 = @ID1 AND NODE_CONFIG_ID = @NC_PERSONAL;
DECLARE @Folder Varchar(100)
DECLARE CursDokFolder CURSOR FOR
select 'Urlaub' as DOK_FOLDER UNION
select 'Vertragsunterlagen' as DOK_FOLDER UNION
select 'Einstellungsunterlagen' as DOK_FOLDER UNION
select 'Urlaub' as DOK_FOLDER UNION
select 'Weiterbildung' as DOK_FOLDER UNION
select 'Meldungen' as DOK_FOLDER UNION
select 'Lohn und Gehalt' as DOK_FOLDER
OPEN CursDokFolder
FETCH NEXT FROM CursDokFolder INTO @Folder
WHILE @@FETCH_STATUS = 0
BEGIN
IF NOT EXISTS(SELECT GUID FROM [TBPMO_STRUCTURE_NODES] WHERE ID1 = @ID1 + '-' + @Folder AND PARENT_GUID = @NODE_PERSONAL)
--Dokumentenordner anlegen
INSERT INTO [dbo].[TBPMO_STRUCTURE_NODES]
([NODE_CONFIG_ID]
,[NODE_CAPTION]
,[ID1]
,[PARENT_GUID])
VALUES
(@NC_SF,
@Folder,
@ID1 + '-' + @Folder,
@NODE_PERSONAL);
ELSE
PRINT 'Knoten ' + @ID1 + '-' + @Folder + ' gibt es schon!'
FETCH NEXT FROM CursDokFolder INTO @Folder
END
CLOSE CursDokFolder
DEALLOCATE CursDokFolder
FETCH NEXT FROM cursMA INTO @ID1
END
CLOSE cursMA
DEALLOCATE cursMA

View File

@@ -0,0 +1,85 @@
-- =============================================
-- Author: <Digital Data - Schreiber, Marlon>
-- Description: <Diese Prozedur erstellt die Records und Cotnrols für die Mitarbeiter
BEGIN
DECLARE
@NODE_GUID INTEGER,
@NODE_CONFIG_ID INTEGER,
@ENTITY_ID INTEGER,
@CAPTION VARCHAR(100),
@ID1 VARCHAR(100),
@TYPE_NODE SMALLINT,
@PARENT_GUID INTEGER,
@NODES_CREATED INTEGER,
@NC_PERSON_BASE INTEGER,
@CTRL_ID_NN INTEGER,
@CTRL_ID_VN INTEGER
SELECt @NC_PERSON_BASE = GUID FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE NAME = 'Hauptknoten Personal';
SELECT @ENTITY_ID = GUID FROM TBPMO_FORM WHERE NAME = 'Personalakte';
SELECT @CTRL_ID_NN = GUID FROM TBPMO_CONTROL WHERE FORM_ID = @ENTITY_ID AND NAME = 'txtNachname'
SELECT @CTRL_ID_VN = GUID FROM TBPMO_CONTROL WHERE FORM_ID = @ENTITY_ID AND NAME = 'txtVorname'
DECLARE MYCURSOR CURSOR LOCAL FOR
select T.GUID, T1.GUID as NODE_CONFIG_ID, T1.[ENTITY_ID],T.NODE_CAPTION,T.ID1,T1.TYPE_NODE,T.PARENT_GUID
from
TBPMO_STRUCTURE_NODES T,
TBPMO_STRUCTURE_NODES_CONFIGURATION T1
WHERE
T.NODE_CONFIG_ID = T1.GUID AND T1.CREATE_RECORD = 1
AND T1.ENTITY_ID = 5 AND T1.NAME in ('Dateiablage','Hauptknoten Personal')
and T.GUID <> 3
--select * from TBPMO_STRUCTURE_NODES where NODE_CONFIG_ID = 19
OPEN MYCURSOR
FETCH NEXT FROM MYCURSOR INTO @NODE_GUID,@NODE_CONFIG_ID,@ENTITY_ID,@CAPTION,@ID1,@TYPE_NODE,@PARENT_GUID
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @RECORD_ID INTEGER
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBPMO_RECORD WHERE NODE_GUID = @NODE_GUID)
BEGIN
EXEC PRPMO_CREATE_RECORD @RECORD_ID Output,@ENTITY_ID,'DDPA_CREATE'
IF @RECORD_ID > 0
BEGIN
UPDATE TBPMO_RECORD SET NODE_GUID = @NODE_GUID WHERE GUID = @RECORD_ID
SET @NODES_CREATED += 1
END
END
ELSE
BEGIN
SELECT @RECORD_ID = GUID FROM TBPMO_RECORD WHERE NODE_GUID = @NODE_GUID
END
IF NOT EXISTS(SELECT GUID FROM TBPMO_STRUCTURE_NODES WHERE GUID = @NODE_GUID AND RECORD_ID = @RECORD_ID)
BEGIN
UPDATE TBPMO_STRUCTURE_NODES SET RECORD_ID = @RECORD_ID WHERE GUID = @NODE_GUID
END
IF @NODE_CONFIG_ID = @NC_PERSON_BASE
BEGIN
DECLARE @NACHNAME VARCHAR(50),@VORNAME VARCHAR(50),@NEW_CONTR_VAL_ID INTEGER
SELECT @NACHNAME = Data FROM dbo.FNDD_SPLIT_STRING(@ID1,',') where SequentialOrder = 1;
SELECT @VORNAME = Data FROM dbo.FNDD_SPLIT_STRING(@ID1,',') where SequentialOrder = 2;
EXEC PRPMO_CREATE_CONTROL_VALUE @NEW_CONTR_VAL_ID Output,@CTRL_ID_NN,@RECORD_ID,@NACHNAME,'Digital Data'
EXEC PRPMO_CREATE_CONTROL_VALUE @NEW_CONTR_VAL_ID Output,@CTRL_ID_VN,@RECORD_ID,@VORNAME,'Digital Data'
END
END
--########
FETCH NEXT FROM MYCURSOR INTO @NODE_GUID,@NODE_CONFIG_ID,@ENTITY_ID,@CAPTION,@ID1,@TYPE_NODE,@PARENT_GUID
END
CLOSE MYCURSOR
DEALLOCATE MYCURSOR
PRINT 'RECORDS CREATED: ' + CONVERT(VARCHAR(20),@NODES_CREATED)
END

View File

@@ -0,0 +1,107 @@
DECLARE @REMOTE_CTRL_ID INT,@LOCAL_ENT_ID INT = 15
DECLARE cursControls CURSOR FOR
SELECT GUID
FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL] WHERE FORM_ID = 5 and guid <> 1
OPEN cursControls
FETCH NEXT FROM cursControls INTO @REMOTE_CTRL_ID
WHILE @@FETCH_STATUS = 0
BEGIN
DECLARE @LOCAL_CTRL_ID INT, @LOCAL_CTRL_SCR_ID INT
INSERT INTO [dbo].[TBPMO_CONTROL]
(FORM_ID
,[CONTROL_TYPE_ID]
,[NAME]
,[FORMAT_TYPE]
,[SHOW_COLUMN]
,[COL_NAME]
,[REQUIRED]
,[PARENT_CONTROL_ID]
,[MASTER_DATA_ID]
,[MULTILINE]
,[STATIC_LIST]
,[DEFAULT_VALUE]
,[SQL_COMMAND_1]
,[SQL_COMMAND_2]
,[CONNECTION_ID_1]
,[CONNECTION_ID_2]
,[READ_ONLY]
,[VALIDATION]
,[VISIBLE]
,[TREE_VIEW]
,[SELECT_ONLY]
,[AUTO_SUGGEST])
SELECT
@LOCAL_ENT_ID
,[CONTROL_TYPE_ID]
,[NAME]
,[FORMAT_TYPE]
,[SHOW_COLUMN]
,[COL_NAME]
,[REQUIRED]
,[PARENT_CONTROL_ID]
,[MASTER_DATA_ID]
,[MULTILINE]
,[STATIC_LIST]
,[DEFAULT_VALUE]
,[SQL_COMMAND_1]
,[SQL_COMMAND_2]
,[CONNECTION_ID_1]
,[CONNECTION_ID_2]
,[READ_ONLY]
,[VALIDATION]
,[VISIBLE]
,[TREE_VIEW]
,[SELECT_ONLY]
,[AUTO_SUGGEST]
FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL] WHERE GUID = @REMOTE_CTRL_ID
SELECT @LOCAL_CTRL_ID = MAX(GUID) FROM TBPMO_CONTROL;
--CONTROL-SCREEN INSERTEN
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] )
SELECT
@LOCAL_CTRL_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]
FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL_SCREEN] WHERE CONTROL_ID = @REMOTE_CTRL_ID;
SELECT @LOCAL_CTRL_SCR_ID = MAX(GUID) FROM [TBPMO_CONTROL_SCREEN] WHERE CONTROL_ID = @LOCAL_CTRL_ID;
INSERT INTO [dbo].[TBPMO_CONTROL_LANGUAGE]
([LANGUAGE_TYPE]
,[CONTROL_SCREEN_ID]
,[CAPTION]
,[HINT])
SELECT [LANGUAGE_TYPE]
,@LOCAL_CTRL_SCR_ID
,[CAPTION]
,[HINT] FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL_LANGUAGE] WHERE CONTROL_SCREEN_ID = (
SELECT GUID FROM [172.24.130.1].[DD_ECM].[dbo].[TBPMO_CONTROL_SCREEN] WHERE CONTROL_ID = @REMOTE_CTRL_ID)
FETCH NEXT FROM cursControls INTO @REMOTE_CTRL_ID
END
CLOSE cursControls
DEALLOCATE cursControls

View File

@@ -103,7 +103,7 @@ 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]
,(SELECT szLongName from 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]
@@ -112,14 +112,14 @@ SELECT TOP 100 PERCENT
,T1.szDocTypeName AS OBJECTTYPE
,T.dwObjectTypeID
FROM
DD_VMP01_APS01_windream60.dbo.BaseAttributes T
,DD_VMP01_APS01_windream60.dbo.ObjectType T1
windream60.dbo.BaseAttributes T
,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'
AND T.szText38 = 'ADDI-RELATION'
GROUP BY
T.dwVersionID
,T.dwParentID

View File

@@ -21,14 +21,14 @@ BEGIN
-- SELECT @WM_LAUFWERKBUCHSTABE = WM_LAUFWERKBUCHSTABE FROM TBPMO_KONFIGURATION WHERE GUID = 1
--SELECT @SHAREPATH = WMPATH_PREFIX FROM TBPMO_KONFIGURATION WHERE GUID = 1;
SELECT @FSFLAGS = dwFSFlags FROM [SDD-VMP04-SQL17\DD_DEVELOP01].[sDD_VMP01_APS01_windream60].dbo.BaseAttributes WHERE dwDocID = @pDOCID
SELECT @FSFLAGS = dwFSFlags FROM [windream60].dbo.BaseAttributes WHERE dwDocID = @pDOCID
IF @FSFLAGS = 16
BEGIN
SET @RESULT = 'THIS IS NOT A FILE!'
END
ELSE
BEGIN
SELECT @DATEINAME = szLongName,@PARENT_ID = dwParentID FROM [SDD-VMP04-SQL17\DD_DEVELOP01].[sDD_VMP01_APS01_windream60].dbo.BaseAttributes WHERE dwDocID = @pDOCID
SELECT @DATEINAME = szLongName,@PARENT_ID = dwParentID FROM [windream60].dbo.BaseAttributes WHERE dwDocID = @pDOCID
WHILE @a > 0
BEGIN
IF @i = 0
@@ -58,7 +58,7 @@ BEGIN
END
END
SELECT @PARENTNAME = szLongName,@PARENT_ID = dwParentID FROM [SDD-VMP04-SQL17\DD_DEVELOP01].[sDD_VMP01_APS01_windream60].dbo.BaseAttributes WHERE dwDocID = @DOCID
SELECT @PARENTNAME = szLongName,@PARENT_ID = dwParentID FROM [windream60].dbo.BaseAttributes WHERE dwDocID = @DOCID
SET @i = @i + 1
END
END