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

PIVP#74972 -- Fase 2 implementatie

Browse Source 
svn path=/Customer/trunk/; revision=59171
This commit is contained in:
Norbert Wassink
2023-02-15 13:32:27 +00:00
parent c745d000c2
commit 53fe8ea742
1 changed files with 76 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
PIVP/PIVP.sql
View File

@@ -2848,6 +2848,12 @@ AS
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='VOORNAAM PASHOUDER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key) voornaam,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='TUSSENVOEGSEL PASHOUDER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key) tussenvoegsel,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
@@ -2861,7 +2867,7 @@ AS
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='BEDRIJFSMAILADRES PASHOUDER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key) email,
(SELECT mkm.mld_kenmerkmelding_waarde
(SELECT COALESCE(mkm.mld_kenmerkmelding_waarde,'-')
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
@@ -2935,8 +2941,8 @@ AS
AND UPPER(mk.mld_kenmerk_omschrijving)='CORPORATE NEWSLETTER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'1','0') corp_letter
FROM mld_melding m, prs_perslid p, prs_afdeling pa
WHERE m.mld_stdmelding_key=87 -- A=1421 O/P=87
--AND m.mld_melding_status=5 -- Melding moet afgemeld zijn
WHERE m.mld_stdmelding_key=1421 -- A=1421 O/P=87
AND m.mld_melding_status=5 -- Melding moet afgemeld zijn
AND m.mld_melding_externsyncdate IS NULl
AND p.prs_perslid_key=m.prs_perslid_key
AND pa.prs_afdeling_key = p.prs_afdeling_key;
@@ -2992,7 +2998,8 @@ AS
CREATE OR REPLACE VIEW PIVP_V_ZAALRESREVERING
AS
SELECT rrr.res_reservering_key,
SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key,
rrr.RES_RSV_RUIMTE_VOLGNR,
rr.res_ruimte_nr,
TRUNC(rrr.res_rsv_ruimte_van) datum,
@@ -3001,7 +3008,7 @@ AS
res.getdeelresprijs(rrr.res_rsv_ruimte_key) prijs,
p.prs_perslid_naam,
pa.prs_afdeling_omschrijving,
pa.prs_afdeling_naam
pa.prs_afdeling_naam
FROM res_rsv_ruimte rrr,
res_activiteit ra,
res_activiteitdiscipline rad,
@@ -3022,7 +3029,9 @@ AS
AND res.getdeelresprijs(rrr.res_rsv_ruimte_key) > 0;
CREATE OR REPLACE VIEW PIVP_V_RESEXPORT(
CREATE OR REPLACE VIEW PIVP_V_RESEXPORT
(
rrr_key,
reservering_nr,
reservering_volgNr,
ruimte_nr,
@@ -3033,9 +3042,38 @@ CREATE OR REPLACE VIEW PIVP_V_RESEXPORT(
reserveerder,
bedrijf_naam,
debiteurnr
)
)
AS
SELECT * FROM PIVP_V_ZAALRESREVERING;
SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key,
rrr.RES_RSV_RUIMTE_VOLGNR,
rr.res_ruimte_nr,
TRUNC(rrr.res_rsv_ruimte_van) datum,
TO_CHAR(rrr.res_rsv_ruimte_van,'HH24:MI') van,
TO_CHAR(rrr.res_rsv_ruimte_tot,'HH24:MI') tot,
res.getdeelresprijs(rrr.res_rsv_ruimte_key) prijs,
p.prs_perslid_naam,
pa.prs_afdeling_omschrijving,
pa.prs_afdeling_naam
FROM res_rsv_ruimte rrr,
res_activiteit ra,
res_activiteitdiscipline rad,
prs_perslid p,
prs_afdeling pa,
res_ruimte_opstelling rro,
res_ruimte rr
WHERE rrr.res_status_bo_key=5
AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key
AND rr.res_ruimte_key = rro.res_ruimte_key
AND ra.res_activiteit_key=10
AND ra.res_activiteit_key=rrr.res_activiteit_key
AND rad.res_activiteit_key=ra.res_activiteit_key
AND rad.res_discipline_key=21 -- alleen betaalde zalen O=21 A=281, P=21
AND p.prs_perslid_key=rrr.res_rsv_ruimte_host_key
AND pa.prs_afdeling_key=p.prs_afdeling_key
AND pa.prs_bedrijf_key<>81 -- PIVP uitsluiten O=81, P=81
AND res.getdeelresprijs(rrr.res_rsv_ruimte_key) > 0
AND rrr.res_rsv_ruimte_externsyncdate IS NULL;
@@ -3572,9 +3610,12 @@ BEGIN
pivp.add_xml_row (v_bestand, '</GLEntries>');
pivp.add_xml_row (v_bestand, '</eExact>');
END IF;
IF v_count=0 THEN
-- We hebben niets om te exporteren dan gooien we ook XML tags weg.
DELETE FROM fac_rapport WHERE fac_rapport_node = v_bestand;
END IF;
fac.writelog (p_applname, 'S', 'Exact export uitgevoerd.','Periode :('||v_currentmonth||') '||v_startDate||'-'||v_enddate);
fac.writelog (p_applname, 'S', 'Exact export uitgevoerd.','Regels: '||v_count||' Periode :('||v_currentmonth||') '||v_startDate||'-'||v_enddate);
END IF;
END;
@@ -3625,7 +3666,7 @@ BEGIN
DELETE FROM fac_rapport
WHERE fac_rapport.fac_rapport_node LIKE 'EXR_RES';
WHERE fac_rapport_node LIKE 'EXR_RES';
-- eerst controlerene of we de eerste van een nieuw kwartaal zijn.
@@ -3699,8 +3740,8 @@ BEGIN
-- pivp.add_xml_row (v_bestand, '<Item code=""/>');
pivp.add_xml_row (v_bestand, '<Amount>');
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
pivp.add_xml_element (v_bestand, 'Debit', rec_regel.bedrag);
pivp.add_xml_element (v_bestand, 'Credit', '0');
pivp.add_xml_element (v_bestand, 'Debit', '0');
pivp.add_xml_element (v_bestand, 'Credit', rec_regel.bedrag);
-- pivp.add_xml_row (v_bestand, '<VAT code="' || xml.char_to_html('21') || '"/>');
pivp.add_xml_row (v_bestand, '</Amount>');
pivp.add_xml_row (v_bestand, '<FinReferences>');
@@ -3710,7 +3751,7 @@ BEGIN
pivp.add_xml_row (v_bestand, '</FinEntryLine>');
-- UPDATE res_rsv_ruimte set res_rsv_ruimte_externsyncdat=SYSDATE WHERE res_rsv_ruimte_key=rec.res_rsv_ruimte_key;
END LOOP;
@@ -3724,6 +3765,11 @@ BEGIN
pivp.add_xml_row (v_bestand, '</eExact>');
END IF;
IF v_count=0 THEN
DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand;
END IF;
fac.writelog (p_applname, 'S', 'Exact reservering export uitgevoerd. Aantal Klanten :'||v_count,'Periode :('||v_currentmonth||') '||v_startDate||'-'||v_enddate);
END IF;
@@ -3797,11 +3843,17 @@ BEGIN
v_counter:=v_counter+1;
pivp.add_xml_row (v_bestand, '<Contact default="0">');
pivp.add_xml_element (v_bestand, 'FirstName', rec.voornaam);
pivp.add_xml_element (v_bestand, 'MiddleName', rec.tussenvoegsel);
pivp.add_xml_element (v_bestand, 'LastName', rec.achternaam);
pivp.add_xml_element (v_bestand, 'JobDescription', rec.functie);
IF LENGTH(rec.functie)>1 THEN
pivp.add_xml_element (v_bestand, 'JobDescription', rec.functie);
ELSE
pivp.add_xml_element (v_bestand, 'JobDescription', '-');
END IF;
pivp.add_xml_element (v_bestand, 'Email', rec.email);
pivp.add_xml_element (v_bestand, 'Phone', rec.telefoonnummer);
pivp.add_xml_element (v_bestand, 'Mobile', rec.mobiel);
pivp.add_xml_element (v_bestand, 'Mobile', rec.mobiel);
pivp.add_xml_row (v_bestand, '<Language code="NL"/>');
pivp.add_xml_row (v_bestand, '<FreeFields>');
pivp.add_xml_row (v_bestand, '<FreeYesNo>');
@@ -3896,7 +3948,7 @@ BEGIN
FOR rec IN ruimtes
LOOP
v_counter:=v_counter+1;
pivp.add_xml_row (v_bestand, '<Item code="'||rec.ruimte_nr||'" TYPE="S" searchcode="'||rec.ruimte_nr||'">');
pivp.add_xml_row (v_bestand, '<Item code="'||rec.ruimte_nr||'" TYPE="'||rec.ruimte_type_verhuur||'" searchcode="'||rec.ruimte_nr||'">');
pivp.add_xml_element (v_bestand, 'Description', rec.ruimte_nr);
pivp.add_xml_row (v_bestand, '<Assortment number=<3D>4001<30> code=<3D>4001<30>/>');
pivp.add_xml_row (v_bestand, '<FreeFields>');
@@ -3914,10 +3966,17 @@ BEGIN
pivp.add_xml_row (v_bestand, '</FreeFields>');
pivp.add_xml_row (v_bestand, '</Item>');
--UPDATE alg_ruimte SET alg_ruimte_externsyncdate=SYSDATE WHERE alg_ruimte_key=rec.alg_ruimte_key;
END LOOP;
pivp.add_xml_row (v_bestand, '</Items>');
pivp.add_xml_row (v_bestand, '</eExact>');
IF v_counter=0 THEN
DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand;
END IF;
fac.writelog (p_applname, 'S', 'Exact ruimte export uitgevoerd.','Aantal geexporteerde verhuubare ruimtes is: '||v_counter);
END;
/