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

Merge 2024.1 DB47a patches

Browse Source 
svn path=/Database/trunk/; revision=63836
This commit is contained in:
Jos Groot Lipman
2024-03-06 16:31:32 +00:00
parent 43b4ad2a91
commit f7d583f2f8
15 changed files with 201 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
MLD/MLD_PAC.SRC
View File

@@ -1623,7 +1623,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
BEGIN
BEGIN
SELECT sm.mld_stdmelding_autoorder
, bdl.mld_autoorder
, m.prs_perslid_key
, sm.mld_stdmelding_key
, mdp.mld_disc_params_opdr_kosten
@@ -1642,7 +1641,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
, mdp.mld_disc_params_bestellimiet
, m.mld_melding_conceptstatus
INTO l_autoorder
, l_mld_autoorder
, l_prs_perslid_key
, l_mld_stdmelding_key
, l_mld_disc_params_opdr_kosten
@@ -1665,17 +1663,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
, ins_tab_discipline d
, mld_disc_params mdp
, prs_kostenplaats k
, prs_bedrijfdienstlocatie bdl
, prs_bedrijfadres ba
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_discipline_key = mdp.mld_ins_discipline_key
AND m.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND bdl.alg_locatie_key = m.mld_alg_locatie_key
AND bdl.prs_dienst_key = sm.prs_dienst_key
AND bdl.prs_bedrijf_key = ba.prs_bedrijf_key(+)
AND ba.prs_bedrijfadres_type = 'O'
AND ba.prs_bedrijfadres_url IS NOT NULL
AND m.mld_melding_key = p_melding_key;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -1692,7 +1683,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
END IF;
-- Moet er bij deze melding automatisch een opdracht worden aangemaakt?
IF l_autoorder = 0 OR l_mld_autoorder = 0 OR l_conceptstatus <> 0
IF l_autoorder = 0 OR l_conceptstatus <> 0
THEN
-- No, done.
RETURN;
@@ -1905,8 +1896,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
AND bdl.prs_dienst_key = l_prs_dienst_key
AND ((bdl.alg_gebouw_key = l_alg_gebouw_key
OR bdl.alg_gebouw_key IS NULL)
AND (bdl.alg_locatie_key = l_mld_alg_locatie_key
OR bdl.alg_locatie_key IS NULL));
AND (bdl.alg_locatie_key = l_mld_alg_locatie_key
OR bdl.alg_locatie_key IS NULL))
AND bdl.mld_autoorder = 1;
ELSIF l_mld_alg_locatie_key IS NOT NULL
THEN
SELECT MIN(bdl.prs_bedrijf_key) prs_bedrijf_key
@@ -1922,7 +1914,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
WHERE bdl.prs_bedrijf_key = b.prs_bedrijf_key
AND bdl.prs_dienst_key = l_prs_dienst_key
AND (bdl.alg_locatie_key = l_mld_alg_locatie_key
OR bdl.alg_locatie_key IS NULL);
OR bdl.alg_locatie_key IS NULL)
AND bdl.mld_autoorder = 1;
ELSE
SELECT MIN(bdl.prs_bedrijf_key) prs_bedrijf_key
, COUNT(DISTINCT bdl.prs_bedrijf_key) aantal
@@ -1937,7 +1930,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
WHERE bdl.prs_bedrijf_key = b.prs_bedrijf_key
AND bdl.prs_dienst_key = l_prs_dienst_key
AND bdl.alg_gebouw_key IS NULL
AND bdl.alg_locatie_key IS NULL; -- Bestaat er dan misschien maar 1 bedrijf voor deze dienst zonder loc/geb scope ?
AND bdl.alg_locatie_key IS NULL
AND bdl.mld_autoorder = 1; -- Bestaat er dan misschien maar 1 bedrijf voor deze dienst zonder loc/geb scope ?
END IF;
-- Indien dienst vereist en aantal is 0, dan is de dienst niet beschikbaar voor deze locatie/dit gebouw.
-- Indien aantal groter is dan 0, dan kan ik geen goede keuze maken.