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

KMMO#65492 -- FMIS Stichting Kröller-Müller Museum

Browse Source 
svn path=/Customer/trunk/; revision=53055
This commit is contained in:
Arthur Egberink
2021-09-16 08:05:53 +00:00
parent 65d1786499
commit f6ed7fadd7
1 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
KMMO/kmmo.sql
View File

@@ -542,30 +542,40 @@ BEGIN
IF v_ins_deel_aanmaak_txt IS NOT NULL
THEN
v_ins_deel_aanmaak := to_date('0101' || v_ins_deel_aanmaak_txt, 'ddmmyyyy');
ELSE
v_ins_deel_aanmaak := SYSDATE;
END IF;
v_errormsg := 'Fout bij toevoegen te impoteren v_kenmerk9: ' || v_kenmerk9;
IF v_kenmerk9 IS NOT NULL
THEN
v_ins_deel_startjaar := to_date('0101' || v_kenmerk9, 'ddmmyyyy');
ELSE
v_ins_deel_startjaar := NULL;
END IF;
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_deel_aantal_txt: ' || v_ins_deel_aantal_txt;
IF v_ins_deel_aantal_txt IS NOT NULL
THEN
v_ins_deel_aantal := to_number(v_ins_deel_aantal_txt);
ELSE
v_ins_deel_aantal := NULL;
END IF;
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtcontrole_periode_txt: ' || v_ins_srtcontrole_periode_txt;
IF v_ins_srtcontrole_periode_txt IS NOT NULL
THEN
v_ins_srtcontrole_periode := to_number(v_ins_srtcontrole_periode_txt);
ELSE
v_ins_srtcontrole_periode := NULL;
END IF;
v_errormsg := 'Fout bij toevoegen te impoteren v_ins_srtcontrole_prijs_txt: ' || v_ins_srtcontrole_prijs_txt;
IF v_ins_srtcontrole_prijs_txt IS NOT NULL
THEN
v_ins_srtcontrole_prijs := to_number(REPLACE(REPLACE(v_ins_srtcontrole_prijs_txt, '.'), ',', '.'));
ELSE
v_ins_srtcontrole_prijs := NULL;
END IF;
v_errormsg := 'Fout bij toevoegen te impoteren v_kenmerk7: ' || v_kenmerk7;
@@ -577,6 +587,8 @@ BEGIN
ELSE
v_ins_deel_percentage := to_number(REPLACE(v_kenmerk7, '%'));
END IF;
ELSE
v_ins_deel_percentage := 100;
END IF;
INSERT INTO fac_imp_ins (ins_discipline_omschrijving,
@@ -817,6 +829,9 @@ BEGIN
v_errorhint := 'Aanmaken srtcontrole';
-- We vullen de controle altijd met een bedrag van 0 euro. De overrule heeft dan het juiste
-- bedrag. Hiermee voorkomen we een controle met een bepaald bedrag waarbij er voor een bepaald object
-- die taak niet voorkomt.
INSERT INTO ins_srtcontrole (
ins_srtinstallatie_key,
ins_srtcontrole_niveau,
@@ -839,8 +854,17 @@ BEGIN
0),
4,
v_srtcontrole_level,
v_materiaal,
v_srtcontrole_percentage);
0,
v_srtcontrole_percentage)
RETURNING ins_srtcontrole_key INTO v_srtcontrole_key;
INSERT INTO ins_srtcontroledl_xcp (ins_srtcontrole_key,
ins_srtcontroledl_xcp_materia,
ins_deel_key)
VALUES (v_srtcontrole_key, v_materiaal, v_deel_key)
RETURNING ins_srtcontroledl_xcp_key
INTO v_srtcontroledl_xcp_key;
END;
EXCEPTION
WHEN OTHERS