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

33
WDKA/WDKA.sql
View File

@@ -91,14 +91,20 @@ AS
AND UPPER(mk.mld_kenmerk_omschrijving)='OBJECT SOORT'; -- D=2, A=201
-- Moeten we een object aanmaken
SELECT mkm.mld_kenmerkmelding_waarde
BEGIN
SELECT fud.fac_usrdata_code
INTO v_aanmaak
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk, fac_usrdata fud
WHERE m.mld_melding_key=p_mld_melding_key
AND mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='OBJECT AANMAKEN'; -- D=3, A=181
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
SELECT alg_ruimte_key
@@ -112,7 +118,7 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='GEBOUW'); -- A=241
-- We gaan wat kenmerken ophalen die bij het object gezet moeten worden
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_merk
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
@@ -121,6 +127,10 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='FABRIKANT / MERK';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_merk:=NULL;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
@@ -133,10 +143,10 @@ AS
AND UPPER(mk.mld_kenmerk_omschrijving)='LEVERANCIER';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_kenteken:=NULL;
v_kenteken_key:=-1;
v_leverancier:=NULL;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_type
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 mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='TYPE';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_type:=NULL;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_serienummer
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
@@ -154,6 +169,10 @@ AS
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND UPPER(mk.mld_kenmerk_omschrijving)='SERIENUMMER';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_serienummer:=NULL;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
@@ -236,7 +255,7 @@ AS
WHERE ins_deel_omschrijving=v_objectNr
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)
VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 1, v_alg_ruimte_key ,'R')