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

FCLT#63760: Automatisch opdrachten aanmaken ook in de workflow.

Browse Source 
svn path=/Database/trunk/; revision=52448
This commit is contained in:
Maykel Geerdink
2021-07-20 17:59:30 +00:00
parent 4df74561ff
commit 81d60ba95e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
MLD/MLD_PAC.SRC
View File

@@ -1444,7 +1444,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
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 m.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND m.mld_melding_key = p_melding_key;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -1521,7 +1521,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Fiatteringsproces moet gevolgd worden op de naam van de user
-- var exceeds_pgb = mld.exceeds_pgb(tot_kosten, user_key, disc_key)
l_exceeds_pgb := fac.exceeds_pgb(l_mld_stdmelding_autoorderamnt, l_prs_perslid_key, l_ins_discipline_key, l_mld_disc_params_pgb);
l_exceeds_agb := fac.exceeds_agb(l_mld_stdmelding_autoorderamnt, l_prs_kostenplaats_key, l_ins_discipline_key, l_mld_disc_params_pgb);
l_exceeds_agb := fac.exceeds_agb(l_mld_stdmelding_autoorderamnt, COALESCE(l_prs_kostenplaats_key, -1), l_ins_discipline_key, l_mld_disc_params_pgb);
IF l_exceeds_pgb OR l_exceeds_agb
THEN
-- Voor melding opdrachten heb je altijd BO rechten nodig.
@@ -1550,7 +1550,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Alleen de melder van de melding mag niet zelf goedkeuren boven het bedrag can_selfapprove.
-- Bij een kpg fiatteur moeten we de volgende hebben en niet de laatste, daarom (fiatbedrag >= 0) meegeven.
-- prs.getfiatteur (pkostenplaats_key, pexcludekey, pondergrens, pdisckey, pfiatbedrag)
SELECT prs.getfiatteur (l_prs_kostenplaats_key, -1, l_mld_stdmelding_autoorderamnt, l_ins_discipline_key, 0)
SELECT prs.getfiatteur (COALESCE(l_prs_kostenplaats_key, -1), -1, l_mld_stdmelding_autoorderamnt, l_ins_discipline_key, 0)
INTO l_approver_key
FROM DUAL;
END IF;
@@ -1565,7 +1565,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
l_for_approval := TRUE;
-- prs.getfiatteur (pkostenplaats_key, pexcludekey, pondergrens, pdisckey, pfiatbedrag)
SELECT prs.getfiatteur (l_prs_kostenplaats_key, -1, l_mld_stdmelding_autoorderamnt, l_ins_discipline_key, 0)
SELECT prs.getfiatteur (COALESCE(l_prs_kostenplaats_key, -1), -1, l_mld_stdmelding_autoorderamnt, l_ins_discipline_key, 0)
INTO l_approver_key
FROM DUAL;
END IF;