TWYN#87300 Projectsplitsing Vredespaleis: Kopiëren budgetten en contracten mogelijk?

svn path=/Customer/; revision=67716

onces/TWYN/TWYN#87300.sql

@@ -0,0 +1,64 @@
+--
+-- $Id$
+--
+-- Verplaats een deelproject naar aan ander project.
+
+DEFINE thisfile = 'TWYN#8700.SQL'
+DEFINE dbuser   = '^TWYN'
+
+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 ------
+
+DECLARE
+    -- Maak in de GUI eerst een nieuw project aan.
+    -- Vul hieronder de namen van het bestaande project/deelproject in dat afgescheiden moet worden.
+    -- Vul ook de naam van het nieuwe project in waar het deelproject naar toe moet.
+    -- Vergeet niet de autorisatie op het nieuwe project te zetten.
+    oud_project_naam        VARCHAR2(100) := 'Vredespaleis Den Haag Onderhoud';
+    oud_deelproject_naam    VARCHAR2(100) := '521960 Achterstallig onderhoud';
+    deelproject_key         NUMBER(10);
+    nieuw_project_naam      VARCHAR2(100) := 'Vredespaleis A';
+    nieuw_project_key       NUMBER(10);
+BEGIN
+    SELECT bgt_project_key
+      INTO deelproject_key
+      FROM bgt_project p
+         , ins_tab_discipline d
+     WHERE d.ins_discipline_key = p.ins_discipline_key
+       AND d.ins_discipline_omschrijving = oud_project_naam
+       AND p.bgt_project_omschrijving = oud_deelproject_naam;
+
+    SELECT ins_discipline_key
+      INTO nieuw_project_key
+      FROM ins_tab_discipline
+     WHERE ins_discipline_omschrijving = nieuw_project_naam;
+ 
+    UPDATE bgt_project
+       SET ins_discipline_key = nieuw_project_key
+     WHERE bgt_project_key = deelproject_key;
+     
+    UPDATE bgt_budget 
+       SET ins_discipline_key = nieuw_project_key
+     WHERE bgt_project_key = deelproject_key;
+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