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

CSUN#64697 Bij het aanmaken van planningsmeldingen, ook rekening houden met workflow.

Browse Source 
svn path=/Customer/trunk/; revision=50216
This commit is contained in:
Sander Schepers
2021-03-08 09:56:05 +00:00
parent 618425a24b
commit 6d1c302c1c
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
CSUN/CSUN.sql
View File

@@ -4271,10 +4271,13 @@ AS
WHERE UPPER (prs_perslid_email) = UPPER (m.aanvrageremail)),
4)
AS aanvrager_key,
l.alg_locatie_key
FROM csun_imp_planning m, alg_v_locatie_gegevens l
l.alg_locatie_key,
wf.mld_stdmelding_key as stdmelding_key,
wf.mld_workflowstep_key as workflowstep_key
FROM csun_imp_planning m, alg_v_locatie_gegevens l, mld_workflowstep wf
WHERE l.alg_locatie_code = m.alg_locatie_code
AND m.mld_melding_key IS NULL;
AND m.mld_stdmelding_key = wf.mld_stdmelding_key (+)
AND m.mld_melding_key IS NULL;
BEGIN
FOR recmld IN cmld
LOOP
@@ -4292,7 +4295,9 @@ BEGIN
mld_melding_spoed,
mld_melding_onderwerp,
mld_melding_omschrijving,
mld_melding_behandelaar_key)
mld_melding_behandelaar_key,
mld_melding_start_key,
mld_workflowstep_key)
VALUES (recmld.aanvrager_key,
'MLD',
6, --Bron = Systeem
@@ -4306,7 +4311,9 @@ BEGIN
3, --Prioriteit = Normaal
recmld.onderwerp,
recmld.omschrijving,
NULL) --Op verzoek (CSUN#59537) toch niet vullen
NULL, --Op verzoek (CSUN#59537) toch niet vullen
recmld.stdmelding_key,
recmld.workflowstep_key)
RETURNING mld_melding_key, mld_stdmelding_key, mld_melding_datum
INTO v_mld_melding_key,
v_mld_stdmelding_key,
@@ -4369,6 +4376,7 @@ EXCEPTION
END csun_update_planning;
/
--CSUN#59537
CREATE OR REPLACE PROCEDURE csun_export_planning (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
@@ -4487,9 +4495,6 @@ BEGIN
mld.updatemeldingstatus (v_mld_melding_key, 0, v_perslid_key);
-- Indien het een melding is die start is van een workflow, dan moeten ook de eerstvolgende stap(pen) aangemaakt worden.
mld.mld_nextworkflowstep (v_mld_melding_key, -1);
END IF;
END;
END LOOP;