ConfigCustom/Stadtwerke_Bebra
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial

Browse Source
This commit is contained in:
KammM
2024-03-21 17:47:57 +01:00
commit 9b7b684dc4
84 changed files with 6990 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
DMS/SQL-Server/Prozeduren/[PRCUST_ADD_HISTORY_STATE].sql Normal file
View File

@@ -0,0 +1,19 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_ADD_HISTORY_STATE] Script Date: 21.03.2024 17:07:58 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[PRCUST_ADD_HISTORY_STATE] @MessageID VARCHAR(250), @TITLE1 VARCHAR(250), @TITLE2 VARCHAR(250), @COMMENT VARCHAR(3000) = 0
AS
BEGIN
INSERT INTO TBEMLP_HISTORY_STATE
(MESSAGE_ID,STATE_TITLE,STATE_TITLE1,COMMENT) VALUES (@MessageID,@TITLE1,@TITLE2,@COMMENT)
END
GO

96
DMS/SQL-Server/Prozeduren/[PRCUST_CREATE_PM_REMINDER_MAILS].sql Normal file
View File

@@ -0,0 +1,96 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_CREATE_PM_REMINDER_MAILS] Script Date: 21.03.2024 17:08:30 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[PRCUST_CREATE_PM_REMINDER_MAILS] @SUBJECT as VARCHAR(100) = ''
AS
DECLARE @EMAIL VARCHAR(250),
@EMAIL_BODY VARCHAR(MAX),
@BODYPRAEFIX VARCHAR(1000),
@BODY_SUFFIX VARCHAR(1000)
DECLARE @Table TABLE (TITLE Varchar(100),Anzahl VARCHAR(3),PType Varchar(50))
--#######
SET @SUBJECT = 'Erinnerung unerledigte Workflowschritte'
SET @BODYPRAEFIX = 'Sehr geehrte Kollegin, sehr geehrter Kollege, <br><p>diese Email informiert Sie darüber, dass elektronische Eingangsrechnungen für
Sie zur Bearbeitung im Workflow bereit stehen: <br><p>'
SET @BODY_SUFFIX = 'Mit freundlichen Grüßen.<p>Ihr ProcessManager'
--#######
DECLARE cUser CURSOR FOR
SELECT DISTINCT EMail FROM [VWCUST_PM_PROFILE_TODO]
ORDER BY Email
OPEN CUser
FETCH NEXT FROM cUser INTO @EMAIL
WHILE @@FETCH_STATUS = 0
BEGIN
DELETE FROM @Table
SET @EMAIL_BODY = '<!DOCTYPE html><html><body style=''font-family:"Arial";font-size:10.0pt''">' + @BODYPRAEFIX +
'<table border = 1 style=''font-family:"arial";font-size:10.0pt''">
<tr>
<th>Workflow-Titel</th><th>Anzahl Belege</th><th>Aufgaben-Typ</th>'
DECLARE @Anz Varchar(3),@Title Varchar(250),@PType Varchar(50)
DECLARE cJobs CURSOR FOR
SELECT Title,Convert(varchar(3), Anzahl),PType FROM [VWCUST_PM_PROFILE_TODO] WHERE Email = @EMAIL order by oSequence
OPEN cJobs
FETCH NEXT FROM cJobs INTO @Title,@Anz,@PType
WHILE @@FETCH_STATUS = 0
BEGIN
INSERT INTO @Table (TITLE,Anzahl,PType) Values (@Title,@Anz,@PType);
--Print @EMAIL + '#' + @Anz + ' ' + @Title
FETCH NEXT FROM cJobs INTO @Title,@Anz,@PType
END
CLOSE cJobs
DEALLOCATE cJobs
Declare @xml NVARCHAR(Max)
SET @xml = CAST((SELECT TITLE as 'td','',Anzahl as 'td','',PType as 'td','' FROM @Table FOR XML PATH('tr'),ELEMENTS) as NVARCHAR(MAX))
SET @EMAIL_BODY = @EMAIL_BODY + @xml + '</table><p>' + @BODY_SUFFIX +
'</body></html>' --</body></html>
Print @EMAIL_BODY
IF NOT EXISTS(SELECT GUID FROM TBEMLP_EMAIL_OUT WHERE [EMAIL_ADRESS] = @EMAIL AND [EMAIL_SUBJ] = @SUBJECT and [EMAIL_SENT] is not null)
-- AND DATEDIFF(Minute,ADDED_WHEN,GETDATE()) = 0)
BEGIN
INSERT INTO [dbo].[TBEMLP_EMAIL_OUT]
([SENDING_PROFILE]
,[REFERENCE_ID]
,[WF_ID]
,[EMAIL_ADRESS]
,[EMAIL_SUBJ]
,[EMAIL_BODY]
,[COMMENT]
,[ADDED_WHO])
VALUES (1,
88888,
0,
@EMAIL,-- + ';m.schreiber@digitaldata.works',
@SUBJECT,
@EMAIL_BODY,
'PM Reminder',
'PRPM_CUST_CREATE_REMINDER_MAILS')
END
ELSE
PRINT 'ALREADY SENT IN THIS MINUTE'
--Print '######'
FETCH NEXT FROM cUser INTO @EMAIL
END
CLOSE cUser
DEALLOCATE cUser
GO

