LOGC#59204

svn path=/Customer/; revision=44124

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