diff --git a/WDKA/WDKA.sql b/WDKA/WDKA.sql index 1e57f8512..7aca048b2 100644 --- a/WDKA/WDKA.sql +++ b/WDKA/WDKA.sql @@ -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 - INTO v_aanmaak - FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk - 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 + BEGIN + SELECT fud.fac_usrdata_code + INTO v_aanmaak + 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' + 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,8 +127,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)='FABRIKANT / MERK'; - - BEGIN + EXCEPTION WHEN NO_DATA_FOUND + THEN + v_merk:=NULL; + END; + + BEGIN SELECT mkm.mld_kenmerkmelding_waarde INTO v_leverancier FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk @@ -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,7 +169,11 @@ 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 INTO v_kenteken @@ -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')