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

PGHE#68684 -- Freeze testresultaten.

Browse Source 
svn path=/Customer/trunk/; revision=55405
This commit is contained in:
Arthur Egberink
2022-03-28 14:06:01 +00:00
parent 0a81e3f54d
commit 8890bf8458
1 changed files with 60 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
PCHX/pchx_mon.sql
View File

@@ -40,6 +40,12 @@ AS
FUNCTION get_max_korting (p_stdm_key IN NUMBER)
RETURN NUMBER;
FUNCTION get_abs_bedrag (p_bedrag IN NUMBER)
RETURN NUMBER;
FUNCTION check_max (p_bedrag IN NUMBER, p_max IN NUMBER)
RETURN NUMBER;
END;
/
@@ -495,6 +501,40 @@ AS
RETURN 0;
END;
-- functie om er voor te zorgen dat de korting in het overzicht alleen positief kan zijn.
-- Doordat de respijt langer kan zijn dan de WHT kan anders de korting negatief zijn.
FUNCTION get_abs_bedrag (p_bedrag IN NUMBER)
RETURN NUMBER
AS
BEGIN
IF p_bedrag > 0 THEN
RETURN p_bedrag;
END IF;
RETURN 0;
END;
FUNCTION check_max (p_bedrag IN NUMBER, p_max IN NUMBER)
RETURN NUMBER
AS
BEGIN
IF p_bedrag IS NULL
THEN
RETURN NULL;
END IF;
IF p_max IS NULL
THEN
RETURN p_bedrag;
END IF;
IF p_bedrag > p_max
THEN
RETURN p_max;
ELSE
RETURN p_bedrag;
END IF;
END;
END;
/
@@ -695,12 +735,13 @@ AS
bk basiskorting,
vk variabelekorting,
DECODE (telaat, 1, ROUND (g.uitloop.tijdsduur, 2)) wht_tht,
DECODE (
telaat,
1, -- Westland rond de breuk af op 1 decimaal en HGH rond af op gehele getallen. Gemeente Heerlen rond de breuk naar beneden af op gehele getallen.
coalesce(bk,0) + DECODE(vk, null, 0, (DECODE(pchx.get_user, 'PGHE' , TRUNC (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur)) * vk,
ROUND (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur), DECODE(pchx.get_user, 'PCHW', 1,0)) * vk))), -- Alleen als dagen x24!
NULL)
PCHX_MON.get_abs_bedrag (
DECODE (
telaat,
1, -- Westland rond de breuk af op 1 decimaal en HGH rond af op gehele getallen. Gemeente Heerlen rond de breuk naar beneden af op gehele getallen.
coalesce(bk,0) + DECODE(vk, null, 0, (DECODE(pchx.get_user, 'PGHE' , TRUNC (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur)) * vk,
ROUND (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur), DECODE(pchx.get_user, 'PCHW', 1,0)) * vk))), -- Alleen als dagen x24!
NULL))
totaal,
DECODE (
telaat_z_respijt,
@@ -709,21 +750,19 @@ AS
ROUND (g.uitloop_z_respijt.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur), DECODE(pchx.get_user, 'PCHW', 1,0)) * vk))), -- Alleen als dagen x24!
NULL)
totaal_z_respijt,
DECODE (pchx.get_user, 'PGHE' ,
DECODE (SIGN ( COALESCE(PCHX_MON.get_max_korting(mld_stdmelding_key), 100000000) -
DECODE (
telaat,
1,
(coalesce(bk,0) + DECODE(vk, null, 0, (TRUNC (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur)) * vk))) * -- Alleen als dagen x24!
wegingsfactor,
NULL)), -1, PCHX_MON.get_max_korting(mld_stdmelding_key),
(coalesce(bk,0) + DECODE(vk, null, 0, (TRUNC (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur)) * vk))) * -- Alleen als dagen x24!
wegingsfactor),
DECODE (
telaat,
1,
coalesce(bk,0) + DECODE(vk, null, 0, (ROUND (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur), DECODE(pchx.get_user, 'PCHW', 1,0)) * vk)), -- Alleen als dagen x24!
NULL) * PCHX_MON.get_index_value(t_van, 'MON'))
PCHX_MON.get_abs_bedrag (
DECODE (pchx.get_user, 'PGHE' ,
DECODE (
telaat,
1,
PCHX_MON.check_max(coalesce(bk,0) + DECODE(vk, null, 0, (TRUNC (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur)) * vk)) * -- Alleen als dagen x24!
wegingsfactor, PCHX_MON.get_max_korting(mld_stdmelding_key))),
DECODE (
telaat,
1,
coalesce(bk,0) + DECODE(vk, null, 0, (ROUND (g.uitloop.tijdsduur/DECODE(g.thtsla.tijdsduur, 0, 0.1, g.thtsla.tijdsduur), DECODE(pchx.get_user, 'PCHW', 1,0)) * vk)), -- Alleen als dagen x24!
NULL) * PCHX_MON.get_index_value(t_van, 'MON'))
)
totaal_index, -- voor PGHE is dit het totaal tov de max vergoeding en verminigvuldigd met de weging
(SELECT mld_statuses_omschrijving
FROM mld_statuses