CSUN#51768 Planning melding aanpassen: aanvrager toevoegen via email en langere omschrijving
svn path=/Customer/trunk/; revision=45282
This commit is contained in:
Sander Schepers
@@ -571,6 +571,7 @@ SELECT DISTINCT mld_melding_key, prs_perslid_email
|
||||
AND fac.safe_to_number (prs_kenmerklink_waarde) = 1
|
||||
AND kl.prs_link_key = p.prs_perslid_key
|
||||
AND p.prs_perslid_email IS NOT NULL
|
||||
--AND p.prs_perslid_verwijder IS NULL
|
||||
UNION ALL
|
||||
SELECT m.mld_melding_key, prs_perslid_email, mld_melding_status
|
||||
FROM prs_perslid p,
|
||||
@@ -584,7 +585,9 @@ SELECT DISTINCT mld_melding_key, prs_perslid_email
|
||||
AND prs_kenmerk_key = 1100 -- notificatie enable vinkje
|
||||
AND fac.safe_to_number (prs_kenmerklink_waarde) = 1
|
||||
AND kl.prs_link_key = p.prs_perslid_key
|
||||
AND p.prs_perslid_email IS NOT NULL) g
|
||||
AND p.prs_perslid_email IS NOT NULL
|
||||
--AND p.prs_perslid_verwijder IS NULL
|
||||
) g
|
||||
WHERE g.mld_melding_status IN (0, 2, 3, 4, 7)
|
||||
AND NOT EXISTS
|
||||
(SELECT ft.fac_tracking_key
|
||||
@@ -3486,6 +3489,7 @@ IS
|
||||
v_uitvoerweek VARCHAR (256);
|
||||
v_onderwerp VARCHAR (256);
|
||||
v_omschrijving VARCHAR (256);
|
||||
v_aanvrageremail VARCHAR (256);
|
||||
|
||||
CURSOR c
|
||||
IS
|
||||
@@ -3510,14 +3514,13 @@ BEGIN
|
||||
v_errorhint := 'Fout bij opvragen te importeren rij';
|
||||
v_ongeldig := 0;
|
||||
|
||||
IF SUBSTR (v_newline, 1, 3) = ''
|
||||
IF SUBSTR (v_newline, 1, 3) = ''
|
||||
THEN
|
||||
-- EF BB BF aangetroffen
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
'Byte Order Mark aangetroffen',
|
||||
'Bestand heeft onbehandeld UTF-8 formaat.'
|
||||
);
|
||||
'Bestand heeft onbehandeld UTF-8 formaat.');
|
||||
v_newline := SUBSTR (v_newline, 4);
|
||||
END IF;
|
||||
|
||||
@@ -3530,6 +3533,7 @@ BEGIN
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_uitvoerweek); -- Uitvoerweek
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_onderwerp); -- Onderwerp
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_omschrijving); -- Omschrijving
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_aanvrageremail); --Emailadres aanvrager
|
||||
|
||||
IF (fac.safe_to_number (v_uitvoerweek) < 10)
|
||||
THEN
|
||||
@@ -3561,6 +3565,7 @@ BEGIN
|
||||
AND UPPER (v_uitvoerweek) = 'UITVOERWEEK'
|
||||
AND UPPER (v_onderwerp) = 'ONDERWERP' --Lengte max 80
|
||||
AND UPPER (v_omschrijving) = 'OMSCHRIJVING' --Lengte max 4000
|
||||
AND UPPER (v_aanvrageremail) = 'AANVRAGEREMAIL' --Lengte max 4000
|
||||
THEN
|
||||
header_is_valid := 1;
|
||||
END IF;
|
||||
@@ -3626,7 +3631,7 @@ BEGIN
|
||||
|
||||
IF LENGTH (v_omschrijving) > 4000
|
||||
THEN
|
||||
v_onderwerp := SUBSTR (v_omschrijving, 1, 4000);
|
||||
v_omschrijving := SUBSTR (v_omschrijving, 1, 4000);
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'W',
|
||||
@@ -3636,6 +3641,18 @@ BEGIN
|
||||
|| ']');
|
||||
END IF;
|
||||
|
||||
IF LENGTH (v_aanvrageremail) > 200
|
||||
THEN
|
||||
v_aanvrageremail := SUBSTR (v_aanvrageremail, 1, 200);
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'W',
|
||||
v_aanduiding || 'Emailadres aanvrager te lang',
|
||||
'Emailadres aanvrager wordt afgebroken tot ['
|
||||
|| v_aanvrageremail
|
||||
|| ']');
|
||||
END IF;
|
||||
|
||||
IF LENGTH (v_alg_locatie_oms) > 60
|
||||
THEN
|
||||
v_alg_locatie_oms := SUBSTR (v_alg_locatie_oms, 1, 60);
|
||||
@@ -3659,7 +3676,8 @@ BEGIN
|
||||
uitvoerweek,
|
||||
uitvoerjaar,
|
||||
onderwerp,
|
||||
omschrijving)
|
||||
omschrijving,
|
||||
aanvrageremail)
|
||||
VALUES (v_fac_import_key,
|
||||
v_fac_import_index,
|
||||
SYSDATE,
|
||||
@@ -3675,7 +3693,8 @@ BEGIN
|
||||
v_uitvoerweek,
|
||||
v_uitvoerjaar,
|
||||
v_onderwerp,
|
||||
v_omschrijving);
|
||||
v_omschrijving,
|
||||
v_aanvrageremail);
|
||||
|
||||
COMMIT;
|
||||
|
||||
@@ -3761,6 +3780,7 @@ BEGIN
|
||||
uitvoerjaar,
|
||||
onderwerp,
|
||||
omschrijving,
|
||||
aanvrageremail,
|
||||
mld_melding_key)
|
||||
SELECT fac_import_key,
|
||||
fac_import_index,
|
||||
@@ -3775,6 +3795,7 @@ BEGIN
|
||||
uitvoerjaar,
|
||||
onderwerp,
|
||||
omschrijving,
|
||||
aanvrageremail,
|
||||
mld_melding_key
|
||||
FROM csun_imp_mld imp, alg_locatie l
|
||||
WHERE l.alg_locatie_code = imp.alg_locatie_code
|
||||
@@ -3791,6 +3812,7 @@ BEGIN
|
||||
uitvoerjaar,
|
||||
onderwerp,
|
||||
omschrijving,
|
||||
aanvrageremail,
|
||||
mld_melding_key;
|
||||
END;
|
||||
/
|
||||
@@ -3808,6 +3830,7 @@ AS
|
||||
v_mld_melding_datum DATE;
|
||||
v_opdr_key NUMBER (10);
|
||||
v_perslid_key NUMBER (10) := 4; -- Facilitor
|
||||
v_aanvrager_key NUMBER (10);
|
||||
v_stdmelding_autoorder VARCHAR2 (200);
|
||||
v_dienst_key NUMBER (10);
|
||||
v_typeopdr_key NUMBER (10);
|
||||
@@ -3822,7 +3845,13 @@ AS
|
||||
WHERE km.alg_onrgoed_niveau = 'D'
|
||||
AND km.alg_kenmerk_key = 1300 --Kenmerk bij district : Medewerker bedrijfsbureau
|
||||
AND km.alg_onrgoed_key = l.alg_district_key)
|
||||
AS mld_behandelaar_key
|
||||
AS mld_behandelaar_key,
|
||||
COALESCE (
|
||||
(SELECT MAX (prs_perslid_key) --prs_perslid_key van geimporteerde emailadres of anders Facilitor (perslid_key 4)
|
||||
FROM prs_perslid
|
||||
WHERE UPPER (prs_perslid_email) = UPPER (m.aanvrageremail)),
|
||||
4)
|
||||
AS aanvrager_key
|
||||
FROM csun_imp_mld2 m, alg_v_locatie_gegevens l
|
||||
WHERE l.alg_locatie_key = m.alg_locatie_key
|
||||
AND TRUNC (m.uitvoerdatum) <= TRUNC (SYSDATE) + 11
|
||||
@@ -3843,7 +3872,7 @@ BEGIN
|
||||
mld_melding_onderwerp,
|
||||
mld_melding_omschrijving,
|
||||
mld_melding_behandelaar_key)
|
||||
VALUES (v_perslid_key,
|
||||
VALUES (recmld.aanvrager_key,
|
||||
'MLD',
|
||||
6, --Bron = Systeem
|
||||
recmld.alg_locatie_key,
|
||||
|
||||
Reference in New Issue
Block a user