FCLT#56045 Implementatie Volksbank
svn path=/Customer/trunk/; revision=41873
This commit is contained in:
Suzan Wiegerinck
175
VOLK/volk.sql
175
VOLK/volk.sql
@@ -1,4 +1,3 @@
|
||||
/* Formatted on 8-3-2019 08:52:17 (QP5 v5.336) */
|
||||
--
|
||||
-- $Id$
|
||||
--
|
||||
@@ -496,6 +495,7 @@ CREATE OR REPLACE VIEW VOLK_V_RAPP_MLD_WINKELS
|
||||
(
|
||||
DATUM,
|
||||
HTML_AANVRAAG_NR,
|
||||
MELDING,
|
||||
LOCATIE,
|
||||
GEBOUW,
|
||||
MELDER,
|
||||
@@ -513,6 +513,7 @@ AS
|
||||
|| '")''>'
|
||||
|| HTF.escape_sc (meldingnummer)
|
||||
|| '</a>' meldingnummer,
|
||||
melding_key,
|
||||
melding_locatie,
|
||||
melding_gebouw,
|
||||
melder,
|
||||
@@ -566,13 +567,185 @@ AS
|
||||
AND a.bez_afspraak_datum < TRUNC (SYSDATE) + 2
|
||||
AND a.bez_afspraak_datum > SYSDATE;
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW VOLK_V_RAPP_TRACKING_UITLEEN
|
||||
(
|
||||
ins_deel_key,
|
||||
object_omschrijving,
|
||||
datum,
|
||||
datum_tijd,
|
||||
tracking,
|
||||
omschrijving,
|
||||
door
|
||||
)
|
||||
AS
|
||||
SELECT d.ins_deel_key,
|
||||
d.ins_deel_omschrijving,
|
||||
TRUNC (t.fac_tracking_datum) periode,
|
||||
t.fac_tracking_datum,
|
||||
DECODE (t.fac_srtnotificatie_key,
|
||||
124, 'Uitgegeven',
|
||||
125, 'Ingenomen') tracking,
|
||||
t.fac_tracking_oms,
|
||||
p.prs_perslid_naam_full
|
||||
FROM fac_tracking t, ins_deel d, prs_v_perslid_fullnames_all p
|
||||
WHERE fac_tracking_refkey = d.ins_deel_key
|
||||
AND t.prs_perslid_key = p.prs_perslid_key
|
||||
AND d.ins_srtdeel_key IN (24, 22) -- passen en sleutels
|
||||
AND fac_srtnotificatie_key IN (124, 125) -- uitgifte (insout) en inname (insinn)
|
||||
ORDER BY ins_deel_key, fac_tracking_datum;
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW VOLK_V_NOTI_BEZOEKERS
|
||||
(
|
||||
SRTNOTIFICATIE,
|
||||
SRTNOTIFICATIE_KEY,
|
||||
TEXT,
|
||||
AFSPRAAK_KEY,
|
||||
MAIL_TO,
|
||||
CONTACT,
|
||||
BEZOEK_VAN,
|
||||
BEZOEK_TOT,
|
||||
LOCATIE
|
||||
)
|
||||
AS
|
||||
SELECT DISTINCT
|
||||
sn.fac_srtnotificatie_code,
|
||||
sn.fac_srtnotificatie_key,
|
||||
DECODE (
|
||||
sn.fac_srtnotificatie_key,
|
||||
30, 'Nieuwe bezoekersregistratie, registratienummer: '
|
||||
|| b.afspraak_key,
|
||||
31, 'Wijziging in bezoekersregistratie ' || b.afspraak_key)
|
||||
TEXT,
|
||||
b.afspraak_key,
|
||||
fac_usrdata_omschr,
|
||||
b.contact,
|
||||
b.bezoek_van,
|
||||
b.bezoek_tot,
|
||||
l.alg_locatie_code
|
||||
FROM fac_tracking t,
|
||||
bez_v_udr_bezoeker b,
|
||||
alg_locatie l,
|
||||
fac_usrdata ud,
|
||||
fac_srtnotificatie sn
|
||||
WHERE sn.fac_srtnotificatie_key IN (30, 31) --- BEZMUT, registreren nieuwe afspraak en BEZUPD, wijzigen afspraak
|
||||
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
|
||||
AND t.fac_tracking_refkey = b.afspraak_key
|
||||
AND b.fclt_3d_locatie_key = l.alg_locatie_key
|
||||
AND ud.FAC_USRDATA_code = l.alg_locatie_code
|
||||
AND ud.fac_usrtab_key = 101 --- bezoekersmutaties van de afgelopen 15 minuten
|
||||
AND t.fac_tracking_datum > SYSDATE - (1 / 96);
|
||||
|
||||
COMMIT;
|
||||
|
||||
CREATE OR REPLACE PROCEDURE volk_export_noti_bezoekers (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
p_filedir IN VARCHAR2,
|
||||
p_filename IN VARCHAR2)
|
||||
AS
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_errorhint VARCHAR2 (100);
|
||||
|
||||
v_aanduiding VARCHAR2 (100);
|
||||
v_afspraak_key NUMBER (10);
|
||||
|
||||
CURSOR c IS SELECT * FROM VOLK_V_NOTI_BEZOEKERS;
|
||||
BEGIN
|
||||
v_errorhint := 'init';
|
||||
|
||||
DELETE imp_log
|
||||
WHERE imp_log_applicatie = p_applname;
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
v_errorhint := 'Add mail';
|
||||
|
||||
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,
|
||||
prs_perslid_key_sender)
|
||||
SELECT fac_srtnotificatie_key,
|
||||
2,
|
||||
rec.mail_to,
|
||||
rec.text,
|
||||
rec.afspraak_key,
|
||||
2,
|
||||
'NL',
|
||||
3
|
||||
FROM fac_srtnotificatie
|
||||
WHERE fac_srtnotificatie_code = 'CUST01';
|
||||
|
||||
|
||||
fac.imp_writelog (p_applname,
|
||||
'I',
|
||||
'Bezoekers bij afspraak ' || rec.afspraak_key,
|
||||
'Per mail verzonden naar: ' || rec.mail_to);
|
||||
|
||||
|
||||
COMMIT;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
fac.writelog (
|
||||
p_applname,
|
||||
'E',
|
||||
'Error '
|
||||
|| v_aanduiding
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes,
|
||||
v_errorhint);
|
||||
END;
|
||||
END LOOP;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
fac.writelog (p_applname,
|
||||
'E',
|
||||
'Error ' || oracle_err_num || '/' || oracle_err_mes,
|
||||
v_errorhint);
|
||||
END volk_export_noti_bezoekers;
|
||||
/
|
||||
|
||||
BEGIN
|
||||
DBMS_UTILITY.COMPILE_SCHEMA (USER, FALSE);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE VIEW VOLK_V_RAPP_BEDRIJF_DIENST
|
||||
(
|
||||
bedrijf_naam,
|
||||
prs_bedrijf_key,
|
||||
dienst,
|
||||
locatie
|
||||
)
|
||||
AS
|
||||
SELECT b.prs_bedrijf_naam, scope.*
|
||||
FROM prs_bedrijf b,
|
||||
(SELECT bdl.prs_bedrijf_key,
|
||||
d.prs_dienst_omschrijving,
|
||||
NVL ( NVL (l.alg_locatie_omschrijving,
|
||||
g.ALG_GEBOUW_OMSCHRIJVING), 'Alle locaties') locatie
|
||||
FROM prs_bedrijfdienstlocatie bdl,
|
||||
prs_dienst d,
|
||||
alg_locatie l,
|
||||
alg_gebouw g
|
||||
WHERE bdl.prs_dienst_key = d.prs_dienst_key(+)
|
||||
AND bdl.alg_gebouw_key = g.alg_gebouw_key(+)
|
||||
AND bdl.alg_locatie_key = l.alg_locatie_key(+)) scope
|
||||
WHERE b.prs_bedrijf_key = scope.prs_bedrijf_key;
|
||||
|
||||
------ payload end ------
|
||||
|
||||
SET DEFINE OFF
|
||||
|
||||
Reference in New Issue
Block a user