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

FMHN#73451: Automatische opdrachten worden niet naar NPQ gestuurd (vervolg).

Browse Source 
svn path=/Database/branches/DB42/; revision=56593
This commit is contained in:
Maykel Geerdink
2022-07-18 06:24:46 +00:00
parent 179acf012d
commit e2a09fc3d7
1 changed files with 31 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
MLD/MLD_PAC.SRC
View File

@@ -2032,29 +2032,38 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Evaluate flex expressions.
flx.evaluateflexexpressions('OPD', l_new_opdr_key, l_prs_perslid_key, 1);
-- De nieuwe opdracht, in geval van een uitvoerder, door putorders laten oppikken (te verzenden veld zetten).
BEGIN
SELECT prs_bedrijfadres_url
INTO l_prs_bedrijfadres_url
FROM prs_bedrijfadres
WHERE prs_bedrijfadres_type = 'O'
AND (mld_typeopdr_key IS NULL
OR mld_typeopdr_key = l_mld_typeopdr_key)
AND (alg_locatie_key = l_mld_alg_locatie_key
OR alg_locatie_key IS NULL)
AND (alg_district_key = (SELECT d.alg_district_key
FROM alg_locatie d
WHERE d.alg_locatie_key = l_mld_alg_locatie_key)
OR alg_district_key IS NULL)
AND prs_bedrijf_key = l_prs_bedrijf_key;
-- De nieuwe (offerte)opdracht door putorders laten oppikken (te verzenden veld zetten), zodat de opdracht verstuurd wordt.
IF l_mld_typeopdr_isofferte = 1
THEN
-- Offerte.
UPDATE mld_opdr
SET mld_opdr_teverzenden = 1
WHERE mld_opdr_key = l_new_opdr_key;
ELSE
-- Alleen in geval van een uitvoerder, de opdracht door putorders laten oppikken.
BEGIN
SELECT prs_bedrijfadres_url
INTO l_prs_bedrijfadres_url
FROM prs_bedrijfadres
WHERE prs_bedrijfadres_type = 'O'
AND (mld_typeopdr_key IS NULL
OR mld_typeopdr_key = l_mld_typeopdr_key)
AND (alg_locatie_key = l_mld_alg_locatie_key
OR alg_locatie_key IS NULL)
AND (alg_district_key = (SELECT d.alg_district_key
FROM alg_locatie d
WHERE d.alg_locatie_key = l_mld_alg_locatie_key)
OR alg_district_key IS NULL)
AND prs_bedrijf_key = l_prs_bedrijf_key;
UPDATE mld_opdr
SET mld_opdr_teverzenden = 1
WHERE mld_opdr_key = l_new_opdr_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN NULL;
END;
UPDATE mld_opdr
SET mld_opdr_teverzenden = 1
WHERE mld_opdr_key = l_new_opdr_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN NULL;
END;
END IF;
END mld_addautoorder;
PROCEDURE mld_nextworkflowstep (p_melding_key IN NUMBER, p_success IN NUMBER)