From 37286fb633ab33e29cf5bbd24076a420b41942f9 Mon Sep 17 00:00:00 2001
From: Ruud Lipper <ruud.lipper@aareon.nl>
Date: Fri, 6 Sep 2019 06:59:03 +0000
Subject: [PATCH] LOGC#59204

svn path=/Customer/; revision=44124
---
 onces/LOGC/LOGC#59204.sql | 56 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 onces/LOGC/LOGC#59204.sql

diff --git a/onces/LOGC/LOGC#59204.sql b/onces/LOGC/LOGC#59204.sql
new file mode 100644
index 000000000..4f9d4461c
--- /dev/null
+++ b/onces/LOGC/LOGC#59204.sql
@@ -0,0 +1,56 @@
+/* Formatted on 9-11-2017 16:54:31 (QP5 v5.136.908.31019) */
+--
+-- $Id$
+--
+-- Update tbv nieuwe werkwijze met afdelingen. Vul overal een afdeling
+-- Probeer het eerst af te leiden van een evt ingevulde kostenplaats
+-- Als dat niet lukt vul dan de afdeling van de melder maar in.
+
+DEFINE thisfile = 'LOGC#59204.SQL'
+DEFINE dbuser   = '^LOGC'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+
+SELECT adm.scriptspoolfile ('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+UPDATE mld_melding m
+  SET (m.prs_afdeling_key) =
+         (SELECT a.prs_afdeling_key
+            FROM prs_afdeling a, prs_kostenplaats pk
+           WHERE     pk.prs_kostenplaats_nr = a.prs_afdeling_upper
+                 AND pk.prs_kostenplaats_key = m.prs_kostenplaats_key
+                 AND a.prs_afdeling_verwijder IS NULL)
+WHERE m.prs_afdeling_key IS NULL;
+
+UPDATE mld_melding m
+  SET (m.prs_afdeling_key) =
+         (SELECT p.prs_afdeling_key
+            FROM prs_perslid p
+           WHERE p.prs_perslid_key = m.prs_perslid_key)
+WHERE m.prs_afdeling_key IS NULL;
+
+------ 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
\ No newline at end of file