admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DJIN#61669+DJIN#65706 Sleutelbeheer+DJIN#66232 Rap/Plusdiensten (Leonardonr)

Browse Source 
svn path=/Customer/trunk/; revision=50710
This commit is contained in:
Maarten van der Heide
2021-04-08 15:21:16 +00:00
parent 05dcd28f5b
commit 5479374f3d
1 changed files with 84 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

146
DJIN/djin.sql
View File

@@ -8244,9 +8244,9 @@ AS
LEFT JOIN mld_v_aanwezigkenmerkmelding tp -- Totaalprijs (Soort 261)
ON x.mld_melding_key = tp.mld_melding_key
AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 261 AND mld_kenmerk_key = tp.mld_kenmerk_key)
LEFT JOIN mld_v_aanwezigkenmerkmelding ln -- Leonardonummer (Soort 285)
LEFT JOIN mld_v_aanwezigkenmerkmelding ln -- Leonardonummer (Soort 285+DJIN#66232:284/286)
ON x.mld_melding_key = ln.mld_melding_key
AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 285 AND mld_kenmerk_key = ln.mld_kenmerk_key)
AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key IN (285, 286, 287) AND mld_kenmerk_key = ln.mld_kenmerk_key)
LEFT JOIN mld_v_aanwezigkenmerkmelding lt -- Locatieteam-vinkveld (Soort 461)
ON x.mld_melding_key = lt.mld_melding_key
AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 461 AND mld_kenmerk_key = lt.mld_kenmerk_key)
@@ -9427,6 +9427,9 @@ AS
LEFT JOIN mld_v_aanwezigkenmerkmelding k -- Kosten (Soort 282)
ON x.mld_melding_key = k.mld_melding_key
AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 282 AND mld_kenmerk_key = k.mld_kenmerk_key)
--LEFT JOIN mld_v_aanwezigkenmerkmelding ln -- Leonardonummer (Soort 285+DJIN#66232:284/286)
-- ON x.mld_melding_key = ln.mld_melding_key
-- AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key IN (285, 284, 286) AND mld_kenmerk_key = ln.mld_kenmerk_key)
LEFT JOIN mld_v_aanwezigkenmerkmelding ln -- Leonardonummer (Soort 285)
ON x.mld_melding_key = ln.mld_melding_key
AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 285 AND mld_kenmerk_key = ln.mld_kenmerk_key)
@@ -10115,24 +10118,24 @@ AS -- SLE-sets met of zonder sleutels wel of niet gekoppeld aan CIL-sets!
ON aog2.alg_locatie_key = lo2.alg_locatie_key
LEFT JOIN ins_v_aanwezigkenmerkdeel skd1
ON sle.ins_deel_key = skd1.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 1 AND ins_kenmerk_key = skd1.ins_kenmerk_key) -- Sleuteltypering
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 2 AND ins_kenmerk_key = skd1.ins_kenmerk_key) -- Sleuteltypering
LEFT JOIN fac_v_aanwezigusrdata ud1
ON fac.safe_to_number (skd1.ins_kenmerkdeel_waarde) = ud1.fac_usrdata_key
LEFT JOIN ins_v_aanwezigkenmerkdeel skd2
ON sle.ins_deel_key = skd2.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 2 AND ins_kenmerk_key = skd2.ins_kenmerk_key) -- Haakje
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 3 AND ins_kenmerk_key = skd2.ins_kenmerk_key) -- Haakje
LEFT JOIN ins_v_aanwezigkenmerkdeel skd3
ON sle.ins_deel_key = skd3.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 3 AND ins_kenmerk_key = skd3.ins_kenmerk_key) -- Sleutel meegegeven aan
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 4 AND ins_kenmerk_key = skd3.ins_kenmerk_key) -- Sleutel meegegeven aan
LEFT JOIN ins_v_aanwezigkenmerkdeel skd4
ON sle.ins_deel_key = skd4.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 4 AND ins_kenmerk_key = skd4.ins_kenmerk_key) -- Telefoonnummer
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 5 AND ins_kenmerk_key = skd4.ins_kenmerk_key) -- Telefoonnummer
--LEFT JOIN ins_v_aanwezigkenmerkdeel skd5
-- ON sle.ins_srtdeel_key = skd5.ins_deel_key
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 5 AND ins_kenmerk_key = skd5.ins_kenmerk_key) -- Uitleeninstructie
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 6 AND ins_kenmerk_key = skd5.ins_kenmerk_key) -- Uitleeninstructie
LEFT JOIN ins_v_aanwezigkenmerkdeel skd6
ON sle.ins_deel_key = skd6.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 6 AND ins_kenmerk_key = skd6.ins_kenmerk_key) -- Serienummer(s)
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 7 AND ins_kenmerk_key = skd6.ins_kenmerk_key) -- Serienummer(s)
LEFT JOIN (SELECT sd.ins_srtgroep_key,
sd.ins_srtdeel_key,
d.ins_deel_key,
@@ -10166,34 +10169,34 @@ AS -- SLE-sets met of zonder sleutels wel of niet gekoppeld aan CIL-sets!
ON aog2.alg_locatie_key = lo2.alg_locatie_key
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd1
ON cil.ins_srtdeel_key = ckd1.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 21 AND ins_kenmerk_key = ckd1.ins_kenmerk_key) -- Cilindertypering
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 8 AND ins_kenmerk_key = ckd1.ins_kenmerk_key) -- Cilindertypering
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd2
ON cil.ins_srtdeel_key = ckd2.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 22 AND ins_kenmerk_key = ckd2.ins_kenmerk_key) -- Kleur
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 9 AND ins_kenmerk_key = ckd2.ins_kenmerk_key) -- Kleur
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd3
ON cil.ins_srtdeel_key = ckd3.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 23 AND ins_kenmerk_key = ckd3.ins_kenmerk_key) -- Half
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 10 AND ins_kenmerk_key = ckd3.ins_kenmerk_key) -- Half
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd4
ON cil.ins_srtdeel_key = ckd4.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 24 AND ins_kenmerk_key = ckd4.ins_kenmerk_key) -- Dubbel
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 11 AND ins_kenmerk_key = ckd4.ins_kenmerk_key) -- Dubbel
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd5
ON cil.ins_srtdeel_key = ckd5.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 25 AND ins_kenmerk_key = ckd5.ins_kenmerk_key) -- Knop
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 12 AND ins_kenmerk_key = ckd5.ins_kenmerk_key) -- Knop
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd6
ON cil.ins_srtdeel_key = ckd6.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 26 AND ins_kenmerk_key = ckd6.ins_kenmerk_key) -- SKG kwalificatie
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 13 AND ins_kenmerk_key = ckd6.ins_kenmerk_key) -- SKG kwalificatie
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd7
ON cil.ins_srtdeel_key = ckd7.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 28 AND ins_kenmerk_key = ckd7.ins_kenmerk_key) -- Deelcertificaat
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 14 AND ins_kenmerk_key = ckd7.ins_kenmerk_key) -- Deelcertificaat
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd8
ON cil.ins_srtdeel_key = ckd8.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 29 AND ins_kenmerk_key = ckd8.ins_kenmerk_key) -- Cilinderlengte A / B
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 15 AND ins_kenmerk_key = ckd8.ins_kenmerk_key) -- Cilinderlengte A / B
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd9
ON cil.ins_srtdeel_key = ckd9.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 41 AND ins_kenmerk_key = ckd9.ins_kenmerk_key) -- Vrijloop
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 16 AND ins_kenmerk_key = ckd9.ins_kenmerk_key) -- Vrijloop
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd10
ON cil.ins_deel_key = ckd10.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 6 AND ins_kenmerk_key = ckd10.ins_kenmerk_key) -- Serienummer(s)
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 7 AND ins_kenmerk_key = ckd10.ins_kenmerk_key) -- Serienummer(s)
UNION ALL -- CIL-sets met of zonder cilinders niet gekoppeld aan SLE-set!
SELECT NULL sle_srtgroep_key,
NULL sle_srtdeel_key,
@@ -10300,34 +10303,34 @@ AS -- SLE-sets met of zonder sleutels wel of niet gekoppeld aan CIL-sets!
ON aog2.alg_locatie_key = lo2.alg_locatie_key
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd1
ON cil.ins_srtdeel_key = ckd1.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 21 AND ins_kenmerk_key = ckd1.ins_kenmerk_key) -- Cilindertypering
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 8 AND ins_kenmerk_key = ckd1.ins_kenmerk_key) -- Cilindertypering
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd2
ON cil.ins_srtdeel_key = ckd2.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 22 AND ins_kenmerk_key = ckd2.ins_kenmerk_key) -- Kleur
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 9 AND ins_kenmerk_key = ckd2.ins_kenmerk_key) -- Kleur
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd3
ON cil.ins_srtdeel_key = ckd3.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 23 AND ins_kenmerk_key = ckd3.ins_kenmerk_key) -- Half
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 10 AND ins_kenmerk_key = ckd3.ins_kenmerk_key) -- Half
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd4
ON cil.ins_srtdeel_key = ckd4.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 24 AND ins_kenmerk_key = ckd4.ins_kenmerk_key) -- Dubbel
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 11 AND ins_kenmerk_key = ckd4.ins_kenmerk_key) -- Dubbel
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd5
ON cil.ins_srtdeel_key = ckd5.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 25 AND ins_kenmerk_key = ckd5.ins_kenmerk_key) -- Knop
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 12 AND ins_kenmerk_key = ckd5.ins_kenmerk_key) -- Knop
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd6
ON cil.ins_srtdeel_key = ckd6.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 26 AND ins_kenmerk_key = ckd6.ins_kenmerk_key) -- SKG kwalificatie
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 13 AND ins_kenmerk_key = ckd6.ins_kenmerk_key) -- SKG kwalificatie
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd7
ON cil.ins_srtdeel_key = ckd7.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 28 AND ins_kenmerk_key = ckd7.ins_kenmerk_key) -- Deelcertificaat
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 14 AND ins_kenmerk_key = ckd7.ins_kenmerk_key) -- Deelcertificaat
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd8
ON cil.ins_srtdeel_key = ckd8.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 29 AND ins_kenmerk_key = ckd8.ins_kenmerk_key) -- Cilinderlengte A / B
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 15 AND ins_kenmerk_key = ckd8.ins_kenmerk_key) -- Cilinderlengte A / B
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd9
ON cil.ins_srtdeel_key = ckd9.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 41 AND ins_kenmerk_key = ckd9.ins_kenmerk_key) -- Vrijloop
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 16 AND ins_kenmerk_key = ckd9.ins_kenmerk_key) -- Vrijloop
LEFT JOIN ins_v_aanwezigkenmerkdeel ckd10
ON cil.ins_deel_key = ckd10.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 6 AND ins_kenmerk_key = ckd10.ins_kenmerk_key) -- Serienummer(s)
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 7 AND ins_kenmerk_key = ckd10.ins_kenmerk_key) -- Serienummer(s)
;
CREATE OR REPLACE VIEW djin_v_udr_sle_tracking
@@ -10400,24 +10403,24 @@ AS
ON aog2.alg_locatie_key = lo2.alg_locatie_key
LEFT JOIN ins_v_aanwezigkenmerkdeel skd1
ON sle.ins_deel_key = skd1.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 1 AND ins_kenmerk_key = skd1.ins_kenmerk_key) -- Sleuteltypering
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 2 AND ins_kenmerk_key = skd1.ins_kenmerk_key) -- Sleuteltypering
LEFT JOIN fac_v_aanwezigusrdata ud1
ON fac.safe_to_number (skd1.ins_kenmerkdeel_waarde) = ud1.fac_usrdata_key
--LEFT JOIN ins_v_aanwezigkenmerkdeel skd2
-- ON sle.ins_deel_key = skd2.ins_deel_key
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 2 AND ins_kenmerk_key = skd2.ins_kenmerk_key) -- Haakje
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 3 AND ins_kenmerk_key = skd2.ins_kenmerk_key) -- Haakje
LEFT JOIN ins_v_aanwezigkenmerkdeel skd3
ON sle.ins_deel_key = skd3.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 3 AND ins_kenmerk_key = skd3.ins_kenmerk_key) -- Sleutel meegegeven aan
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 4 AND ins_kenmerk_key = skd3.ins_kenmerk_key) -- Sleutel meegegeven aan
--LEFT JOIN ins_v_aanwezigkenmerkdeel skd4
-- ON sle.ins_deel_key = skd4.ins_deel_key
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 4 AND ins_kenmerk_key = skd4.ins_kenmerk_key) -- Telefoonnummer
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 5 AND ins_kenmerk_key = skd4.ins_kenmerk_key) -- Telefoonnummer
--LEFT JOIN ins_v_aanwezigkenmerkdeel skd5
-- ON sle.ins_srtdeel_key = skd5.ins_deel_key
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 5 AND ins_kenmerk_key = skd5.ins_kenmerk_key) -- Uitleeninstructie
-- AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 6 AND ins_kenmerk_key = skd5.ins_kenmerk_key) -- Uitleeninstructie
LEFT JOIN ins_v_aanwezigkenmerkdeel skd6
ON sle.ins_deel_key = skd6.ins_deel_key
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 6 AND ins_kenmerk_key = skd6.ins_kenmerk_key) -- Serienummer(s)
AND EXISTS (SELECT 1 FROM ins_v_aanwezigkenmerk WHERE ins_srtkenmerk_key = 7 AND ins_kenmerk_key = skd6.ins_kenmerk_key) -- Serienummer(s)
LEFT JOIN fac_tracking t
ON sle.ins_deel_key = t.fac_tracking_refkey AND t.fac_srtnotificatie_key IN (98, 99) -- INSOUT=Uitgegeven/INSINN=Ingenomen
;
@@ -11485,7 +11488,7 @@ BEGIN
ELSE
v_count_tot := v_count_tot + 1;
-- Controleer alle veldwaarden
v_errormsg := 'Cilindersetcode1 ongeldig';
v_errormsg := 'Sleutelsetcode ongeldig';
v_ins_srtdeel_code := TRIM (v_ins_srtdeel_code);
IF v_ins_srtdeel_code IS NULL OR LENGTH (v_ins_srtdeel_code) > 10
@@ -11495,7 +11498,7 @@ BEGIN
END IF;
--
v_errormsg := 'Cilindersetomschrijving ongeldig';
v_errormsg := 'Sleutelsetomschrijving ongeldig';
v_ins_srtdeel_omschrijving := TRIM (v_ins_srtdeel_omschrijving);
IF v_ins_srtdeel_omschrijving IS NULL OR LENGTH (v_ins_srtdeel_omschrijving) > 100
@@ -11691,19 +11694,21 @@ AS
PROCEDURE upsert_inskenmerk (p_deel_key IN NUMBER,
p_srtkenmerkgroepwaarde IN VARCHAR2)
AS
v_srtkenmerk_key NUMBER;
v_groep NUMBER;
v_waarde VARCHAR (4000);
v_kenmerk_key NUMBER;
v_srtkenmerk_type VARCHAR2 (1);
ccount NUMBER;
v_objectnaam VARCHAR2 (30);
v_kolomnaam VARCHAR2 (30);
v_kolomtxt VARCHAR2 (30);
sql_stmt VARCHAR2 (1000);
l_cursor_1 INTEGER;
l_rowsprocessed NUMBER DEFAULT 0;
v_kenmerkdeel_key NUMBER;
v_srtkenmerk_key NUMBER;
v_groep NUMBER;
v_waarde VARCHAR (4000);
v_kenmerk_key NUMBER;
v_kenmerk_bewerkniveau VARCHAR2 (1);
v_srtkenmerk_type VARCHAR2 (1);
v_srtdeel_key NUMBER;
ccount NUMBER;
v_objectnaam VARCHAR2 (30);
v_kolomnaam VARCHAR2 (30);
v_kolomtxt VARCHAR2 (30);
sql_stmt VARCHAR2 (1000);
l_cursor_1 INTEGER;
l_rowsprocessed NUMBER DEFAULT 0;
v_kenmerkdeel_key NUMBER;
BEGIN
IF p_srtkenmerkgroepwaarde IS NOT NULL
THEN
@@ -11713,8 +11718,8 @@ AS
v_groep := fac.safe_to_number (SUBSTR (p_srtkenmerkgroepwaarde, INSTR (p_srtkenmerkgroepwaarde, '|') + 1, INSTR (p_srtkenmerkgroepwaarde, '=') - 1 - INSTR (p_srtkenmerkgroepwaarde, '|')));
v_waarde := SUBSTR (p_srtkenmerkgroepwaarde, INSTR (p_srtkenmerkgroepwaarde, '=') + 1);
SELECT k.ins_kenmerk_key, sk.ins_srtkenmerk_kenmerktype
INTO v_kenmerk_key, v_srtkenmerk_type
SELECT k.ins_kenmerk_key, k.ins_kenmerk_bewerkniveau, sk.ins_srtkenmerk_kenmerktype, d.ins_srtdeel_key
INTO v_kenmerk_key, v_kenmerk_bewerkniveau, v_srtkenmerk_type, v_srtdeel_key
FROM ins_deel d, ins_srtdeel sd, ins_srtgroep sg, ins_v_aanwezigkenmerk k, ins_v_aanwezigsrtkenmerk sk
WHERE d.ins_deel_key = p_deel_key
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
@@ -11771,13 +11776,23 @@ AS
NULL;
END IF;
-- LET OP: Afhankelijk van bewerkniveau!
v_errormsg := 'Fout bepalen huidige waarde';
SELECT COUNT ( * ), MAX (ins_kenmerkdeel_key)
INTO ccount, v_kenmerkdeel_key
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = p_deel_key
AND ins_kenmerk_key = v_kenmerk_key;
IF v_kenmerk_bewerkniveau = 'D'
THEN
SELECT COUNT ( * ), MAX (ins_kenmerkdeel_key)
INTO ccount, v_kenmerkdeel_key
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = p_deel_key
AND ins_kenmerk_key = v_kenmerk_key;
ELSE -- v_kenmerk_bewerkniveau = 'S'!
SELECT COUNT ( * ), MAX (ins_kenmerkdeel_key)
INTO ccount, v_kenmerkdeel_key
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = v_srtdeel_key
AND ins_kenmerk_key = v_kenmerk_key;
END IF;
IF v_srtkenmerk_type = 'N' -- Alleen voor numerieke waarden de decimale komma vervangen door punt.
THEN
@@ -11786,10 +11801,17 @@ AS
IF ccount = 0
THEN
-- LET OP: Afhankelijk van bewerkniveau!
v_errormsg := 'Fout toevoegen waarde [' || v_waarde || ']';
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
VALUES (p_deel_key, v_kenmerk_key, v_waarde);
IF v_kenmerk_bewerkniveau = 'D'
THEN
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
VALUES (p_deel_key, v_kenmerk_key, v_waarde);
ELSE
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
VALUES (v_srtdeel_key, v_kenmerk_key, v_waarde);
END IF;
ELSE
v_errormsg := 'Fout bijwerken waarde [' || v_waarde || ']';
@@ -11797,11 +11819,11 @@ AS
SET ins_kenmerkdeel_waarde = v_waarde
WHERE ins_kenmerkdeel_key = v_kenmerkdeel_key;
END IF;
ELSE
--ELSE
-- Verwijder kenmerken die al bestaan maar met de nieuwe import leeg zijn.
DELETE ins_kenmerkdeel
WHERE ins_kenmerk_key = v_kenmerk_key
AND ins_deel_key = p_deel_key;
--DELETE ins_kenmerkdeel
-- WHERE ins_kenmerk_key = v_kenmerk_key
-- AND ins_deel_key = p_deel_key;
END IF;
END IF;
EXCEPTION