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

PCHA#64425 Aanpassing GBS import (meldingen zonder korting)

Browse Source 
svn path=/Customer/trunk/; revision=49324
This commit is contained in:
Sander Schepers
2021-01-04 16:27:35 +00:00
parent fa061dc67e
commit 498825a0d1
1 changed files with 37 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
PCHA/pcha.sql
View File

@@ -1460,6 +1460,7 @@ AS
v_tijdstip VARCHAR2 (100);
v_status VARCHAR2 (100);
v_installatiecode VARCHAR2 (100);
v_meldingstekst VARCHAR2 (100);
v_date DATE;
v_sync_bericht6 NUMBER;
v_sync_bericht8 NUMBER;
@@ -1529,21 +1530,18 @@ BEGIN
-- NULL);
errormsg := '(0x1452)';
-- PCHA#64425: Bepalen welke vakgroeptype de melding in moet gaan (wel of niet korting)
CASE v_tag
-- PCHA#64425: Bepalen welke vakgroeptype de melding in moet gaan (wel of niet korting), Meldingsgroep "FMIS COMFORT" = geen korting
WHEN 'MELDINGSGROEP'
THEN
CASE TRIM (UPPER (v_value))
WHEN 'FMIS COMFORT'
THEN
v_korting := 0;
END CASE;
END CASE;
CASE v_tag
IF v_value = 'FMIS COMFORT'
THEN
v_korting := 0;
END IF;
WHEN 'MELDINGSTEKST'
THEN
v_onderwerp := SUBSTR (v_value, 1, 60);
v_meldingstekst := TRIM (v_value);
errormsg := '(0x1453)';
-- Eerst even kijken naar de sync berichten
@@ -1563,37 +1561,6 @@ BEGIN
END CASE;
errormsg := '(0x1454)';
BEGIN
-- Zoek omschrijving op in eigen tabel met key 221 (met korting) of 501 (zonder korting)
CASE v_korting
WHEN 0
THEN
SELECT fac_usrdata_prijs
INTO v_stdmelding_key
FROM fac_usrdata
WHERE fac_usrdata_verwijder IS NULL
AND fac_usrdata_upper =
TRIM (UPPER (v_value))
AND fac_usrtab_key = 501; -- Hier staat de verwijzing naar de Stdmeldingen zonder korting
WHEN 1
THEN
SELECT fac_usrdata_prijs
INTO v_stdmelding_key
FROM fac_usrdata
WHERE fac_usrdata_verwijder IS NULL
AND fac_usrdata_upper =
TRIM (UPPER (v_value))
AND fac_usrtab_key = 221; -- Hier staat de verwijzing naar de Stdmeldingen met korting
END CASE;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error := 1;
v_errormsg :=
'Standaard melding kan niet gevonden worden: '
|| v_value;
END;
WHEN 'INUIT'
THEN
v_inuit := UPPER (TRIM (v_value));
@@ -1639,6 +1606,35 @@ BEGIN
IF v_error = 0 AND v_sync_bericht6 = 0 AND v_sync_bericht8 = 0
THEN
BEGIN
-- Zoek omschrijving op in eigen tabel met key 221 (met korting) of 501 (zonder korting)
CASE v_korting
WHEN 0
THEN
SELECT fac_usrdata_prijs
INTO v_stdmelding_key
FROM fac_usrdata
WHERE fac_usrdata_verwijder IS NULL
AND fac_usrdata_upper = TRIM (UPPER (v_meldingstekst))
AND fac_usrtab_key = 501; -- Hier staat de verwijzing naar de Stdmeldingen ZONDER korting
WHEN 1
THEN
SELECT fac_usrdata_prijs
INTO v_stdmelding_key
FROM fac_usrdata
WHERE fac_usrdata_verwijder IS NULL
AND fac_usrdata_upper = TRIM (UPPER (v_meldingstekst))
AND fac_usrtab_key = 221; -- Hier staat de verwijzing naar de Stdmeldingen MET korting
END CASE;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_error := 1;
v_errormsg :=
'Standaard melding kan niet gevonden worden: '
|| v_value;
END;
-- bepalen van de timestamp uit het emailbericht
v_date :=
fac.safe_to_date (v_datum || ' ' || v_tijdstip,
@@ -1858,6 +1854,7 @@ EXCEPTION
WHEN OTHERS
THEN
-- DBMS_OUTPUT.PUT_LINE('Mail niet geaccepteerd: ' || 'OTHERS (error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')');
INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam,
fac_result_waarde)
@@ -1882,7 +1879,6 @@ EXCEPTION
END;
/
--Klant specifieke view voor het tonen van het totaal korting per kwartaal per onderwerp
CREATE OR REPLACE VIEW pcha_v_totaal_korting_ond
(