From 04e716f2edd9d6b9c830dc9b2ff0aa7b8bb2a535 Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Thu, 14 Sep 2023 08:04:43 +0000
Subject: [PATCH] PROR#79462 Outlook-koppeling deadlocks

svn path=/Customer/; revision=61795
---
 onces/PROR/PROR#79462.sql | 45 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 onces/PROR/PROR#79462.sql

diff --git a/onces/PROR/PROR#79462.sql b/onces/PROR/PROR#79462.sql
new file mode 100644
index 000000000..0d890636c
--- /dev/null
+++ b/onces/PROR/PROR#79462.sql
@@ -0,0 +1,45 @@
+--
+-- $Id$
+--
+-- Past de EXC_IMPORT trigger aan in de hoop dat het deadlocks vermindert
+-- Dit komt eigenlijk pas met 2023.3/DB46 maar doen we alvast bij PROR
+--
+DEFINE thisfile = 'PROR#79462.sql'
+DEFINE dbuser   = 'PROR'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+-- Merk op: met DB46 wordt hij netjes hernoemd naar exc_t_exc_import_B_I
+
+CREATE OR REPLACE TRIGGER exc_t_exc_import_B_IU
+BEFORE INSERT ON exc_import
+FOR EACH ROW
+BEGIN
+    IF :new.exc_import_key IS NULL THEN SELECT exc_s_import_key.nextval INTO :new.exc_import_key FROM DUAL; END IF;
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile