--
-- $Id$
--
-- In kader herziening meldingsstructuur SKA Kinderopvang worden alle ruimteketen omgezet.
-- Daarbij horen ook de adressen voor BES. Waren er 3. Wordt er eentje.
-- Daarom moet na het verwijderen van de oude ruimteketens de bestelling en bestelopdracht omgezet worden naar nieuwe afleveradres_key
---- PS. Locaties worden komende periode stuk voor stuk overgezet.
----     Script moet dus regelmatig gedraaid worden
----     Nog slimmem manier bedenken om dit UNIVERSEEL te kunnen draaien!!!! 

DEFINE thisfile = 'SKAF#61893_10.SQL'
DEFINE dbuser   = '^SKAF'
DEFINE custid   = 'SKAF'

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

-- Alles van VLIN BSO/SLG => VLINDERSLAG
update bes_bestelopdr
set mld_adres_key_lev = 1341  
where 
mld_adres_key_lev in (43, 461)
;

update bes_bestelling
set mld_adres_key_lev = 1341
where
mld_adres_key_lev in (43, 461)
;

-- Alles van ZIGZ BSO/SLG => ZIGZAG
update bes_bestelopdr
set mld_adres_key_lev = 1342  
where 
mld_adres_key_lev in (1141, 1081)
;

update bes_bestelling
set mld_adres_key_lev = 1342
where
mld_adres_key_lev in (1141, 1081)
;


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