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

CSUN#66826 Export planning liep in foutmelding doordat met status Nieuw niet (automatisch) opdrachten mogen worden aangemaakt.

Browse Source 
CSUN#66305 CSU UDR uitgebreid met kolommen.

svn path=/Customer/trunk/; revision=51253
This commit is contained in:
Sander Schepers
2021-05-04 21:43:49 +00:00
parent 0e7f011274
commit cd8c7e79bd
1 changed files with 51 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
CSUN/CSUN.sql
View File

@@ -1963,7 +1963,7 @@ AS
AND m.mld_melding_status = st.mld_statuses_key;
CREATE OR REPLACE FORCE VIEW CSUN_V_RAP_DISTRICTGEGEVENS
CREATE OR REPLACE VIEW CSUN_V_RAP_DISTRICTGEGEVENS
(
FCLT_F_BUSINESSUNIT,
DISTRICT,
@@ -3504,7 +3504,12 @@ CREATE OR REPLACE VIEW csun_v_udr_melding
klantspec_regio_indeling,
opdrachtnummer_csu,
akkoord_klant,
datum_afronding
datum_afronding,
accountcode,
fclt_f_client,
tijdstip,
afhandeltijd_dagen,
afhandeltijd_uren
)
AS
SELECT m."MELDING_KEY",
@@ -3632,8 +3637,14 @@ AS
fac.safe_to_number (mld_kenmerkmelding_waarde)
AND mk.mld_melding_key = m.melding_key)
akkoord_klant,
fac.gettrackingdate ('MLDAFR', m.melding_key)
FROM mld_v_udr_melding m;
fac.gettrackingdate ('MLDAFR', m.melding_key),
mc.accountcode,
mc.fclt_f_client,
mc.tijdstip,
mc.afhandeltijd_dagen,
mc.afhandeltijd_uren
FROM mld_v_udr_melding m, csun_v_rap_melding mc
WHERE mc.melding = m.melding_key;
-- CSUN#54801 Wanneer geen locatie bij mailmeldingen, dan ook niet de vakgroep herbepalen. Vervolgens notificatie.
CREATE OR REPLACE VIEW csun_v_rap_mldmail_nobo
@@ -4400,35 +4411,35 @@ AS
-- Haal alle meldingen op die nog in behandeling (status 0) staan en met kenmerk 'Planning melding' aan heeft. .
CURSOR cmld
IS
SELECT m.mld_melding_key,
m.mld_stdmelding_key,
m.mld_melding_onderwerp,
m.mld_melding_omschrijving,
m.mld_melding_datum,
m.mld_melding_einddatum,
m.mld_alg_locatie_key,
(SELECT DISTINCT (wf.mld_stdmelding_key)
FROM mld_workflowstep wf
WHERE m.mld_stdmelding_key = wf.mld_stdmelding_key(+)
AND wf.mld_workflowstep_start_key IS NULL)
AS stdmelding_key, --Alleen bij een startmelding van een workflow
(SELECT DISTINCT (wf.mld_workflowstep_key)
FROM mld_workflowstep wf
WHERE m.mld_stdmelding_key = wf.mld_stdmelding_key(+)
AND wf.mld_workflowstep_start_key IS NULL)
AS workflowstep_key --Alleen bij een startmelding van een workflow
FROM mld_melding m, mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND TRUNC (m.mld_melding_einddatum) <= TRUNC (SYSDATE) + 11
AND km.mld_kenmerk_key = 1301 --Kenmerk 'Import planning' (checkbox die bij het importeren op 1 wordt gezet zodat herkend wordt dat deze vanuit de import komt).
AND km.mld_kenmerkmelding_waarde = 1
AND m.mld_melding_status = 0;
SELECT m.mld_melding_key,
m.mld_stdmelding_key,
m.mld_melding_onderwerp,
m.mld_melding_omschrijving,
m.mld_melding_datum,
m.mld_melding_einddatum,
m.mld_alg_locatie_key,
(SELECT DISTINCT (wf.mld_stdmelding_key)
FROM mld_workflowstep wf
WHERE m.mld_stdmelding_key = wf.mld_stdmelding_key(+)
AND wf.mld_workflowstep_start_key IS NULL)
AS stdmelding_key, --Alleen bij een startmelding van een workflow
(SELECT DISTINCT (wf.mld_workflowstep_key)
FROM mld_workflowstep wf
WHERE m.mld_stdmelding_key = wf.mld_stdmelding_key(+)
AND wf.mld_workflowstep_start_key IS NULL)
AS workflowstep_key --Alleen bij een startmelding van een workflow
FROM mld_melding m, mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND TRUNC (m.mld_melding_einddatum) <= TRUNC (SYSDATE) + 11
AND km.mld_kenmerk_key = 1301 --Kenmerk 'Import planning' (checkbox die bij het importeren op 1 wordt gezet zodat herkend wordt dat deze vanuit de import komt).
AND km.mld_kenmerkmelding_waarde = 1
AND m.mld_melding_status = 0;
BEGIN
FOR recmld IN cmld
LOOP
BEGIN
UPDATE mld_melding
SET mld_melding_status = 2 --Nieuw ipv Frontoffice (0)
SET mld_melding_status = 2 --Nieuw ipv Frontoffice (0)
WHERE mld_melding_key = recmld.mld_melding_key
RETURNING mld_melding_key
INTO v_mld_melding_key;
@@ -4442,6 +4453,8 @@ BEGIN
v_errorhint := 'Select opdracht';
COMMIT;
-- Betreft het een workflowmelding?
IF recmld.stdmelding_key IS NOT NULL
THEN
@@ -4481,6 +4494,14 @@ BEGIN
THEN
v_errorhint := 'Insert opdracht';
--Eerst de melding in behandeling zetten, op status 0 of 2 kunnen geen opdrachten worden aangemaakt.
UPDATE mld_melding
SET mld_melding_status = 4 --Nieuw ipv Frontoffice (0)
WHERE mld_melding_key = recmld.mld_melding_key
RETURNING mld_melding_key
INTO v_mld_melding_key;
INSERT INTO mld_opdr (mld_uitvoerende_keys,
mld_opdr_kosten,
mld_opdr_uurloon,
@@ -4511,9 +4532,9 @@ BEGIN
1)
RETURNING mld_opdr_key
INTO v_opdr_key;
END IF;
mld.setopdrachtstatus (v_opdr_key, 5, v_perslid_key); -- Uitgegeven
mld.setopdrachtstatus (v_opdr_key, 5, v_perslid_key); -- Uitgegeven
END IF;
mld.updatemeldingstatus (v_mld_melding_key, 0, v_perslid_key);
END IF;