94
DMS/SQL-Server/Prozeduren/[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_11].sql Normal file
View File

@@ -0,0 +1,94 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_11] Script Date: 21.03.2024 17:09:05 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- T-SQL Table function to set E-mail notification, based on a string field
-- Stand: MK // 11.11.2021
-- 11.11.2021 Erweiterung windream DocID für Mail
-- 28.10.2021 Initial
-- PM Profil: SWB - ER 3.1 - Auffangprofil für alle abgelehnten Dokumente
CREATE PROCEDURE [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_11] (
@windreamDocID BIGINT, -- = windream DocID
@VerifierUsername VARCHAR(150), -- = Name des Prüfers
@VendorName VARCHAR(250) -- = Lieferantenname
)
AS
BEGIN
DECLARE @Result INTEGER = 0,
@EMail VARCHAR(200);
----------------------------------------------------------------------------------------------------------------------------------
-- Get User MailAddress
SELECT TOP 1 @EMail = [EMAIL]
FROM [TBDD_USER]
WHERE [USERNAME] = @VerifierUsername
----------------------------------------------------------------------------------------------------------------------------------
IF (LEN(@EMail) > 5) and (@EMail like '%@%')
BEGIN
DECLARE @EMAIL_BODY VARCHAR(MAX),
@BODYPRAEFIX VARCHAR(1000),
@BODY_SUFFIX VARCHAR(1000),
@SUBJECT VARCHAR(100) = '';
SET @SUBJECT = 'ProcessManager: Eine Eingangsrechnung von ' + @VendorName + ' soll von Ihnen neu angefordert werden!'
SET @BODYPRAEFIX = 'Sehr geehrte Kollegin, sehr geehrter Kollege, <br><p>
diese E-Mail informiert Sie darüber, dass eine elektronische Eingangsrechnung für Sie zur Bearbeitung im Workflow bereit steht! <br><p>
Workflow-Profil: SWB - ER 4.1 - Auffangprofil für alle neu angeforderten Dokumente <br><p>
DocID: ' + convert(varchar(250),@windreamDocID) + ' <br><p>'
SET @BODY_SUFFIX = 'Mit freundlichen Grüßen.<p>
Ihr ProcessManager'
SET @EMAIL_BODY = '<!DOCTYPE html><html><body style=''font-family:"Arial";font-size:10.0pt''">' + @BODYPRAEFIX + @BODY_SUFFIX + '</body></html>'
INSERT INTO [dbo].[TBEMLP_EMAIL_OUT]
([SENDING_PROFILE]
,[REFERENCE_ID]
,[WF_ID]
,[EMAIL_ADRESS]
,[EMAIL_SUBJ]
,[EMAIL_BODY]
,[COMMENT]
,[ADDED_WHO])
VALUES (1,
@windreamDocID,
0,
@EMAIL,-- + ';m.kamm@digitaldata.works',
@SUBJECT,
@EMAIL_BODY,
'PM Reminder',
'[FNCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_11]')
SET @Result = 0
END
-- 1 = Error
ELSE
SET @Result = 1
----------------------------------------------------------------------------------------------------------------------------------
RETURN @Result;
END
GO

