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

[PRCUST_SET_DMS_STATUS_IN_WAWI]: Duplicate handling improved, new parameter for user, IF/Else structure improved

Browse Source
This commit is contained in:
KammM 2024-11-22 18:45:51 +01:00
parent 332e49f9d8
commit caa015e9b7
1 changed files with 175 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

214
DD-VMP02-DB01/SQL-Server/Prozeduren/[PRCUST_SET_DMS_STATUS_IN_WAWI].sql
View File

@ -9,12 +9,12 @@
-- Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
-- Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
-- =================================================================
-- Creation Date / Author: 19.11.2024 / HE,MK
-- Version Date / Editor: 19.11.2024 / HE,MK
-- Creation Date / Author: 22.11.2024 / HE,MK
-- Version Date / Editor: 22.11.2024 / HE,MK
-- Version Number: 1.0.0.0
-- =================================================================
-- History:
-- 19.11.2024 / HE,MK - First Version
-- 22.11.2024 / HE,MK - First Version
SET ANSI_NULLS ON
GO
@ -30,6 +30,7 @@ CREATE OR ALTER PROCEDURE [PRCUST_SET_DMS_STATUS_IN_WAWI](
@pDOCTYPE VARCHAR(256) = 'Ausgangsrechnung', -- Give doctype: Ausgangsangebot, Ausgangsauftrag, Ausgangslieferschein, Ausgangsrechnung
@pDOCNR VARCHAR(256), -- Give docnr, like 'ARE-20234187' or 'AANG-20241060'
@pDMSSTATUS VARCHAR(256), -- Give text to write in @pTARGETDBCOLUMN
@pUSERNAME VARCHAR(50) = '[PRCUST_SET_DMS_STATUS_IN_WAWI]',-- Give the user of the Frontend call
@pOVERWRITE BIT = 0, -- Set overwrite for @pTARGETDBCOLUMN: 0 = concat; 1 = overwrite
@pLOGLEVEL VARCHAR(25) = 'ERROR' -- Set Loglevel to be written to table [TBCUST_SET_DMS_STATUS_IN_WAWI_LOG]
)
@ -46,37 +47,38 @@ BEGIN TRY
@DOCTYPE VARCHAR(256) = @pDOCTYPE,
@DOCNR VARCHAR(256) = @pDOCNR,
@DMSSTATUS VARCHAR(256) = @pDMSSTATUS,
@USERNAME VARCHAR(50) = @pUSERNAME,
@OVERWRITE BIT = @pOVERWRITE,
@LOGLEVEL VARCHAR(25) = @pLOGLEVEL,
@DOCTYPECOLUMN VARCHAR(25) = NULL,
@SQLCommand NVARCHAR(max) = NULL,
@DOCCOUNT INT = 0,
@DOCCOUNT1 INT = 0,
@DOCCOUNT2 INT = 0,
@DMSSTATUSOLD VARCHAR(256) = NULL,
@return_status VARCHAR(256) = NULL,
@return_status_text VARCHAR(256) = NULL;
PRINT '==============================='
PRINT 'PROCEDURE - START [PRCUST_SET_DMS_STATUS_IN_WAWI] @ ' + CONVERT(varchar(50),GETDATE(),120);
PRINT 'PARAMETER1 - @TARGETSYSTEM: ' + CONVERT(VARCHAR(256),@TARGETSYSTEM);
PRINT 'PARAMETER2 - @TARGETDB: ' + CONVERT(VARCHAR(256),@TARGETDB);
PRINT 'PARAMETER3 - @TARGETSCHEMA: ' + CONVERT(VARCHAR(256),@TARGETSCHEMA);
PRINT 'PARAMETER4 - @TARGETTABLE: ' + CONVERT(VARCHAR(256),@TARGETTABLE);
PRINT 'PARAMETER5 - @TARGETDBCOLUMN: ' + CONVERT(VARCHAR(256),@TARGETDBCOLUMN);
PRINT 'PARAMETER6 - @DOCTYPE: ' + CONVERT(VARCHAR(256),@DOCTYPE);
PRINT 'PARAMETER7 - @DOCNR: ' + CONVERT(VARCHAR(256),@DOCNR);
PRINT 'PARAMETER8 - @DMSSTATUS: ' + CONVERT(VARCHAR(256),@DMSSTATUS);
PRINT 'PARAMETER9 - @OVERWRITE: ' + CONVERT(VARCHAR(1),@OVERWRITE);
PRINT 'PARAMETER10 - @LOGLEVEL: ' + CONVERT(VARCHAR(25),@LOGLEVEL);
PRINT 'PARAMETER01 - @TARGETSYSTEM: ' + CONVERT(VARCHAR(256),@TARGETSYSTEM);
PRINT 'PARAMETER02 - @TARGETDB: ' + CONVERT(VARCHAR(256),@TARGETDB);
PRINT 'PARAMETER03 - @TARGETSCHEMA: ' + CONVERT(VARCHAR(256),@TARGETSCHEMA);
PRINT 'PARAMETER04 - @TARGETTABLE: ' + CONVERT(VARCHAR(256),@TARGETTABLE);
PRINT 'PARAMETER05 - @TARGETDBCOLUMN: ' + CONVERT(VARCHAR(256),@TARGETDBCOLUMN);
PRINT 'PARAMETER06 - @DOCTYPE: ' + CONVERT(VARCHAR(256),@DOCTYPE);
PRINT 'PARAMETER07 - @DOCNR: ' + CONVERT(VARCHAR(256),@DOCNR);
PRINT 'PARAMETER08 - @DMSSTATUS: ' + CONVERT(VARCHAR(256),@DMSSTATUS);
PRINT 'PARAMETER09 - @USERNAME: ' + CONVERT(VARCHAR(50),@USERNAME);
PRINT 'PARAMETER10 - @OVERWRITE: ' + CONVERT(VARCHAR(1),@OVERWRITE);
PRINT 'PARAMETER11 - @LOGLEVEL: ' + CONVERT(VARCHAR(25),@LOGLEVEL);
--==============================================-- Prepare the log table --================================================--
IF (@LOGLEVEL is not NULL)
BEGIN
IF (@LOGLEVEL is not NULL) BEGIN
PRINT ''
IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBCUST_SET_DMS_STATUS_IN_WAWI_LOG')
BEGIN
IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBCUST_SET_DMS_STATUS_IN_WAWI_LOG') BEGIN
PRINT 'Log table already exists'
END;
ELSE
BEGIN
END; ELSE BEGIN
PRINT 'Log table does not exists, trying to create...';
CREATE TABLE [dbo].[TBCUST_SET_DMS_STATUS_IN_WAWI_LOG](
@ -99,14 +101,12 @@ BEGIN TRY
ALTER TABLE [dbo].[TBCUST_SET_DMS_STATUS_IN_WAWI_LOG] ADD CONSTRAINT [DF_TBCUST_SET_DMS_STATUS_IN_WAWI_LOG_ADDED_WHO] DEFAULT ('DEFAULT') FOR [ADDED_WHO];
ALTER TABLE [dbo].[TBCUST_SET_DMS_STATUS_IN_WAWI_LOG] ADD CONSTRAINT [DF_TBCUST_SET_DMS_STATUS_IN_WAWI_LOG_ADDED_WHEN] DEFAULT (getdate()) FOR [ADDED_WHEN];
END;
END;
-----------------------------------------------------------------------------------------------------------------------------
--==============================================-- Determ doctype column --================================================--
IF (@TARGETSYSTEM = 'WINLINE')
BEGIN
IF (@TARGETSYSTEM = 'WINLINE') BEGIN
SET @DOCTYPECOLUMN = CASE
WHEN @DOCTYPE = 'Ausgangsangebot'
THEN '[c043]'
@ -118,9 +118,7 @@ BEGIN TRY
THEN '[c055]'
ELSE NULL
END;
END;
ELSE
BEGIN
END; ELSE BEGIN
PRINT 'Currently only WINLINE is available!'
SET @DOCTYPECOLUMN = NULL
END;
@ -130,114 +128,158 @@ BEGIN TRY
-----------------------------------------------------------------------------------------------------------------------------
--========================================-- Are there target lines to update? --==========================================--
IF (@DOCTYPECOLUMN is not NULL)
BEGIN
IF (@DOCTYPECOLUMN is not NULL) BEGIN
PRINT 'Check if there is a valid target there'
SET @SQLCommand = N'SELECT @DOCCOUNT = count(*) FROM ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + ' WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + ''' ';
SET @SQLCommand = N'SELECT @DOCCOUNT1 = count(*)
FROM ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + '
WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + ''' ';
PRINT 'Build Query @SQLCommand: ' + @SQLCommand
EXEC @return_status = sp_executesql @SQLCommand,N'@DOCCOUNT INT OUTPUT', @DOCCOUNT OUTPUT;
IF ((@return_status = 0))
BEGIN
IF (@DOCCOUNT > 0)
BEGIN
PRINT 'Found: ' + CONVERT(VARCHAR(25),@DOCCOUNT) + ' doc to update!'
EXEC @return_status = sp_executesql @SQLCommand,N'@DOCCOUNT1 INT OUTPUT', @DOCCOUNT1 OUTPUT;
IF (@return_status = 0) BEGIN
IF (@DOCCOUNT1 > 0) BEGIN
PRINT 'Found: ' + CONVERT(VARCHAR(25),@DOCCOUNT1) + ' docs to update!'
PRINT 'Checking if docs have a existing "dms text"'
SET @SQLCommand = N'SELECT @DOCCOUNT2 = count(*)
FROM ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + '
WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + '''
AND (' + @TARGETDBCOLUMN + ' = ''' + @DMSSTATUS + '''
OR ' + @TARGETDBCOLUMN + ' LIKE ''%' + @DMSSTATUS + '''
OR ' + @TARGETDBCOLUMN + ' LIKE ''' + @DMSSTATUS + '%''
OR ' + @TARGETDBCOLUMN + ' LIKE ''%' + @DMSSTATUS + '%'') ';
SET @SQLCommand = N'SELECT @DOCCOUNT = count(*) FROM ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + ' WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + ''' AND ' + @TARGETDBCOLUMN + ' IS NOT NULL AND ' + @TARGETDBCOLUMN + ' <> ''' + @DMSSTATUS + '''';
PRINT 'Build "DMS Text" Query @SQLCommand: ' + @SQLCommand
EXEC @return_status = sp_executesql @SQLCommand,N'@DOCCOUNT INT OUTPUT', @DOCCOUNT OUTPUT;
EXEC @return_status = sp_executesql @SQLCommand,N'@DOCCOUNT2 INT OUTPUT', @DOCCOUNT2 OUTPUT;
IF ((@OVERWRITE = 0) and (@DOCCOUNT > 0))
BEGIN
SET @SQLCommand = N'UPDATE ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + ' SET ' + @TARGETDBCOLUMN + ' = concat(' + @TARGETDBCOLUMN + ',''; ''' +', ''' + @DMSSTATUS + ''') WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + ''' ';
END;
ELSE
BEGIN
SET @SQLCommand = N'UPDATE ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + ' SET ' + @TARGETDBCOLUMN + ' = ''' + @DMSSTATUS + ''' WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + ''' ';
END;
IF (@return_status = 0) BEGIN
PRINT 'Query was successful!'
PRINT 'Found: ' + CONVERT(VARCHAR(25),@DOCCOUNT2) + ' docs with the dms text duplicate!'
PRINT 'Build Update @SQLCommand: ' + @SQLCommand
EXEC @return_status = sp_executesql @SQLCommand
IF ((@return_status = 0))
BEGIN
PRINT 'Update was successful!'
IF (@DOCCOUNT2 > 0) BEGIN
PRINT 'Given dms text is already there, no update needed!';
SET @return_status = 1;
END;
ELSE
BEGIN
PRINT 'Update has failed!'
PRINT '@return_status: ' + CONVERT(VARCHAR(50),@return_status)
END; ELSE BEGIN
PRINT 'Given dms text is not there, update needed!';
IF ((@OVERWRITE = 0) and (@DOCCOUNT1 > 0)) BEGIN
SET @SQLCommand = N'SELECT TOP 1 @DMSSTATUSOLD = ' + @TARGETDBCOLUMN + '
FROM ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + '
WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + '''
AND ' + @TARGETDBCOLUMN + ' IS NOT NULL
AND ' + @TARGETDBCOLUMN + ' <> '''' ';
PRINT 'Build "DMS Text" Query for existing values @SQLCommand: ' + @SQLCommand
PRINT 'Found: ' + CONVERT(VARCHAR(25),@DOCCOUNT1) + ' docs with a existing dms text!'
EXEC @return_status = sp_executesql @SQLCommand,N'@DMSSTATUSOLD VARCHAR(256) OUTPUT', @DMSSTATUSOLD OUTPUT;
IF ((@return_status = 0)) BEGIN
PRINT 'Query was successful!'
IF (@DMSSTATUSOLD <> @DMSSTATUS) BEGIN
PRINT 'Extending DMS status text'
SET @DMSSTATUS = concat(@DMSSTATUSOLD,'; ',@DMSSTATUS)
END;
SET @DMSSTATUS = CASE
WHEN LEFT(@DMSSTATUS,2) = '; '
THEN SUBSTRING(@DMSSTATUS, 2, LEN(@DMSSTATUS)-2)
ELSE @DMSSTATUS
END;
ELSE
BEGIN
PRINT 'No doc were found!'
END; ELSE BEGIN
PRINT 'Query has failed!'
PRINT '@DMSSTATUS keeps untouched!'
END;
END; ELSE IF ((@OVERWRITE = 1) or (@DOCCOUNT1 = 0)) BEGIN
PRINT 'Overwrite is enabled and or no doc with existing dms text found!'
END;
--===========================================-- data collected updating row --=============================================--
SET @SQLCommand = N'SET NOCOUNT ON;
UPDATE ' + @TARGETDB + '.' + @TARGETSCHEMA + '.' + @TARGETTABLE + '
SET ' + @TARGETDBCOLUMN + ' = ''' + @DMSSTATUS + '''
WHERE ' + @DOCTYPECOLUMN + ' = ''' + @DOCNR + ''' ';
PRINT 'Build Update @SQLCommand: ' + @SQLCommand;
EXEC @return_status = sp_executesql @SQLCommand;
IF ((@return_status = 0)) BEGIN
PRINT 'Update was successful!';
SET @return_status = 1;
END; ELSE BEGIN
PRINT 'Update has failed!';
PRINT '@return_status: ' + CONVERT(VARCHAR(50),@return_status);
END;
-----------------------------------------------------------------------------------------------------------------------------
END;
END; ELSE BEGIN
PRINT 'Query has failed!';
SET @return_status = 0;
END;
END;
ELSE
BEGIN
PRINT 'Error at dynamic SQL!'
END; ELSE BEGIN
PRINT 'No doc were found!';
SET @return_status = 0;
END;
END; ELSE BEGIN
PRINT 'Error at dynamic SQL!';
SET @return_status = 0;
END;
ELSE
BEGIN
PRINT 'Invalid call!'
END; ELSE BEGIN
PRINT 'Invalid call!';
SET @return_status = 0;
END;
-----------------------------------------------------------------------------------------------------------------------------
PRINT '';
PRINT 'PROCEDURE - END [PRCUST_SET_DMS_STATUS_IN_WAWI] @ ' + CONVERT(varchar(50),GETDATE(),120);
PRINT '===============================';
--==============================================-- Log result to table --===============================================--
IF (@return_status = 1)
SET @return_status_text = 'SUCCESS';
ELSE
SET @return_status_text = 'FAILED';
IF (@LOGLEVEL in ('INFO','WARN'))
BEGIN
IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBCUST_SET_DMS_STATUS_IN_WAWI_LOG')
BEGIN
PRINT '';
PRINT 'PROCEDURE Result: ' + @return_status_text
PRINT 'PROCEDURE - END [PRCUST_SET_DMS_STATUS_IN_WAWI] @ ' + CONVERT(varchar(50),GETDATE(),120);
PRINT '===============================';
--==============================================-- Log result to table --===============================================--
IF (@LOGLEVEL in ('INFO','WARN')) BEGIN
IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBCUST_SET_DMS_STATUS_IN_WAWI_LOG') BEGIN
INSERT INTO [TBCUST_SET_DMS_STATUS_IN_WAWI_LOG]([LOG_LEVEL],[MESSAGE1], [MESSAGE2], [MESSAGE3], [MESSAGE4], [MESSAGE5], [ADDED_WHO], [ADDED_WHEN])
VALUES (@LOGLEVEL, concat(@TARGETDB,'.',@TARGETSCHEMA,'.',@TARGETTABLE,'.',@TARGETDBCOLUMN), concat(@DOCTYPE,' - Nr: ',@DOCNR), @DMSSTATUS, 'OVERWRITE = ' + convert(varchar,@OVERWRITE), @return_status_text, 'PRCUST_SET_DMS_STATUS_IN_WAWI',GetDate());
VALUES (@LOGLEVEL, concat(@TARGETDB,'.',@TARGETSCHEMA,'.',@TARGETTABLE,'.',@TARGETDBCOLUMN), concat(@DOCTYPE,' - Nr: ',@DOCNR), @DMSSTATUS, 'OVERWRITE = ' + convert(varchar,@OVERWRITE), @return_status_text, @USERNAME ,GetDate());
END;
END;
-----------------------------------------------------------------------------------------------------------------------------
RETURN @return_status -- Because of the target index in windream!
END TRY
BEGIN CATCH
PRINT 'ERROR: ' + ERROR_MESSAGE()
-- Handle any errors that occur during the process.
SELECT ERROR_MESSAGE() AS ErrorMessage;
--================================================-- Log error to table --=================================================--
IF (@LOGLEVEL in ('INFO','WARN','ERROR'))
BEGIN
IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBCUST_SET_DMS_STATUS_IN_WAWI_LOG')
BEGIN
IF (@LOGLEVEL in ('INFO','WARN','ERROR')) BEGIN
IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBCUST_SET_DMS_STATUS_IN_WAWI_LOG') BEGIN
INSERT INTO [TBCUST_SET_DMS_STATUS_IN_WAWI_LOG]([LOG_LEVEL],[MESSAGE1], [MESSAGE2], [MESSAGE3], [MESSAGE4], [MESSAGE5], [ADDED_WHO], [ADDED_WHEN])
VALUES ('ERROR', concat(@TARGETDB,'.',@TARGETSCHEMA,'.',@TARGETTABLE,'.',@TARGETDBCOLUMN), concat(@DOCTYPE,' - Nr: ',@DOCNR), @DMSSTATUS, 'OVERWRITE = ' + convert(varchar,@OVERWRITE), ERROR_MESSAGE(), 'PRCUST_SET_DMS_STATUS_IN_WAWI',GetDate());
VALUES ('ERROR', concat(@TARGETDB,'.',@TARGETSCHEMA,'.',@TARGETTABLE,'.',@TARGETDBCOLUMN), concat(@DOCTYPE,' - Nr: ',@DOCNR), @DMSSTATUS, 'OVERWRITE = ' + convert(varchar,@OVERWRITE), ERROR_MESSAGE(), @USERNAME, GetDate());
END;
END;
-----------------------------------------------------------------------------------------------------------------------------
PRINT '';
PRINT 'PROCEDURE Result: ERROR! ' + ERROR_MESSAGE();
PRINT 'PROCEDURE - END [PRCUST_SET_DMS_STATUS_IN_WAWI] @ ' + CONVERT(varchar(50),GETDATE(),120);
PRINT '===============================';
RETURN 0 -- Because of the target index in windream!
RETURN 0; -- Because of the target index in windream!
END CATCH;
GO