svn path=/Database/trunk/; revision=41443
This commit is contained in:
Alex Tiehuis
2019-03-11 10:08:16 +00:00
parent 364dcaee22
commit 16a5779851

View File

@@ -2423,6 +2423,7 @@ AS
v_prs_kostenplaats_key alg_terreinsector.prs_kostenplaats_key%TYPE;
v_srtterreinsector_key alg_terreinsector.alg_srtterreinsector_key%TYPE;
v_ordernr alg_terreinsector.alg_terreinsector_ordernr%TYPE;
v_vervaldatum alg_terreinsector.alg_terreinsector_vervaldatum%TYPE;
BEGIN
IF p_terreinsector_key IS NOT NULL
THEN
@@ -2433,7 +2434,8 @@ AS
alg_terreinsector_omtrek,
prs_kostenplaats_key,
alg_srtterreinsector_key,
alg_terreinsector_ordernr
alg_terreinsector_ordernr,
alg_terreinsector_vervaldatum
INTO v_omschrijving,
v_code,
v_naam,
@@ -2441,7 +2443,8 @@ AS
v_omtrek,
v_prs_kostenplaats_key,
v_srtterreinsector_key,
v_ordernr
v_ordernr,
v_vervaldatum
FROM alg_terreinsector
WHERE alg_terreinsector_key = p_terreinsector_key;
@@ -2453,6 +2456,7 @@ AS
createxmltagvalue ('oppervlak', v_oppervlak);
createxmltagvalue ('omtrek', v_omtrek);
createxmltagvalue ('ordernr', v_ordernr);
mydatetochar ('vervaldatum', v_vervaldatum);
create_alg_kenmerken (p_terreinsector_key, 'T');
create_alg_srtterreinsec_node (v_srtterreinsector_key);
create_prs_kostenplaats_node (v_prs_kostenplaats_key, TRUE);
@@ -2781,6 +2785,7 @@ AS
v_x alg_locatie.alg_locatie_x%TYPE;
v_y alg_locatie.alg_locatie_y%TYPE;
v_mjb_score1 alg_locatie.alg_locatie_mjb_score1%TYPE;
v_vervaldatum alg_locatie.alg_locatie_vervaldatum%TYPE;
CURSOR c1
IS
SELECT alg_gebouw_key
@@ -2814,7 +2819,8 @@ AS
alg_locatie_verantw_tel,
alg_locatie_x,
alg_locatie_y,
alg_locatie_mjb_score1
alg_locatie_mjb_score1,
alg_locatie_vervaldatum
INTO v_code,
v_omschrijving,
v_adres,
@@ -2830,7 +2836,8 @@ AS
v_verantw_tel,
v_x,
v_y,
v_mjb_score1
v_mjb_score1,
v_vervaldatum
FROM alg_locatie
WHERE alg_locatie_key = p_locatie_key;
@@ -2881,6 +2888,7 @@ AS
createxmltagvalue ('x', v_x);
createxmltagvalue ('y', v_y);
createxmltagvalue ('mjb_score1', v_mjb_score1);
mydatetochar ('vervaldatum', v_vervaldatum);
createclosetag ('locatie');
END IF;
END;
@@ -3731,7 +3739,8 @@ AS
mld_melding_note_aanmaak,
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag
mld_melding_note_flag,
mld_melding_note_wijzigdatum
FROM mld_melding_note
WHERE mld_melding_key = p_key
ORDER BY mld_melding_note_key;
@@ -3746,6 +3755,7 @@ AS
createxmltagvalue ('key', rec1.mld_melding_note_key);
createxmltagvalue ('flag', BITAND(rec1.mld_melding_note_flag, 191)); -- reset de hier irrelevante 64-bit om compatibel te blijven
mydatetochar ('aanmaak', rec1.mld_melding_note_aanmaak);
mydatetochar ('wijzigdatum', rec1.mld_melding_note_wijzigdatum);
createxmltagvalue ('omschrijving',
rec1.mld_melding_note_omschrijving);
create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
@@ -3856,7 +3866,8 @@ AS
SELECT mld_opdr_note_key,
mld_opdr_note_aanmaak,
prs_perslid_key,
mld_opdr_note_omschrijving
mld_opdr_note_omschrijving,
mld_opdr_note_wijzigdatum
FROM mld_opdr_note
WHERE mld_opdr_key = p_key
ORDER BY mld_opdr_note_key;
@@ -3869,6 +3880,7 @@ AS
createopentag ('note');
createxmltagvalue ('key', rec1.mld_opdr_note_key);
mydatetochar ('aanmaak', rec1.mld_opdr_note_aanmaak);
mydatetochar ('wijzigdatum', rec1.mld_opdr_note_wijzigdatum);
createxmltagvalue ('omschrijving',
rec1.mld_opdr_note_omschrijving);
create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
@@ -4657,6 +4669,8 @@ AS
v_meldbron_nr mld_melding.mld_meldbron_nr%TYPE;
v_datum mld_melding.mld_melding_datum%TYPE;
v_onderwerp mld_melding.mld_melding_onderwerp%TYPE;
v_actiecode mld_melding.mld_melding_actiecode%TYPE;
v_publiek mld_melding.mld_melding_publiek%TYPE;
v_omschrijving mld_melding.mld_melding_omschrijving%TYPE;
v_opmerking mld_melding.mld_melding_opmerking%TYPE;
v_geprint mld_melding.mld_melding_geprint%TYPE;
@@ -4737,6 +4751,8 @@ AS
SELECT NVL (mld_meldbron_nr, ''),
NVL (mld_melding_datum, ''),
NVL (mld_melding_onderwerp, ''),
mld_melding_actiecode,
mld_melding_publiek,
NVL (mld_melding_omschrijving, ''),
NVL (mld_melding_opmerking, ''),
NVL (mld_melding_geprint, 0),
@@ -4780,6 +4796,8 @@ AS
INTO v_meldbron_nr,
v_datum,
v_onderwerp,
v_actiecode,
v_publiek,
v_omschrijving,
v_opmerking,
v_geprint,
@@ -4831,6 +4849,8 @@ AS
mydatetochar ('gemeld', v_datum); -- deprecated, see tracking
mydatetochar ('begindatum', v_datum);
createxmltagvalue ('onderwerp', v_onderwerp);
createxmltagvalue ('actiecode', v_actiecode);
createxmltagvalue ('publiek', v_publiek);
createxmltagvalue ('omschrijving', v_omschrijving);
createxmltagvalue ('behandelwijze', fac.getsetting('mld_note_mode')); --1=oldstyle via opmerking, 2=newstyle via notes
createxmltagvalue ('opmerking', v_opmerking);
@@ -6788,6 +6808,7 @@ AS
v_done bez_bezoekers.bez_bezoekers_done%TYPE;
v_out bez_bezoekers.bez_bezoekers_out%TYPE;
v_pasnr bez_bezoekers.bez_bezoekers_pasnr%TYPE;
v_aanmaak bez_bezoekers.bez_bezoekers_aanmaak%TYPE;
v_parkeerplaats_key res_rsv_deel.res_deel_key%TYPE;
v_parkeer_prijs res_deel.res_deel_prijs%TYPE;
v_parkeer_prijs_vast res_deel.res_deel_prijs_vast%TYPE;
@@ -6809,6 +6830,7 @@ AS
bez_bezoekers_done,
bez_bezoekers_out,
bez_bezoekers_pasnr,
bez_bezoekers_aanmaak,
prs_perslid_key,
prs_contactpersoon_key
INTO v_afspraak_key,
@@ -6818,6 +6840,7 @@ AS
v_done,
v_out,
v_pasnr,
v_aanmaak,
v_perslid_key,
v_contactpersoon_key
FROM bez_bezoekers b
@@ -6833,6 +6856,7 @@ AS
mydatetochar ('out', v_out);
create_bez_kenmerken (p_key);
createxmltagvalue ('pasnr', v_pasnr);
mydatetochar ('aanmaak', v_aanmaak);
-- als zelfstandig aangeroepen, dan moet er nog wel iets van de afspraak bij
create_bez_afspraak_node (v_afspraak_key, -1, TRUE);
@@ -6880,6 +6904,7 @@ AS
v_ruimte bez_afspraak.bez_afspraak_ruimte%TYPE;
v_opmerking bez_afspraak.bez_afspraak_opmerking%TYPE;
v_eind bez_afspraak.bez_afspraak_eind%TYPE;
v_aanmaak bez_afspraak.bez_afspraak_aanmaak%TYPE;
v_actie_omschr bez_actie.bez_actie_omschrijving%TYPE;
CURSOR c1
@@ -6908,6 +6933,7 @@ AS
bez_afspraak_ruimte,
bez_afspraak_opmerking,
bez_afspraak_eind,
bez_afspraak_aanmaak,
lcl.x ('bez_actie_omschrijving',
ac.bez_actie_key,
bez_actie_omschrijving)
@@ -6925,6 +6951,7 @@ AS
v_ruimte,
v_opmerking,
v_eind,
v_aanmaak,
v_actie_omschr
FROM bez_afspraak ba, bez_actie ac
WHERE ba.bez_actie_key = ac.bez_actie_key(+)
@@ -6951,6 +6978,7 @@ AS
createxmltagvalue ('telefoonnr', v_telefoonnr);
mydatetochar ('datum', v_datum);
mydatetochar ('eind', v_eind);
mydatetochar ('aanmaak', v_aanmaak);
createxmltagvalue ('actiekey', v_actie_key);
createxmltagvalue ('actie', v_actie_omschr);
createxmltagvalue ('ruimte', v_ruimte); -- de stringvariant van alg_ruimte_key?
@@ -8850,6 +8878,7 @@ AS
v_kostensoort_key fin_factuur.prs_kostensoort_key%TYPE;
v_opmerking fin_factuur.fin_factuur_opmerking%TYPE;
v_status fin_factuur.fin_factuur_statuses_key%TYPE;
v_contract_plaats_key fin_factuur.cnt_contract_plaats_key;
CURSOR c1
IS
@@ -8878,7 +8907,8 @@ AS
fin_factuur_debiteur_nr,
prs_kostensoort_key,
fin_factuur_opmerking,
fin_factuur_statuses_key
fin_factuur_statuses_key,
cnt_contract_plaats_key
INTO v_nr,
v_totaal,
v_totaal_btw,
@@ -8891,7 +8921,8 @@ AS
v_debiteur_nr,
v_kostensoort_key,
v_opmerking,
v_status
v_status,
v_contract_plaats_key
FROM fin_factuur
WHERE fin_factuur_key = p_key;
@@ -8918,6 +8949,7 @@ AS
create_bes_bestelopdr_node (v_bestelopdr_key, FALSE);
END IF;
create_prs_perslid_node (v_perslid_key_user, 'invoerder', TRUE);
create_cnt_contract_node (v_contract_plaats_key, TRUE);
create_fin_factuur_note_node (p_key);
createclosetag ('factuur');
END IF;