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

CVGZ#68953 bug; workflow autoorders onterecht ter fiattering gezet

Browse Source 
svn path=/Database/trunk/; revision=53807
This commit is contained in:
Koen Reefman
2021-11-23 11:22:36 +00:00
parent ca82768497
commit a68f866123
1 changed files with 17 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
MLD/MLD_PAC.SRC
View File

@@ -1862,27 +1862,24 @@ CREATE OR REPLACE PACKAGE BODY mld AS
IF l_mld_stdmelding_autoorderamnt > l_mld_disc_params_bestellimiet OR l_mld_stdmelding_autoorderamnt > l_mld_typeopdr_gvs
THEN
mld.setopdrachtstatus(l_new_opdr_key, 10, NULL); -- Ter goedkeuring.
ELSE
IF l_mld_stdmelding_autoorderamnt < l_mld_typeopdr_fvs -- fvs is eigenlijk al eerder afgehandeld
THEN
-- Hoge fiat vrijstelling, fiattering toch niet nodig.
mld.setopdrachtstatus(l_new_opdr_key, 5, NULL); -- Uitgegeven.
-- mld.trackuitvoerende(opdr_key, uitvoerende, opdr_status_key);
SELECT CASE
WHEN u.intern = 1
THEN 'ORDMLI'
ELSE 'ORDMLE'
END
INTO l_action
FROM mld_v_uitvoerende u
WHERE u.mld_uitvoerende_key = l_prs_bedrijf_key;
-- Type "P" (persoon) is intern en type "B" (bedrijf) is afhankelijk van "prs_bedrijf_intern" intern of extern.
fac.trackaction(l_action, l_new_opdr_key, NULL, NULL, NULL);
-- In de database procedure doen we geen putorders.sendnotifications(pkey, paction). Dan moeten we maar iets langer wachten.
ELSE
ELSIF l_for_approval AND l_prs_kostenplaats_fiat = 1 AND l_mld_stdmelding_autoorderamnt >= l_mld_typeopdr_fvs
THEN
mld.setopdrachtstatus(l_new_opdr_key, 3, NULL); -- Ter fiattering.
END IF;
ELSE
-- Hoge fiat vrijstelling, fiattering toch niet nodig.
mld.setopdrachtstatus(l_new_opdr_key, 5, NULL); -- Uitgegeven.
-- mld.trackuitvoerende(opdr_key, uitvoerende, opdr_status_key);
SELECT CASE
WHEN u.intern = 1
THEN 'ORDMLI'
ELSE 'ORDMLE'
END
INTO l_action
FROM mld_v_uitvoerende u
WHERE u.mld_uitvoerende_key = l_prs_bedrijf_key;
-- Type "P" (persoon) is intern en type "B" (bedrijf) is afhankelijk van "prs_bedrijf_intern" intern of extern.
fac.trackaction(l_action, l_new_opdr_key, NULL, NULL, NULL);
-- In de database procedure doen we geen putorders.sendnotifications(pkey, paction). Dan moeten we maar iets langer wachten.
END IF;
-- Refresh meldingstatus zonodig als gevolg van een nieuw uitgegeven opdracht.