95
DMS/SQL-Server/Prozeduren/[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_3].sql Normal file
View File

@@ -0,0 +1,95 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_3] Script Date: 21.03.2024 17:09:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- T-SQL Table function to set E-mail notification, based on a string field
-- Stand: MK // 11.11.2021
-- 11.11.2021 Erweiterung windream DocID für Mail
-- 28.10.2021 Initial
-- PM Profil: SWB - ER 3.0 - Zuweisung und Vorprüfung durch die FiBu
CREATE PROCEDURE [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_3] (
@windreamDocID BIGINT, -- = windream DocID
@VerifierUsername VARCHAR(150), -- = Name des Prüfers
@VendorName VARCHAR(250) -- = Lieferantenname
)
AS
BEGIN
DECLARE @Result INTEGER = 0,
@EMail VARCHAR(200);
----------------------------------------------------------------------------------------------------------------------------------
-- Get User MailAddress
SELECT TOP 1 @EMail = [EMAIL]
FROM [TBDD_USER]
WHERE [USERNAME] = @VerifierUsername
----------------------------------------------------------------------------------------------------------------------------------
IF (LEN(@EMail) > 5) and (@EMail like '%@%')
BEGIN
DECLARE @EMAIL_BODY VARCHAR(MAX),
@BODYPRAEFIX VARCHAR(1000),
@BODY_SUFFIX VARCHAR(1000),
@SUBJECT VARCHAR(100) = '';
SET @SUBJECT = 'ProcessManager: Eine Eingangsrechnung von ' + @VendorName + ' möchte von Ihnen geprüft werden!'
SET @BODYPRAEFIX = 'Sehr geehrte Kollegin, sehr geehrter Kollege, <br><p>
diese E-Mail informiert Sie darüber, dass eine elektronische Eingangsrechnung für Sie zur Bearbeitung im Workflow bereit steht! <br><p>
Workflow-Profil: SWB - ER 4.0 - Prüfung durch die Fachabteilung<br><p>
DocID: ' + convert(varchar(250),@windreamDocID) + ' <br><p>'
SET @BODY_SUFFIX = 'Mit freundlichen Grüßen.<p>
Ihr ProcessManager'
SET @EMAIL_BODY = '<!DOCTYPE html><html><body style=''font-family:"Arial";font-size:10.0pt''">' + @BODYPRAEFIX + @BODY_SUFFIX + '</body></html>'
INSERT INTO [dbo].[TBEMLP_EMAIL_OUT]
([SENDING_PROFILE]
,[REFERENCE_ID]
,[WF_ID]
,[EMAIL_ADRESS]
,[EMAIL_SUBJ]
,[EMAIL_BODY]
,[COMMENT]
,[ADDED_WHO])
VALUES (1,
@windreamDocID,
0,
@EMAIL,-- + ';m.kamm@digitaldata.works',
@SUBJECT,
@EMAIL_BODY,
'PM Reminder',
'[FNCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_3]')
SET @Result = 0
END
-- 1 = Error
ELSE
SET @Result = 1
----------------------------------------------------------------------------------------------------------------------------------
RETURN @Result;
END
GO

118
DMS/SQL-Server/Prozeduren/[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_5].sql Normal file
View File

