PCHD#33780 -- Inrichting het Gelders Huis
svn path=/Customer/trunk/; revision=34358
This commit is contained in:
Arthur Egberink
@@ -18,8 +18,6 @@ SET DEFINE OFF
|
||||
------ payload begin ------
|
||||
|
||||
|
||||
|
||||
|
||||
-- Importfuncties onroerendgoed vanaf verdieping.
|
||||
CREATE OR REPLACE PROCEDURE pcha_import_onrgoed2 (p_import_key IN NUMBER)
|
||||
AS
|
||||
@@ -1336,7 +1334,29 @@ AS
|
||||
WHERE s.svd_type = u.fac_usrdata_code AND TRUNC (datum, 'Y') = TRUNC (SYSDATE, 'Y')
|
||||
GROUP BY u.fac_usrdata_prijs, svd_type;
|
||||
|
||||
-- Rapport met de diverse indexeringen
|
||||
CREATE OR REPLACE VIEW pcha_v_rap_indexering
|
||||
(
|
||||
omschrijving,
|
||||
jaar,
|
||||
jaar_1,
|
||||
jaar_2
|
||||
)
|
||||
AS
|
||||
SELECT omschrijving,
|
||||
ROUND (pchx_mon.get_index_value (SYSDATE, module), 5) jaar,
|
||||
ROUND (pchx_mon.get_index_value (ADD_MONTHS (SYSDATE, -12), module), 5) jaar_1,
|
||||
ROUND (pchx_mon.get_index_value (ADD_MONTHS (SYSDATE, -24), module), 5) jaar_2
|
||||
FROM (SELECT 'MON' module, 'Monitoring' omschrijving FROM DUAL
|
||||
UNION ALL
|
||||
SELECT 'SCH', 'Schoonmaak' FROM DUAL
|
||||
UNION ALL
|
||||
SELECT 'BEV', 'Beveiliging' FROM DUAL
|
||||
UNION ALL
|
||||
SELECT 'GLA', 'Gladheidsbestrijding' FROM DUAL);
|
||||
|
||||
-- Koppeling met Gebouw beheer systeem (GBS). Storingen komen via de mail binnen volgens
|
||||
-- vastgesteld formaat.
|
||||
CREATE OR REPLACE PROCEDURE pcha_processemail (pfrom IN VARCHAR2,
|
||||
pto IN VARCHAR2,
|
||||
psubject IN VARCHAR2,
|
||||
@@ -1363,7 +1383,8 @@ AS
|
||||
v_status VARCHAR2 (100);
|
||||
v_installatiecode VARCHAR2 (100);
|
||||
v_date DATE;
|
||||
v_sync_bericht NUMBER;
|
||||
v_sync_bericht6 NUMBER;
|
||||
v_sync_bericht8 NUMBER;
|
||||
v_count NUMBER;
|
||||
v_error NUMBER;
|
||||
v_errormsg VARCHAR2 (100);
|
||||
@@ -1378,7 +1399,8 @@ BEGIN
|
||||
errormsg := '(0x143)';
|
||||
v_error := 0;
|
||||
v_errormsg := '';
|
||||
v_sync_bericht := 0;
|
||||
v_sync_bericht6 := 0;
|
||||
v_sync_bericht8 := 0;
|
||||
|
||||
-- Verwijder de Bounce Address Tag Validation
|
||||
IF pfrom LIKE 'prvs=%'
|
||||
@@ -1432,46 +1454,16 @@ BEGIN
|
||||
v_onderwerp := SUBSTR (v_value, 1, 60);
|
||||
errormsg := '(0x1453)';
|
||||
|
||||
-- Eerst even kijken naar de sync berichten
|
||||
CASE TRIM (UPPER (v_value))
|
||||
WHEN 'CO2 TE HOOG'
|
||||
WHEN 'TESTFMISTC8'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'LUCHTKWALITEIT';
|
||||
v_discipline_omschrijving := 'COMFORT';
|
||||
WHEN 'REL RUIMTEVOCHT TE HOOG'
|
||||
v_sync_bericht8 := 1;
|
||||
v_error := 0;
|
||||
EXIT;
|
||||
WHEN 'TESTFMISTC6'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'LUCHTKWALITEIT';
|
||||
v_discipline_omschrijving := 'COMFORT';
|
||||
WHEN 'REL RUIMTEVOCHT TE LAAG'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'LUCHTKWALITEIT';
|
||||
v_discipline_omschrijving := 'COMFORT';
|
||||
WHEN 'TEMPERATUUR TE LAAG'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'THERMISCH COMFORT';
|
||||
v_discipline_omschrijving := 'COMFORT';
|
||||
WHEN 'TEMPERATUUR TE HOOG'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'THERMISCH COMFORT';
|
||||
v_discipline_omschrijving := 'COMFORT';
|
||||
WHEN 'KOUDESTRAAT TE WARM'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'THERMISCH COMFORT';
|
||||
v_discipline_omschrijving := 'COMFORT';
|
||||
WHEN 'CRAC UNIT 1'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'ELEKTROTECHNIEK';
|
||||
v_discipline_omschrijving := 'FUNCTIONALITEIT';
|
||||
WHEN 'CRAC UNIT 2'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'ELEKTROTECHNIEK';
|
||||
v_discipline_omschrijving := 'FUNCTIONALITEIT';
|
||||
WHEN 'WATEROVERLAST'
|
||||
THEN
|
||||
v_stdmelding_omschrijving := 'BOUWKUNDIG';
|
||||
v_discipline_omschrijving := 'FUNCTIONALITEIT';
|
||||
WHEN 'COMMUNICATIE IN ORDE'
|
||||
THEN
|
||||
v_sync_bericht := 1;
|
||||
v_sync_bericht6 := 1;
|
||||
v_error := 0;
|
||||
EXIT;
|
||||
ELSE
|
||||
@@ -1479,18 +1471,16 @@ BEGIN
|
||||
END CASE;
|
||||
|
||||
errormsg := '(0x1454)';
|
||||
|
||||
BEGIN
|
||||
SELECT mld_stdmelding_key
|
||||
-- Zoek omschrijving op in eigen tabel met key 221
|
||||
SELECT fac_usrdata_prijs
|
||||
INTO v_stdmelding_key
|
||||
FROM mld_stdmelding std, mld_discipline d, ins_srtdiscipline sd
|
||||
WHERE std.mld_ins_discipline_key = d.ins_discipline_key
|
||||
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
|
||||
AND UPPER (std.mld_stdmelding_omschrijving) = v_stdmelding_omschrijving
|
||||
AND UPPER (d.ins_discipline_omschrijving) = v_discipline_omschrijving
|
||||
AND UPPER (sd.ins_srtdiscipline_omschrijving) = 'STORING';
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrdata_verwijder IS NULL
|
||||
AND fac_usrdata_upper = TRIM (UPPER (v_value))
|
||||
AND fac_usrtab_key = 221;
|
||||
|
||||
EXCEPTION
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
v_error := 1;
|
||||
@@ -1534,7 +1524,7 @@ BEGIN
|
||||
END CASE;
|
||||
END LOOP;
|
||||
|
||||
IF v_error = 0 AND v_sync_bericht = 0
|
||||
IF v_error = 0 AND v_sync_bericht6 = 0 AND v_sync_bericht8 = 0
|
||||
THEN
|
||||
-- bepalen van de timestamp uit het emailbericht
|
||||
v_date := fac.safe_to_date(v_datum || ' ' || v_tijdstip, 'dd-mm-yyyy hh24:mi.ss');
|
||||
@@ -1673,11 +1663,16 @@ BEGIN
|
||||
v_errormsg,
|
||||
SUBSTR (pbody, 1, 1000));
|
||||
ELSE
|
||||
IF v_sync_bericht = 1
|
||||
IF v_sync_bericht6 = 1
|
||||
THEN
|
||||
UPDATE fac_usrdata
|
||||
SET fac_usrdata_vervaldatum = SYSDATE
|
||||
WHERE fac_usrdata_key = 41;
|
||||
ELSIF v_sync_bericht8 = 1
|
||||
THEN
|
||||
UPDATE fac_usrdata
|
||||
SET fac_usrdata_vervaldatum = SYSDATE
|
||||
WHERE fac_usrdata_key = 561;
|
||||
ELSE
|
||||
UPDATE fac_usrdata
|
||||
SET fac_usrdata_vervaldatum = SYSDATE
|
||||
|
||||
Reference in New Issue
Block a user