--
-- $Id$
--

DEFINE thisfile = 'ARAI#58891-3.SQL'
DEFINE dbuser   = '^ARAI'

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;
SET DEFINE OFF

------ payload begin ------

-- meldingen die bij verkeerde object zijn gedaan naar juiste omzetten
UPDATE mld_melding_object
SET ins_deel_key = 1762
 WHERE ins_deel_key = 3002;


-- Kenmerken op discipline niveau die eerst overgezet moeten worden in ins_kenmerk_deel
--Serienummer 109 --> 1921
UPDATE ins_kenmerkdeel
   SET ins_kenmerk_key = 1921
 WHERE     ins_kenmerk_key = 109
       AND ins_deel_key = 1762; 

--Onderhoudspartij 107 --> 1922
UPDATE ins_kenmerkdeel
   SET ins_kenmerk_key = 1922
 WHERE     ins_kenmerk_key = 107
       AND ins_deel_key = 1762; 
       
--Bouwjaar 111 --> 1923
UPDATE ins_kenmerkdeel
   SET ins_kenmerk_key = 1923
 WHERE     ins_kenmerk_key = 111
       AND ins_deel_key = 1762; 

--Leverancier 121 --> 1924
UPDATE ins_kenmerkdeel
   SET ins_kenmerk_key = 1924
 WHERE     ins_kenmerk_key = 121
       AND ins_deel_key = 1762; 

-- Referentie 1161 --> 1927
UPDATE ins_kenmerkdeel
   SET ins_kenmerk_key = 1927
 WHERE     ins_kenmerk_key = 1161
       AND ins_deel_key = 1762; 

-- Type 110 --> 1928
UPDATE ins_kenmerkdeel
   SET ins_kenmerk_key = 1928
 WHERE     ins_kenmerk_key = 110
       AND ins_deel_key = 1762; 

-- Dan kan het object omgezet worden naar de juiste objectsoort en de juiste discipline
UPDATE ins_deel
   SET  ins_srtdeel_key = 1081, ins_discipline_key = 1861
 WHERE ins_deel_key = 1762;

COMMIT;
 
------ 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 