@@ -0,0 +1,118 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_5] Script Date: 21.03.2024 17:10:03 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- T-SQL Table function to set E-mail notification, based on a vector field
-- Stand: MK // 10.11.2021
-- 10.11.2021 Initial
-- PM Profil: SWB - ER 6.0 - Terminüberweisung - Finale Freigabe
CREATE PROCEDURE [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_5] (
@windreamDocID BIGINT, -- = windream DocID
@VendorName VARCHAR(250), -- = Lieferantenname
@windreamAttributFinalApprover INT = 10044 -- = Terminzahlung Finale Freigeber
)
AS
BEGIN
DECLARE @Result INTEGER = 0,
@EMail VARCHAR(200) = NULL,
@ApproverName VARCHAR(50) = NULL;
DECLARE @EMAIL_BODY VARCHAR(MAX),
@BODYPRAEFIX VARCHAR(1000),
@BODY_SUFFIX VARCHAR(1000),
@SUBJECT VARCHAR(100) = '';
----------------------------------------------------------------------------------------------------------------------------------
-- Loop for every set approver in vector field @windreamAttributFinalApprover
-- if approver has an email address, inform him via mail
DECLARE CURSOR_FINAL_APPROVER CURSOR FOR
SELECT [szValue] as 'ApproverName'
FROM [windream60].[dbo].[Vector]
WHERE [szValue] is not null
and [dwAttrID] = @windreamAttributFinalApprover
and [dwDocID] = @windreamDocID
OPEN CURSOR_FINAL_APPROVER
FETCH NEXT FROM CURSOR_FINAL_APPROVER INTO @ApproverName
WHILE @@FETCH_STATUS = 0
BEGIN
-- Get User MailAddress
SELECT TOP 1 @EMail = [EMAIL]
FROM [TBDD_USER]
WHERE [USERNAME] = @ApproverName
----------------------------------------------------------
IF (LEN(@EMail) > 5) and (@EMail like '%@%')
BEGIN
SET @SUBJECT = 'ProcessManager: Eine Eingangsrechnung von ' + @VendorName + ' soll von Ihnen final freigegeben werden!'
SET @BODYPRAEFIX = 'Sehr geehrte Kollegin, sehr geehrter Kollege, <br><p>
diese E-Mail informiert Sie darüber, dass eine elektronische Eingangsrechnung für Sie zur Bearbeitung im Workflow und im SFIRM bereit steht! <br><p>
Workflow-Profil: SWB - ER 6.0 - Terminüberweisung - Finale Freigabe <br><p>
DocID: ' + convert(varchar(250),@windreamDocID) + ' <br><p>'
SET @BODY_SUFFIX = 'Mit freundlichen Grüßen.<p>
Ihr ProcessManager'
SET @EMAIL_BODY = '<!DOCTYPE html><html><body style=''font-family:"Arial";font-size:10.0pt''">' + @BODYPRAEFIX + @BODY_SUFFIX + '</body></html>'
INSERT INTO [dbo].[TBEMLP_EMAIL_OUT]
([SENDING_PROFILE]
,[REFERENCE_ID]
,[WF_ID]
,[EMAIL_ADRESS]
,[EMAIL_SUBJ]
,[EMAIL_BODY]
,[COMMENT]
,[ADDED_WHO])
VALUES (1,
@windreamDocID,
0,
@EMAIL,-- + ';m.kamm@digitaldata.works',
@SUBJECT,
@EMAIL_BODY,
'PM Reminder',
'[FNCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_16]')
SET @Result = 0
END
-- 1 = Error
ELSE
BEGIN
SET @Result = 1
break
END
----------------------------------------------------------
FETCH NEXT FROM CURSOR_FINAL_APPROVER INTO @ApproverName
END
CLOSE CURSOR_FINAL_APPROVER
DEALLOCATE CURSOR_FINAL_APPROVER
----------------------------------------------------------------------------------------------------------------------------------
RETURN @Result;
END
GO

94
DMS/SQL-Server/Prozeduren/[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_7].sql Normal file
View File

