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

PROR#82508 -- aanpassingen catering export bestand

Browse Source 
svn path=/Customer/trunk/; revision=63988
This commit is contained in:
Norbert Wassink
2024-03-20 12:38:33 +00:00
parent 594b16c7e2
commit 1939f8fea1
1 changed files with 62 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
PROR/PROR.sql
View File

@@ -1650,8 +1650,8 @@ AS
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY') WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_status_fo_key = 2 -- vervallen en te laat uit outllok afgemeld AND rrr.res_status_fo_key = 2 -- Alleen definitieve res
AND rrr.res_rsv_ruimte_cvab_mode IS NOT NULL -- vervallen en te laat uit outllok afgemeld AND rrr.res_rsv_ruimte_cvab_mode IS NOT NULL -- betreft een losse catering
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.RES_RSV_RUIMTE_KEY FROM res_kenmerkwaarde rkw, res_kenmerk rk AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.RES_RSV_RUIMTE_KEY FROM res_kenmerkwaarde rkw, res_kenmerk rk
WHERE rkw.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY WHERE rkw.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY
@@ -1659,7 +1659,7 @@ AS
AND rk.RES_KENMERK_OMSCHRIJVING='ExternSyncDatum') AND rk.RES_KENMERK_OMSCHRIJVING='ExternSyncDatum')
-- AND rrr.res_rsv_ruimte_externsyncdate IS NULL -- AND rrr.res_rsv_ruimte_externsyncdate IS NULL
UNION -- alle te laat verwijderde outlook reservereingen met catering UNION -- alle te laat verwijderde outlook reservereingen met catering
SELECT distinct rra.res_rsv_ruimte_key rrr_key, SELECT distinct rrr.res_rsv_ruimte_key rrr_key,
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering, rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
rrr.res_rsv_ruimte_opmerking opmerking, rrr.res_rsv_ruimte_opmerking opmerking,
'Te late annulering' extra_opmerking, 'Te late annulering' extra_opmerking,
@@ -1695,18 +1695,35 @@ AS
AND rarm.res_alg_ruimte_verwijder IS NULL AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr, AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr,
rrr.res_activiteit_key activiteit_key rrr.res_activiteit_key activiteit_key
FROM res_rsv_artikel rra, FROM res_rsv_ruimte rrr,
res_rsv_ruimte rrr,
prs_kostenplaats k, prs_kostenplaats k,
prs_v_perslid_gegevens p prs_v_perslid_gegevens p,
(SElECT r.*,
(SELECT MAX(rdp.res_disc_params_cancel_dagen) annuleer_dagen
FROM res_rsv_artikel rra, res_artikel ra, res_discipline rd, res_disc_params rdp
WHERE res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND ra.res_artikel_key = rra.res_artikel_key
AND ra.res_discipline_key = rd.ins_discipline_key
AND rdp.res_ins_discipline_key=rd.ins_discipline_key) annuleer_dagen
FROM (SELECT DISTINCT
res.res_rsv_ruimte_key res_rsv_ruimte_key,
res.res_reservering_key res_reservering_key,
res.res_rsv_ruimte_volgnr res_rsv_ruimte_volgnr,
res.res_rsv_ruimte_host_key gastheer_key,
res.res_rsv_ruimte_verwijder datum_verwijder,
fac.safe_to_date (
TO_CHAR (res.res_rsv_ruimte_van, 'DD-MM-YYYY')||' 12:00',
'DD-MM-YYYY HH24:MI') leverdatum
FROM res_rsv_ruimte res, res_rsv_artikel rra
WHERE res.res_rsv_ruimte_verwijder IS NOT NULL
AND res.res_rsv_ruimte_externnr IS NOT NULL
-- AND res.res_status_fo_key=4
AND rra.res_rsv_ruimte_key=res.res_rsv_ruimte_key) r) x
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY') WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key AND rrr.res_rsv_ruimte_key = x.res_rsv_ruimte_key
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_status_fo_key = 4 -- vervallen en te laat uit outllok afgemeld
AND rrr.res_status_bo_key = 2 -- vervallen en te laat uit outllok afgemeld
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
AND rrr.res_rsv_ruimte_externnr IS NOT NULL AND x.datum_verwijder> x.leverdatum - x.annuleer_dagen -- bepalen of de annulering te laat was
-- AND rrr.res_rsv_ruimte_externsyncdate IS NULL
AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.RES_RSV_RUIMTE_KEY FROM res_kenmerkwaarde rkw, res_kenmerk rk AND rrr.res_rsv_ruimte_key NOT IN (SELECT rkw.RES_RSV_RUIMTE_KEY FROM res_kenmerkwaarde rkw, res_kenmerk rk
WHERE rkw.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY WHERE rkw.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY
AND rk.RES_KENMERK_KEY = rkw.RES_KENMERK_KEY AND rk.RES_KENMERK_KEY = rkw.RES_KENMERK_KEY
@@ -1758,7 +1775,7 @@ AS
WHERE rra.res_rsv_ruimte_key=p_rrr_key WHERE rra.res_rsv_ruimte_key=p_rrr_key
AND rra.res_artikel_key = ra.res_artikel_key AND rra.res_artikel_key = ra.res_artikel_key
-- AND rra.res_status_bo_key = 2 -- afgemeld -- AND rra.res_status_bo_key = 2 -- afgemeld
AND rra.res_rsv_artikel_verwijder IS NULL -- AND rra.res_rsv_artikel_verwijder IS NULL
AND ra.res_artikel_btw IN (0, 9, 21) AND ra.res_artikel_btw IN (0, 9, 21)
AND rd.ins_discipline_key=ra.res_discipline_key; AND rd.ins_discipline_key=ra.res_discipline_key;
@@ -1794,7 +1811,7 @@ BEGIN
pror.add_xml_row (v_bestand, '<Header>'); pror.add_xml_row (v_bestand, '<Header>');
/* pror.add_xml_row (v_bestand, '<ShopToken>'||v_shop_token||'</ShopToken>'); */ /* pror.add_xml_row (v_bestand, '<ShopToken>'||v_shop_token||'</ShopToken>'); */
pror.add_xml_row (v_bestand, '<Sender>'); pror.add_xml_row (v_bestand, '<Sender>');
pror.add_xml_row (v_bestand, '<ID>1</ID>'); pror.add_xml_row (v_bestand, '<ID></ID>');
pror.add_xml_row (v_bestand, '<Name>Prorail</Name>'); pror.add_xml_row (v_bestand, '<Name>Prorail</Name>');
pror.add_xml_row (v_bestand, '<Email>'||v_contact_email||'</Email>'); pror.add_xml_row (v_bestand, '<Email>'||v_contact_email||'</Email>');
pror.add_xml_row (v_bestand, '</Sender>'); pror.add_xml_row (v_bestand, '</Sender>');
@@ -1808,7 +1825,7 @@ BEGIN
pror.add_xml_row(v_bestand, '<Order>'); pror.add_xml_row(v_bestand, '<Order>');
pror.add_xml_row(v_bestand, '<Customer>'); pror.add_xml_row(v_bestand, '<Customer>');
pror.add_xml_element (v_bestand, 'Name', 'PROR'); pror.add_xml_element (v_bestand, 'Name', 'PROR');
pror.add_xml_element (v_bestand, 'ID', '0000'); pror.add_xml_element (v_bestand, 'ID', '251990');
pror.add_xml_element (v_bestand, 'ExternalID', rec.reservering); pror.add_xml_element (v_bestand, 'ExternalID', rec.reservering);
pror.add_xml_row(v_bestand, '<ContentContact>'); pror.add_xml_row(v_bestand, '<ContentContact>');
pror.add_xml_element (v_bestand, 'Name', rec.aanvrager); pror.add_xml_element (v_bestand, 'Name', rec.aanvrager);
@@ -1843,8 +1860,13 @@ BEGIN
v_artikelprijs:=0; v_artikelprijs:=0;
IF UPPER(rec_art.catalogus) LIKE 'MAATWERK%' IF UPPER(rec_art.catalogus) LIKE 'MAATWERK%'
THEN
IF rec_art.totprijs IS NOT NULL
THEN THEN
v_artikelprijs := rec_art.totprijs/rec_art.aantal; v_artikelprijs := rec_art.totprijs/rec_art.aantal;
ELSE
v_artikelprijs := rec_art.prijs;
END IF;
ELSE ELSE
v_artikelprijs := rec_art.prijs; v_artikelprijs := rec_art.prijs;