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

INLO#70153 -- foutmelding huurprolongatie

Browse Source 
svn path=/Customer/trunk/; revision=54253
This commit is contained in:
Arthur Egberink
2021-12-21 19:41:31 +00:00
parent e127950e88
commit 5b73683c95
1 changed files with 49 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
AA/INLO/inlo.sql
View File

@@ -391,7 +391,7 @@ AS
|| TO_CHAR (a.bez_afspraak_datum, 'dd-mm-yyyy')
WHEN a.res_rsv_ruimte_key is NOT NULL THEN
l.klant
||
||
(SELECT
' bevestigingmail afspraak '
|| TO_CHAR (a.bez_afspraak_datum, 'dd-mm-yyyy')
@@ -455,7 +455,7 @@ CREATE OR REPLACE VIEW INLO_V_RAP_RES_KORTING
KORTING_OPMERKING
)
AS
SELECT
SELECT
b.prs_bedrijf_naam,
v.prs_afdeling_key,
v.prs_afdeling_naam,
@@ -467,7 +467,7 @@ AS
k.korting_percentage,
k.korting_aantal,
k.korting_aantal_verbruikt,
fac.safe_to_number(COALESCE(k.korting_aantal, '0') - COALESCE(k.korting_aantal_verbruikt, '0'))
fac.safe_to_number(COALESCE(k.korting_aantal, '0') - COALESCE(k.korting_aantal_verbruikt, '0'))
korting_aantal_open,
k.korting_datum_verwerkt,
k.korting_opmerking
@@ -504,11 +504,11 @@ AS
(SELECT km2.prs_kenmerklink_waarde
FROM prs_kenmerklink km2
WHERE km2.prs_link_key = a.prs_afdeling_key AND km2.prs_kenmerk_key = 1154) -- opmerking
korting_opmerking
FROM prs_kenmerklink km, prs_afdeling a
korting_opmerking
FROM prs_kenmerklink km, prs_afdeling a
WHERE a.prs_afdeling_key = km.prs_link_key
AND km.prs_kenmerklink_niveau = 'A'
AND km.prs_kenmerk_key = 1140 -- Korting_Actief
AND km.prs_kenmerklink_niveau = 'A'
AND km.prs_kenmerk_key = 1140 -- Korting_Actief
) k
WHERE
b.prs_bedrijf_key = 482 -- GREENPORT VENLO
@@ -914,14 +914,14 @@ AS
ko.korting_datum_verwerkt,
to_number((res_rsv_ruimte_tot - res_rsv_ruimte_van)*24)
reservering_duur,
CASE WHEN v.soortreservering = 'Ruimte-reservering'
AND (COALESCE(rrr.res_rsv_ruimte_korting, 0) > 0 OR COALESCE(rrr.res_rsv_ruimte_totaal, 0) > 0 )
CASE WHEN v.soortreservering = 'Ruimte-reservering'
AND (COALESCE(rrr.res_rsv_ruimte_korting, 0) > 0 OR COALESCE(rrr.res_rsv_ruimte_totaal, 0) > 0 )
THEN 'ja'
WHEN v.soortreservering = 'Ruimte-reservering'
AND (COALESCE(rrr.res_rsv_ruimte_korting, 0) = 0 OR COALESCE(rrr.res_rsv_ruimte_totaal, 0) = 0 )
THEN 'nee'
ELSE 'nvt'
END
END
reservering_afspraakprijs,
ko.prs_afdeling_key,
ko.prs_kostenplaats_key
@@ -946,46 +946,46 @@ CREATE OR REPLACE PROCEDURE inlo_select_res (
p_applrun IN VARCHAR2
)
AS
CURSOR c_afdeling
CURSOR c_afdeling
IS
SELECT prs_afdeling_key, korting_aantal, korting_aantal_verbruikt, korting_aantal_open, sum(reservering_duur) som_reservering_duur
FROM inlo_v_rap_catering_export
WHERE soortreservering = 'Ruimte-reservering'
WHERE soortreservering = 'Ruimte-reservering'
AND status_fo = 'Definitief'
AND akkoord = 'Akkoord'
AND dirty = 'Nee'
AND korting_actief = 'ja'
AND korting_aantal_open > 0
AND korting_actief = 'ja'
AND korting_aantal_open > 0
AND reservering_afspraakprijs = 'nee'
AND TRUNC(datum) <= korting_einddatum -- reserveringsdatum moet voor de einddatum van de kortingsactie liggen
GROUP BY prs_afdeling_key, korting_aantal, korting_aantal_verbruikt, korting_aantal_open ;
CURSOR c_korting (p_afd_key NUMBER)
CURSOR c_korting (p_afd_key NUMBER)
IS
SELECT *
FROM inlo_v_rap_catering_export
WHERE soortreservering = 'Ruimte-reservering'
WHERE soortreservering = 'Ruimte-reservering'
AND status_fo = 'Definitief'
AND akkoord = 'Akkoord'
AND dirty = 'Nee'
AND korting_actief = 'ja'
AND korting_aantal_open > 0
AND korting_actief = 'ja'
AND korting_aantal_open > 0
AND reservering_afspraakprijs = 'nee'
AND TRUNC(datum) <= korting_einddatum -- reserveringsdatum moet voor de einddatum van de kortingsactie liggen
AND TRUNC(datum) <= korting_einddatum -- reserveringsdatum moet voor de einddatum van de kortingsactie liggen
AND prs_afdeling_key = p_afd_key
ORDER BY datum ASC ;
v_aanduiding VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000);
v_prs_afdeling_key NUMBER;
v_open NUMBER;
v_factor NUMBER;
v_korting NUMBER;
v_korting_verbruikt NUMBER;
v_korting NUMBER;
v_korting_verbruikt NUMBER;
v_korting_verbruikt_ini NUMBER;
v_korting_verbruikt_run NUMBER;
v_korting_open_ini NUMBER;
v_res_rsv_artikel_key NUMBER;
v_res_rsv_artikel_key NUMBER;
v_res_rsv_artikel_prijs NUMBER (10, 2);
v_logdate VARCHAR2 (100);
@@ -1000,14 +1000,14 @@ BEGIN
v_open := rec.korting_aantal_open ;
v_korting_verbruikt_ini := fac.safe_to_number (COALESCE(rec.korting_aantal_verbruikt, '0')) ;
v_korting_open_ini := fac.safe_to_number (COALESCE(rec.korting_aantal_open, '0')) ;
v_korting_verbruikt_run := rec.som_reservering_duur ;
v_korting_verbruikt_run := rec.som_reservering_duur ;
v_korting_verbruikt := 0;
FOR rec IN c_korting (v_prs_afdeling_key)
LOOP
BEGIN
v_open := v_open - rec.reservering_duur ;
-- eerst kortingsfactor bepalen
IF v_open < 0 THEN
@@ -1015,16 +1015,16 @@ BEGIN
ELSE
v_factor := 1 ;
END IF;
-- korting berekenen
v_korting := v_factor * (fac.safe_to_number(rec.korting_percentage/100)) * rec.prijs_ruimte ;
-- kortingsregel toevoegen aan de reservering als er 'budget en korting is
IF v_korting > 0 THEN
v_aanduiding := 'Korting op ruimteprijs ivm actuele kortingsactie ' || rec.korting_actie || '. Open: ' || TO_CHAR(v_open + rec.reservering_duur) || ' uur. Reserv-duur: ' || TO_CHAR(rec.reservering_duur) || ' uur. ' || 'Korting: ' || TO_CHAR(v_korting,'999.99') || ' euro.' ;
v_aanduiding := 'Korting op ruimteprijs ivm actuele kortingsactie ' || rec.korting_actie || '. Open: ' || TO_CHAR(v_open + rec.reservering_duur) || ' uur. Reserv-duur: ' || TO_CHAR(rec.reservering_duur) || ' uur. ' || 'Korting: ' || TO_CHAR(v_korting,'999.99') || ' euro.' ;
INSERT INTO res_rsv_artikel (res_artikel_key,
res_rsv_artikel_aantal,
res_rsv_ruimte_key,
@@ -1041,14 +1041,14 @@ BEGIN
)
RETURN res_rsv_artikel_key
INTO v_res_rsv_artikel_key;
-- Door Facilitor (4)
-- tracking toevoegen aan reservering
fac.trackaction ('#RESUPD', rec.ruimte_key, 4, NULL, v_aanduiding);
END IF;
END;
END LOOP;
@@ -1058,16 +1058,16 @@ BEGIN
IF v_korting_open_ini <= v_korting_verbruikt_run THEN
v_korting_verbruikt := rec.korting_aantal ;
ELSE
v_korting_verbruikt := v_korting_verbruikt_ini + v_korting_verbruikt_run ;
v_korting_verbruikt := v_korting_verbruikt_ini + v_korting_verbruikt_run ;
END IF;
prs.upsertkenmerk (1150, rec.prs_afdeling_key, v_korting_verbruikt) ;
prs.upsertkenmerk (1150, rec.prs_afdeling_key, v_korting_verbruikt) ;
-- 'korting_datum_verwerkt' key 1152
prs.upsertkenmerk (1152, rec.prs_afdeling_key, v_logdate) ;
prs.upsertkenmerk (1152, rec.prs_afdeling_key, v_logdate) ;
END;
END LOOP;
END;
@@ -1824,7 +1824,7 @@ AS
OR ( cp.cnt_alg_plaats_code = 'L'
AND cp.cnt_alg_plaats_key =
aog.alg_locatie_key)))) hs,
(SELECT cnt_contract_key, sum(fno_m2) fno_m2, sum(vvo_m2) vvo_m2
(SELECT cnt_contract_key, sum(fno_m2) fno_m2, sum(vvo_m2) vvo_m2
FROM inlo_v_rap_verhuur_geg
WHERE cnt_contract_key IS NOT NULL
GROUP BY cnt_contract_key) v
@@ -2007,7 +2007,7 @@ BEGIN
ELSE
aaxx_add_xml_row_p (v_bestand, v_prefix, '<Quantity>1</Quantity>');
END IF;
aaxx_add_xml_row_p (v_bestand, v_prefix, '<Unit code="pc"/>');
-- INLO#70153 aaxx_add_xml_row_p (v_bestand, v_prefix, '<Unit code="pc"/>');
aaxx_add_xml_row_p (v_bestand, v_prefix, '<NetPrice>');
aaxx_add_xml_row_p (v_bestand, v_prefix, '<Currency code="EUR" />');
aaxx_add_xml_element_p (v_bestand, v_prefix, 'Value', REPLACE (TO_CHAR (ABS(rec1.fin_verkoopfactuur_bedrag)), ',', '.'));
@@ -2135,15 +2135,15 @@ CREATE OR REPLACE VIEW inlo_v_rap_deviatie_goedkeur
mld_melding_key,
fclt_3d_user_key, -- prs_perslid_key van de goedkeurder (via rechten MLDBOF / MLDBO3 op desbetreffende vakgroep)
goedkeurder,
-- fclt_3d_afdeling_key, -- ook voor 3D-scoping op afdeling in meenemen voor DSM - ?
fclt_3d_discipline_key, -- vakgroep_key
-- fclt_3d_afdeling_key, -- ook voor 3D-scoping op afdeling in meenemen voor DSM - ?
fclt_3d_discipline_key, -- vakgroep_key
melding_nr, -- actie-meldingsnr met prefix
melding_start_key, -- meldingsnummer aanvraag
vakgroep, -- vakgroep_naam
status, -- nieuw
datum, -- datum mld_goedkeuring
datum_m1, -- datum mld_start
aanvrager,
aanvrager,
omschrijving,
opmerking,
opmerking_m1, -- opmerking mld_start
@@ -2172,7 +2172,7 @@ AS
pf.prs_perslid_naam
goedkeurder,
md.ins_discipline_key
fclt_3d_discipline_key,
fclt_3d_discipline_key,
sd.ins_srtdiscipline_prefix || to_char(m.mld_melding_key)
melding_nr,
m.mld_melding_start_key
@@ -2282,7 +2282,7 @@ AS
FROM mld_kenmerkmelding mkm, mld_kenmerk k
WHERE mkm.mld_melding_key = m.mld_melding_key
AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 503)
AND k.mld_srtkenmerk_key = 503)
impact_derden_wat,
(SELECT fu.fac_usrdata_omschr
FROM mld_kenmerkmelding mkm,
@@ -2321,11 +2321,11 @@ AS
prs_perslid p
WHERE gg.fac_groep_key = g.fac_groep_key
AND g.fac_groep_key = gr.fac_groep_key
AND gg.prs_perslid_key = p.prs_perslid_key
AND gg.prs_perslid_key = p.prs_perslid_key
AND gr.fac_functie_key = f.fac_functie_key
AND gr.ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = 241
AND INSTR(lower(md.ins_discipline_omschrijving),'goedkeuring') > 0
AND INSTR(lower(md.ins_discipline_omschrijving),'goedkeuring') > 0
AND gr.fac_functie_key = 29 -- MLDBOF
GROUP BY gr.ins_discipline_key, gg.prs_perslid_key, p.prs_perslid_naam
) pf -- p-fiatteur
@@ -2333,14 +2333,14 @@ AS
AND m.mld_melding_start_key = m1.mld_melding_key
AND m1.mld_melding_status = 4 -- Lopende aanvraag
AND m.mld_melding_status in (2, 4) -- Moet in principe nieuw (2) zijn om nog te kunnen annuleren
-- Indien toch in behandeling (4) genomen dan wel opnemen maar in styling annuleren disablen
-- Indien toch in behandeling (4) genomen dan wel opnemen maar in styling annuleren disablen
AND m.prs_perslid_key = p.prs_perslid_key
-- AND p.prs_afdeling_key = ab.prs_afdeling_key AND ab.prs_afdeling_key1 = a.prs_afdeling_key
AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND md.ins_discipline_key = s.mld_ins_discipline_key
AND md.ins_discipline_key = mdp.mld_ins_discipline_key
AND sd.ins_srtdiscipline_key = 241 -- vakgroeptype Deviaties
AND INSTR(lower(md.ins_discipline_omschrijving),'goedkeuring') > 0 -- daarbinnen alle vakgroepen tbv goedkeuring
AND INSTR(lower(md.ins_discipline_omschrijving),'goedkeuring') > 0 -- daarbinnen alle vakgroepen tbv goedkeuring
AND md.ins_discipline_key = pf.ins_discipline_key ;