SZDB#75904 -- Inrichting MJOB en conditiemetingen
svn path=/Customer/trunk/; revision=59665
This commit is contained in:
Arthur Egberink
849
SZDB/szdb.sql
849
SZDB/szdb.sql
@@ -35,6 +35,11 @@ AS
|
||||
|
||||
PROCEDURE mld_after_insert (p_melding_key IN NUMBER);
|
||||
|
||||
FUNCTION imp_getfield_nr (p_parseline IN VARCHAR2,
|
||||
p_fielddelimitor IN VARCHAR2,
|
||||
p_nr IN NUMBER
|
||||
) RETURN VARCHAR2;
|
||||
|
||||
END;
|
||||
/
|
||||
|
||||
@@ -212,6 +217,16 @@ AS
|
||||
COMMIT;
|
||||
END;
|
||||
|
||||
FUNCTION imp_getfield_nr (p_parseline IN VARCHAR2,
|
||||
p_fielddelimitor IN VARCHAR2,
|
||||
p_nr IN NUMBER
|
||||
) RETURN VARCHAR2
|
||||
AS
|
||||
v_return_str VARCHAR2(1000);
|
||||
BEGIN
|
||||
fac.imp_getfield_nr (p_parseline, p_fielddelimitor, p_nr, v_return_str);
|
||||
RETURN v_return_str;
|
||||
END;
|
||||
|
||||
END;
|
||||
/
|
||||
@@ -310,6 +325,840 @@ AS
|
||||
WHERE fac_notificatie_job_view =
|
||||
'SZDB_V_NOTI_INS_2_PRS');
|
||||
|
||||
-- MJOB
|
||||
CREATE OR REPLACE PROCEDURE szdb_import_mjobelementen (p_import_key IN NUMBER)
|
||||
IS
|
||||
c_delim VARCHAR2 (2) := fac.import_delimiter(p_import_key);
|
||||
v_newline fac_imp_file.fac_imp_file_line%TYPE; -- Input line
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
v_errorhint VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
header_is_valid NUMBER;
|
||||
v_count_tot NUMBER (10);
|
||||
v_count_import NUMBER (10);
|
||||
v_ongeldig NUMBER (1);
|
||||
v_aanduiding VARCHAR (400);
|
||||
v_dummy VARCHAR (255);
|
||||
v_ins_kenmerk_key1 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key2 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key3 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key4 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key5 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key6 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key7 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key8 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key9 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key10 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key11 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key12 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key13 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key14 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key15 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key16 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key17 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key18 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key19 VARCHAR2 (255);
|
||||
v_ins_kenmerk_key20 VARCHAR2 (255);
|
||||
-- De importvelden
|
||||
v_ins_discipline_omschrijving VARCHAR2 (255); -- C60
|
||||
v_ins_discipline_kostensoort VARCHAR2 (255); --C60
|
||||
v_ins_srtgroep_omschrijving VARCHAR2 (255); -- C60
|
||||
v_ins_srtdeel_code VARCHAR2 (255); -- C10
|
||||
v_ins_srtdeel_omschrijving VARCHAR2 (255); -- C100
|
||||
v_ins_deel_omschrijving VARCHAR2 (255); -- C60
|
||||
v_ins_deel_opmerking VARCHAR2 (1000); -- C320
|
||||
v_ins_deel_externnr VARCHAR2 (255); -- C60
|
||||
v_alg_locatie_code VARCHAR2 (255); -- C10
|
||||
v_alg_gebouw_code VARCHAR2 (255); -- C12
|
||||
v_alg_verdieping_volgnr VARCHAR2 (255); -- N3
|
||||
v_alg_ruimte_nr VARCHAR2 (255); -- C20
|
||||
|
||||
v_ins_kenmerkwaarde1 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde2 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde3 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde4 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde5 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde6 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde7 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde8 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde9 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde10 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde11 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde12 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde13 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde14 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde15 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde16 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde17 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde18 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde19 VARCHAR2 (4053);
|
||||
v_ins_kenmerkwaarde20 VARCHAR2 (4053);
|
||||
v_ins_deel_aanmaak VARCHAR2 (255); -- DATE
|
||||
v_ins_deel_aanmaak_d DATE;
|
||||
v_ins_deel_vervaldatum VARCHAR2 (255); -- DATE
|
||||
v_ins_deel_vervaldatum_d DATE;
|
||||
v_ins_deel_aantal VARCHAR2 (255); -- N8,2
|
||||
v_ins_deel_aantal_n NUMBER(8, 2);
|
||||
v_file_index NUMBER;
|
||||
|
||||
v_alg_gebouw_key NUMBER;
|
||||
v_alg_verdieping_key NUMBER;
|
||||
v_alg_ruimte_key NUMBER;
|
||||
v_ins_deel_key NUMBER;
|
||||
v_ins_srtdeel_key NUMBER;
|
||||
v_ins_srtgroep_key NUMBER;
|
||||
v_ins_discipline_key NUMBER;
|
||||
v_ins_deel_volgnr NUMBER;
|
||||
-- Overige velden:
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT *
|
||||
FROM fac_imp_file
|
||||
WHERE fac_import_key = p_import_key
|
||||
ORDER BY fac_imp_file_index;
|
||||
|
||||
CURSOR c IS
|
||||
SELECT *
|
||||
FROM fac_imp_ins
|
||||
ORDER BY alg_gebouw_code, ins_deel_omschrijving;
|
||||
|
||||
-- Controleer tijdens import-fase alleen op het bestaan van een kenmerk met de meegegeven omschrijving of kenmerk key.
|
||||
-- De omschrijving (header van kolom) kan de omschrijving zijn van het kenmerksoort of het kenmerk.
|
||||
-- De omschrijving van het kenmerksoort kan namelijk overruled worden door de omschrijving van het kenmerk.
|
||||
-- Daarnaast kan hetzelfde kenmerk vaker voorkomen voor verschillende groepen.
|
||||
-- Of het kenmerksoort/kenmerk wel is gedefinieerd voor de betreffende
|
||||
-- object-discipline/groep/soort, volgt pas tijdens de update-fase)!
|
||||
--
|
||||
-- p_kw is bijvoorbeeld 'Parkeercode', 'Parkeercode|3', 234 of 234|3 waarbij de tweede en laatste in groep 3 zitten
|
||||
-- het resultaat is NULL (als niet gevonden) of Parkeercode|3 of 234|3 voor kenmer_key 234 in groep 3
|
||||
-- Als geen groep is meegegeven dan wordt 'Parkeercode|0' opgeleverd (de default groep)
|
||||
FUNCTION bepaal_kenmerk (p_kw IN VARCHAR)
|
||||
RETURN VARCHAR
|
||||
IS
|
||||
v_kenmerk_key NUMBER;
|
||||
v_kenmerk_groep NUMBER;
|
||||
v_kw VARCHAR(250);
|
||||
BEGIN
|
||||
v_kenmerk_groep := 0;
|
||||
v_kw := p_kw;
|
||||
IF INSTR (v_kw, '|') > 1
|
||||
THEN
|
||||
v_kenmerk_groep := SUBSTR (v_kw, INSTR (v_kw, '|') + 1);
|
||||
v_kw := SUBSTR (v_kw, 1, INSTR (v_kw, '|') - 1);
|
||||
END IF;
|
||||
|
||||
IF fac.safe_to_number (v_kw) IS NULL
|
||||
THEN -- kenmerkwaarde is alfanumeriek (dus omschrijving)!
|
||||
SELECT MIN(k.ins_kenmerk_key)
|
||||
INTO v_kenmerk_key
|
||||
FROM ins_v_aanwezigkenmerk k,
|
||||
ins_v_aanwezigsrtkenmerk sk
|
||||
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
|
||||
AND k.ins_kenmerk_groep = v_kenmerk_groep
|
||||
AND COALESCE(UPPER(k.ins_kenmerk_omschrijving), sk.ins_srtkenmerk_upper) = UPPER(v_kw)
|
||||
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
|
||||
ELSE -- kenmerkwaarde is numeriek (dus key)!
|
||||
SELECT k.ins_kenmerk_key
|
||||
INTO v_kenmerk_key
|
||||
FROM ins_v_aanwezigkenmerk k,
|
||||
ins_v_aanwezigsrtkenmerk sk
|
||||
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
|
||||
AND k.ins_kenmerk_groep = v_kenmerk_groep
|
||||
AND k.ins_kenmerk_key = fac.safe_to_number (v_kw)
|
||||
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
|
||||
END IF;
|
||||
|
||||
IF v_kenmerk_key IS NULL
|
||||
THEN
|
||||
RETURN NULL;
|
||||
ELSE
|
||||
-- Er is een kenmerksoort of kenmerk aanwezig met de omschrijving/kenmerk_key (v_kw)
|
||||
RETURN v_kw || '|' || TO_CHAR(v_kenmerk_groep);
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
IF p_kw IS NULL OR UPPER (p_kw) LIKE 'KENMERK%'
|
||||
THEN
|
||||
RETURN NULL;
|
||||
ELSE
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
'Fout bij bepalen kenmerk [' || p_kw || ']',
|
||||
'Bestaat niet of type ongeldig');
|
||||
COMMIT;
|
||||
RETURN NULL;
|
||||
END IF;
|
||||
END;
|
||||
|
||||
BEGIN
|
||||
-- Eerst opruiming
|
||||
DELETE FROM fac_imp_ins;
|
||||
|
||||
COMMIT;
|
||||
|
||||
v_count_tot := 0;
|
||||
v_count_import := 0;
|
||||
header_is_valid := 0;
|
||||
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
BEGIN
|
||||
v_newline := rec1.fac_imp_file_line;
|
||||
v_file_index := rec1.fac_imp_file_index;
|
||||
v_errormsg := 'Fout bij opvragen importregel';
|
||||
v_aanduiding := '';
|
||||
v_ongeldig := 0;
|
||||
-- Lees alle veldwaarden
|
||||
fac.imp_getfield (v_newline, c_delim, v_alg_gebouw_code); -- Objectcode
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_srtdeel_code); -- Componentcode
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_deel_externnr); -- Element-ID
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_deel_opmerking); -- Component omschrijving
|
||||
-- fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde1); -- Opmerkingen//
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde2); -- Fabrikant
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde3); -- Kenmerken
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde4); -- Type
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde5); -- Cap
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde6); -- Eenheid Cap
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_deel_aantal); -- Aantal
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde7); -- Eenheid aantal
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde8); -- Bouwjaar
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde9);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde10);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde11);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde12);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde13);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde14);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde15);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde16);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde17);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde18);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde19);
|
||||
fac.imp_getfield (v_newline, c_delim, v_ins_kenmerkwaarde20);
|
||||
|
||||
v_aanduiding :=
|
||||
'['
|
||||
|| v_alg_gebouw_code
|
||||
|| '|'
|
||||
|| v_ins_deel_externnr
|
||||
|| '|'
|
||||
|| v_ins_srtdeel_code
|
||||
|| '] ';
|
||||
|
||||
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
|
||||
-- de juiste kolomkop. Ik controleer daarbij alle NIET-kenmerk kolommen!
|
||||
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
|
||||
IF (header_is_valid = 0)
|
||||
THEN
|
||||
IF UPPER (v_alg_gebouw_code) = 'GEBOUW_CODE'
|
||||
AND UPPER (v_ins_srtdeel_code) = 'SRTDEEL_CODE'
|
||||
AND UPPER (v_ins_deel_externnr) = 'DEEL_EXTERNNR'
|
||||
AND UPPER (v_ins_deel_opmerking) = 'DEEL_OPMERKING'
|
||||
AND UPPER (v_ins_kenmerkwaarde2) = 'FABRIKANT'
|
||||
AND UPPER (v_ins_kenmerkwaarde3) = 'OPMERKINGEN'
|
||||
AND UPPER (v_ins_kenmerkwaarde4) = 'TYPE'
|
||||
AND UPPER (v_ins_kenmerkwaarde5) = 'CAP'
|
||||
AND UPPER (v_ins_kenmerkwaarde6) = 'EENHEID CAP'
|
||||
AND UPPER (v_ins_deel_aantal) = 'DEEL_AANTAL'
|
||||
AND UPPER (v_ins_kenmerkwaarde7) = 'EENHEID AANTAL'
|
||||
AND UPPER (v_ins_kenmerkwaarde8) = 'BOUWJAAR'
|
||||
THEN
|
||||
v_ins_kenmerk_key1 := bepaal_kenmerk (v_ins_kenmerkwaarde1);
|
||||
v_ins_kenmerk_key2 := bepaal_kenmerk (v_ins_kenmerkwaarde2);
|
||||
v_ins_kenmerk_key3 := bepaal_kenmerk (v_ins_kenmerkwaarde3);
|
||||
v_ins_kenmerk_key4 := bepaal_kenmerk (v_ins_kenmerkwaarde4);
|
||||
v_ins_kenmerk_key5 := bepaal_kenmerk (v_ins_kenmerkwaarde5);
|
||||
v_ins_kenmerk_key6 := bepaal_kenmerk (v_ins_kenmerkwaarde6);
|
||||
v_ins_kenmerk_key7 := bepaal_kenmerk (v_ins_kenmerkwaarde7);
|
||||
v_ins_kenmerk_key8 := bepaal_kenmerk (v_ins_kenmerkwaarde8);
|
||||
v_ins_kenmerk_key9 := bepaal_kenmerk (v_ins_kenmerkwaarde9);
|
||||
v_ins_kenmerk_key10 := bepaal_kenmerk (v_ins_kenmerkwaarde10);
|
||||
v_ins_kenmerk_key11 := bepaal_kenmerk (v_ins_kenmerkwaarde11);
|
||||
v_ins_kenmerk_key12 := bepaal_kenmerk (v_ins_kenmerkwaarde12);
|
||||
v_ins_kenmerk_key13 := bepaal_kenmerk (v_ins_kenmerkwaarde13);
|
||||
v_ins_kenmerk_key14 := bepaal_kenmerk (v_ins_kenmerkwaarde14);
|
||||
v_ins_kenmerk_key15 := bepaal_kenmerk (v_ins_kenmerkwaarde15);
|
||||
v_ins_kenmerk_key16 := bepaal_kenmerk (v_ins_kenmerkwaarde16);
|
||||
v_ins_kenmerk_key17 := bepaal_kenmerk (v_ins_kenmerkwaarde17);
|
||||
v_ins_kenmerk_key18 := bepaal_kenmerk (v_ins_kenmerkwaarde18);
|
||||
v_ins_kenmerk_key19 := bepaal_kenmerk (v_ins_kenmerkwaarde19);
|
||||
v_ins_kenmerk_key20 := bepaal_kenmerk (v_ins_kenmerkwaarde20);
|
||||
|
||||
header_is_valid := 1;
|
||||
ELSE
|
||||
IF rec1.fac_imp_file_index = 1
|
||||
THEN
|
||||
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
'Ongeldige header aangetroffen:',
|
||||
'GEBOUW_CODE: ' || UPPER (v_alg_gebouw_code) || CHR(10) ||
|
||||
'SRTDEEL_CODE: ' || UPPER (v_ins_srtdeel_code) || CHR(10) ||
|
||||
'DEEL_EXTERNNR: ' || UPPER (v_ins_deel_externnr) || CHR(10) ||
|
||||
'DEEL_OPMERKING: ' || UPPER (v_ins_deel_opmerking) || CHR(10) ||
|
||||
'FABRIKANT: ' || UPPER (v_ins_kenmerkwaarde2) || CHR(10) ||
|
||||
'OPMERKINGEN: ' || UPPER (v_ins_kenmerkwaarde3) || CHR(10) ||
|
||||
'TYPE: ' || UPPER (v_ins_kenmerkwaarde4) || CHR(10) ||
|
||||
'CAP: ' || UPPER (v_ins_kenmerkwaarde5) || CHR(10) ||
|
||||
'EENHEID CAP: ' || UPPER (v_ins_kenmerkwaarde6) || CHR(10) ||
|
||||
'DEEL_AANTAL: ' || UPPER (v_ins_deel_aantal) || CHR(10) ||
|
||||
'EENHEID AANTAL: ' || UPPER (v_ins_kenmerkwaarde7) || CHR(10) ||
|
||||
'BOUWJAAR: ' || UPPER (v_ins_kenmerkwaarde8));
|
||||
END IF;
|
||||
END IF;
|
||||
ELSE
|
||||
v_count_tot := v_count_tot + 1;
|
||||
-- Controleer alle veldwaarden
|
||||
|
||||
v_errormsg := 'Gebouwcode kan niet gevonden worden';
|
||||
v_alg_gebouw_code := TRIM (v_alg_gebouw_code);
|
||||
|
||||
SELECT alg_gebouw_key, alg_locatie_code
|
||||
INTO v_alg_gebouw_key, v_alg_locatie_code
|
||||
FROM alg_gebouw g, alg_locatie l
|
||||
WHERE g.alg_locatie_key = l.alg_locatie_key
|
||||
AND alg_gebouw_verwijder IS NULL
|
||||
AND UPPER(alg_gebouw_code) = v_alg_gebouw_code;
|
||||
|
||||
v_alg_verdieping_volgnr := 0;
|
||||
BEGIN
|
||||
SELECT alg_verdieping_key
|
||||
INTO v_alg_verdieping_key
|
||||
FROM alg_verdieping
|
||||
WHERE alg_verdieping_verwijder IS NULL
|
||||
AND alg_gebouw_key = v_alg_gebouw_key
|
||||
AND alg_verdieping_volgnr = 0;
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
INSERT INTO alg_verdieping (alg_gebouw_key, alg_verdieping_volgnr, alg_verdieping_omschrijving, alg_verdieping_code)
|
||||
VALUES (v_alg_gebouw_key, 0, 'Begane grond', '0')
|
||||
RETURNING alg_verdieping_key INTO v_alg_verdieping_key;
|
||||
fac.imp_writelog (p_import_key, 'I', v_aanduiding, 'Verdieping aangemaakt');
|
||||
END;
|
||||
|
||||
v_alg_ruimte_nr := '_';
|
||||
BEGIN
|
||||
SELECT alg_ruimte_key
|
||||
INTO v_alg_ruimte_key
|
||||
FROM alg_ruimte
|
||||
WHERE alg_ruimte_verwijder IS NULL
|
||||
AND alg_verdieping_key = v_alg_verdieping_key
|
||||
AND alg_ruimte_nr = '_';
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
INSERT INTO alg_ruimte (alg_verdieping_key, alg_ruimte_nr, alg_ruimte_omschrijving)
|
||||
VALUES (v_alg_verdieping_key, '_', 'MJOP ruimte')
|
||||
RETURNING alg_ruimte_key INTO v_alg_ruimte_key;
|
||||
fac.imp_writelog (p_import_key, 'I', v_aanduiding, 'Ruimte aangemaakt');
|
||||
END;
|
||||
--
|
||||
|
||||
v_errormsg := 'Bepaal objectsoort';
|
||||
BEGIN
|
||||
v_ins_srtdeel_code := TRIM(v_ins_srtdeel_code);
|
||||
SELECT ins_srtdeel_omschrijving, ins_srtdeel_key, ins_srtgroep_key
|
||||
INTO v_ins_srtdeel_omschrijving, v_ins_srtdeel_key, v_ins_srtgroep_key
|
||||
FROM ins_srtdeel
|
||||
WHERE ins_srtdeel_verwijder IS NULL
|
||||
AND ins_srtdeel_code = v_ins_srtdeel_code;
|
||||
|
||||
v_errormsg := 'Bepaal objectgroep';
|
||||
SELECT ins_srtgroep_omschrijving, ins_discipline_key
|
||||
INTO v_ins_srtgroep_omschrijving, v_ins_discipline_key
|
||||
FROM ins_srtgroep
|
||||
WHERE ins_srtgroep_key = v_ins_srtgroep_key;
|
||||
|
||||
v_errormsg := 'Bepaal discipline';
|
||||
SELECT ins_discipline_omschrijving
|
||||
INTO v_ins_discipline_omschrijving
|
||||
FROM ins_discipline
|
||||
WHERE ins_discipline_key = v_ins_discipline_key;
|
||||
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
v_errormsg := 'Nieuwe NL/SfB code';
|
||||
v_ins_discipline_omschrijving := 'MJOB';
|
||||
v_ins_srtdeel_omschrijving := v_ins_srtdeel_code || 'Onbekend';
|
||||
BEGIN
|
||||
SELECT ins_srtgroep_omschrijving
|
||||
INTO v_ins_srtgroep_omschrijving
|
||||
FROM ins_v_srtgroep_gegevens
|
||||
WHERE ins_discipline_omschrijving = 'MJOB'
|
||||
AND SUBSTR(v_ins_srtdeel_code, 1, 2) = SUBSTR(ins_srtgroep_omschrijving, 1,2);
|
||||
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
v_ins_srtgroep_omschrijving := SUBSTR(v_ins_srtdeel_code, 1, 2) || '-Onbekend';
|
||||
END;
|
||||
END;
|
||||
|
||||
BEGIN
|
||||
v_errormsg := 'Bepaal object id - Kijk of het externnr bestaat';
|
||||
SELECT d.ins_deel_omschrijving
|
||||
INTO v_ins_deel_omschrijving
|
||||
FROM ins_v_deel_gegevens dg, ins_deel d
|
||||
WHERE dg.ins_deel_key = d.ins_deel_key
|
||||
AND dg.alg_gebouw_upper = v_alg_gebouw_code
|
||||
AND d.ins_deel_externnr = v_ins_deel_externnr;
|
||||
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
v_ins_deel_omschrijving := NULL;
|
||||
END;
|
||||
|
||||
IF v_ins_deel_omschrijving IS NULL
|
||||
THEN
|
||||
v_errormsg := 'Bepaal object id - maak een nieuw nummer aan';
|
||||
SELECT MAX(FAC.safe_to_number(SUBSTR(ins_deel_omschrijving, INSTR(ins_deel_omschrijving, '-', 1, 3)+1, 100)))
|
||||
INTO v_ins_deel_volgnr
|
||||
FROM ins_v_deel_gegevens
|
||||
WHERE ins_discipline_omschrijving = 'MJOB'
|
||||
AND ins_deel_omschrijving LIKE v_ins_srtdeel_code || '%';
|
||||
|
||||
IF v_ins_deel_volgnr IS NULL
|
||||
THEN
|
||||
v_ins_deel_volgnr := 0;
|
||||
END IF;
|
||||
|
||||
v_ins_deel_omschrijving := v_ins_srtdeel_code || LPAD(v_ins_deel_volgnr + 1, 3, '0');
|
||||
END IF;
|
||||
|
||||
v_errormsg := 'Objectopmerking ongeldig';
|
||||
v_ins_deel_opmerking := TRIM (v_ins_deel_opmerking);
|
||||
|
||||
IF LENGTH (v_ins_deel_opmerking) > 320
|
||||
THEN
|
||||
v_ins_deel_opmerking := SUBSTR (v_ins_deel_opmerking, 1, 320);
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'W',
|
||||
v_aanduiding || v_errormsg,
|
||||
'Objectopmerking wordt afgebroken tot ['
|
||||
|| v_ins_deel_opmerking
|
||||
|| ']'
|
||||
);
|
||||
END IF;
|
||||
|
||||
--
|
||||
v_errormsg := 'Aantal ongeldig; maximale grootte 999999.99';
|
||||
v_ins_deel_aantal := TRIM (v_ins_deel_aantal);
|
||||
v_ins_deel_aantal := REPLACE (v_ins_deel_aantal, ',', '.');
|
||||
v_ins_deel_aantal_n := NULL;
|
||||
|
||||
IF (v_ins_deel_aantal IS NOT NULL AND fac.getSetting('ins_explode_objects') = 0)
|
||||
THEN
|
||||
IF (fac.safe_to_number (v_ins_deel_aantal) IS NULL)
|
||||
THEN
|
||||
v_ongeldig := 1;
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
v_aanduiding || v_errormsg,
|
||||
'Regel wordt overgeslagen!');
|
||||
ELSE
|
||||
v_ins_deel_aantal_n := fac.safe_to_number (v_ins_deel_aantal);
|
||||
END IF;
|
||||
ELSE
|
||||
v_ins_deel_aantal_n := 1;
|
||||
END IF;
|
||||
|
||||
--
|
||||
v_errorhint := 'Bepaling registratiedatum';
|
||||
v_ins_kenmerkwaarde8 := TRIM(v_ins_kenmerkwaarde8);
|
||||
IF v_ins_kenmerkwaarde8 IS NOT NULL AND LENGTH(v_ins_kenmerkwaarde8) = 4
|
||||
THEN
|
||||
v_ins_deel_aanmaak := '01-01-' || TRIM(v_ins_kenmerkwaarde8);
|
||||
v_ins_deel_aanmaak_d := TO_DATE(v_ins_deel_aanmaak, 'dd-mm-yyyy');
|
||||
END IF;
|
||||
|
||||
-- De rest alleen ff trimmen.
|
||||
v_ins_kenmerkwaarde1 := TRIM (v_ins_kenmerkwaarde1);
|
||||
v_ins_kenmerkwaarde2 := TRIM (v_ins_kenmerkwaarde2);
|
||||
v_ins_kenmerkwaarde3 := TRIM (v_ins_kenmerkwaarde3);
|
||||
v_ins_kenmerkwaarde4 := TRIM (v_ins_kenmerkwaarde4);
|
||||
v_ins_kenmerkwaarde5 := TRIM (v_ins_kenmerkwaarde5);
|
||||
v_ins_kenmerkwaarde6 := TRIM (v_ins_kenmerkwaarde6);
|
||||
v_ins_kenmerkwaarde7 := TRIM (v_ins_kenmerkwaarde7);
|
||||
v_ins_kenmerkwaarde8 := TRIM (v_ins_kenmerkwaarde8);
|
||||
v_ins_kenmerkwaarde9 := TRIM (v_ins_kenmerkwaarde9);
|
||||
v_ins_kenmerkwaarde10 := TRIM (v_ins_kenmerkwaarde10);
|
||||
v_ins_kenmerkwaarde11 := TRIM (v_ins_kenmerkwaarde11);
|
||||
v_ins_kenmerkwaarde12 := TRIM (v_ins_kenmerkwaarde12);
|
||||
v_ins_kenmerkwaarde13 := TRIM (v_ins_kenmerkwaarde13);
|
||||
v_ins_kenmerkwaarde14 := TRIM (v_ins_kenmerkwaarde14);
|
||||
v_ins_kenmerkwaarde15 := TRIM (v_ins_kenmerkwaarde15);
|
||||
v_ins_kenmerkwaarde16 := TRIM (v_ins_kenmerkwaarde16);
|
||||
v_ins_kenmerkwaarde17 := TRIM (v_ins_kenmerkwaarde17);
|
||||
v_ins_kenmerkwaarde18 := TRIM (v_ins_kenmerkwaarde18);
|
||||
v_ins_kenmerkwaarde19 := TRIM (v_ins_kenmerkwaarde19);
|
||||
v_ins_kenmerkwaarde20 := TRIM (v_ins_kenmerkwaarde20);
|
||||
|
||||
-- Insert geformatteerde import record
|
||||
IF v_ongeldig = 0
|
||||
THEN
|
||||
BEGIN
|
||||
v_errormsg := 'Fout bij wegschrijven importregel';
|
||||
|
||||
-- Als uit kenmerkheader een geldige kenmerksoort-key volgt,
|
||||
-- dan is kenmerkwaarde<n> gevuld met <key>=<waarde>; zoniet,
|
||||
-- dan is kenmerkwaarde<n> gevuld met <waarde>!
|
||||
-- NB. Een NULL-waarde resulteert NIET in het wissen van een
|
||||
-- kenmerkveld (bijwerken kan wel, maar wissen dus niet)!
|
||||
INSERT INTO fac_imp_ins (
|
||||
ins_discipline_omschrijving,
|
||||
ins_discipline_kostensoort,
|
||||
ins_srtgroep_omschrijving,
|
||||
ins_srtdeel_code,
|
||||
ins_srtdeel_omschrijving,
|
||||
ins_deel_omschrijving,
|
||||
ins_deel_opmerking,
|
||||
alg_locatie_code,
|
||||
alg_gebouw_code,
|
||||
alg_verdieping_volgnr,
|
||||
alg_ruimte_nr,
|
||||
ins_kenmerkwaarde1,
|
||||
ins_kenmerkwaarde2,
|
||||
ins_kenmerkwaarde3,
|
||||
ins_kenmerkwaarde4,
|
||||
ins_kenmerkwaarde5,
|
||||
ins_kenmerkwaarde6,
|
||||
ins_kenmerkwaarde7,
|
||||
ins_kenmerkwaarde8,
|
||||
ins_kenmerkwaarde9,
|
||||
ins_kenmerkwaarde10,
|
||||
ins_kenmerkwaarde11,
|
||||
ins_kenmerkwaarde12,
|
||||
ins_kenmerkwaarde13,
|
||||
ins_kenmerkwaarde14,
|
||||
ins_kenmerkwaarde15,
|
||||
ins_kenmerkwaarde16,
|
||||
ins_kenmerkwaarde17,
|
||||
ins_kenmerkwaarde18,
|
||||
ins_kenmerkwaarde19,
|
||||
ins_kenmerkwaarde20,
|
||||
ins_deel_aanmaak,
|
||||
ins_deel_aantal,
|
||||
ins_deel_externnr
|
||||
)
|
||||
VALUES (
|
||||
v_ins_discipline_omschrijving,
|
||||
v_ins_discipline_kostensoort,
|
||||
v_ins_srtgroep_omschrijving,
|
||||
v_ins_srtdeel_code,
|
||||
v_ins_srtdeel_omschrijving,
|
||||
v_ins_deel_omschrijving,
|
||||
v_ins_deel_opmerking,
|
||||
v_alg_locatie_code,
|
||||
v_alg_gebouw_code,
|
||||
v_alg_verdieping_volgnr,
|
||||
v_alg_ruimte_nr,
|
||||
DECODE (v_ins_kenmerk_key1, NULL, v_ins_kenmerkwaarde1, DECODE(v_ins_kenmerk_key1, NULL, NULL, TO_CHAR (v_ins_kenmerk_key1) || '=' || SUBSTR (v_ins_kenmerkwaarde1, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key2, NULL, v_ins_kenmerkwaarde2, DECODE(v_ins_kenmerk_key2, NULL, NULL, TO_CHAR (v_ins_kenmerk_key2) || '=' || SUBSTR (v_ins_kenmerkwaarde2, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key3, NULL, v_ins_kenmerkwaarde3, DECODE(v_ins_kenmerk_key3, NULL, NULL, TO_CHAR (v_ins_kenmerk_key3) || '=' || SUBSTR (v_ins_kenmerkwaarde3, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key4, NULL, v_ins_kenmerkwaarde4, DECODE(v_ins_kenmerk_key4, NULL, NULL, TO_CHAR (v_ins_kenmerk_key4) || '=' || SUBSTR (v_ins_kenmerkwaarde4, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key5, NULL, v_ins_kenmerkwaarde5, DECODE(v_ins_kenmerk_key5, NULL, NULL, TO_CHAR (v_ins_kenmerk_key5) || '=' || SUBSTR (v_ins_kenmerkwaarde5, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key6, NULL, v_ins_kenmerkwaarde6, DECODE(v_ins_kenmerk_key6, NULL, NULL, TO_CHAR (v_ins_kenmerk_key6) || '=' || SUBSTR (v_ins_kenmerkwaarde6, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key7, NULL, v_ins_kenmerkwaarde7, DECODE(v_ins_kenmerk_key7, NULL, NULL, TO_CHAR (v_ins_kenmerk_key7) || '=' || SUBSTR (v_ins_kenmerkwaarde7, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key8, NULL, v_ins_kenmerkwaarde8, DECODE(v_ins_kenmerk_key8, NULL, NULL, TO_CHAR (v_ins_kenmerk_key8) || '=' || SUBSTR (v_ins_kenmerkwaarde8, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key9, NULL, v_ins_kenmerkwaarde9, DECODE(v_ins_kenmerk_key9, NULL, NULL, TO_CHAR (v_ins_kenmerk_key9) || '=' || SUBSTR (v_ins_kenmerkwaarde9, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key10, NULL, v_ins_kenmerkwaarde10, DECODE(v_ins_kenmerk_key10, NULL, NULL, TO_CHAR (v_ins_kenmerk_key10) || '=' || SUBSTR (v_ins_kenmerkwaarde10, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key11, NULL, v_ins_kenmerkwaarde11, DECODE(v_ins_kenmerk_key11, NULL, NULL, TO_CHAR (v_ins_kenmerk_key11) || '=' || SUBSTR (v_ins_kenmerkwaarde11, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key12, NULL, v_ins_kenmerkwaarde12, DECODE(v_ins_kenmerk_key12, NULL, NULL, TO_CHAR (v_ins_kenmerk_key12) || '=' || SUBSTR (v_ins_kenmerkwaarde12, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key13, NULL, v_ins_kenmerkwaarde13, DECODE(v_ins_kenmerk_key13, NULL, NULL, TO_CHAR (v_ins_kenmerk_key13) || '=' || SUBSTR (v_ins_kenmerkwaarde13, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key14, NULL, v_ins_kenmerkwaarde14, DECODE(v_ins_kenmerk_key14, NULL, NULL, TO_CHAR (v_ins_kenmerk_key14) || '=' || SUBSTR (v_ins_kenmerkwaarde14, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key15, NULL, v_ins_kenmerkwaarde15, DECODE(v_ins_kenmerk_key15, NULL, NULL, TO_CHAR (v_ins_kenmerk_key15) || '=' || SUBSTR (v_ins_kenmerkwaarde15, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key16, NULL, v_ins_kenmerkwaarde16, DECODE(v_ins_kenmerk_key16, NULL, NULL, TO_CHAR (v_ins_kenmerk_key16) || '=' || SUBSTR (v_ins_kenmerkwaarde16, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key17, NULL, v_ins_kenmerkwaarde17, DECODE(v_ins_kenmerk_key17, NULL, NULL, TO_CHAR (v_ins_kenmerk_key17) || '=' || SUBSTR (v_ins_kenmerkwaarde17, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key18, NULL, v_ins_kenmerkwaarde18, DECODE(v_ins_kenmerk_key18, NULL, NULL, TO_CHAR (v_ins_kenmerk_key18) || '=' || SUBSTR (v_ins_kenmerkwaarde18, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key19, NULL, v_ins_kenmerkwaarde19, DECODE(v_ins_kenmerk_key19, NULL, NULL, TO_CHAR (v_ins_kenmerk_key19) || '=' || SUBSTR (v_ins_kenmerkwaarde19, 1, 3900))),
|
||||
DECODE (v_ins_kenmerk_key20, NULL, v_ins_kenmerkwaarde20, DECODE(v_ins_kenmerk_key20, NULL, NULL, TO_CHAR (v_ins_kenmerk_key20) || '=' || SUBSTR (v_ins_kenmerkwaarde20, 1, 3900))),
|
||||
v_ins_deel_aanmaak_d,
|
||||
v_ins_deel_aantal_n,
|
||||
v_ins_deel_externnr
|
||||
);
|
||||
|
||||
COMMIT;
|
||||
v_count_import := v_count_import + 1;
|
||||
END;
|
||||
|
||||
END IF;
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
v_errormsg
|
||||
|| ' ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
v_aanduiding || v_errormsg,
|
||||
'');
|
||||
COMMIT;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
-- We gaan nu de nummering van de objecten aanpassen. Ze hebben allemaal het hoogste bestaande nummer + 1 meegekregen.
|
||||
v_alg_gebouw_code := 'Leeg';
|
||||
v_ins_srtdeel_code := 'Leeg';
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
IF rec.alg_gebouw_code <> v_alg_gebouw_code
|
||||
OR rec.ins_srtdeel_code <> v_ins_srtdeel_code
|
||||
THEN
|
||||
v_ins_deel_volgnr :=
|
||||
FAC.safe_to_number (
|
||||
SUBSTR (rec.ins_deel_omschrijving, INSTR (rec.ins_deel_omschrijving, '-', 1) + 1, 100));
|
||||
v_alg_gebouw_code := rec.alg_gebouw_code;
|
||||
v_ins_srtdeel_code := rec.ins_srtdeel_code;
|
||||
ELSE
|
||||
v_ins_deel_volgnr := v_ins_deel_volgnr + 1;
|
||||
|
||||
UPDATE fac_imp_ins
|
||||
SET ins_deel_omschrijving =
|
||||
rec.ins_srtdeel_code
|
||||
|| LPAD (v_ins_deel_volgnr, 3, '0')
|
||||
WHERE ins_deel_externnr = rec.ins_deel_externnr
|
||||
AND alg_gebouw_code = v_alg_gebouw_code;
|
||||
END IF;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
IF (header_is_valid = 1)
|
||||
THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'S',
|
||||
'Objecten/aantal ingelezen importregels: ' || TO_CHAR (v_count_tot),
|
||||
''
|
||||
);
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'S',
|
||||
'Objecten/aantal ongeldige niet ingelezen importregels: '
|
||||
|| TO_CHAR (v_count_tot - v_count_import),
|
||||
''
|
||||
);
|
||||
END IF;
|
||||
|
||||
COMMIT;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
v_errormsg
|
||||
|| ' ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_aanduiding || v_errormsg,
|
||||
'Inleesproces objecten afgebroken! regel:' || v_file_index);
|
||||
END szdb_import_mjobelementen;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE szdb_update_mjobelementen (
|
||||
p_import_key IN NUMBER)
|
||||
IS
|
||||
|
||||
BEGIN
|
||||
fac_update_ins (p_import_key);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE szdb_import_mjobgebreken (p_import_key IN NUMBER)
|
||||
IS
|
||||
c_delim VARCHAR2 (2) := fac.import_delimiter(p_import_key);
|
||||
v_newline fac_imp_file.fac_imp_file_line%TYPE; -- Input line
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
v_errorhint VARCHAR2 (1000);
|
||||
v_file_index NUMBER;
|
||||
v_count NUMBER;
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
header_is_valid NUMBER;
|
||||
v_count_tot NUMBER (10);
|
||||
v_count_import NUMBER (10);
|
||||
v_ongeldig NUMBER (1);
|
||||
v_aanduiding VARCHAR2 (400);
|
||||
|
||||
v_stdmelding_key NUMBER;
|
||||
v_gebrek_code VARCHAR2(100);
|
||||
|
||||
|
||||
-- Overige velden:
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT *
|
||||
FROM fac_imp_file
|
||||
WHERE fac_import_key = p_import_key
|
||||
ORDER BY fac_imp_file_index;
|
||||
|
||||
BEGIN
|
||||
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
BEGIN
|
||||
v_newline := rec1.fac_imp_file_line;
|
||||
v_file_index := rec1.fac_imp_file_index;
|
||||
v_errormsg := 'Fout bij opvragen importregel';
|
||||
v_aanduiding := '';
|
||||
v_ongeldig := 0;
|
||||
-- Lees alle veldwaarden
|
||||
fac.imp_getfield_nr (v_newline, c_delim, 6, v_gebrek_code);
|
||||
|
||||
IF v_gebrek_code IS NOT NULL AND v_file_index <> 1
|
||||
THEN
|
||||
BEGIN
|
||||
SELECT mld_stdmelding_key
|
||||
INTO v_stdmelding_key
|
||||
FROM mld_stdmelding
|
||||
WHERE mld_stdmelding_code = v_gebrek_code;
|
||||
|
||||
EXCEPTION WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
INSERT INTO mld_stdmelding (mld_stdmelding_code,
|
||||
mld_ins_discipline_key,
|
||||
mld_stdmelding_omschrijving,
|
||||
mld_stdmelding_hint,
|
||||
mld_stdmelding_subject,
|
||||
mld_stdmelding_t_accepttijd,
|
||||
mld_stdmelding_t_uitvoertijd,
|
||||
mld_stdmelding_t_uitvtijd_pr1,
|
||||
mld_stdmelding_t_uitvtijd_pr2,
|
||||
mld_stdmelding_t_uitvtijd_pr4,
|
||||
alg_onrgoed_niveau,
|
||||
alg_onrgoed_obj_niveau,
|
||||
ins_srtinst_verplichtstatus,
|
||||
mld_stdmelding_slabewaken)
|
||||
|
||||
SELECT v_gebrek_code,
|
||||
d.ins_discipline_key,
|
||||
v_gebrek_code || 'Onbekend',
|
||||
v_gebrek_code || 'Onbekend',
|
||||
0,
|
||||
MLD_T_UITVOERTIJD (NULL, 'U'),
|
||||
MLD_T_UITVOERTIJD (2, 'D'),
|
||||
MLD_T_UITVOERTIJD (NULL, 'D'),
|
||||
MLD_T_UITVOERTIJD (NULL, 'D'),
|
||||
MLD_T_UITVOERTIJD (NULL, 'D'),
|
||||
'G',
|
||||
'G',
|
||||
2,
|
||||
0
|
||||
FROM ins_tab_discipline d, ins_srtdiscipline sd
|
||||
WHERE REGEXP_SUBSTR (v_gebrek_code, '[[:alpha:]]*[[:digit:]]*') =
|
||||
SUBSTR (ins_discipline_omschrijving, 1, INSTR (ins_discipline_omschrijving, ' ') - 1)
|
||||
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
|
||||
AND sd.ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'
|
||||
AND ins_discipline_code <> 'GEEN';
|
||||
|
||||
fac.imp_writelog (p_import_key,
|
||||
'I',
|
||||
v_gebrek_code || ' aangemaakt.',
|
||||
'');
|
||||
-- dbms_output.put_line ('Ontbrekende code: ' || v_gebrek_code);
|
||||
END;
|
||||
END IF;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
-- Nu de gebreken importeren
|
||||
cnd_import_nen2767_results (p_import_key);
|
||||
|
||||
-- En het externe nummer vervangen door het interne nummer
|
||||
UPDATE cnd_imp_nen2767_results r
|
||||
SET ins_deel_omschrijving = (SELECT ins_deel_omschrijving
|
||||
FROM ins_deel d
|
||||
WHERE d.ins_deel_externnr = r.ins_deel_omschrijving)
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
COMMIT;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
v_errormsg
|
||||
|| ' ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_aanduiding || v_errormsg,
|
||||
'Inleesproces gebreken afgebroken! regel:' || v_file_index);
|
||||
END szdb_import_mjobgebreken;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE szdb_update_mjobgebreken (
|
||||
p_import_key IN NUMBER)
|
||||
IS
|
||||
BEGIN
|
||||
cnd_update_nen2767_results (p_import_key);
|
||||
END;
|
||||
/
|
||||
|
||||
-- rapportage om foto's toe te voegen
|
||||
CREATE OR REPLACE VIEW szdb_v_upload_foto_script
|
||||
AS
|
||||
SELECT alg_gebouw_code,
|
||||
'cscript "..\..\Fotos\UploadFotoBijGebrek.js" "https://szdb.facilitor.nl/api2" 4201 '
|
||||
|| mld_melding_key
|
||||
|| ' "'
|
||||
|| foto
|
||||
|| '"' url
|
||||
FROM (SELECT aogg.alg_gebouw_code,
|
||||
m.mld_melding_key,
|
||||
1 volgorde,
|
||||
szdb.imp_getfield_nr (mld_kenmerkmelding_waarde, ':', 1) foto
|
||||
FROM mld_kenmerkmelding km, mld_melding m, alg_v_onroerendgoed_gegevens aogg
|
||||
WHERE aogg.alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys
|
||||
AND m.mld_melding_key = km.mld_melding_key
|
||||
AND mld_kenmerk_key = 4202
|
||||
UNION ALL
|
||||
SELECT aogg.alg_gebouw_code,
|
||||
m.mld_melding_key,
|
||||
2,
|
||||
szdb.imp_getfield_nr (mld_kenmerkmelding_waarde, ':', 2)
|
||||
FROM mld_kenmerkmelding km, mld_melding m, alg_v_onroerendgoed_gegevens aogg
|
||||
WHERE aogg.alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys
|
||||
AND m.mld_melding_key = km.mld_melding_key
|
||||
AND mld_kenmerk_key = 4202
|
||||
UNION ALL
|
||||
SELECT aogg.alg_gebouw_code,
|
||||
m.mld_melding_key,
|
||||
3,
|
||||
szdb.imp_getfield_nr (mld_kenmerkmelding_waarde, ':', 3)
|
||||
FROM mld_kenmerkmelding km, mld_melding m, alg_v_onroerendgoed_gegevens aogg
|
||||
WHERE aogg.alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys
|
||||
AND m.mld_melding_key = km.mld_melding_key
|
||||
AND mld_kenmerk_key = 4202
|
||||
UNION ALL
|
||||
SELECT aogg.alg_gebouw_code,
|
||||
m.mld_melding_key,
|
||||
4,
|
||||
szdb.imp_getfield_nr (mld_kenmerkmelding_waarde, ':', 4)
|
||||
FROM mld_kenmerkmelding km, mld_melding m, alg_v_onroerendgoed_gegevens aogg
|
||||
WHERE aogg.alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys
|
||||
AND m.mld_melding_key = km.mld_melding_key
|
||||
AND mld_kenmerk_key = 4202)
|
||||
WHERE foto IS NOT NULL;
|
||||
|
||||
------ payload end ------
|
||||
|
||||
|
||||
Reference in New Issue
Block a user