AAXX#73621 -- Koppeling GoBright en Facilitor
svn path=/Customer/trunk/; revision=58562
This commit is contained in:
Arthur Egberink
221
AA/INLO/inlo.sql
221
AA/INLO/inlo.sql
@@ -127,7 +127,7 @@ END;
|
||||
-- processemail --
|
||||
--- voor heyday loopt dit standaard via aaxx_processemail
|
||||
--- voor Greenport Venlo loopt dit via die weg..
|
||||
--- voor Landmark via onderstaande inlo_processemail omdat deze mail-meldingen op andere meldingsstroom binnen moeten komen (zie ticket AAXX#73751)
|
||||
--- voor Landmark via onderstaande inlo_processemail omdat deze mail-meldingen op andere meldingsstroom binnen moeten komen (zie ticket AAXX#73751)
|
||||
|
||||
CREATE OR REPLACE PROCEDURE inlo_processemail (
|
||||
pfrom IN VARCHAR2,
|
||||
@@ -672,7 +672,7 @@ AS
|
||||
klant
|
||||
FROM prs_v_perslid_fullnames pf,
|
||||
prs_perslid p,
|
||||
prs_v_afdeling_fullnames a,
|
||||
prs_v_afdeling_fullnames a,
|
||||
prs_bedrijf b,
|
||||
(SELECT x.prs_perslid_key, x.klant
|
||||
FROM (SELECT prs_perslid_key,
|
||||
@@ -709,7 +709,7 @@ AS
|
||||
prs_perslid_key,
|
||||
'P'))
|
||||
klant
|
||||
FROM prs_perslid
|
||||
FROM prs_perslid
|
||||
UNION
|
||||
SELECT prs_perslid_key,
|
||||
flx.getdomeinwaarde (481,
|
||||
@@ -718,7 +718,7 @@ AS
|
||||
prs_perslid_key,
|
||||
'P'))
|
||||
klant
|
||||
FROM prs_perslid
|
||||
FROM prs_perslid
|
||||
) x
|
||||
WHERE x.klant IS NOT NULL) v
|
||||
WHERE p.prs_perslid_key = pf.prs_perslid_key
|
||||
@@ -763,7 +763,7 @@ AS
|
||||
FROM aaxx_v_klantcode_gebouw v, alg_gebouw g, alg_locatie l
|
||||
WHERE v.alg_gebouw_key = g.alg_gebouw_key
|
||||
AND g.alg_locatie_key = l.alg_locatie_key
|
||||
AND g.alg_gebouw_verwijder IS NULL AND l.alg_locatie_verwijder IS NULL;
|
||||
AND g.alg_gebouw_verwijder IS NULL AND l.alg_locatie_verwijder IS NULL;
|
||||
|
||||
-- BASISVIEW - Per perslid_key de actuele werkplekkoppeling
|
||||
CREATE OR REPLACE VIEW inlo_v_persoon_klanten_wp_2
|
||||
@@ -978,7 +978,7 @@ AS
|
||||
v_prs_perslid_key NUMBER;
|
||||
v_datum_sync VARCHAR2 (30);
|
||||
v_alg_ruimte_key NUMBER;
|
||||
|
||||
|
||||
BEGIN
|
||||
v_datum_sync := TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss');
|
||||
|
||||
@@ -1045,7 +1045,7 @@ BEGIN
|
||||
|| TO_CHAR (rec.prs_perslid_key)
|
||||
|| ' , werkplek_key: '
|
||||
|| TO_CHAR (rec.prs_werkplek_key);
|
||||
|
||||
|
||||
DELETE prs_werkplek
|
||||
WHERE prs_werkplek_key = rec.prs_werkplek_key;
|
||||
END IF;
|
||||
@@ -1512,7 +1512,7 @@ AS
|
||||
AND v.status_bo = 'Verwerkt'
|
||||
AND v.artikel_afgemeld + v.voorziening_afgemeld = v.artikel_totaal + v.voorziening_totaal
|
||||
THEN
|
||||
'afgemeld - totaal (*)' -- De catering staat nog open en zal via bijv bundeling catering verwerkt gaan worden
|
||||
'afgemeld - totaal (*)' -- De catering staat nog open en zal via bijv bundeling catering verwerkt gaan worden
|
||||
WHEN v.soortreservering = 'Ruimte-reservering'
|
||||
AND ( ( v.status_bo = 'Afgemeld'
|
||||
AND v.artikel_afgemeld + v.voorziening_afgemeld < v.artikel_totaal + v.voorziening_totaal)
|
||||
@@ -1623,7 +1623,7 @@ CREATE OR REPLACE VIEW INLO_V_RES_DETAIL
|
||||
KOSTENPLAATS_KEY,
|
||||
KOSTENPLAATS,
|
||||
-- de reservering
|
||||
CATALOGUS,
|
||||
CATALOGUS,
|
||||
STATUS_FO,
|
||||
STATUS_BO,
|
||||
RES_RSV_RUIMTE_KEY,
|
||||
@@ -1683,7 +1683,7 @@ AS
|
||||
rg.omschrijving,
|
||||
rg.van,
|
||||
rg.tot,
|
||||
to_number((rg.tot - rg.van)*24)
|
||||
to_number((rg.tot - rg.van)*24)
|
||||
reservering_duur,
|
||||
CASE
|
||||
WHEN rg.alg_ruimte_key IS NULL
|
||||
@@ -1712,9 +1712,9 @@ AS
|
||||
'kreek onbekend'
|
||||
),
|
||||
NULL)
|
||||
soort_kreek,
|
||||
soort_kreek,
|
||||
rg.artikel,
|
||||
CASE WHEN rg.artikel = 'Ruimte'
|
||||
CASE WHEN rg.artikel = 'Ruimte'
|
||||
THEN ''
|
||||
ELSE (SELECT st.res_status_bo_omschrijving FROM res_status_bo st WHERE st.res_status_bo_key = rg.status_art)
|
||||
END
|
||||
@@ -1754,7 +1754,7 @@ AS
|
||||
AND kw.res_kenmerkwaarde_verwijder IS NULL
|
||||
AND k.res_kenmerk_verwijder IS NULL
|
||||
AND k.res_srtkenmerk_key = 261),1,'Contant betaald','')
|
||||
contant_betaald, -- cust kreek
|
||||
contant_betaald, -- cust kreek
|
||||
(SELECT prs_kenmerklink_waarde
|
||||
FROM prs_kenmerklink
|
||||
WHERE prs_kenmerklink_niveau = 'P'
|
||||
@@ -1787,9 +1787,9 @@ AS
|
||||
1 volgorde,
|
||||
0 status_art,
|
||||
COALESCE(d.ins_discipline_omschrijving, 'nvt') catalogus,
|
||||
d.ins_discipline_key catalogus_key
|
||||
d.ins_discipline_key catalogus_key
|
||||
FROM res_rsv_ruimte rrr, res_activiteit act, res_srtactiviteit srt,
|
||||
(SELECT rog.res_ruimte_opstel_key, d.ins_discipline_omschrijving, d.ins_discipline_key
|
||||
(SELECT rog.res_ruimte_opstel_key, d.ins_discipline_omschrijving, d.ins_discipline_key
|
||||
FROM res_v_ruimte_opstel_gegevens rog, res_ruimte rr, ins_tab_discipline d
|
||||
WHERE rog.res_ruimte_key = rr.res_ruimte_key
|
||||
AND rr.res_discipline_key = d.ins_discipline_key
|
||||
@@ -1819,12 +1819,12 @@ AS
|
||||
2 volgorde,
|
||||
rra.res_status_bo_key status_art,
|
||||
d.ins_discipline_omschrijving catalogus,
|
||||
d.ins_discipline_key catalogus_key
|
||||
d.ins_discipline_key catalogus_key
|
||||
FROM res_rsv_ruimte rrr, res_rsv_artikel rra, res_artikel ra, res_activiteit act, res_srtactiviteit srt, ins_tab_discipline d
|
||||
WHERE rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
|
||||
AND rra.res_artikel_key = ra.res_artikel_key
|
||||
AND rrr.res_rsv_ruimte_verwijder IS NULL
|
||||
AND rrr.res_status_fo_key in (1,2,4)
|
||||
AND rrr.res_status_fo_key in (1,2,4)
|
||||
AND rrr.res_activiteit_key = act.res_activiteit_key AND act.res_srtactiviteit_key = srt.res_srtactiviteit_key
|
||||
AND ra.res_discipline_key = d.ins_discipline_key AND d.ins_discipline_module = 'RES'
|
||||
UNION ALL
|
||||
@@ -1850,12 +1850,12 @@ AS
|
||||
2 volgorde,
|
||||
rrd.res_status_bo_key status_art,
|
||||
d.ins_discipline_omschrijving catalogus,
|
||||
d.ins_discipline_key catalogus_key
|
||||
d.ins_discipline_key catalogus_key
|
||||
FROM res_rsv_ruimte rrr, res_rsv_deel rrd, res_deel rd, res_activiteit act, res_srtactiviteit srt, ins_tab_discipline d
|
||||
WHERE rrr.res_rsv_ruimte_key = rrd.res_rsv_ruimte_key
|
||||
AND rrd.res_deel_key = rd.res_deel_key
|
||||
AND rrr.res_rsv_ruimte_verwijder IS NULL
|
||||
AND rrr.res_status_fo_key in (1,2,4)
|
||||
AND rrr.res_status_fo_key in (1,2,4)
|
||||
AND rrr.res_activiteit_key = act.res_activiteit_key AND act.res_srtactiviteit_key = srt.res_srtactiviteit_key
|
||||
AND rd.res_discipline_key = d.ins_discipline_key AND d.ins_discipline_module = 'RES'
|
||||
) rg,
|
||||
@@ -2001,7 +2001,7 @@ AS
|
||||
AND kw.res_kenmerkwaarde_verwijder IS NULL
|
||||
AND k.res_kenmerk_verwijder IS NULL
|
||||
AND k.res_srtkenmerk_key = 221),1,'Akkoord','')
|
||||
akkoord, -- cust gv
|
||||
akkoord, -- cust gv
|
||||
DECODE((SELECT kw.res_kenmerkreservering_waarde
|
||||
FROM res_kenmerkwaarde kw, res_kenmerk k
|
||||
WHERE kw.res_rsv_ruimte_key = v.res_rsv_ruimte_key
|
||||
@@ -2009,7 +2009,7 @@ AS
|
||||
AND kw.res_kenmerkwaarde_verwijder IS NULL
|
||||
AND k.res_kenmerk_verwijder IS NULL
|
||||
AND k.res_srtkenmerk_key = 261),1,'Contant betaald','')
|
||||
contant_betaald, -- cust kreek
|
||||
contant_betaald, -- cust kreek
|
||||
(SELECT prs_kenmerklink_waarde
|
||||
FROM prs_kenmerklink
|
||||
WHERE prs_kenmerklink_niveau = 'P'
|
||||
@@ -2057,7 +2057,7 @@ AS
|
||||
FROM DUAL
|
||||
;
|
||||
|
||||
--- RES2 = In verwerking van de reserveringen SYSTEEM 2 (AAXX#73983)
|
||||
--- RES2 = In verwerking van de reserveringen SYSTEEM 2 (AAXX#73983)
|
||||
CREATE OR REPLACE PROCEDURE inlo_select_res2 (
|
||||
p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
@@ -2114,42 +2114,42 @@ BEGIN
|
||||
v_korting_verbruikt_ini := fac.safe_to_number (COALESCE(rec.korting_euro_verbruikt, '0')) ;
|
||||
v_korting_open_ini := fac.safe_to_number (COALESCE(rec.korting_euro_open, '0')) ;
|
||||
v_korting_verbruikt_run := rec.som_prijs_ruimte ;
|
||||
|
||||
|
||||
FOR rec IN c_res (v_prs_afdeling_key)
|
||||
LOOP
|
||||
BEGIN
|
||||
v_bedrijf_aanvrager := rec.bedrijf_aanvrager ;
|
||||
-- De ruimtereserveringen op VERWERKT zetten
|
||||
|
||||
|
||||
UPDATE res_rsv_ruimte
|
||||
SET res_status_bo_key = 6
|
||||
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key ;
|
||||
|
||||
|
||||
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, 4,sysdate, 'verwerkt door Export (systeem 2) ' || v_bedrijf_aanvrager || ' ' || TO_CHAR(sysdate, 'dd/mm/yyyy - hh:mi:ss')) ;
|
||||
|
||||
-- Optioneel - ook de artikelen en voorzieningen op VERWERKT zetten
|
||||
--- Ps. voor Landmark catering niet want die gaan via bundel-catering
|
||||
-- Optioneel - ook de artikelen en voorzieningen op VERWERKT zetten
|
||||
--- Ps. voor Landmark catering niet want die gaan via bundel-catering
|
||||
IF p_verwerk_cat = 1
|
||||
THEN
|
||||
|
||||
|
||||
UPDATE res_rsv_artikel
|
||||
SET res_status_bo_key = 6, res_rsv_artikel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
IF p_verwerk_deel = 1
|
||||
THEN
|
||||
|
||||
|
||||
UPDATE res_rsv_deel
|
||||
SET res_status_bo_key = 6, res_rsv_deel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
END LOOP;
|
||||
|
||||
|
||||
-- tot slot, bijwerken van de kortingsactie bij de verhurende partij (afdeling_key)
|
||||
-- 'aantal euro verbruikt' key 1360
|
||||
@@ -2206,7 +2206,7 @@ AS
|
||||
AND korting_aantal_open > 0
|
||||
AND reservering_afspraakprijs = 'nee'
|
||||
AND TRUNC(datum) <= korting_einddatum -- reserveringsdatum moet voor de einddatum van de kortingsactie liggen
|
||||
AND prs_bedrijf_key = p_subaccount
|
||||
AND prs_bedrijf_key = p_subaccount
|
||||
AND afdeling_key_aanvrager = p_afd_key
|
||||
ORDER BY datum ASC ;
|
||||
|
||||
@@ -2312,7 +2312,7 @@ END;
|
||||
CREATE OR REPLACE VIEW inlo_v_export_res
|
||||
(
|
||||
result,
|
||||
result_order,
|
||||
result_order,
|
||||
subaccount
|
||||
)
|
||||
AS
|
||||
@@ -2471,9 +2471,9 @@ END;
|
||||
|
||||
-- Exportfuncties subaccounts per Reserverings-bestedings-systeem
|
||||
|
||||
--- Systeem 2 voor Landmark - prs_bedrijf_key 24121
|
||||
--- Systeem 2 voor Landmark - prs_bedrijf_key 24121
|
||||
---- Tevens meegegeven via p_verwerk_cat = 0, dat de aan de ruimtereservering gekoppelde catering niet ook op verwerkt moet komen (bijv als deze via bundeling catering loopt).
|
||||
---- Tevens meegegeven via p_verwerk_deel = 1, dat de gekoppelde voorzieningen wel op verwerkt moeten komen
|
||||
---- Tevens meegegeven via p_verwerk_deel = 1, dat de gekoppelde voorzieningen wel op verwerkt moeten komen
|
||||
CREATE OR REPLACE VIEW inlo_v_export_res2_lm (result, result_order) AS SELECT RESULT, result_order FROM inlo_v_export_res2 -- regels klant + header meenemen
|
||||
;
|
||||
|
||||
@@ -2483,7 +2483,7 @@ CREATE OR REPLACE PROCEDURE inlo_select_res2_lm (
|
||||
)
|
||||
AS
|
||||
BEGIN
|
||||
inlo_select_res2(p_applname, p_applrun, 24121, 0, 1);
|
||||
inlo_select_res2(p_applname, p_applrun, 24121, 0, 1);
|
||||
END;
|
||||
/
|
||||
|
||||
@@ -2601,7 +2601,7 @@ GROUP BY v.res_rsv_ruimte_key,
|
||||
COALESCE (v.btw, 21);
|
||||
|
||||
v_logdate DATE;
|
||||
|
||||
|
||||
v_debiteurnr_kreek VARCHAR2 (200);
|
||||
v_som_prijs_ruimte NUMBER;
|
||||
v_som_prijs_catering NUMBER;
|
||||
@@ -2627,36 +2627,36 @@ BEGIN
|
||||
v_logdate := SYSDATE;
|
||||
v_som_prijs_ruimte := 0;
|
||||
v_som_prijs_catering := 0;
|
||||
v_som_prijs_voorziening := 0;
|
||||
v_som_prijs_voorziening := 0;
|
||||
|
||||
FOR rec1 IN c_deb
|
||||
LOOP
|
||||
BEGIN
|
||||
|
||||
|
||||
v_debiteurnr_kreek := rec1.debiteurnr_kreek ;
|
||||
|
||||
|
||||
FOR rec2 IN c_res (v_debiteurnr_kreek)
|
||||
LOOP
|
||||
BEGIN
|
||||
|
||||
|
||||
v_res_rsv_ruimte_key := rec2.res_rsv_ruimte_key ;
|
||||
|
||||
|
||||
-- vullen variabele om verkoopinterface mee te kunnen vullen
|
||||
SELECT v.omschrijving, SUBSTR(v.aanvrager,1, 60) aanvrager, v.datum, v.ruimte, v.soortreservering, v.prs_bedrijf_key
|
||||
SELECT v.omschrijving, SUBSTR(v.aanvrager,1, 60) aanvrager, v.datum, v.ruimte, v.soortreservering, v.prs_bedrijf_key
|
||||
INTO v_reservering_oms, v_naam_aanvrager, v_reservering_datum, v_reserveerbare_ruimte, v_soortreservering, v_prs_bedrijf_key
|
||||
FROM inlo_v_res_hoofd v
|
||||
WHERE v.res_rsv_ruimte_key = rec2.res_rsv_ruimte_key ;
|
||||
|
||||
|
||||
|
||||
|
||||
FOR rec3 IN c_regel (v_debiteurnr_kreek, v_res_rsv_ruimte_key)
|
||||
LOOP
|
||||
BEGIN
|
||||
|
||||
|
||||
-- Vul de verkoopfactuurtabel = 1 regel per debiteur (aanvrager) per reserveringsnr, per artikelsoort (ruimte/huur, deel/materiaal, artikel/catering en overige diensten), per btw_code
|
||||
|
||||
-- Artikelsoorten zijn:
|
||||
v_artikelsoort := rec3.soort_kreek ;
|
||||
|
||||
|
||||
-- Voor sporthallen Kreek geldt 0% btw op de ruimte
|
||||
IF v_soortreservering = 'Ruimte-reservering' AND INSTR(LOWER(v_reserveerbare_ruimte),'sporthal')>0 AND v_artikelsoort = 'huur'
|
||||
THEN
|
||||
@@ -2664,23 +2664,23 @@ BEGIN
|
||||
ELSE
|
||||
v_btw := rec3.btw ;
|
||||
END IF;
|
||||
|
||||
|
||||
-- De btw nog omzetten naar juiste btw_exact_code
|
||||
SELECT DECODE (v_btw, 21, 5,
|
||||
9, 3,
|
||||
0, 0,
|
||||
NULL)
|
||||
NULL)
|
||||
INTO v_btw_exact
|
||||
FROM DUAL ;
|
||||
FROM DUAL ;
|
||||
|
||||
-- Voor roomservice gaan we geen RUIMTE-regel in vk-tabel vullen, voor alle ander regels wel
|
||||
IF v_soortreservering = 'Roomservice' AND v_artikelsoort = 'huur'
|
||||
THEN
|
||||
|
||||
|
||||
NULL;
|
||||
|
||||
|
||||
ELSE
|
||||
|
||||
|
||||
INSERT INTO fin_verkoopfactuur (
|
||||
fin_verkoopfactuur_id,
|
||||
fin_verkoopfactuur_xmlnode,
|
||||
@@ -2716,16 +2716,16 @@ BEGIN
|
||||
v_debiteurnr_kreek, -- AM regel
|
||||
v_debiteurnr_kreek,
|
||||
v_prs_bedrijf_key, -- prs_bedrijf_key van Kreek
|
||||
v_artikelsoort, -- kostensoort (exact_artikelcode) - kolom AD
|
||||
v_artikelsoort, -- kostensoort (exact_artikelcode) - kolom AD
|
||||
NULL,
|
||||
v_naam_aanvrager,
|
||||
v_reservering_oms || ' ' || v_reservering_datum || ' ' || v_artikelsoort || ' BTW ' || TO_CHAR(v_btw) || '%', -- fin_verkoopfactuur_omschr - Kolom AF (omschrijving subregel
|
||||
rec3.totaalprijs,
|
||||
rec3.totaalprijs,
|
||||
v_btw_exact,
|
||||
to_char(v_reservering_datum, 'YYYY'),
|
||||
'03623000', -- C1 - Exact-code behorende bij de Kreek
|
||||
v_debiteurnr_kreek, -- C2 - groepering kopregel factuur
|
||||
NULL, -- C3
|
||||
NULL, -- C3
|
||||
NULL, -- N1
|
||||
NULL, -- N2,
|
||||
'De Kreek ' || to_char(SYSDATE, 'MON'), -- C5 aanvulling op heyday-referentie (mogelijkheid voor aanvulling op kopregel, positie 3)
|
||||
@@ -2733,27 +2733,27 @@ BEGIN
|
||||
NULL, -- C7
|
||||
NULL, -- N3
|
||||
'RES', -- C8 - Voor splitsing verkoopinterface, naar PROJECT en CORE nu ook RES
|
||||
NULL, -- N4
|
||||
NULL, -- N4
|
||||
'ReserveringenKreek' -- C4 - bij INLO gevuld voor HuurGreenportVenlo en nu dus ook voor reserveringen van de kreek
|
||||
) ;
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
|
||||
|
||||
|
||||
-- De ingeboekt reservering nog netjes in facilitor verwerken.. + per reservering tracking toevoegen
|
||||
|
||||
-- Voor ruimte-reservering
|
||||
|
||||
|
||||
IF v_soortreservering = 'Ruimte-reservering'
|
||||
THEN
|
||||
|
||||
THEN
|
||||
|
||||
UPDATE res_rsv_ruimte
|
||||
SET res_status_bo_key = 6
|
||||
WHERE res_rsv_ruimte_key = rec2.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
UPDATE res_rsv_artikel
|
||||
SET res_status_bo_key = 6, res_rsv_artikel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec2.res_rsv_ruimte_key;
|
||||
@@ -2761,45 +2761,45 @@ BEGIN
|
||||
UPDATE res_rsv_deel
|
||||
SET res_status_bo_key = 6, res_rsv_deel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec2.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
|
||||
IF v_soortreservering = 'Roomservice'
|
||||
THEN
|
||||
|
||||
|
||||
UPDATE res_rsv_artikel
|
||||
SET res_status_bo_key = 6, res_rsv_artikel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec2.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
-- Voor alle reserveringen de fac_tracking vullen
|
||||
fac.trackaction ('RESVER', rec2.res_rsv_ruimte_key, 4, NULL, 'verwerkt door Export Kreek - verkoopfactuur voor deze reservering ingeboekt');
|
||||
|
||||
fac.trackaction ('RESVER', rec2.res_rsv_ruimte_key, 4, NULL, 'verwerkt door Export Kreek - verkoopfactuur voor deze reservering ingeboekt');
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
-- totalen:
|
||||
|
||||
-- totalen:
|
||||
|
||||
v_som_prijs_ruimte := v_som_prijs_ruimte + COALESCE(rec1.prijs_ruimte, 0) ;
|
||||
v_som_prijs_catering := v_som_prijs_catering + COALESCE(rec1.prijs_catering, 0) ;
|
||||
v_som_prijs_voorziening := v_som_prijs_voorziening + COALESCE(rec1.prijs_voorziening, 0) ;
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
|
||||
-- ook de reeds betaalde reserveringen nog netjes verwerken...
|
||||
FOR rec4 IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
|
||||
|
||||
IF rec4.contant_betaald = 'Contant betaald'
|
||||
THEN
|
||||
|
||||
UPDATE res_rsv_ruimte
|
||||
SET res_status_bo_key = 6
|
||||
WHERE res_rsv_ruimte_key = rec4.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
UPDATE res_rsv_artikel
|
||||
SET res_status_bo_key = 6, res_rsv_artikel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec4.res_rsv_ruimte_key;
|
||||
@@ -2807,21 +2807,21 @@ BEGIN
|
||||
UPDATE res_rsv_deel
|
||||
SET res_status_bo_key = 6, res_rsv_deel_verwerkt = SYSDATE
|
||||
WHERE res_rsv_ruimte_key = rec4.res_rsv_ruimte_key;
|
||||
|
||||
|
||||
-- Voor alle reserveringen de fac_tracking vullen
|
||||
fac.trackaction ('RESVER', rec4.res_rsv_ruimte_key, 4, NULL, 'verwerkt door Export Kreek - ivm contante betaling geen verkoopfactuur voor deze reservering ingeboekt');
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
END LOOP;
|
||||
|
||||
-- nette logging (komt ook op export-output)
|
||||
|
||||
fac.writelog (p_applname, 'S', 'Totaal', TO_CHAR(v_som_prijs_ruimte + v_som_prijs_catering + v_som_prijs_voorziening) || ' euro');
|
||||
fac.writelog (p_applname, 'S', 'Huur', TO_CHAR(v_som_prijs_ruimte) || ' euro');
|
||||
fac.writelog (p_applname, 'S', 'Materiaal', TO_CHAR(v_som_prijs_voorziening) || ' euro');
|
||||
fac.writelog (p_applname, 'S', 'Catering, diensten, middelen', TO_CHAR(v_som_prijs_catering) || ' euro');
|
||||
fac.writelog (p_applname, 'S', 'Catering, diensten, middelen', TO_CHAR(v_som_prijs_catering) || ' euro');
|
||||
|
||||
END;
|
||||
/
|
||||
@@ -4724,6 +4724,7 @@ AS
|
||||
AND r2a.res_ruimte_key = rr.res_ruimte_key
|
||||
AND rg.alg_gebouw_key = kl.alg_gebouw_key
|
||||
AND kl.klantcode = '03616000' -- klant_exactcode van 'Gelrepark B.V. / Landmark'
|
||||
AND r2a.res_alg_ruimte_verwijder IS NULL
|
||||
AND TRUNC(rrr.res_rsv_ruimte_van) = TRUNC(SYSDATE) ;
|
||||
|
||||
-- bundel catering
|
||||
@@ -4809,7 +4810,7 @@ AS
|
||||
res_rsv_artikel_key result_order
|
||||
FROM inlo_v_catering_kpn;
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE inlo_export_bundel_catering (
|
||||
p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
@@ -4823,7 +4824,7 @@ AS
|
||||
WHERE prs_bedrijf_key IS NOT NULL
|
||||
GROUP BY prs_bedrijf_key;
|
||||
|
||||
-- Deze is voor LANDMARK - Per Cateraar, per BU-kp, 1 gebundelde opdracht
|
||||
-- Deze is voor LANDMARK - Per Cateraar, per BU-kp, 1 gebundelde opdracht
|
||||
CURSOR c_bu (lev_date DATE, p_bedrijf_key NUMBER)
|
||||
IS
|
||||
SELECT bu_kostenplaats_key, sum(res_rsv_artikel_prijs) prijs
|
||||
@@ -4840,7 +4841,7 @@ AS
|
||||
WHERE res_rsv_artikel_levering < lev_date
|
||||
AND prs_bedrijf_key = p_bedrijf_key
|
||||
GROUP BY prs_kostenplaats_key, alg_locatie_omschrijving;
|
||||
|
||||
|
||||
|
||||
c_catmld_uitvoertijd mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD(2, 'D');
|
||||
v_errormsg VARCHAR (200);
|
||||
@@ -4869,7 +4870,7 @@ BEGIN
|
||||
v_errormsg := 'Bepaal einddatum';
|
||||
|
||||
-- wat is de eerste dag van de huidige maand
|
||||
v_date := TO_DATE (TO_CHAR (SYSDATE, 'yyyymm') || '01', 'yyyymmdd');
|
||||
v_date := TO_DATE (TO_CHAR (SYSDATE, 'yyyymm') || '01', 'yyyymmdd');
|
||||
v_month := REPLACE(TO_CHAR (v_date-1, 'month-yyyy', 'NLS_DATE_LANGUAGE = ''dutch'''), ' ', '');
|
||||
|
||||
SELECT COUNT (mld_opdr_key)
|
||||
@@ -4892,9 +4893,9 @@ BEGIN
|
||||
FOR rec2 IN c_bu (v_date, rec1.prs_bedrijf_key)
|
||||
LOOP
|
||||
BEGIN
|
||||
|
||||
|
||||
v_alg_gebouw_key := 0 ;
|
||||
|
||||
|
||||
-- Cateraar Hutten Catering voor klant LANDMARK
|
||||
IF rec1.prs_bedrijf_key = 25102
|
||||
THEN
|
||||
@@ -4911,13 +4912,13 @@ BEGIN
|
||||
OR ( g.alg_gebouw_vervaldatum IS NOT NULL
|
||||
AND TRUNC (g.alg_gebouw_vervaldatum) <= TRUNC (SYSDATE)))
|
||||
AND v.klantcode = '03616000' ; -- exactcode Landmark - Gelreprark BV
|
||||
|
||||
|
||||
SELECT g.alg_locatie_key
|
||||
INTO v_alg_locatie_key
|
||||
FROM alg_gebouw g
|
||||
WHERE g.alg_gebouw_key = v_alg_gebouw_key ;
|
||||
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
IF rec2.bu_kostenplaats_key IS NOT NULL AND v_alg_gebouw_key <> 0
|
||||
@@ -5027,7 +5028,7 @@ BEGIN
|
||||
mld.updatemeldingstatus (v_mld_melding_key, 0, v_aanvrager); -- Facilitor
|
||||
-- meld de opdracht af
|
||||
MLD.setopdrachtstatus (v_mld_opdr_key, 6, v_aanvrager);
|
||||
-- en zet hem nog op afgerond
|
||||
-- en zet hem nog op afgerond
|
||||
MLD.setopdrachtstatus (v_mld_opdr_key, 9, v_aanvrager);
|
||||
|
||||
v_errormsg := 'Voeg regels toe aan mapping tabel';
|
||||
@@ -5035,9 +5036,9 @@ BEGIN
|
||||
INSERT INTO aaxx_bundel_catering_ref (mld_opdr_key, res_rsv_artikel_key, res_rsv_artikel_prijs, res_rsv_artikel_verwerkt)
|
||||
SELECT v_mld_opdr_key, res_rsv_artikel_key, res_rsv_artikel_prijs, v_date
|
||||
FROM inlo_v_catering_kpn c
|
||||
WHERE res_rsv_artikel_levering < v_date
|
||||
WHERE res_rsv_artikel_levering < v_date
|
||||
AND COALESCE(c.bu_kostenplaats_key, -1) = COALESCE(rec2.bu_kostenplaats_key, -1)
|
||||
AND c.prs_bedrijf_key = rec1.prs_bedrijf_key
|
||||
AND c.prs_bedrijf_key = rec1.prs_bedrijf_key
|
||||
;
|
||||
|
||||
v_errormsg := 'Pas de status van de artikelen aan ' || v_mld_opdr_key;
|
||||
@@ -5065,33 +5066,33 @@ BEGIN
|
||||
END IF;
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
|
||||
-- inpassen COVESTRO
|
||||
FOR rec3 IN c_kp (v_date, rec1.prs_bedrijf_key)
|
||||
LOOP
|
||||
BEGIN
|
||||
|
||||
|
||||
v_alg_gebouw_key := 0 ;
|
||||
|
||||
|
||||
-- Cateraar Albron Nederland BV voor klant COVESTRO
|
||||
IF rec1.prs_bedrijf_key = 23187
|
||||
THEN
|
||||
-- stdmelding key voor recharge
|
||||
v_mld_stdmelding_key := 5762 ;
|
||||
|
||||
|
||||
-- Bepalen gebouw_key COVESTRO waar we de catering op mogen boeken
|
||||
SELECT v.alg_gebouw_key
|
||||
INTO v_alg_gebouw_key
|
||||
FROM alg_v_onroerendgoed v
|
||||
WHERE v.alg_ruimte_key = rec3.alg_ruimte_key ;
|
||||
|
||||
|
||||
SELECT g.alg_locatie_key
|
||||
INTO v_alg_locatie_key
|
||||
FROM alg_gebouw g
|
||||
WHERE g.alg_gebouw_key = v_alg_gebouw_key ;
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
|
||||
IF rec3.prs_kostenplaats_key IS NOT NULL AND v_alg_gebouw_key <> 0
|
||||
THEN
|
||||
-- controleer of ik een melding heb op deze kpn
|
||||
@@ -5103,7 +5104,7 @@ BEGIN
|
||||
FROM mld_melding
|
||||
WHERE prs_kostenplaats_key = rec3.prs_kostenplaats_key
|
||||
AND mld_alg_locatie_key = v_alg_locatie_key
|
||||
AND mld_alg_onroerendgoed_keys = v_alg_gebouw_key
|
||||
AND mld_alg_onroerendgoed_keys = v_alg_gebouw_key
|
||||
AND mld_stdmelding_key = v_mld_stdmelding_key
|
||||
AND v_date BETWEEN mld_melding_datum
|
||||
AND mld_melding_einddatum + 1;
|
||||
@@ -5199,7 +5200,7 @@ BEGIN
|
||||
mld.updatemeldingstatus (v_mld_melding_key, 0, v_aanvrager); -- Facilitor
|
||||
-- meld de opdracht af
|
||||
MLD.setopdrachtstatus (v_mld_opdr_key, 6, v_aanvrager);
|
||||
-- en zet hem nog op afgerond
|
||||
-- en zet hem nog op afgerond
|
||||
MLD.setopdrachtstatus (v_mld_opdr_key, 9, v_aanvrager);
|
||||
|
||||
v_errormsg := 'Voeg regels toe aan mapping tabel';
|
||||
@@ -5207,9 +5208,9 @@ BEGIN
|
||||
INSERT INTO aaxx_bundel_catering_ref (mld_opdr_key, res_rsv_artikel_key, res_rsv_artikel_prijs, res_rsv_artikel_verwerkt)
|
||||
SELECT v_mld_opdr_key, res_rsv_artikel_key, res_rsv_artikel_prijs, v_date
|
||||
FROM inlo_v_catering_kpn c
|
||||
WHERE res_rsv_artikel_levering < v_date
|
||||
WHERE res_rsv_artikel_levering < v_date
|
||||
AND COALESCE(c.prs_kostenplaats_key, -1) = COALESCE(rec3.prs_kostenplaats_key, -1)
|
||||
AND c.prs_bedrijf_key = rec1.prs_bedrijf_key
|
||||
AND c.prs_bedrijf_key = rec1.prs_bedrijf_key
|
||||
;
|
||||
|
||||
v_errormsg := 'Pas de status van de artikelen aan ' || v_mld_opdr_key;
|
||||
@@ -5234,11 +5235,11 @@ BEGIN
|
||||
END;
|
||||
ELSE
|
||||
fac.writelog (p_applname, 'E', 'Een bedrag van: ' || rec3.prijs || ' euro kan niet aan een kostenplaats gekoppeld worden!', '');
|
||||
END IF;
|
||||
|
||||
END IF;
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
END LOOP;
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
END IF;
|
||||
|
||||
Reference in New Issue
Block a user