MS Integrate smartup in DD_ECM, Erstes ToolCollection Tabellenskript in ZA mit Marvin

This commit is contained in:
Developer01
2025-03-21 11:06:27 +01:00
parent 8b4f1d05d2
commit 3ff72eb165
24 changed files with 5531 additions and 2702 deletions

View File

@@ -0,0 +1,128 @@
UPDATE TBDD_MODULES SET DB_VERSION = '2.3.0.0' where NAME = 'Process-Manager'
GO
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'SQL_BTN_REJECT'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD SQL_BTN_REJECT NVARCHAR(MAX) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'BTN_REJECT_CAPTION'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD BTN_REJECT_CAPTION NVARCHAR(100) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'REJECT_SQL_REASONS'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD REJECT_SQL_REASONS NVARCHAR(3000) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'REJECT_ACTIONS_ATTRIBUTE'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD REJECT_ACTIONS_ATTRIBUTE VARCHAR(100) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'REJECT_COMMENT_ATTRIBUTE'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD REJECT_COMMENT_ATTRIBUTE VARCHAR(100) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'BTN_NOT_RESP_CAPTION'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD BTN_NOT_RESP_CAPTION NVARCHAR(100) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'NOT_RESP_SQL'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD NOT_RESP_SQL VARCHAR(3000) NOT NULL DEFAULT ''
END
IF NOT EXISTS(SELECT 1 FROM sys.columns
WHERE Name = N'NOT_RESP_COMMENT_ATTRIBUTE'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE ADD NOT_RESP_COMMENT_ATTRIBUTE VARCHAR(150) NOT NULL DEFAULT ''
END
GO
CREATE OR ALTER PROCEDURE PRTF_PROFILE_LANGUAGE_PHRASES AS
DECLARe @ID VARCHAR(3),@TITLE VARCHAR(100),@DECR VARCHAR(100),@FINAL_TEXT VARCHAR(100),@REJ_TEXT VARCHAR(100),@NR_CAPTION VARCHAR(100)
DECLARE cur2 CURSOR FOR
select GUID, TITLE,DESCRIPTION,FINAL_TEXT,BTN_REJECT_CAPTION,BTN_NOT_RESP_CAPTION from TBPM_PROFILE
OPEN cur2
FETCH NEXT FROM cur2 INTO @ID,@TITLE,@DECR,@FINAL_TEXT,@REJ_TEXT,@NR_CAPTION
WHILE @@FETCH_STATUS = 0
BEGIN
Declare @IDTEXT VARCHAR(100)
SET @IDTEXT = 'PROFILE_TITLE' + @ID
PRINT @IDTEXT
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE','Title of Profile',@TITLE,'','System',@ID,0
IF @DECR IS NOT NULL
BEGIN
SET @IDTEXT = 'PROFILE_DESCRIPTION' + @ID
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE','Description of Profile',@DECR,'','System',@ID,0
END
IF @FINAL_TEXT IS NOT NULL
BEGIN
SET @IDTEXT = 'PROFILE_FINAL_TEXT' + @ID
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE','BTN_FINAL_CAPT',@FINAL_TEXT,'','System',@ID,0
END
IF LEN(@REJ_TEXT) > 0
BEGIN
SET @IDTEXT = 'PROFILE_REJECTION_CAPT' + @ID
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE', 'PROFILE_REJECTION_CAPT',@REJ_TEXT,'','System',@ID,0
END
IF LEN(@NR_CAPTION) = 0
BEGIN
SET @IDTEXT = 'PROFILE_NOT_RESPONSIBLE_CAPT' + @ID
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE', 'PROFILE_NOT_RESPONSIBLE_CAPT','Nicht zuständig','','System',@ID,0;
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'en-US', 'PROFILE_NOT_RESPONSIBLE_CAPT','Not responsible','','System',@ID,0;
SET @IDTEXT = 'PROFILE_NOT_RESPONSIBLE_QUEST' + @ID
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE', 'PROFILE_NOT_RESPONSIBLE_QUEST','Wollen Sie den Beleg wirklich in den Prozess XYZ zurücksenden?','','System',@ID,0;
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE', 'PROFILE_NOT_RESPONSIBLE_QUEST','Do you really want to return the document to process XYZ?','','System',@ID,0;
END
ELSE
BEGIN
SET @IDTEXT = 'PROFILE_NOT_RESPONSIBLE_QUEST' + @ID
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'de-DE', 'PROFILE_NOT_RESPONSIBLE_QUEST','Wollen Sie den Beleg wirklich in den Prozess XYZ zurücksenden?','','System',@ID,0;
EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM',@IDTEXT,'en-US', 'PROFILE_NOT_RESPONSIBLE_QUEST','Do you really want to return the document to process XYZ?','','System',@ID,0;
END
FETCH NEXT FROM cur2 INTO @ID,@TITLE,@DECR,@FINAL_TEXT,@REJ_TEXT,@NR_CAPTION
END
CLOSE cur2
DEALLOCATE cur2
GO
EXEC PRTF_PROFILE_LANGUAGE_PHRASES
GO
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.MSG1','de-DE','Information','Sie wollen diesen Beleg ablehnen?','');
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.MSG1','en-US','Information','You want to reject this receipt?','');
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.MSG2','de-DE','Information','Wenn ja, dann geben Sie bitte einen Grund für die Ablehnung ein!','')
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.MSG2','en-US','Information','If yes, please enter a reason for your refusal!','')
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.Caption','de-DE','Information','Ablehnung - Bestätigung','');
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.Caption','en-US','Information','Rejection - Confirmation','');
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.MissingInput','de-DE','Message','Bitte wählen Sie einen Grund und geben eine Begründung ein!','');
INSERT INTO [dbo].[TBDD_GUI_LANGUAGE_PHRASE]
(OBJ_NAME,[MODULE],[TITLE],[LANGUAGE],[CAPT_TYPE],[STRING1],STRING2)
VALUES('frmRejectionCommit','PM','frmRejectionCommit.MissingInput','en-US','Message','Please select a reason and enter a justification!','');
ALTER TABLE TBPM_PROFILE ADD CURRENCY_ATTRIBUTE VARCHAR(100) NOT NULL DEFAULT ''
GO

View File

@@ -0,0 +1,60 @@
USE [DD_ECM]
GO
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.0.0' where NAME = 'Process-Manager'
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[TBTF_VALIDATOR_MESSAGE](
[GUID] [bigint] IDENTITY(1,1) NOT NULL,
[DocID] [bigint] NOT NULL,
[GUI_LANG_TITLE] [nvarchar](100) NOT NULL,
[ImageIndex] [tinyint] NOT NULL,
[Active] [bit] NOT NULL,
[ADDED_WHEN] [datetime] NOT NULL,
[ADDED_WHO] [varchar](100) NOT NULL,
[CHANGED_WHEN] [datetime] NULL,
[CHANGED_WHO] [varchar](100) NULL,
CONSTRAINT [PK_TBTFVALIDATOR_MESSAGE] PRIMARY KEY CLUSTERED
(
[GUID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[TBTF_VALIDATOR_MESSAGE] ADD CONSTRAINT [DF_TBTFVALIDATOR_MESSAGE_ACTIVE] DEFAULT ((1)) FOR [Active]
GO
ALTER TABLE [dbo].[TBTF_VALIDATOR_MESSAGE] ADD CONSTRAINT [DF_TBTFVALIDATOR_MESSAGE_ADDED_WHEN] DEFAULT (getdate()) FOR [ADDED_WHEN]
GO
USE [DD_ECM]
GO
CREATE TRIGGER [dbo].[TBTF_VALIDATOR_MESSAGE_AFT_UPD] ON [dbo].[TBTF_VALIDATOR_MESSAGE]
FOR UPDATE
AS
UPDATE TBTF_VALIDATOR_MESSAGE SET CHANGED_WHEN = GETDATE()
FROM INSERTED
WHERE TBTF_VALIDATOR_MESSAGE.GUID = INSERTED.GUID
GO
ALTER TABLE [dbo].[TBTF_VALIDATOR_MESSAGE] ENABLE TRIGGER [TBTF_VALIDATOR_MESSAGE_AFT_UPD]
GO
INSERT INTO [dbo].[TBDD_SQL_COMMANDS]
(TITLE,SQL_COMMAND)
VALUES('TF_WORKFLOW_MESSAGE','SELECT
CONVERT(VARCHAR(30), A.ADDED_WHEN,20) + '' - '' + B.STRING1 as MSG,A.ImageIndex
FROM
TBTF_VALIDATOR_MESSAGE A INNER JOIN
(SELECt * FROM TBDD_GUI_LANGUAGE_PHRASE
WHERE MODULE = ''PM'' AND OBJ_NAME = ''frmValidator'' AND CAPT_TYPE = ''WF_MESSAGE'') B ON A.GUI_LANG_TITLE = B.TITLE
WHERE
A.Active = 1 and (A.DocID = @DocID or A.DocID = 1) AND B.LANGUAGE = ''@LANGUAGE'' ORDER BY A.ADDED_WHEN DESC');

View File

@@ -0,0 +1,52 @@
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.0.1' where NAME = 'Process-Manager'
GO
-- =================================================================
-- Die Procedure fügt einen Datensatz in die Tabelle TBTF_VALIDATOR_MESSAGE ein.
--
-- =================================================================
-- Copyright (c) 2024 by Digital Data GmbH
--
-- Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
-- Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
-- =================================================================
-- Creation Date / Author: 29.08.2024 / MP
-- =================================================================
-- History:
-- 29.08.2024 / MP - Prozedur erstellt
CREATE PROCEDURE [dbo].[PRTF_NEW_VALIDATOR_MESSAGE]
@DOC_ID BIGINT -- DocID oder IDB_OBJ_ID / 1 für alle Belege
, @MESSAGE_TITLE VARCHAR(100) -- Title aus GUI_LANGUAGE_PHRASE
, @ADDED_WHO VARCHAR(100) -- Wo/Von wem wurde die Prozedur aufgerufen
, @IMAGE_INDEX INTEGER = 0 -- ICON: 0 = Info / 1 = Fehlende Eingabe / 2 = Fehler
AS
BEGIN
SET NOCOUNT ON;
IF NOT EXISTS (SELECT 1 FROM TBDD_GUI_LANGUAGE_PHRASE
WHERE TITLE = @MESSAGE_TITLE AND MODULE = 'PM' AND CAPT_TYPE = 'WF_MESSAGE' AND OBJ_NAME = 'frmValidator')
BEGIN
-- Wenn es die Meldung nicht gibt, oder nicht korrekt konfiguriert ist, brechen wir hier ab
RETURN;
END
IF @IMAGE_INDEX > 2
BEGIN
SET @IMAGE_INDEX = 0;
END
INSERT INTO TBTF_VALIDATOR_MESSAGE
(
DocID
, GUI_LANG_TITLE
, ImageIndex
, Active
, ADDED_WHO
) VALUES (
@DOC_ID
, @MESSAGE_TITLE
, @IMAGE_INDEX
, 1 -- wir fügen nur aktive Sätze ein
, @ADDED_WHO
);
END

View File

@@ -0,0 +1,33 @@
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.0.2' where NAME = 'Process-Manager'
GO
-- =================================================================
-- Die Procedure setzt einen Datensatz der Tabelle TBTF_VALIDATOR_MESSAGE
-- auf ACTIVE = 0
--
-- =================================================================
-- Copyright (c) 2024 by Digital Data GmbH
--
-- Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
-- Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
-- =================================================================
-- Creation Date / Author: 30.08.2024 / MP
-- =================================================================
-- History:
-- 30.08.2024 / MP - Prozedur erstellt
CREATE PROCEDURE [dbo].[PRTF_DEACTIVATE_VALIDATOR_MESSAGE]
@DOC_ID BIGINT -- DocID oder IDB_OBJ_ID / 1 für alle Belege
, @MESSAGE_TITLE VARCHAR(100) -- Title aus GUI_LANGUAGE_PHRASE
, @CHANGED_WHO VARCHAR(100) -- Wo/Von wem wurde die Prozedur aufgerufen
, @ACTIVE_FLAG INTEGER = 0 -- optionales ACTIVE-Flag - Default = 0
AS
BEGIN
SET NOCOUNT ON;
UPDATE TBTF_VALIDATOR_MESSAGE SET
Active = @ACTIVE_FLAG,
CHANGED_WHO = @CHANGED_WHO
WHERE DocID = @DOC_ID
AND GUI_LANG_TITLE = @MESSAGE_TITLE;
END

View File

@@ -0,0 +1,40 @@
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.2.0' where NAME = 'Process-Manager';
GO
-- jetzt push
CREATE TABLE TBTF_PROFILE_FILES_WORK
(
GUID BIGINT NOT NULL IDENTITY(1,1),
ProfileID INTEGER NOT NULL,
DocID BIGINT NOT NULL,
InWork BIT NOT NULL DEFAULT 0,
Worked BIT NOT NULL DEFAULT 0,
Action_When DATETIME,
Action_UserID INTEGER,
ChangedWho_ID INTEGER,
CHANGED_WHEN DATETIME,
CONSTRAINT PK_TBTF_PROFILE_FILES_WORK PRIMARY KEY (GUID),
CONSTRAINT UQ_TBTF_PROFILE_FILES_WORK UNIQUE(ProfileID,DocID)
)
GO
CREATE PROCEDURE PRTF_PROFILE_FILES_WORK @pDocID BIGINT,@pProfilID INTEGER,@pUserID INTEGER, @pMode VARCHAR(100)
AS
BEGIN
IF NOT EXISTS(SELECT GUID FROM TBTF_PROFILE_FILES_WORK WHERE ProfileID = @pProfilID AND DocID = @pDocID)
BEGIN
INSERT INTO TBTF_PROFILE_FILES_WORK (ProfileID,DocID,Action_UserID,Action_When) VALUES (@pProfilID,@pDocID,@pUserID,GETDATE());
END
IF @pMode = 'FreeFile'
BEGIN
PRINT 'FreeFile ...'
UPDATE TBTF_PROFILE_FILES_WORK SET InWork = 0, Action_UserID = @pUserID
WHERE DocID = @pDocID AND ProfileID = @pProfilID AND InWork = 1;
END
ELSE IF @pMode = 'InWork'
UPDATE TBTF_PROFILE_FILES_WORK SET InWork = 1, Action_When = GETDATE(), Action_UserID = @pUserID
WHERE DocID = @pDocID AND ProfileID = @pProfilID AND InWork = 0;
ELSE IF @pMode = 'Worked'
UPDATE TBTF_PROFILE_FILES_WORK SET InWork = 0,Worked = 1, Action_When = GETDATE(), Action_UserID = @pUserID
WHERE DocID = @pDocID AND ProfileID = @pProfilID AND Worked = 0;
END
GO

View File

@@ -0,0 +1,22 @@
UPDATE TBDD_MODULES SET DB_VERSION = '2.4.2.1' where NAME = 'Process-Manager';
GO
IF EXISTS(SELECT * FROM sys.columns
WHERE Name = N'SQL_PROFILE_MAIN_VIEW'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE DROP COLUMN SQL_PROFILE_MAIN_VIEW;
END
IF EXISTS(SELECT * FROM sys.columns
WHERE Name = N'SQL_GROUP_COLOR'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE DROP COLUMN SQL_GROUP_COLOR;
END
IF EXISTS(SELECT * FROM sys.columns
WHERE Name = N'SQL_GROUP_TEXT'
AND Object_ID = Object_ID(N'dbo.TBPM_PROFILE'))
BEGIN
ALTER TABLE TBPM_PROFILE DROP COLUMN SQL_GROUP_TEXT;
END