FCLT#59896: Core ondersteuning voor foto's/icons bij verschillende entiteiten.

svn path=/Database/trunk/; revision=46448
This commit is contained in:
Maykel Geerdink
2020-04-01 06:15:58 +00:00
parent b24135a7eb
commit 94c107f240
3 changed files with 53 additions and 5 deletions

View File

@@ -2525,6 +2525,7 @@ AS
v_verantw_key2 alg_terreinsector.prs_perslid_key_verantw2%TYPE;
v_srtterreinsector_key alg_terreinsector.alg_srtterreinsector_key%TYPE;
v_ordernr alg_terreinsector.alg_terreinsector_ordernr%TYPE;
v_image alg_terreinsector.alg_terreinsector_image%TYPE;
v_vervaldatum alg_terreinsector.alg_terreinsector_vervaldatum%TYPE;
BEGIN
IF p_terreinsector_key IS NOT NULL
@@ -2539,6 +2540,7 @@ AS
prs_perslid_key_verantw2,
alg_srtterreinsector_key,
alg_terreinsector_ordernr,
alg_terreinsector_image,
alg_terreinsector_vervaldatum
INTO v_omschrijving,
v_code,
@@ -2550,6 +2552,7 @@ AS
v_verantw_key2,
v_srtterreinsector_key,
v_ordernr,
v_image,
v_vervaldatum
FROM alg_terreinsector
WHERE alg_terreinsector_key = p_terreinsector_key;
@@ -2562,6 +2565,7 @@ AS
createxmltagvalue ('oppervlak', v_oppervlak);
createxmltagvalue ('omtrek', v_omtrek);
createxmltagvalue ('ordernr', v_ordernr);
createxmltagvalue ('image', v_image);
mydatetochar ('vervaldatum', v_vervaldatum);
create_alg_kenmerken (p_terreinsector_key, 'T');
create_alg_srtterreinsec_node (v_srtterreinsector_key);
@@ -2762,6 +2766,7 @@ AS
v_werkdagen alg_gebouw.alg_gebouw_werkdagen%TYPE;
v_verantw_key alg_gebouw.prs_perslid_key_verantw%TYPE;
v_verantw_key2 alg_gebouw.prs_perslid_key_verantw2%TYPE;
v_image alg_gebouw.alg_gebouw_image%TYPE;
v_vervaldatum alg_gebouw.alg_gebouw_vervaldatum%TYPE;
v_mjb_score1 alg_gebouw.alg_gebouw_mjb_score1%TYPE;
@@ -2795,6 +2800,7 @@ AS
alg_gebouw_werkdagen,
prs_perslid_key_verantw,
prs_perslid_key_verantw2,
alg_gebouw_image,
alg_gebouw_vervaldatum,
alg_gebouw_mjb_score1
INTO v_naam,
@@ -2817,6 +2823,7 @@ AS
v_werkdagen,
v_verantw_key,
v_verantw_key2,
v_image,
v_vervaldatum,
v_mjb_score1
FROM alg_gebouw
@@ -2862,6 +2869,7 @@ AS
createxmltagvalue ('dwgy', v_dwgy);
createxmltagvalue ('x', v_x);
createxmltagvalue ('y', v_y);
createxmltagvalue ('image', v_image);
createxmltagvalue ('mjb_score1', v_mjb_score1);
createclosetag ('gebouw');
END IF;
@@ -2893,6 +2901,7 @@ AS
v_verantw_tel alg_locatie.alg_locatie_verantw_tel%TYPE;
v_x alg_locatie.alg_locatie_x%TYPE;
v_y alg_locatie.alg_locatie_y%TYPE;
v_image alg_locatie.alg_locatie_image%TYPE;
v_mjb_score1 alg_locatie.alg_locatie_mjb_score1%TYPE;
v_vervaldatum alg_locatie.alg_locatie_vervaldatum%TYPE;
CURSOR c1
@@ -2928,6 +2937,7 @@ AS
alg_locatie_verantw_tel,
alg_locatie_x,
alg_locatie_y,
alg_locatie_image,
alg_locatie_mjb_score1,
alg_locatie_vervaldatum
INTO v_code,
@@ -2945,6 +2955,7 @@ AS
v_verantw_tel,
v_x,
v_y,
v_image,
v_mjb_score1,
v_vervaldatum
FROM alg_locatie
@@ -2996,6 +3007,7 @@ AS
createxmltagvalue ('x', v_x);
createxmltagvalue ('y', v_y);
createxmltagvalue ('image', v_image);
createxmltagvalue ('mjb_score1', v_mjb_score1);
mydatetochar ('vervaldatum', v_vervaldatum);
createclosetag ('locatie');
@@ -4434,6 +4446,7 @@ AS
v_cnt ins_srtdiscipline.ins_srtdiscipline_cnt%TYPE;
v_kostenklant ins_srtdiscipline.ins_srtdiscipline_kostenklant%TYPE;
v_mldgroup ins_srtdiscipline.ins_srtdiscipline_mldgroup%TYPE;
v_image ins_srtdiscipline.ins_srtdiscipline_image%TYPE;
BEGIN
IF p_key IS NOT NULL
THEN
@@ -4453,7 +4466,8 @@ AS
ins_srtdiscipline_res,
ins_srtdiscipline_cnt,
ins_srtdiscipline_kostenklant,
ins_srtdiscipline_mldgroup
ins_srtdiscipline_mldgroup,
ins_srtdiscipline_image
INTO v_module,
v_omschrijving,
v_prefix,
@@ -4465,7 +4479,8 @@ AS
v_res,
v_cnt,
v_kostenklant,
v_mldgroup
v_mldgroup,
v_image
FROM ins_srtdiscipline
WHERE ins_srtdiscipline_key = p_key;
@@ -4482,6 +4497,7 @@ AS
createxmltagvalue ('cnt', v_cnt);
createxmltagvalue ('kostenklant', v_kostenklant);
createxmltagvalue ('mldgroup', v_mldgroup);
createxmltagvalue ('image', v_image);
createclosetag ('srtdiscipline');
END IF;
END;
@@ -4612,6 +4628,7 @@ AS
v_ins_srtdiscipline_key ins_tab_discipline.ins_srtdiscipline_key%TYPE;
v_email ins_tab_discipline.ins_discipline_email%TYPE;
v_code ins_tab_discipline.ins_discipline_code%TYPE;
v_image ins_tab_discipline.ins_discipline_image%TYPE;
BEGIN
IF p_key IS NOT NULL
THEN
@@ -4626,14 +4643,16 @@ AS
prs_kostensoort_key,
ins_srtdiscipline_key,
ins_discipline_email,
ins_discipline_code
ins_discipline_code,
ins_discipline_image
INTO v_module,
v_omschrijving,
v_min_level,
v_prs_kostensoort_key,
v_ins_srtdiscipline_key,
v_email,
v_code
v_code,
v_image
FROM ins_tab_discipline
WHERE ins_discipline_key = p_key;
@@ -4643,6 +4662,7 @@ AS
createxmltagvalue ('min_level', v_min_level);
createxmltagvalue ('email', v_email);
createxmltagvalue ('code', v_code);
createxmltagvalue ('image', v_image);
IF v_ins_srtdiscipline_key IS NOT NULL
THEN