@@ -0,0 +1,94 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_7] Script Date: 21.03.2024 17:10:47 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- T-SQL Table function to set E-mail notification, based on a string field
-- Stand: MK // 10.12.2021
-- 10.12.2021 Initial
-- PM Profil: SWB - ER 94.0 - Zuweisung und Vorprüfung durch die FiBu
create PROCEDURE [dbo].[PRCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_7] (
@windreamDocID BIGINT, -- = windream DocID
@VerifierUsername VARCHAR(150), -- = Name des Prüfers
@VendorName VARCHAR(250) -- = Lieferantenname
)
AS
BEGIN
DECLARE @Result INTEGER = 0,
@EMail VARCHAR(200);
----------------------------------------------------------------------------------------------------------------------------------
-- Get User MailAddress
SELECT TOP 1 @EMail = [EMAIL]
FROM [TBDD_USER]
WHERE [USERNAME] = @VerifierUsername
----------------------------------------------------------------------------------------------------------------------------------
IF (LEN(@EMail) > 5) and (@EMail like '%@%')
BEGIN
DECLARE @EMAIL_BODY VARCHAR(MAX),
@BODYPRAEFIX VARCHAR(1000),
@BODY_SUFFIX VARCHAR(1000),
@SUBJECT VARCHAR(100) = '';
SET @SUBJECT = 'ProcessManager: Eine Eingangsrechnung von ' + @VendorName + ' möchte von Ihnen geprüft werden!'
SET @BODYPRAEFIX = 'Sehr geehrte Kollegin, sehr geehrter Kollege, <br><p>
diese E-Mail informiert Sie darüber, dass eine elektronische Eingangsrechnung für Sie zur Bearbeitung im Workflow bereit steht! <br><p>
Workflow-Profil: SWB - ER 4.0 - Prüfung durch die Fachabteilung<br><p>
DocID: ' + convert(varchar(250),@windreamDocID) + ' <br><p>'
SET @BODY_SUFFIX = 'Mit freundlichen Grüßen.<p>
Ihr ProcessManager'
SET @EMAIL_BODY = '<!DOCTYPE html><html><body style=''font-family:"Arial";font-size:10.0pt''">' + @BODYPRAEFIX + @BODY_SUFFIX + '</body></html>'
INSERT INTO [dbo].[TBEMLP_EMAIL_OUT]
([SENDING_PROFILE]
,[REFERENCE_ID]
,[WF_ID]
,[EMAIL_ADRESS]
,[EMAIL_SUBJ]
,[EMAIL_BODY]
,[COMMENT]
,[ADDED_WHO])
VALUES (1,
@windreamDocID,
0,
@EMAIL,-- + ';m.kamm@digitaldata.works',
@SUBJECT,
@EMAIL_BODY,
'PM Reminder',
'[FNCUST_PUSH_PM_EMAIL_USER_INFO_PROFILEID_3]')
SET @Result = 0
END
-- 1 = Error
ELSE
SET @Result = 1
----------------------------------------------------------------------------------------------------------------------------------
RETURN @Result;
END
GO

71
DMS/SQL-Server/Prozeduren/[PRCUST_SET_PM_VIA_TC_RECURRING_DOCUMENTS].sql Normal file
View File

@@ -0,0 +1,71 @@
USE [DD_ECM]
GO
/****** Object: StoredProcedure [dbo].[PRCUST_SET_PM_VIA_TC_RECURRING_DOCUMENTS] Script Date: 21.03.2024 17:11:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- T-SQL Table procedure to set recurring doc active again in workflow
-- Stand: MK // 31.10.2021
-- 31.10.2021 Initial
-- TC Profil: ...
CREATE PROCEDURE [dbo].[PRCUST_SET_PM_VIA_TC_RECURRING_DOCUMENTS] (
@windreamDocID BIGINT, -- Test mit 730491
@windreamAttrID INT = 10042
)
AS
BEGIN
DECLARE @CurrentMonthID TINYINT,
@CurrentMonthName VARCHAR(20),
@BookingMonthName VARCHAR(20),
@Result INTEGER = 0;
----------------------------------------------------------------------------------------------------------------------------------
SELECT @CurrentMonthID = MONTH(getdate()); -- aktuell nicht weiter verwendet
SELECT @CurrentMonthName = FORMAT(GETDATE(),'MMMM')
IF @CurrentMonthName in (SELECT [szValue] FROM [windream60].[dbo].[Vector] where dwAttrID = @windreamAttrID and dwDocId = @windreamDocID)
BEGIN
PRINT @CurrentMonthName + ' found in windream Attribut'
SELECT @BookingMonthName = FORMAT((SELECT CONVERT(DATETIME, convert(varchar(8),dwDate04)) FROM windream60.dbo.BaseAttributes where dwDocID = @windreamDocID),'MMMM')
IF (@BookingMonthName <> @CurrentMonthName)
BEGIN
PRINT 'FINAL: @BookingMonthName <> @CurrentMonthName'
SELECT @Result = 1
END
ELSE
BEGIN
PRINT 'FINAL: @BookingMonthName = @CurrentMonthName'
SELECT @Result = 0
END
END
ELSE
SELECT @Result = 0
----------------------------------------------------------------------------------------------------------------------------------
RETURN @Result;
END
GO