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

INLO#74500 -- daily voor export werkplekkoppeling klanten en reservering landmark

Browse Source 
svn path=/Customer/trunk/; revision=58433
This commit is contained in:
Jos Migo
2022-12-21 20:54:58 +00:00
parent 484cfe5c61
commit 82c950c03e
1 changed files with 61 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
AA/INLO/inlo.sql
View File

@@ -2128,7 +2128,7 @@ BEGIN
v_res_rsv_ruimte_key := rec2.res_rsv_ruimte_key ;
-- vullen variabele om verkoopinterface mee te kunnen vullen
SELECT v.omschrijving, v.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 ;
@@ -4223,46 +4223,58 @@ CREATE OR REPLACE VIEW inlo_v_catering_kpn
res_rsv_artikel_prijs,
res_rsv_artikel_levering,
alg_ruimte_key,
alg_locatie_omschrijving,
prs_bedrijf_key,
prs_kostenplaats_key,
bu_kostenplaats_key
)
AS
SELECT rrr.res_rsv_ruimte_key,
srt.res_srtactiviteit_soort, -- =0 is ruimte-reservering, 1 is roomservice
srt.res_srtactiviteit_soort, -- =0 is ruimte-reservering, 1 is roomservice
res_rsv_artikel_key,
res_rsv_artikel_prijs,
res_rsv_artikel_levering,
CASE
WHEN rrr.alg_ruimte_key IS NULL
AND rrr.res_ruimte_opstel_key IS NOT NULL
THEN
(SELECT MAX(rar.alg_ruimte_key)
FROM res_v_ruimte_opstel_gegevens rog, res_alg_ruimte rar
WHERE rog.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key
AND rog.res_ruimte_key = rar.res_ruimte_key AND rar.res_alg_ruimte_verwijder IS NULL)
WHEN rrr.alg_ruimte_key IS NOT NULL
AND rrr.res_ruimte_opstel_key IS NULL
THEN
(SELECT avrg.alg_ruimte_key
FROM alg_v_ruimte_gegevens avrg
WHERE avrg.alg_ruimte_key = rrr.alg_ruimte_key)
ELSE
NULL
END
AS alg_ruimte_key,
r.alg_ruimte_key,
(SELECT l.alg_locatie_omschrijving
FROM alg_v_onroerendgoed v, alg_gebouw g, alg_locatie l
WHERE v.alg_ruimte_key = r.alg_ruimte_key AND v.alg_gebouw_key = g.alg_gebouw_key AND g.alg_locatie_key = l.alg_locatie_key)
alg_locatie_omschrijving,
rdp.prs_bedrijf_key,
k.prs_kostenplaats_key,
fac.safe_to_number(aaxx_get_top_kpn_key (k.prs_kostenplaats_key))
bukpn
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
res_artikel ra,
res_disc_params rdp,
prs_kostenplaats k,
res_activiteit act,
res_srtactiviteit srt
fac.safe_to_number (aaxx_get_top_kpn_key (k.prs_kostenplaats_key))
bukpn
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
res_artikel ra,
res_disc_params rdp,
prs_kostenplaats k,
res_activiteit act,
res_srtactiviteit srt,
(SELECT rrr.res_rsv_ruimte_key,
CASE
WHEN rrr.alg_ruimte_key IS NULL
AND rrr.res_ruimte_opstel_key IS NOT NULL
THEN
(SELECT MAX (rar.alg_ruimte_key)
FROM res_v_ruimte_opstel_gegevens rog,
res_alg_ruimte rar
WHERE rog.res_ruimte_opstel_key =
rrr.res_ruimte_opstel_key
AND rog.res_ruimte_key = rar.res_ruimte_key
AND rar.res_alg_ruimte_verwijder IS NULL)
WHEN rrr.alg_ruimte_key IS NOT NULL
AND rrr.res_ruimte_opstel_key IS NULL
THEN
(SELECT avrg.alg_ruimte_key
FROM alg_v_ruimte_gegevens avrg
WHERE avrg.alg_ruimte_key = rrr.alg_ruimte_key)
ELSE
NULL
END
AS alg_ruimte_key
FROM res_rsv_ruimte rrr) r
WHERE rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = rdp.res_ins_discipline_key
AND rdp.prs_bedrijf_key IS NOT NULL
@@ -4270,9 +4282,8 @@ SELECT rrr.res_rsv_ruimte_key,
AND rra.res_rsv_artikel_verwijder IS NULL
AND rra.res_status_bo_key = 5
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_activiteit_key = act.res_activiteit_key
AND act.res_srtactiviteit_key = srt.res_srtactiviteit_key ;
AND rrr.res_activiteit_key = act.res_activiteit_key
AND act.res_srtactiviteit_key = srt.res_srtactiviteit_key;
CREATE OR REPLACE VIEW inlo_v_export_bundel_catering
(
@@ -4307,14 +4318,14 @@ AS
AND prs_bedrijf_key = p_bedrijf_key
GROUP BY bu_kostenplaats_key;
-- Deze is voor COVESTRO - Per Cateraar, per kostenplaats, 1 gebundelde opdracht
-- Deze is voor COVESTRO - Per Cateraar, per kostenplaats, locatie, 1 gebundelde opdracht
CURSOR c_kp (lev_date DATE, p_bedrijf_key NUMBER)
IS
SELECT prs_kostenplaats_key, sum(res_rsv_artikel_prijs) prijs, min(alg_ruimte_key) alg_ruimte_key
SELECT prs_kostenplaats_key, alg_locatie_omschrijving, sum(res_rsv_artikel_prijs) prijs, min(alg_ruimte_key) alg_ruimte_key
FROM inlo_v_catering_kpn
WHERE res_rsv_artikel_levering < TO_DATE (TO_CHAR (SYSDATE, 'yyyymm') || '01', 'yyyymmdd') -- lev_date
WHERE res_rsv_artikel_levering < lev_date
AND prs_bedrijf_key = p_bedrijf_key
GROUP BY prs_kostenplaats_key;
GROUP BY prs_kostenplaats_key, alg_locatie_omschrijving;
c_catmld_uitvoertijd mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD(2, 'D');
@@ -4808,18 +4819,26 @@ AS
AND bu.mld_opdr_key = o.mld_opdr_key(+)
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+);
/* DEZE NOG EVEN UIT. EERST HANDMATIG VANUIT INLO-P DOEN
CREATE OR REPLACE PROCEDURE inlo_daily
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
inlo_select_klanten_wp ('KLANTEN_WP', SYSDATE);
inlo_select_klanten_wp ('KLANTEN_WP', SYSDATE);
inlo_select_res2_lm ('RES2', SYSDATE);
END;
inlo_select_res2_lm ('RES2', SYSDATE);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
END inlo_daily;
/
*/
------ payload end ------