100 lines
3.2 KiB
SQL
100 lines
3.2 KiB
SQL
/* Formatted on 31-5-2021 10:50:54 (QP5 v5.336) */
|
|
--
|
|
-- $Id$
|
|
--
|
|
-- BLST#66395: Implementatie belastingdienst
|
|
-- Initieel goed zetten sleutels en cilinders
|
|
|
|
DEFINE thisfile = 'BLST#66395.SQL'
|
|
DEFINE dbuser = '^BLST'
|
|
|
|
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 ------
|
|
|
|
-- Cilinders uitgeven aan een ruimte
|
|
|
|
UPDATE ins_deel d
|
|
SET d.ins_alg_ruimte_key_org = d.ins_alg_ruimte_key,
|
|
d.ins_alg_ruimte_type_org = 'R'
|
|
WHERE d.ins_deel_key IN
|
|
(SELECT d.INS_DEEL_KEY
|
|
FROM ins_deel d, ins_srtdeel sd
|
|
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND sd.ins_srtgroep_key = 21);
|
|
|
|
|
|
-- Laatste stap is dan de cilindersets en sleutelsets aan elkaar koppelen
|
|
|
|
DECLARE
|
|
-- Onderstaande cursors bepalen welke kostenplaats_nrs en afdelings_nrs er moeten worden omgezet. Deze zijn tijdelijk ingelezen via fac_imp_organisatie
|
|
CURSOR c_sle IS
|
|
SELECT cilinder_key, sleutel_key
|
|
FROM (SELECT cil.ins_srtdeel_key cilinder_key,
|
|
cil.ins_srtdeel_code_upper
|
|
FROM ins_srtdeel cil
|
|
WHERE cil.ins_srtgroep_key = 21) cilinder,
|
|
(SELECT DISTINCT
|
|
sle.ins_srtdeel_key sleutel_key,
|
|
sle.ins_srtdeel_omschrijving,
|
|
cilinder.cilinder
|
|
FROM ins_srtdeel sle,
|
|
ins_deel d,
|
|
(SELECT kd.ins_deel_key,
|
|
kd.ins_kenmerkdeel_waarde cilinder
|
|
FROM ins_kenmerkdeel kd,
|
|
ins_kenmerk k,
|
|
ins_srtkenmerk sk
|
|
WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
|
|
AND k.ins_srtkenmerk_key =
|
|
sk.ins_srtkenmerk_key
|
|
AND sk.ins_srtkenmerk_key = 5) cilinder
|
|
WHERE sle.ins_srtgroep_key = 22
|
|
AND sle.ins_srtdeel_key = d.ins_srtdeel_key
|
|
AND d.ins_deel_key = cilinder.ins_deel_key) sleutel
|
|
WHERE cilinder.ins_srtdeel_code_upper = sleutel.cilinder;
|
|
BEGIN
|
|
FOR rec IN c_sle
|
|
LOOP
|
|
BEGIN
|
|
INSERT INTO INS_SRTDEEL_SRTDEEL (ins_srtdeel_key_1,
|
|
ins_srtdeel_key_2,
|
|
ins_module)
|
|
VALUES (rec.cilinder_key, rec.sleutel_key, 'SLE');
|
|
|
|
END;
|
|
END LOOP;
|
|
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 |