diff --git a/CSUN/CSUN.sql b/CSUN/CSUN.sql index 23df68a10..26acf5153 100644 --- a/CSUN/CSUN.sql +++ b/CSUN/CSUN.sql @@ -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;