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

PGHE#73509 -- Vervolmaken inrichting Heerlen

Browse Source 
svn path=/Customer/trunk/; revision=64081
This commit is contained in:
Arthur Egberink
2024-03-28 13:48:57 +00:00
parent 5fc9269eac
commit 897e154f25
1 changed files with 22 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
PGHE/pghe.sql
View File

@@ -121,6 +121,13 @@ AS
FROM fac_rapport
WHERE fac_rapport_node = 'GBS_MELDING';
DELETE fac_rapport WHERE fac_rapport_node = 'GBS_MELDING' AND fac_rapport_volgnr IS NULL;
IF v_volgnr IS NULL
THEN
v_volgnr := 1;
END IF;
v_errorhint := 'Bewaar mail ' || v_volgnr;
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES ('GBS_MELDING', v_volgnr + 1, pfrom || CHR (10) || psubject || CHR (10) || v_omschrijving);
@@ -159,71 +166,26 @@ AS
v_errorhint := 'Tag: ' || v_tag;
IF v_tag = 'GbsMeldingUit'
THEN
-- dan gaan we alle GBS meldingen afmelden
FOR rec IN c
LOOP
v_errorhint := 'Opzoeken status';
SELECT mld_melding_status
INTO v_melding_status
FROM mld_melding
WHERE mld_melding_key = rec.mld_melding_key;
-- Als status is nieuw of te accepteren dan eerst op geaccepteerd zetten.
IF v_melding_status = 2 OR v_melding_status = 3
THEN
v_errorhint := 'Accepteren melding';
-- melding op geaccepteerd zetten.
mld.setmeldingstatus (rec.mld_melding_key, 4, v_sender);
END IF;
-- nu de status op afgemeld zetten.
v_errorhint := 'Afmelden melding';
mld.setmeldingstatus (rec.mld_melding_key, 5, v_sender);
v_errorhint := 'Einddatum aanpassen';
fac.backtrackaction ('MLDAFM',
rec.mld_melding_key,
v_sender,
v_date);
-- Vul het kenmerk Bedrijf (malus) met de waarde van Homij uit de eigen tabel
-- mld.upsertmeldingkenmerk (61, v_melding_key, 182);
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
VALUES (psessionid,
'maillog',
'Melding '
|| v_melding_key
|| ' is afgemeld, aantal gevonden '
|| v_count
|| ' Details: '
|| v_melding_status
|| ';'
|| v_onderwerp);
END LOOP;
-- Afmeldingen worden handmatig uitgevoerd omdat het GBS alleen maar een algemen afmelding kan sturen
-- als alle storing verholpen zijn.
NULL;
ELSE
SELECT fac_usrdata_prijs, fac_usrdata_omschr
INTO v_stdmelding_key, v_std_ruimte_nr
FROM fac_usrdata ud
WHERE fac_usrtab_key = 20
AND fac_usrdata_code = v_tag;
BEGIN
-- Zoek het ruimtenummer dat we ontvangen hebben. Als het Algemeen is gaan we dat natuurlijk niet vinden.
SELECT alg_ruimte_key, alg_locatie_key, alg_srtruimte_key
INTO v_ruimte_key, v_locatie_key, v_srtruimte_key
FROM alg_v_ruimte_gegevens
WHERE alg_ruimte_nr = v_ruimte_nr;
EXCEPTION WHEN NO_DATA_FOUND
THEN
SELECT fac_usrdata_prijs, fac_usrdata_omschr
INTO v_stdmelding_key, v_std_ruimte_nr
FROM fac_usrdata ud
WHERE fac_usrtab_key = 20
AND UPPER(fac_usrdata_omschr2) = UPPER(TRIM(v_gbs_melding));
-- Zoek het ruimtenummer nav het nummer dat in de eigentabel staat.
SELECT alg_ruimte_key, alg_locatie_key, alg_srtruimte_key
INTO v_ruimte_key, v_locatie_key, v_srtruimte_key
FROM alg_v_ruimte_gegevens
WHERE alg_ruimte_nr = v_std_ruimte_nr;
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_stdmelding_key := 727; -- Onbekend bericht
v_ruimte_key := 924; -- RH0.99
END;
-- Kijk of er al een melding actief is met dezelfde stdmelding_key en meldbron 6 (System)
@@ -237,6 +199,7 @@ AS
IF v_count = 0
THEN
/* IS DIT NODIG???????????????????
-- nu gaan we de hersteltijd bepalen
v_errormsg := '(0x147)';
@@ -256,7 +219,7 @@ AS
FROM mld_stdmelding
WHERE mld_stdmelding_key = v_stdmelding_key;
END;
*/
v_errormsg := 'Melding kan niet aangemaakt worden (0x1481)';
INSERT INTO mld_melding (mld_melding_module,
@@ -265,7 +228,6 @@ AS
mld_melding_onderwerp,
mld_melding_omschrijving,
mld_melding_status,
mld_melding_t_uitvoertijd,
mld_stdmelding_key,
prs_perslid_key,
prs_perslid_key_voor,
@@ -279,7 +241,6 @@ AS
v_onderwerp,
v_omschrijving,
NULL,
v_uitvoertijd,
v_stdmelding_key,
v_sender,
v_sender,