347 lines
10 KiB
SQL
347 lines
10 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific db-configuration for DVON.
|
|
DEFINE thisfile = 'DVON.SQL'
|
|
DEFINE dbuser = '^DVON'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SPOOL &fcltlogfile
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
CREATE OR REPLACE PROCEDURE dvon_import_perslid (p_import_key IN NUMBER)
|
|
AS
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_errormsg VARCHAR2 (400);
|
|
v_errorhint VARCHAR2 (400);
|
|
v_newline FAC_IMP_FILE.FAC_IMP_FILE_LINE%TYPE;
|
|
BEGIN
|
|
|
|
BEGIN
|
|
SELECT fac_imp_file_line
|
|
INTO v_newline
|
|
FROM fac_imp_file
|
|
WHERE fac_import_key = p_import_key
|
|
AND fac_imp_file_index = 1;
|
|
|
|
IF v_newline LIKE
|
|
CHR (TO_NUMBER ('EF', 'xx'))
|
|
|| CHR (TO_NUMBER ('BB', 'xx'))
|
|
|| CHR (TO_NUMBER ('BF', 'xx'))
|
|
|| '%'
|
|
THEN
|
|
-- EF BB BF aangetroffen
|
|
fac.imp_writelog (p_import_key,
|
|
'W',
|
|
'Byte Order Mark aangetroffen',
|
|
'Bestand heeft onbehandeld UTF-8 formaat.'
|
|
);
|
|
v_newline := SUBSTR (v_newline, 4);
|
|
END IF;
|
|
|
|
-- Verwijder de dubbele quotes
|
|
v_newline := REPLACE (v_newline, '"');
|
|
|
|
UPDATE fac_imp_file
|
|
SET fac_imp_file_line = v_newline
|
|
WHERE fac_import_key = p_import_key
|
|
AND fac_imp_file_index = 1;
|
|
|
|
|
|
EXCEPTION WHEN OTHERS
|
|
THEN
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
'Fout bij controle op Byte Order Mark',
|
|
''
|
|
);
|
|
END;
|
|
|
|
v_errorhint := 'Generieke update';
|
|
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
|
|
prs.import_perslid (p_import_key,
|
|
'0;0;0;0;0;0;5;2;0;3;'||
|
|
'0;0;0;0;0;0;0;4;0;0;'||
|
|
'0;1;0;0;0;0;0;0;0;0;'||
|
|
'0;0;0;0;0;0;0;0;0;0;'||
|
|
'0;0;0;0;0;0',
|
|
'accountnaam;achternaam;voornaam;e-mail;afdeling'
|
|
);
|
|
|
|
UPDATE fac_imp_perslid
|
|
SET prs_srtperslid_omschrijving = 'Onbekend';
|
|
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
|
|
END dvon_import_perslid;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE dvon_update_perslid (
|
|
p_import_key IN NUMBER
|
|
) IS
|
|
-- Alle personen verwijderen die niet meer in import bestand voorkomen.
|
|
CURSOR c_del
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_oslogin, pf.prs_perslid_naam_full
|
|
FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
|
|
WHERE p.prs_perslid_oslogin = i.prs_perslid_oslogin(+)
|
|
AND pf.prs_perslid_key = p.prs_perslid_key
|
|
AND p.prs_perslid_oslogin IS NOT NULL
|
|
AND i.prs_perslid_oslogin IS NULL
|
|
AND p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_oslogin NOT LIKE '%_%'
|
|
AND p.prs_perslid_oslogin2 IS NULL
|
|
ORDER BY 2;
|
|
|
|
v_count NUMBER;
|
|
|
|
BEGIN
|
|
-- generic update
|
|
|
|
SELECT count(*)
|
|
INTO v_count
|
|
FROM fac_imp_perslid;
|
|
|
|
IF v_count < 150
|
|
THEN
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
'Het aantal te importeren personen is te klein ('
|
|
|| TO_CHAR (v_count) || ')',
|
|
'Zie Specificatie'
|
|
);
|
|
RETURN;
|
|
END IF;
|
|
|
|
-- 'LOGIN' betekent dat op basis van oslogin wordt gematched.
|
|
-- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
|
|
prs.update_perslid (p_import_key, 'LOGIN', NULL);
|
|
|
|
-- Verwijder personen die niet meer in de import voorkomen.
|
|
FOR rec IN c_del
|
|
LOOP
|
|
BEGIN
|
|
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
|
END;
|
|
END LOOP;
|
|
|
|
END dvon_update_perslid;
|
|
/
|
|
|
|
-- Vanaf hier rapportages
|
|
|
|
CREATE OR REPLACE VIEW dvon_v_rap_voorraad
|
|
(
|
|
OBJECT_GROEP,
|
|
OBJECT_SOORT,
|
|
MAAT,
|
|
AANTAL,
|
|
LOCATIE,
|
|
GEBOUW,
|
|
VERDIEPINGCODE,
|
|
RUIMTENR
|
|
)
|
|
AS
|
|
SELECT iv.groep,
|
|
iv.soort,
|
|
maat.fac_usrdata_omschr,
|
|
COUNT (maat.fac_usrdata_omschr),
|
|
iv.locatie_omschrijving,
|
|
iv.gebouw,
|
|
iv.verdiepingcode,
|
|
iv.ruimtenr
|
|
FROM ins_v_udr_deel iv,
|
|
(SELECT f.fac_usrdata_omschr, iv.ins_deel_key
|
|
FROM fac_usrdata f, ins_v_srtdeel_kenmerkdeel iv, ins_kenmerk ik, ins_srtkenmerk isk
|
|
WHERE f.fac_usrdata_key = iv.ins_kenmerkdeel_waarde
|
|
AND ik.ins_srtkenmerk_key = isk.ins_srtkenmerk_key
|
|
AND iv.ins_kenmerk_key = ik.ins_kenmerk_key
|
|
AND isk.ins_srtkenmerk_upper LIKE '%MAAT%') maat
|
|
WHERE iv.deel_key = maat.ins_deel_key
|
|
GROUP BY maat.fac_usrdata_omschr,
|
|
iv.groep,
|
|
iv.soort,
|
|
iv.locatie_omschrijving,
|
|
iv.gebouw,
|
|
iv.verdiepingcode,
|
|
iv.ruimtenr
|
|
UNION ALL
|
|
SELECT iv.groep,
|
|
iv.soort,
|
|
'NVT',
|
|
COUNT (iv.deel_key),
|
|
iv.locatie_omschrijving,
|
|
iv.gebouw,
|
|
iv.verdiepingcode,
|
|
iv.ruimtenr
|
|
FROM ins_v_udr_deel iv
|
|
WHERE NOT EXISTS
|
|
(SELECT 1
|
|
FROM ins_kenmerk ik,
|
|
ins_srtkenmerk isk,
|
|
ins_kenmerkdeel ikd,
|
|
ins_srtdeel isd
|
|
WHERE isd.ins_srtdeel_code_upper = iv.soortcode
|
|
AND iv.deel_key = ikd.ins_deel_key
|
|
AND ikd.ins_kenmerk_key = ik.ins_kenmerk_key
|
|
AND ik.ins_srtkenmerk_key = isk.ins_srtkenmerk_key
|
|
AND isk.ins_srtkenmerk_upper LIKE '%MAAT%')
|
|
GROUP BY iv.groep,
|
|
iv.soort,
|
|
iv.locatie_omschrijving,
|
|
iv.gebouw,
|
|
iv.verdiepingcode,
|
|
iv.ruimtenr;
|
|
|
|
CREATE OR REPLACE VIEW dvon_v_rap_bes_voorraad
|
|
(
|
|
bestelling_key,
|
|
bestelaanvraagnr,
|
|
besteldatum,
|
|
leverancier,
|
|
besteller,
|
|
invoerder,
|
|
kostensoortgroep,
|
|
kostensoort,
|
|
kpn,
|
|
kpn_omschrijving,
|
|
fclt_3d_afdeling_key,
|
|
afdeling_code,
|
|
afdeling_omschrijving,
|
|
fclt_3d_locatie_key,
|
|
locatie_code,
|
|
regio_omschrijving,
|
|
district_omschrijving,
|
|
afleveradres,
|
|
mandaat,
|
|
fclt_3d_discipline_key,
|
|
catalogus,
|
|
groep,
|
|
productomschrijving,
|
|
productcode,
|
|
afleverdatum,
|
|
doorlooptijd_werkdgn,
|
|
sla_tijd,
|
|
prijs,
|
|
inkoopprijs,
|
|
status,
|
|
gefiatteerddoor,
|
|
bestelopdrachtnummer,
|
|
aantal,
|
|
itemprijs,
|
|
iteminkoopprijs,
|
|
itemposnr,
|
|
maat,
|
|
kleurbolletje,
|
|
op_voorraad,
|
|
voorraad_locatie,
|
|
opmerking,
|
|
besteld_voor,
|
|
bestelopdr_key
|
|
)
|
|
AS
|
|
SELECT bvu.*,
|
|
COALESCE (
|
|
(SELECT f.fac_usrdata_omschr
|
|
FROM fac_usrdata f, bes_srtkenmerk bsk
|
|
WHERE f.fac_usrdata_key = bki.bes_kenmerkbesteli_waarde
|
|
AND BK.BES_SRTKENMERK_KEY = bsk.bes_srtkenmerk_key
|
|
AND bsk.bes_srtkenmerk_upper LIKE '%MAAT%'),
|
|
'NVT')
|
|
maat,
|
|
lcl.l('lcl_bestelopdr_flag' || bo.bes_bestelopdr_flag),
|
|
COALESCE (dv.aantal, 0) op_voorraad,
|
|
COALESCE (dv.locatie, 'Niet opgegeven') voorraad_locatie,
|
|
bo.bes_bestelopdr_opmerking,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = b.prs_perslid_key_voor)
|
|
besteld_voor,
|
|
bo.bes_bestelopdr_key
|
|
FROM bes_v_udr_bestelling bvu,
|
|
bes_bestelling b,
|
|
bes_bestelling_item bi,
|
|
bes_bestelopdr_item boi,
|
|
bes_bestelopdr bo,
|
|
bes_kenmerkbesteli bki,
|
|
bes_kenmerk bk,
|
|
dvon_v_rap_voorraad dv
|
|
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
|
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
|
|
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
|
|
AND b.bes_bestelling_key = bvu.bestelling_key
|
|
AND bki.bes_bestelling_item_key = bi.bes_bestelling_item_key
|
|
AND bki.bes_kenmerk_key = bk.bes_kenmerk_key
|
|
AND dv.object_soort = bvu.productomschrijving
|
|
AND bo.bes_bestelopdr_key IS NOT NULL
|
|
AND dv.ruimtenr = 'MAGAZIJN'
|
|
AND dv.maat =
|
|
COALESCE (
|
|
(SELECT f.fac_usrdata_omschr
|
|
FROM fac_usrdata f, bes_srtkenmerk bsk
|
|
WHERE f.fac_usrdata_key = bki.bes_kenmerkbesteli_waarde
|
|
AND BK.BES_SRTKENMERK_KEY = bsk.bes_srtkenmerk_key
|
|
AND bsk.bes_srtkenmerk_upper LIKE '%MAAT%'),
|
|
'NVT');
|
|
|
|
CREATE OR REPLACE VIEW DVON_V_NOTI_BES_DEEL
|
|
(
|
|
CODE,
|
|
SENDER,
|
|
RECEIVER,
|
|
TEXT,
|
|
KEY,
|
|
XKEY
|
|
)
|
|
AS
|
|
SELECT DISTINCT
|
|
'CUST01',
|
|
NULL,
|
|
b.prs_perslid_key,
|
|
'Deellevering voor bestelling met nummer '
|
|
|| b.bes_bestelling_key,
|
|
b.bes_bestelling_key,
|
|
NULL
|
|
FROM bes_bestelling b,
|
|
(SELECT
|
|
bes_bestelling_key,
|
|
SUM (bes_bestelling_item_aantalontv) aantalontv,
|
|
SUM (bes_bestelling_item_aantal) aantal
|
|
FROM bes_bestelling_item
|
|
GROUP BY bes_bestelling_key) bi,
|
|
bes_bestelopdr bo,
|
|
fac_tracking fa
|
|
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
|
AND bi.aantalontv IS NOT NULL -- Er moeten artikelen ontvangen zijn voor een deellevering
|
|
AND bi.aantalontv < bi.aantal -- Levering is nog niet compleet
|
|
AND fa.fac_tracking_refkey = bo.bes_bestelopdr_key
|
|
AND fa.fac_srtnotificatie_key = 25 -- BESUPD er is iets geleverd
|
|
AND b.bes_bestelling_key = substr(bo.bes_bestelopdr_id, 1, instr(bo.bes_bestelopdr_id, '/')-1)
|
|
AND TRUNC (fa.fac_tracking_datum) = TRUNC (sysdate) -1;
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|