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

WDKA#68779 -- Inrichten Wedeka

Browse Source 
svn path=/Customer/trunk/; revision=58536
This commit is contained in:
Norbert Wassink
2023-01-05 15:03:01 +00:00
parent 858babb897
commit 85973a0002
1 changed files with 34 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
WDKA/WDKA.sql
View File

@@ -91,14 +91,20 @@ AS
AND UPPER(mk.mld_kenmerk_omschrijving)='OBJECT SOORT'; -- D=2, A=201 AND UPPER(mk.mld_kenmerk_omschrijving)='OBJECT SOORT'; -- D=2, A=201
-- Moeten we een object aanmaken -- Moeten we een object aanmaken
SELECT mkm.mld_kenmerkmelding_waarde BEGIN
INTO v_aanmaak SELECT fud.fac_usrdata_code
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk INTO v_aanmaak
WHERE m.mld_melding_key=p_mld_melding_key FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk, fac_usrdata fud
AND mkm.mld_melding_key=m.mld_melding_key WHERE m.mld_melding_key=p_mld_melding_key
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key AND mkm.mld_melding_key=m.mld_melding_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='OBJECT AANMAKEN'; -- D=3, A=181 AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='OBJECT AANMAKEN'
AND fud.fac_usrdata_key=mkm.mld_kenmerkmelding_waarde; -- D=3, A=181
EXCEPTION WHEN NO_DATA_FOUND THEN
v_aanmaak:='Nee';
END;
-- We halen de alg_ruimte_key op van het gebouw wat is gekozen en ruimte 999999 -- We halen de alg_ruimte_key op van het gebouw wat is gekozen en ruimte 999999
SELECT alg_ruimte_key SELECT alg_ruimte_key
@@ -112,7 +118,7 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='GEBOUW'); -- A=241 AND UPPER(mk.mld_kenmerk_omschrijving)='GEBOUW'); -- A=241
-- We gaan wat kenmerken ophalen die bij het object gezet moeten worden -- We gaan wat kenmerken ophalen die bij het object gezet moeten worden
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde SELECT mkm.mld_kenmerkmelding_waarde
INTO v_merk INTO v_merk
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
@@ -121,8 +127,12 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='FABRIKANT / MERK'; AND UPPER(mk.mld_kenmerk_omschrijving)='FABRIKANT / MERK';
EXCEPTION WHEN NO_DATA_FOUND
BEGIN THEN
v_merk:=NULL;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde SELECT mkm.mld_kenmerkmelding_waarde
INTO v_leverancier INTO v_leverancier
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
@@ -133,10 +143,10 @@ AS
AND UPPER(mk.mld_kenmerk_omschrijving)='LEVERANCIER'; AND UPPER(mk.mld_kenmerk_omschrijving)='LEVERANCIER';
EXCEPTION WHEN NO_DATA_FOUND EXCEPTION WHEN NO_DATA_FOUND
THEN THEN
v_kenteken:=NULL; v_leverancier:=NULL;
v_kenteken_key:=-1;
END; END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde SELECT mkm.mld_kenmerkmelding_waarde
INTO v_type INTO v_type
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
@@ -145,7 +155,12 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='TYPE'; AND UPPER(mk.mld_kenmerk_omschrijving)='TYPE';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_type:=NULL;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde SELECT mkm.mld_kenmerkmelding_waarde
INTO v_serienummer INTO v_serienummer
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
@@ -154,7 +169,11 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='SERIENUMMER'; AND UPPER(mk.mld_kenmerk_omschrijving)='SERIENUMMER';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_serienummer:=NULL;
END;
BEGIN BEGIN
SELECT mkm.mld_kenmerkmelding_waarde SELECT mkm.mld_kenmerkmelding_waarde
INTO v_kenteken INTO v_kenteken
@@ -236,7 +255,7 @@ AS
WHERE ins_deel_omschrijving=v_objectNr WHERE ins_deel_omschrijving=v_objectNr
AND ins_deel_verwijder IS NULL; AND ins_deel_verwijder IS NULL;
IF (v_aanwezig = 0 AND v_aanmaak='1501') THEN -- D=82, A=1501 IF (v_aanwezig = 0 AND v_aanmaak='Ja') THEN
INSERT INTO ins_deel(ins_deel_omschrijving, ins_deel_aanmaak, ins_srtdeel_key, ins_deel_actief, ins_alg_ruimte_key, ins_alg_ruimte_type) INSERT INTO ins_deel(ins_deel_omschrijving, ins_deel_aanmaak, ins_srtdeel_key, ins_deel_actief, ins_alg_ruimte_key, ins_alg_ruimte_type)
VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 1, v_alg_ruimte_key ,'R') VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 1, v_alg_ruimte_key ,'R')