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

Merge DB20 patches

Browse Source 
svn path=/Customer/trunk/; revision=21002
This commit is contained in:
Jos Groot Lipman
2014-03-13 14:59:23 +00:00
parent aabf50e34d
commit 8424e2511b
10 changed files with 506 additions and 320 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
AA/AADO/Once/AADO#29041.sql Normal file
View File

@@ -0,0 +1,3 @@
UPDATE fin_factuur
SET fin_factuur_datum = TO_DATE ('15-06-2012', 'dd-mm-yyyy')
WHERE fin_factuur_nr = '10252312';

5
AA/AADS/aads.sql
View File

@@ -736,6 +736,7 @@ CREATE OR REPLACE VIEW aads_v_dwh_budget_track_m2
fm_cluster,
ruimtefunctie,
m2,
teken_m2,
dsm_derden,
debnr,
afdeling,
@@ -750,6 +751,7 @@ AS
rema,
fm,
'KA',
SUM (opp),
SUM (teken_opp),
dsm_derden,
debiteur,
@@ -768,6 +770,7 @@ AS
debiteur,
dsm_derden,
totaal,
opp,
teken_opp
FROM aads_hv_freeze v,
( SELECT SUM (teken_opp) totaal, geb_code, kwartaal
@@ -791,6 +794,7 @@ AS
debiteur,
dsm_derden,
totaal,
opp,
teken_opp
FROM aads_hv_freeze v,
( SELECT SUM (teken_opp) totaal, geb_code, kwartaal
@@ -818,6 +822,7 @@ AS
totaal;
-- en maak deze view beschikbaar voor het DWH
GRANT SELECT ON aads_v_dwh_budget_track_m2 TO aafm;

37
AA/AAEY/aaey.sql
View File

@@ -1182,32 +1182,35 @@ CREATE OR REPLACE VIEW aaey_v_rap_factuuroverzicht
)
AS
SELECT b.prs_bedrijf_naam,
f.fin_factuur_nr,
fg.fin_factuur_nr,
'<a class="details" onclick=''FcltMgr.openDetail("appl/fin/fin_factuur.asp?urole=fo&'
|| 'fin_key='
|| f.fin_factuur_key
|| '")''>link</a>'
html_link,
fin_factuur_datum,
fin_factuur_boekmaand,
fg.fin_factuur_datum,
fg.fin_factuur_boekmaand,
fg.opdracht_id,
lcl.x ('prs_kostensoort_opmerking',
ks.prs_kostensoort_key,
ks.prs_kostensoort_opmerking),
SUM (fg.fin_factuurregel_totaal),
SUM (fg.fin_factuurregel_totaal) + SUM (fg.fin_factuurregel_btw)
FROM aaxx_v_factuur_gegevens fg, prs_kostensoort ks, prs_bedrijf b, fin_factuur f
WHERE f.fin_factuur_key = fg.fin_factuur_key
AND fg.prs_kostensoort_key = ks.prs_kostensoort_key
AND fg.prs_bedrijf_key = b.prs_bedrijf_key
AND fg.fin_factuur_statuses_key not in (1,3)
AND f.fin_factuur_verwijder IS NULL
GROUP BY b.prs_bedrijf_naam,
fg.fin_factuur_nr,
fg.fin_factuur_datum,
fg.fin_factuur_boekmaand,
opdracht_id,
lcl.x ('prs_kostensoort_opmerking',
ks.prs_kostensoort_key,
ks.prs_kostensoort_opmerking),
SUM (f.fin_factuurregel_totaal),
SUM (f.fin_factuurregel_totaal) + SUM (f.fin_factuurregel_btw)
FROM aaxx_v_factuur_gegevens f, prs_kostensoort ks, prs_bedrijf b
WHERE f.prs_kostensoort_key = ks.prs_kostensoort_key
AND f.prs_bedrijf_key = b.prs_bedrijf_key
GROUP BY prs_bedrijf_naam,
fin_factuur_nr,
fin_factuur_datum,
fin_factuur_boekmaand,
opdracht_id,
lcl.x ('prs_kostensoort_opmerking',
ks.prs_kostensoort_key,
ks.prs_kostensoort_opmerking),
fin_factuur_key;
f.fin_factuur_key;
BEGIN adm.systrackscriptId('$Id$', 0); END;

85
AA/AAZC/aazc.sql
View File

@@ -630,6 +630,89 @@ BEGIN
END;
/
CREATE OR REPLACE VIEW aazc_v_rap_catering
(
naam,
gastheer,
kostenplaats,
locatie,
gebouw,
verdieping,
ruimte,
reserveringnr,
fclt_d_datum,
van,
tot,
status,
artikel,
aantal,
prijs,
totaal
)
AS
SELECT pf_c.prs_perslid_naam_full pfc,
pf_h.prs_perslid_naam_full pfh,
k.prs_kostenplaats_nr || '-' || prs_kostenplaats_omschrijving,
rg.alg_locatie_omschrijving,
rg.alg_gebouw_omschrijving,
rg.alg_verdieping_omschrijving,
rg.alg_ruimte_nr,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr resnr,
TO_CHAR (rrr.res_rsv_ruimte_van, 'dd-mm-yyyy'),
TO_CHAR (rrr.res_rsv_ruimte_van, 'hh24:mi') van,
TO_CHAR (rrr.res_rsv_ruimte_tot, 'hh24:mi') tot,
s.res_status_bo_omschrijving,
rrp.omschrijving,
rrp.aantal,
rrp.prijs,
( SELECT SUM (prijs)
FROM (SELECT res.getartikelprijs (res_rsv_artikel_key) prijs,
res_rsv_ruimte_key
FROM res_rsv_artikel) rra2
WHERE rra2.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
GROUP BY rra2.res_rsv_ruimte_key)
+ res.getruimteprijs (rrr.res_rsv_ruimte_key)
FROM res_rsv_ruimte rrr,
(SELECT rrr.res_rsv_ruimte_key,
ra.res_artikel_omschrijving omschrijving,
rra.res_rsv_artikel_aantal aantal,
res.getartikelprijs (rra.res_rsv_artikel_key) prijs,
rra.res_status_bo_key
FROM res_rsv_ruimte rrr, res_rsv_artikel rra, res_artikel ra
WHERE rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_artikel_key = ra.res_artikel_key
AND rra.res_rsv_artikel_verwijder IS NULL
UNION
SELECT rrr.res_rsv_ruimte_key,
'Ruimte',
1 aantal,
res.getruimteprijs (rrr.res_rsv_ruimte_key) prijs,
rrr.res_status_bo_key
FROM res_rsv_ruimte rrr
WHERE res.getruimteprijs (rrr.res_rsv_ruimte_key) <> 0
AND res_rsv_ruimte_verwijder IS NULL) rrp,
prs_v_perslid_fullnames_all pf_h,
prs_v_perslid_fullnames_all pf_c,
prs_kostenplaats k,
res_status_bo s,
( SELECT MAX (alg_ruimte_key) alg_ruimte_key, res_rsv_ruimte_key
FROM res_v_rsv_ruimte_2_alg_ruimte
GROUP BY res_rsv_ruimte_key
UNION ALL
SELECT alg_ruimte_key, res_rsv_ruimte_key
FROM res_rsv_ruimte
WHERE alg_ruimte_key IS NOT NULL) r,
alg_v_ruimte_gegevens rg
WHERE res_activiteit_key <> 30
AND rrp.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_host_key = pf_h.prs_perslid_key
AND rrr.res_rsv_ruimte_contact_key = pf_c.prs_perslid_key
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND r.alg_ruimte_key = rg.alg_ruimte_key
AND rrp.res_status_bo_key = s.res_status_bo_key;
CREATE OR REPLACE VIEW aazc_v_rap_catering_derden
(
naam,
@@ -727,7 +810,7 @@ AS
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('AAZC', 2); END;
BEGIN fac.registercustversion('AAZC', 3); END;
/
COMMIT;

244
RWSN/Once/rwsn#29012.sql Normal file
View File

@@ -0,0 +1,244 @@
-- Customer specific once-script RWSN#29012.
--
-- (c) 2014 SG|facilitor bv
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xrwsn29012.lst
SET DEFINE OFF
/* Formatted on 22-8-2013 10:54:54 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE rwsn_update_did_status (p_import_key IN NUMBER)
AS
-- Cursor loopt - in volgorde! - over alle ingelezen DID statusberichten.
CURSOR c1
IS
SELECT imp_log_timestamp,
msg_type,
opdrachtnr,
externnr,
DECODE (
mld_info,
NULL,
NULL,
TO_CHAR (imp_log_timestamp, 'dd-mm-yyyy hh24:mi:ss')
|| CHR (13)
|| CHR (10)
|| mld_info
)
mld_info,
mld_einddatum
FROM rwsn_imp_didstatusmulti
WHERE imp_log_run = TO_CHAR (p_import_key)
ORDER BY 1, 2 DESC, 3;
--c_externnr_kenmerk_key NUMBER (10) := 1577;
c_externnr_ksrtkey NUMBER (10) := 321;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_count_tot NUMBER (10);
v_count NUMBER (10);
v_mld_key NUMBER (10);
v_opdr_key NUMBER (10);
v_typeopdr_key NUMBER (10);
v_opdr_status NUMBER (10);
v_externnr_kkey NUMBER (10);
BEGIN
-- Loop door alle geimporteerde DID statusberichten en verwerk deze.
v_count_tot := 0;
FOR rec IN c1
LOOP
BEGIN
v_aanduiding := '[' || rec.msg_type || '|' || rec.opdrachtnr || '] ';
v_count_tot := v_count_tot + 1;
v_count := 0;
v_mld_key := -1;
v_opdr_key := -1;
-- Key van melding/opdracht bepalen (alleen DID en GPO gerelateerd!).
IF (rec.opdrachtnr IS NOT NULL)
THEN
v_errormsg := 'Fout bij bepalen melding/opdracht.';
SELECT o.mld_melding_key,
o.mld_opdr_key,
o.mld_typeopdr_key,
o.mld_statusopdr_key
INTO v_mld_key,
v_opdr_key,
v_typeopdr_key,
v_opdr_status
FROM mld_opdr o,
mld_melding m,
mld_stdmelding sm,
mld_discipline md
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key IN (21, 101, 121, 181) -- ICT/VWM/GPO/WVO
AND o.mld_melding_key
|| '/'
|| o.mld_opdr_bedrijfopdr_volgnr = rec.opdrachtnr;
END IF;
-- Alleen iets doen als melding/opdracht succesvol is bepaald.
IF (v_mld_key > 0 AND v_opdr_key > 0)
THEN
-- Externnr-kenmerk initieel opslaan bij opdracht (met externnr).
IF (rec.externnr IS NOT NULL)
THEN
v_errormsg := 'Fout bij bepalen externnr-bestaan.';
SELECT COUNT ( * )
INTO v_count
FROM mld_kenmerk
WHERE mld_kenmerk_verwijder IS NULL
AND mld_srtkenmerk_key = c_externnr_ksrtkey
AND mld_typeopdr_key = v_typeopdr_key
AND mld_kenmerk_niveau = 'O';
IF (v_count = 1)
THEN
v_errormsg := 'Fout bij bepalen externnr-key.';
SELECT mld_kenmerk_key
INTO v_externnr_kkey
FROM mld_kenmerk
WHERE mld_kenmerk_verwijder IS NULL
AND mld_srtkenmerk_key = c_externnr_ksrtkey
AND mld_typeopdr_key = v_typeopdr_key
AND mld_kenmerk_niveau = 'O';
v_errormsg := 'Fout bij toevoegen externr-waarde.';
SELECT COUNT ( * )
INTO v_count
FROM mld_v_aanwezigkenmerkopdr ok, mld_kenmerk k
WHERE ok.mld_opdr_key = v_opdr_key
AND ok.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = c_externnr_ksrtkey;
IF (v_count = 0)
THEN
INSERT INTO mld_kenmerkopdr (
mld_kenmerkopdr_waarde,
mld_kenmerk_key,
mld_opdr_key
)
VALUES (rec.externnr, v_externnr_kkey, v_opdr_key);
END IF;
END IF;
END IF;
-- Bijwerken Opmerking met mld_info (bovenin melding en opdracht).
IF (rec.mld_info IS NOT NULL)
THEN
v_errormsg := 'Fout bij bijwerken opdracht-opmerking.';
v_count := LENGTH (rec.mld_info) + 5; -- Beetje speling qua lengte!
UPDATE mld_opdr
SET mld_opdr_opmerking =
DECODE (
mld_opdr_opmerking,
NULL,
rec.mld_info,
rec.mld_info || CHR (13) || CHR (10)
|| SUBSTR (mld_opdr_opmerking,
1,
(4000 - v_count))
)
WHERE mld_opdr_key = v_opdr_key
AND mld_statusopdr_key IN (5, 8);
IF (rec.msg_type <> 'NOK') -- NOK voor DID - nog - ongedefinieerd!
THEN
v_errormsg := 'Fout bij bijwerken melding-opmerking.';
UPDATE mld_melding
SET mld_melding_opmerking =
DECODE (
mld_melding_opmerking,
NULL,
rec.mld_info,
rec.mld_info || CHR (13) || CHR (10)
|| SUBSTR (mld_melding_opmerking,
1,
(4000 - v_count))
)
WHERE mld_melding_key = v_mld_key
AND mld_melding_status IN (4, 7);
END IF;
COMMIT;
END IF;
-- Plandatum van melding bijwerken volgens mld_einddatum (alleen naar
-- achteren en als msg_type=UPD).
IF (rec.msg_type = 'UPD' AND rec.mld_einddatum IS NOT NULL)
THEN
v_errormsg := 'Fout bij bijwerken einddatum volgens UPD.';
UPDATE mld_melding
SET mld_melding_einddatum = rec.mld_einddatum
WHERE mld_melding_key = v_mld_key
AND mld_melding_status IN (4, 7)
AND rec.mld_einddatum > mld_melding_einddatum;
COMMIT;
END IF;
-- Sluit opdracht (als msg_type=AFM); de bovenliggende melding wordt
-- eventueel gesloten tijdens db-procedure: rwsn_export_did_opdr!
IF (rec.msg_type = 'AFM')
THEN
-- Sluit opdracht!
IF (v_opdr_status = 5 OR v_opdr_status = 8)
THEN
v_errormsg := 'Fout bij sluiten opdracht.';
MLD.setopdrachtstatus (v_opdr_key, 6, 4); -- Facilitor
COMMIT;
END IF;
END IF;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
'Fout bij verwerken DID statusbericht.');
END;
END LOOP;
fac.imp_writelog (
p_import_key,
'S',
'Proces: '
|| TO_CHAR (v_count_tot)
|| ' DID statusberichten afgehandeld.',
''
);
COMMIT;
END;
/
COMMIT;
BEGIN adm.systrackscript('$Workfile: rwsn#27292.sql $', '$Revision$', 0); END;
/
SPOOL OFF

31
SUTF/Once/SUTF09.sql Normal file
View File

@@ -0,0 +1,31 @@
-- Customer specific once-script SUTF.
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xSUTF09.lst
SET DEFINE OFF
-- SUTF#29030
INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
fac_notificatie_job_oms,
fac_notificatie_job_mode,
fac_notificatie_job_interval,
fac_notificatie_job_nextrun,
fac_notificatie_job_flags)
VALUES ('SUTF_V_NOTI_INS_LATE',
'Uitgeleende objecten',
3,
24,
null,
0);
BEGIN adm.systrackscriptId('$Id$'); END;
/
commit;
SPOOL OFF
@sutf.sql

30
SUTF/sutf.sql
View File

@@ -2131,12 +2131,38 @@ BEGIN
END sutf_export_mld_archief;
/
-- SUTF#29030
-- Notificatiejob om te laat ingeleverde uitgeleende objecten naar de backoffice (=key 8621) te sturen
-- Terugbreng datum (=key 601) wordt bij het uitgeleende obejct geregistreerd
CREATE OR REPLACE VIEW SUTF_V_NOTI_INS_LATE
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY
)
AS
SELECT 'INSMAI',
NULL,
8621,
'Uitleentijd verstreken van: ' || ins_deel_omschrijving,
d.ins_deel_key,
NULL
FROM ins_kenmerkdeel kd, ins_kenmerk k, ins_deel d
WHERE kd.ins_kenmerk_key = k.ins_kenmerk_key
AND k.ins_srtkenmerk_key = 601
AND kd.ins_deel_key = d.ins_deel_key
AND ins_kenmerkdeel_verwijder IS NULL
AND d.ins_deel_verwijder IS NULL
AND ins_kenmerkdeel_waarde = TO_CHAR (SYSDATE - 1, 'DD-MM-YYYY')
AND ins_alg_ruimte_key_org IS NOT NULL;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('SUTF', 7); END;
BEGIN fac.registercustversion('SUTF', 9); END;
/
commit;

24
UWVA/Once/uwva87.sql Normal file
View File

@@ -0,0 +1,24 @@
-- Customer specific once-script UWVA87.
--
-- (c) 2014 SG|facilitor bv
SET ECHO ON
SPOOL xuwva87.lst
SET DEFINE OFF
--UWVA#29005
DROP PROCEDURE uwva_select_noti_bestelling;
COMMIT;
BEGIN adm.systrackscriptId('$Id$'); END;
/
SPOOL OFF
--@@uwva_prs.sql
--@@uwva_fin.sql
--@@uwva_hv.sql
@@uwva_misc.sql
BEGIN fac.registercustversion('UWVA', 87); END;
/
COMMIT;

259
UWVA/uwva_misc.sql
View File

@@ -8027,265 +8027,6 @@ AS
AND g.alg_locatie_key = l.alg_locatie_key
AND SYSDATE BETWEEN rrr.res_rsv_ruimte_van AND rrr.res_rsv_ruimte_tot;
-- UWVA#20124: Notificeert SP over technische uitval van bestellingen, geweigerde (mutaties van)
-- bestellingen en te-laat-geannuleerde bestellingen.
CREATE OR REPLACE PROCEDURE uwva_select_noti_bestelling (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
AS
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER;
v_aanduiding VARCHAR2 (200);
v_emailadres prs_bedrijf.prs_bedrijf_email%TYPE;
-- Te laat geannuleerde bestelopdrachten
CURSOR c_cancel
IS
SELECT DISTINCT bb.bes_bestelling_key,
bboi.bes_bestelopdr_key,
ft.fac_srtnotificatie_key
FROM bes_bestelling bb,
bes_bestelling_item bbi,
bes_bestelopdr_item bboi,
bes_srtdeel art,
fac_tracking ft,
fac_srtnotificatie fsn
WHERE bb.bes_bestelling_parentkey IS NULL
AND bb.bes_bestelling_status = 8
AND bbi.bes_bestelling_key = bb.bes_bestelling_key
AND bboi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND art.bes_srtdeel_key = bbi.bes_srtdeel_key
AND fsn.fac_srtnotificatie_code = 'BES2CA'
AND ft.fac_srtnotificatie_key = fsn.fac_srtnotificatie_key
AND ft.fac_tracking_refkey = bboi.bes_bestelopdr_key
AND bes_srtdeel_verwijder IS NULL
AND ft.fac_tracking_datum > SYSDATE - 1/24
AND bb.bes_bestelling_leverdatum <
ft.fac_tracking_datum + art.bes_srtdeel_annuleerdagen;
-- Technische uitval bestelopdrachten
CURSOR c_uitval_opdr
IS
SELECT bo.bes_bestelopdr_key, bo.bes_bestelopdr_id,
ft.fac_srtnotificatie_key
FROM fac_srtnotificatie fsn,
fac_tracking ft,
bes_bestelopdr bo
WHERE fsn.fac_srtnotificatie_code = 'BES2SX'
AND ft.fac_srtnotificatie_key = fsn.fac_srtnotificatie_key
AND ft.fac_tracking_datum > SYSDATE - 1/24
AND bo.bes_bestelopdr_key = ft.fac_tracking_refkey;
-- Afgewezen/geweigerde bestelopdrachten
CURSOR c_rej_opdr
IS
SELECT bo.bes_bestelopdr_key, bo.bes_bestelopdr_id,
ft.fac_srtnotificatie_key
FROM fac_srtnotificatie fsn,
fac_tracking ft,
bes_bestelopdr bo
WHERE fsn.fac_srtnotificatie_code = 'BES2RE'
AND ft.fac_srtnotificatie_key = fsn.fac_srtnotificatie_key
AND ft.fac_tracking_datum > SYSDATE - 1/24
AND bo.bes_bestelopdr_key = ft.fac_tracking_refkey;
-- Afgewezen/geweigerde mutaties van aanvragen
CURSOR c_rej_aanvr
IS
SELECT bb.bes_bestelling_key, ft.fac_srtnotificatie_key
FROM fac_srtnotificatie fsn,
fac_tracking ft,
bes_bestelling bb
WHERE fsn.fac_srtnotificatie_code = 'BESXXX'
AND ft.fac_srtnotificatie_key = fsn.fac_srtnotificatie_key
AND ft.fac_tracking_datum > SYSDATE - 1/24
AND bb.bes_bestelling_key = ft.fac_tracking_refkey;
BEGIN
v_aanduiding := 'E-mailadres ontvanger bepalen';
SELECT prs_bedrijf_email
INTO v_emailadres
FROM prs_bedrijf
WHERE prs_bedrijf_key = 1; -- 'Intern'
-- Te laat geannuleerde bestelopdrachten
FOR rec IN c_cancel
LOOP
BEGIN
v_aanduiding := 'O-'||rec.bes_bestelling_key;
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
fac_notificatie_prioriteit,
fac_notificatie_lang)
VALUES (rec.fac_srtnotificatie_key,
2, -- verstuur via e-mail
v_emailadres, -- e-mailadres SP
'Bestelopdracht '||v_aanduiding||' is geannuleerd met mogelijke kosten.',
rec.bes_bestelopdr_key,
2,
'NL'
);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname, 'W',
v_aanduiding || v_errormsg,
''
);
END;
END LOOP;
-- Technische uitval bestelopdrachten
FOR rec IN c_uitval_opdr
LOOP
BEGIN
v_aanduiding := 'O-'||rec.bes_bestelopdr_id;
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
fac_notificatie_prioriteit,
fac_notificatie_lang)
VALUES (rec.fac_srtnotificatie_key,
2, -- verstuur via e-mail
v_emailadres, -- e-mailadres SP
'Bestelopdracht '||v_aanduiding||' is NIET verzonden.',
rec.bes_bestelopdr_key,
2,
'NL'
);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname, 'W',
v_aanduiding || v_errormsg,
''
);
END;
END LOOP;
-- Afgewezen/geweigerde bestelopdrachten
FOR rec IN c_rej_opdr
LOOP
BEGIN
v_aanduiding := 'O-'||rec.bes_bestelopdr_id;
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
fac_notificatie_prioriteit,
fac_notificatie_lang)
VALUES (rec.fac_srtnotificatie_key,
2, -- verstuur via e-mail
v_emailadres, -- e-mailadres SP
'Bestelopdracht '||v_aanduiding||' is geweigerd door de leverancier.',
rec.bes_bestelopdr_key,
2,
'NL'
);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname, 'W',
v_aanduiding || v_errormsg,
''
);
END;
END LOOP;
-- Afgewezen/geweigerde mutaties van aanvragen
FOR rec IN c_rej_aanvr
LOOP
BEGIN
v_aanduiding := 'A-'||rec.bes_bestelling_key;
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
fac_notificatie_prioriteit,
fac_notificatie_lang)
VALUES (rec.fac_srtnotificatie_key,
2, -- verstuur via e-mail
v_emailadres, -- e-mailadres SP
'Mutatie van bestelling '||v_aanduiding||' is geweigerd door de leverancier.',
rec.bes_bestelling_key,
2,
'NL'
);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname, 'W',
v_aanduiding || v_errormsg,
''
);
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname, 'W',
v_aanduiding || v_errormsg,
''
);
END;
/
CREATE OR REPLACE VIEW uwva_v_rap_openopdr_mldafgmld
AS

108
WIBC/wibc.sql
View File

@@ -1218,7 +1218,8 @@ EXCEPTION
END wibc_update_mt940;
/
/* Formatted on 26-2-2014 17:14:02 (QP5 v5.136.908.31019) */
/* Formatted on 12-3-2014 12:06:54 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW wibc_v_cp
(
cp_key,
@@ -1226,6 +1227,7 @@ CREATE OR REPLACE VIEW wibc_v_cp
pcnt_prijs,
bedrijf,
bcp_key,
bcp_lang,
bcnt_aantal,
bcnt_soort,
bcnt_prijs
@@ -1235,11 +1237,20 @@ AS
pcnt.contract,
pcnt.prijs,
pb.bedrijf,
COALESCE (bcp1.prs_link_key, bcp2.prs_link_key, p.prs_perslid_key),
COALESCE (bcp1.prs_link_key, bcp2.prs_link_key, p.prs_perslid_key)
bcp_key,
(SELECT COALESCE (prs_perslid_lang, 'NL')
FROM prs_perslid
WHERE prs_perslid_key =
COALESCE (bcp1.prs_link_key,
bcp2.prs_link_key,
p.prs_perslid_key))
bcp_lang,
bcnt.aantal,
DECODE (bcnt.min_contract,
bcnt.max_contract, bcnt.min_contract,
NULL),
NULL)
bcp_soort,
COALESCE (bcnt.tot_prijs, pcnt.prijs) tot_prijs
FROM prs_v_aanwezigperslid p -- Personen (actual)
LEFT JOIN (SELECT prs_link_key,
@@ -1296,11 +1307,12 @@ AS
ON UPPER (pb.bedrijf) = bcnt.bedrijf
WHERE p.prs_afdeling_key IN (21, 22);
/* Formatted on 10-3-2014 11:42:24 (QP5 v5.136.908.31019) */
/* Formatted on 12-3-2014 13:00:00 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW wibc_v_rap_res_actual
(
periode,
hide_f_debnr,
language,
fclt_f_bedrijf,
per_adres,
fclt_f_aanvrager,
@@ -1336,6 +1348,7 @@ AS
1)
periode,
SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6) debnr,
x.bcp_lang,
COALESCE (x.bedrijf, SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6))
bedrijf,
TRIM (pa.prs_kenmerklink_waarde) pa,
@@ -1462,7 +1475,8 @@ AS
rrr.res_rsv_ruimte_opmerking,
rrr.res_rsv_ruimte_contact_key,
v.bedrijf,
v.bcp_key
v.bcp_key,
v.bcp_lang
FROM res_v_aanwezigrsv_ruimte rrr, wibc_v_cp v
WHERE rrr.res_rsv_ruimte_ordernr IS NULL
AND rrr.res_status_fo_key IN (1, 2)
@@ -1493,13 +1507,13 @@ AS
LEFT JOIN prs_v_aanwezigkenmerklink btwnr -- BTW-nr
ON x.bcp_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
LEFT JOIN (SELECT rrr.res_rsv_ruimte_key,
rr.res_ruimte_nr,
--rr.res_ruimte_nr,
lcl.x ('res_ruimte_nr', rr.res_ruimte_key, rr.res_ruimte_nr) res_ruimte_nr,
'1R' res_type,
TO_NUMBER (NULL) vnr,
NULL res_voorziening,
rrr.res_rsv_ruimte_prijs res_rsv_prijs,
(rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van)
* 24
(rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24
aantal, -- Duur in uren
rr.res_ruimte_prijs ps, -- Uur-tarief
rr.res_ruimte_prijs_ochtend po, -- Dagdeel-tarief
@@ -1513,17 +1527,17 @@ AS
AND rro.res_ruimte_key = rr.res_ruimte_key
UNION ALL
SELECT rrd.res_rsv_ruimte_key,
rr.res_ruimte_nr,
--rr.res_ruimte_nr,
lcl.x ('res_ruimte_nr', rr.res_ruimte_key, rr.res_ruimte_nr) res_ruimte_nr,
'2V' res_type,
rd.res_ins_deel_key vnr,
LTRIM (ID.ins_deel_omschrijving)
LTRIM (lcl.x ('ins_deel_omschrijving', ID.ins_deel_key, ID.ins_deel_omschrijving))
|| DECODE (rd.res_deel_eenheid,
NULL, '',
' (' || rd.res_deel_eenheid || ')')
' (' || lcl.x ('res_deel_eenheid', rd.res_deel_key, rd.res_deel_eenheid) || ')')
res_voorziening,
rrd.res_rsv_deel_prijs res_rsv_prijs,
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
* 24
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24
aantal, -- Duur in uren
rd.res_deel_prijs ps, -- Uur-tarief
TO_NUMBER (NULL) po, -- Dagdeel-tarief
@@ -1544,13 +1558,14 @@ AS
AND rd.res_ins_deel_key = ID.ins_deel_key
UNION ALL
SELECT rra.res_rsv_ruimte_key,
rr.res_ruimte_nr,
--rr.res_ruimte_nr,
lcl.x ('res_ruimte_nr', rr.res_ruimte_key, rr.res_ruimte_nr) res_ruimte_nr,
'3C' res_type,
ra.res_artikel_volgnummer vnr,
LTRIM (ra.res_artikel_omschrijving)
LTRIM (lcl.x ('res_artikel_omschrijving', ra.res_artikel_key, ra.res_artikel_omschrijving))
|| DECODE (ra.res_artikel_eenheid,
NULL, '',
' (' || ra.res_artikel_eenheid || ')')
' (' || lcl.x ('res_artikel_eenheid', ra.res_artikel_key, ra.res_artikel_eenheid) || ')')
res_voorziening,
rra.res_rsv_artikel_prijs res_rsv_prijs,
rra.res_rsv_artikel_aantal aantal,
@@ -1576,6 +1591,7 @@ AS
UNION ALL -- Additionele lidmaatschapregels voor leden!
SELECT 1 periode,
SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6) debnr,
x.bcp_lang,
COALESCE (x.bedrijf, SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6))
bedrijf,
TRIM (pa.prs_kenmerklink_waarde) pa,
@@ -1627,8 +1643,7 @@ AS
NULL tot,
NULL bezoekers,
NULL res_activiteit_key,
'Lidmaatschap ' || x.pcnt_soort || TO_CHAR (SYSDATE, ' yyyy-mm')
ruimte_voorzieningen,
x.pcnt_soort || TO_CHAR (SYSDATE, ' yyyy-mm') ruimte_voorzieningen,
NULL aantal,
NULL stuksprijs,
ROUND (x.pcnt_prijs, 2) netto,
@@ -1639,6 +1654,7 @@ AS
FROM -- Lidmaatschap maandelijks vooruit (VANAF 2013)!
(SELECT v.bedrijf,
v.bcp_key,
v.bcp_lang,
SUBSTR (v.pcnt_soort, 1, INSTR (v.pcnt_soort, ' ', 1) - 1)
pcnt_soort,
v.pcnt_prijs
@@ -1683,6 +1699,7 @@ AS
1)
periode,
SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6) debnr,
NULL bcp_lang,
COALESCE (x.bedrijf, SUBSTR ('000000' || TO_CHAR (x.bcp_key), -6))
bedrijf,
TRIM (pa.prs_kenmerklink_waarde) pa,
@@ -1722,7 +1739,7 @@ AS
NULL tot,
NULL bezoekers,
NULL res_activiteit_key,
x.res_ruimte_nr || ' 20% korting' ruimte_voorzieningen,
x.res_ruimte_nr || ' 20%' ruimte_voorzieningen,
NULL aantal,
NULL stuksprijs,
ROUND (
@@ -1786,10 +1803,11 @@ AS
LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
ON x.bcp_key = tav.prs_link_key AND tav.prs_kenmerk_key = 1040;
/* Formatted on 10-3-2014 12:30:30 (QP5 v5.136.908.31019) */
/* Formatted on 12-3-2014 13:00:00 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW wibc_v_rap_res_frozen
(
hide_f_debnr,
language,
fclt_f_bedrijf,
per_adres,
fclt_f_aanvrager,
@@ -1821,6 +1839,7 @@ CREATE OR REPLACE VIEW wibc_v_rap_res_frozen
)
AS
SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
v.bcp_lang,
COALESCE (bedr.prs_kenmerklink_waarde,
SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
bedrijf,
@@ -1934,6 +1953,8 @@ AS
FROM res_v_aanwezigrsv_ruimte rr, fac_v_aanwezigusrdata ud
WHERE rr.res_rsv_ruimte_ordernr = ud.fac_usrdata_code
AND ud.fac_usrtab_key = 82) x
LEFT JOIN wibc_v_cp v
ON x.prs_perslid_key = v.cp_key
LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
ON x.prs_perslid_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
@@ -1959,13 +1980,13 @@ AS
LEFT JOIN prs_v_aanwezigkenmerklink btwnr -- BTW-nr
ON x.prs_perslid_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
LEFT JOIN (SELECT rrr.res_rsv_ruimte_key,
rr.res_ruimte_nr,
--rr.res_ruimte_nr,
lcl.x ('res_ruimte_nr', rr.res_ruimte_key, rr.res_ruimte_nr) res_ruimte_nr,
'1R' res_type,
TO_NUMBER (NULL) vnr,
NULL res_voorziening,
rrr.res_rsv_ruimte_prijs res_rsv_prijs,
(rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van)
* 24
(rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24
aantal, -- Duur in uren
21 btw
FROM res_v_aanwezigrsv_ruimte rrr,
@@ -1976,17 +1997,17 @@ AS
AND rro.res_ruimte_key = rr.res_ruimte_key
UNION ALL
SELECT rrd.res_rsv_ruimte_key,
rr.res_ruimte_nr,
--rr.res_ruimte_nr,
lcl.x ('res_ruimte_nr', rr.res_ruimte_key, rr.res_ruimte_nr) res_ruimte_nr,
'2V' res_type,
rd.res_ins_deel_key vnr,
LTRIM (ID.ins_deel_omschrijving)
LTRIM (lcl.x ('ins_deel_omschrijving', ID.ins_deel_key, ID.ins_deel_omschrijving))
|| DECODE (rd.res_deel_eenheid,
NULL, '',
' (' || rd.res_deel_eenheid || ')')
' (' || lcl.x ('res_deel_eenheid', rd.res_deel_key, rd.res_deel_eenheid) || ')')
res_voorziening,
rrd.res_rsv_deel_prijs res_rsv_prijs,
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
* 24
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24
aantal, -- Duur in uren
21 btw
FROM res_v_aanwezigrsv_ruimte rrr,
@@ -2004,13 +2025,14 @@ AS
AND rd.res_ins_deel_key = ID.ins_deel_key
UNION ALL
SELECT rra.res_rsv_ruimte_key,
rr.res_ruimte_nr,
--rr.res_ruimte_nr,
lcl.x ('res_ruimte_nr', rr.res_ruimte_key, rr.res_ruimte_nr) res_ruimte_nr,
'3C' res_type,
ra.res_artikel_volgnummer vnr,
LTRIM (ra.res_artikel_omschrijving)
LTRIM (lcl.x ('res_artikel_omschrijving', ra.res_artikel_key, ra.res_artikel_omschrijving))
|| DECODE (ra.res_artikel_eenheid,
NULL, '',
' (' || ra.res_artikel_eenheid || ')')
' (' || lcl.x ('res_artikel_eenheid', ra.res_artikel_key, ra.res_artikel_eenheid) || ')')
res_voorziening,
--DECODE (ra.res_artikel_key, -1, -1, 1) * -- Korting
rra.res_rsv_artikel_prijs res_rsv_prijs,
@@ -2033,6 +2055,7 @@ AS
ON x.res_rsv_ruimte_key = rvc.res_rsv_ruimte_key
UNION ALL -- Additionele lidmaatschapregels voor leden!
SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
v.bcp_lang,
COALESCE (bedr.prs_kenmerklink_waarde,
SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
bedrijf,
@@ -2086,17 +2109,16 @@ AS
NULL tot,
NULL bezoekers,
NULL res_activiteit_key,
'Lidmaatschap '
|| COALESCE (
SUBSTR (v.pcnt_soort, 1, INSTR (v.pcnt_soort, ' ', 1) - 1),
'')
COALESCE (
SUBSTR (l.pcnt_soort, 1, INSTR (l.pcnt_soort, ' ', 1) - 1),
'')
|| x.lidmaatschap
ruimte_voorzieningen,
NULL aantal,
NULL stuksprijs,
ROUND (COALESCE (v.pcnt_prijs, x.lidmaatschap_prijs), 2) netto,
ROUND (COALESCE (l.pcnt_prijs, x.lidmaatschap_prijs), 2) netto,
21 btwtarief,
ROUND (COALESCE (v.pcnt_prijs, x.lidmaatschap_prijs) * 21 / 100, 2)
ROUND (COALESCE (l.pcnt_prijs, x.lidmaatschap_prijs) * 21 / 100, 2)
btw,
NULL oms,
NULL opm
@@ -2126,8 +2148,11 @@ AS
WHERE fac_usrtab_key = 82
AND SUBSTR (fac_usrdata_omschr, -1) IN ('L', 'X') -- Lidmaatschap
AND TO_CHAR (fac_usrdata_aanmaak, 'yyyy-mm') = '2013-01') x
LEFT JOIN wibc_v_cp v
ON x.prs_perslid_key = v.bcp_key AND x.lidmaatschap_prijs = v.bcnt_prijs
LEFT JOIN wibc_v_cp l -- Separate L-regels zolang de prijs klopt!
ON x.prs_perslid_key = l.bcp_key
AND x.lidmaatschap_prijs = l.bcnt_prijs
LEFT JOIN wibc_v_cp v -- Voor de language
ON x.prs_perslid_key = v.cp_key
LEFT JOIN prs_v_aanwezigkenmerklink pa -- 1060 = Factuur p.a.
ON x.prs_perslid_key = pa.prs_link_key AND pa.prs_kenmerk_key = 1060
LEFT JOIN prs_v_aanwezigkenmerklink tav -- 1040 = Factuur t.a.v.
@@ -2154,6 +2179,7 @@ AS
ON x.prs_perslid_key = btwnr.prs_link_key AND btwnr.prs_kenmerk_key = 1005
UNION ALL -- Additionele kortingregels voor huurders/leden!
SELECT SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6) debnr,
NULL bcp_lang,
COALESCE (bedr.prs_kenmerklink_waarde,
SUBSTR ('000000' || TO_CHAR (x.prs_perslid_key), -6))
bedrijf,
@@ -2195,7 +2221,7 @@ AS
NULL tot,
NULL bezoekers,
NULL res_activiteit_key,
x.res_ruimte_nr || ' 20% korting' ruimte_voorzieningen,
x.res_ruimte_nr || ' 20%' ruimte_voorzieningen,
NULL aantal,
NULL stuksprijs,
ROUND (COALESCE (x.res_rsv_ruimte_prijs, 0) * -0.2, 2) netto,
@@ -2233,7 +2259,6 @@ AS
LEFT JOIN prs_v_aanwezigkenmerklink bedr -- 1000 = Bedrijf
ON x.prs_perslid_key = bedr.prs_link_key AND bedr.prs_kenmerk_key = 1000;
/* Formatted on 5-6-2013 15:05:55 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW wibc_v_rap_freezereserveringen
(
@@ -2284,6 +2309,7 @@ AS
v.fclt_f_aanvrager) x
WHERE x.aantal = 1 AND x.periode = 0;
/* Formatted on 5-6-2013 12:24:42 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW wibc_v_rap_transactielijst
(