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

KMMO#76640 -- Inrichting conditiemetingen

Browse Source 
svn path=/Customer/trunk/; revision=59413
This commit is contained in:
Arthur Egberink
2023-03-02 13:30:00 +00:00
parent 9f34ecd99d
commit 39ae544caa
1 changed files with 45 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
KMMO/kmmo.sql
View File

@@ -384,6 +384,32 @@ SELECT dsc.ins_deelsrtcontrole_datum,
AND dsc.ins_controlemode_key = cm.ins_controlemode_key
AND dsc.prs_perslid_key = pf.prs_perslid_key;
-- Overzicht om het resultaat (notities) van de inspecteur te bekijken
-- rapport om de opmerkingen van de inspecteur te zien
CREATE OR REPLACE VIEW kmmo_v_rap_deel_notities
AS
SELECT n.ins_deel_note_aanmaak,
n.ins_deel_note_omschrijving,
pf.prs_perslid_naam_full,
dg.ins_discipline_omschrijving,
dg.ins_srtgroep_omschrijving,
dg.ins_srtdeel_omschrijving,
dg.ins_srtdeel_upper,
dg.alg_gebouw_omschrijving,
dg.alg_gebouw_upper,
dg.alg_verdieping_omschrijving,
dg.alg_verdieping_code,
dg.alg_ruimte_nr,
dg.ins_deel_omschrijving,
dg.ins_deel_aantal,
dg.ins_deel_opmerking,
dg.ins_deel_vervaldatum
FROM ins_deel_note n,
ins_v_deel_gegevens dg,
prs_v_perslid_fullnames_all pf
WHERE n.ins_deel_key = dg.ins_deel_key
AND n.prs_perslid_key = pf.prs_perslid_key;
-- Importfunctie om Asset en MJOB informatie te importeren.
CREATE OR REPLACE PROCEDURE kmmo_import_assets (p_import_key IN NUMBER)
AS
@@ -413,6 +439,7 @@ AS
v_ins_srtcontrole_periode_txt VARCHAR2(100);
v_ins_srtcontrole_prijs_txt VARCHAR2(100);
v_ins_srtdeel_code VARCHAR2(100);
v_ins_srtdeel_code_txt VARCHAR2(100);
v_ins_srtdeel_omschrijving VARCHAR2(100);
v_ins_deel_percentage NUMBER;
v_ins_srtcontrole_periode NUMBER;
@@ -744,7 +771,7 @@ BEGIN
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 7, v_ins_deel_opmerking);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 29, v_ins_srtcontrole_periode_txt);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 24, v_ins_srtcontrole_prijs_txt);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_ins_srtdeel_code);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_ins_srtdeel_code_txt);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 6, v_ins_srtdeel_omschrijving);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_kenmerk1); -- code RVB
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 8, v_kenmerk2); -- opmerking
@@ -757,17 +784,25 @@ BEGIN
v_count_tot := v_count_tot + 1;
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_discipline_omschrijving: ' || v_ins_srtdeel_code;
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_discipline_omschrijving: ' || v_ins_srtdeel_code_txt;
SELECT d.ins_discipline_omschrijving
INTO v_ins_discipline_omschrijving
FROM ins_discipline d
WHERE SUBSTR (d.ins_discipline_omschrijving, 1, 1) = SUBSTR (v_ins_srtdeel_code, 1, 1);
WHERE SUBSTR (d.ins_discipline_omschrijving, 1, 1) = SUBSTR (v_ins_srtdeel_code_txt, 1, 1);
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtgroep_omschrijving: ' || v_ins_srtdeel_code;
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtgroep_omschrijving: ' || v_ins_srtdeel_code_txt;
SELECT sg.ins_srtgroep_omschrijving
INTO v_ins_srtgroep_omschrijving
FROM ins_srtgroep sg
WHERE SUBSTR (sg.ins_srtgroep_omschrijving, 1, 2) = SUBSTR (v_ins_srtdeel_code, 1, 2);
WHERE SUBSTR (sg.ins_srtgroep_omschrijving, 1, 2) = SUBSTR (v_ins_srtdeel_code_txt, 1, 2);
v_errormsg := 'Fout bij toevoegen te impoteren ins_srtdeel_code: ' || v_ins_srtdeel_code_txt;
IF LENGTH(v_ins_srtdeel_code_txt) > 10
THEN
v_ins_srtdeel_code := REPLACE(v_ins_srtdeel_code_txt, '.');
ELSE
v_ins_srtdeel_code := v_ins_srtdeel_code_txt;
END IF;
v_errormsg := 'Fout bij toevoegen te impoteren v_alg_ruimte_nr: ' || v_alg_ruimte_nr;
SELECT alg_locatie_code, alg_gebouw_upper, alg_verdieping_volgnr
@@ -850,11 +885,12 @@ BEGIN
ins_kenmerkwaarde9,
ins_kenmerkwaarde10,
ins_deel_aanmaak,
ins_deel_aantal)
ins_deel_aantal,
ins_deel_externnr)
VALUES (SUBSTR(v_ins_discipline_omschrijving, 1,60),
SUBSTR(v_ins_srtgroep_omschrijving, 1, 60),
SUBSTR(v_ins_srtdeel_code,1,10),
SUBSTR(v_ins_srtdeel_omschrijving || ' - ' || v_ins_srtdeel_code, 1, 100),
SUBSTR(v_ins_srtdeel_omschrijving || ' - ' || v_ins_srtdeel_code_txt, 1, 100),
SUBSTR(v_ins_deel_omschrijving, 1, 60),
SUBSTR(v_ins_deel_opmerking, 1, 320),
SUBSTR(v_alg_locatie_code, 1, 10),
@@ -872,7 +908,8 @@ BEGIN
to_char(v_ins_deel_startjaar, 'ddmmyyyy'),
to_char(v_ins_deel_aanmaak, 'ddmmyyyy'),
v_ins_deel_aanmaak,
to_number(v_ins_deel_aantal));
to_number(v_ins_deel_aantal),
v_count_tot);
EXCEPTION
WHEN OTHERS