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

NOVA#80968 NOVA0

Browse Source 
svn path=/Customer/trunk/; revision=66766
This commit is contained in:
Maarten van der Heide
2024-10-24 08:50:36 +00:00
parent 1ed177360f
commit 849ce867f5
1 changed files with 53 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
NOVA/nova.sql
View File

@@ -84,18 +84,29 @@ BEGIN
END IF;
v_errormsg := 'Fout bepalen opdracht';
v_opdracht_id := psubject;
IF INSTR (UPPER (psubject), 'OPDRACHT NR.') > 0
THEN
-- 'Opdracht nr.' in subject, dan beschouw alleen gedeelte daarna!
v_opdracht_id := SUBSTR (psubject, INSTR (UPPER (psubject), 'OPDRACHT NR.'));
ELSE
-- Geen 'Opdracht nr.' in subject, dan beschouw hele subject!
v_opdracht_id := psubject;
END IF;
-- OpdrachtID is gedeelte vanaf 1e cijfer tot volgende white space in
-- v_opdracht_id!
IF REGEXP_INSTR (v_opdracht_id, '\d') > 0
THEN
v_opdracht_id := SUBSTR (v_opdracht_id, REGEXP_INSTR (v_opdracht_id, '\d')) || ' '; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus ' '!
v_opdracht_id := SUBSTR (v_opdracht_id, 1, REGEXP_INSTR (v_opdracht_id, '\s') - 1); -- Gedeelte tot eerste white space in v_exist_ticket!
v_opdracht_id := SUBSTR (v_opdracht_id, REGEXP_INSTR (v_opdracht_id, '\d')) || ' ';
v_opdracht_id := SUBSTR (v_opdracht_id, 1, REGEXP_INSTR (v_opdracht_id, '\s') - 1);
ELSE
v_opdracht_id := NULL;
END IF;
v_errormsg := 'Fout bepalen opdracht ' || v_opdracht_id;
SELECT mld_opdr_key, mld_typeopdr_key
INTO v_opdracht_key, v_typeopdr_key
FROM mld_opdr
WHERE TO_CHAR (mld_melding_key) || '/' || TO_CHAR (mld_opdr_bedrijfopdr_volgnr) = SUBSTR (v_opdracht_id, REGEXP_INSTR (v_opdracht_id, '\d'));
WHERE TO_CHAR (mld_melding_key) || '/' || TO_CHAR (mld_opdr_bedrijfopdr_volgnr) = v_opdracht_id;
-- Notitie-vlaggetje op 4 + 64 (= zichtbaarUITV + ismail)
v_errormsg := 'Fout toevoegen opdracht-notitie';
@@ -1004,6 +1015,7 @@ AS
SELECT b.prs_bedrijf_key, b.prs_bedrijf_email
FROM prs_v_aanwezigbedrijf b
WHERE b.prs_bedrijf_intern IS NULL
AND b.prs_bedrijf_key NOT IN (3661) -- Benque
AND b.prs_bedrijf_email IS NOT NULL
AND NOT EXISTS
(SELECT 1
@@ -1056,25 +1068,27 @@ AS
CURSOR res
IS
SELECT DISTINCT rrr.res_rsv_ruimte_key
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
(SELECT fac.safe_to_number (fac_usrdata_omschr) export_days
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 161 -- BENQUE-koppeling
AND fac_usrdata_upper = 'BENQ_EXPORT_DAYS') b
WHERE rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_status_fo_key = 2 -- Definitief
AND rrr.res_status_bo_key = 2 -- Geregistreerd
AND rrr.res_rsv_ruimte_dirtlevel = 0
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND fac.count_work_days (rrr.res_rsv_ruimte_van, SYSDATE) >= b.export_days
AND rrr.res_rsv_ruimte_key NOT IN
(SELECT res_rsv_ruimte_key
FROM res_kenmerkwaarde rkw, res_kenmerk rk
WHERE rkw.res_kenmerk_key = rk.res_kenmerk_key
AND rk.res_kenmerk_code = 'BENQ_ID'
AND rkw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key);
SELECT DISTINCT rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_key
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
(SELECT fac.safe_to_number (fac_usrdata_omschr) export_days
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 161 -- BENQUE-koppeling
AND fac_usrdata_upper = 'BENQ_EXPORT_DAYS') b
WHERE rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_rsv_ruimte_van > fac.safe_to_date ('30-09-2024', 'dd-mm-yyyy')
AND rrr.res_status_fo_key = 2 -- Definitief/Of ook Optie?
--AND rrr.res_status_bo_key = 2 -- Geregistreerd
AND rrr.res_rsv_ruimte_dirtlevel = 0
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND fac.count_work_days (rrr.res_rsv_ruimte_van, SYSDATE) >= b.export_days
AND rrr.res_rsv_ruimte_key NOT IN
(SELECT res_rsv_ruimte_key
FROM res_kenmerkwaarde rkw, res_kenmerk rk
WHERE rkw.res_kenmerk_key = rk.res_kenmerk_key
AND rk.res_kenmerk_code = 'BENQ_ID'
AND rkw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
ORDER BY 1, 2;
BEGIN
v_count := 0;
FOR rec IN res
@@ -3026,16 +3040,18 @@ AS
rd.ins_discipline_verwijder catalogus_verwijder,
rd.ins_discipline_omschrijving catalogus,
ra.res_artikel_key artikel_key,
ra.res_artikel_aanmaak artikel_aanmaak,
ra.res_artikel_verwijder artikel_verwijder,
ra.res_artikel_aanmaak aangemaakt,
ra.res_artikel_vervaldatum vervallen,
ra.res_artikel_verwijder verwijderd,
ra.res_artikel_nr artikelnummer,
ra.res_artikel_omschrijving omschrijving,
ra.res_artikel_opmerking opmerking,
ra.res_artikel_eenheid eenheid,
ra.res_artikel_prijs prijs,
ra.res_artikel_btw btw,
ra.res_artikel_opmerking opmerking,
ra.res_artikel_minimum minimum_bestelaantal,
DECODE (ra.res_artikel_flags, 1, 'Ja', 'Nee')
meermaal_reserveerbaar
meermaals_reserveerbaar
FROM res_artikel ra, res_discipline rd
WHERE ra.res_discipline_key = rd.ins_discipline_key
AND (rd.ins_discipline_key IN (321, 341, 361, 362, 363, 364, 365, 366, 367)
@@ -3217,9 +3233,11 @@ AS
CREATE OR REPLACE VIEW NOVA_V_RAP_HV_UITNUTTING
AS
SELECT x.mld_melding_key,
SELECT TO_CHAR (x.mld_melding_datum, 'yyyy') jaar,
x.mld_melding_key,
x.mld_stdmelding_omschrijving standaardmelding,
x.ins_srtdiscipline_prefix || TO_CHAR (x.mld_melding_key) melding_nr,
x.alg_locatie_code || ' - ' || x.alg_locatie_omschrijving locatie,
x.mld_meldbron_nr begr_nr,
x.mld_melding_onderwerp,
x.mld_melding_omschrijving,
@@ -3246,6 +3264,9 @@ AS
mi.mld_melding_key,
mi.mld_meldbron_nr,
smi.mld_stdmelding_omschrijving,
mi.mld_melding_datum,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
mi.mld_melding_onderwerp,
mi.mld_melding_omschrijving,
begroot.mld_kenmerk_key begroot_kkey,
@@ -3254,6 +3275,7 @@ AS
mld_stdmelding smi,
mld_discipline mdi,
ins_srtdiscipline sdi,
alg_locatie l,
( SELECT mld_melding_key,
DECODE (mld_kenmerk_key,
302, -1,
@@ -3280,15 +3302,18 @@ AS
AND smi.mld_ins_discipline_key = mdi.ins_discipline_key
AND mdi.ins_discipline_key = 130 -- HV-Begroting
AND mdi.ins_srtdiscipline_key = sdi.ins_srtdiscipline_key
AND mi.mld_alg_locatie_key = l.alg_locatie_key(+)
AND mi.mld_melding_key = begroot.mld_melding_key(+)) x
LEFT JOIN ( SELECT begr_nr, begr_reg_kkey, bgt_nr, b_nr,
SUM (mld_opdr_kosten) kosten,
COUNT ( * ) aantal -- DISTINCT WRK-nummers!
FROM nova_v_rap_hv_opdrachten
WHERE opdrachttype_key = 81 -- Werkopdracht (gemigreerd)
AND bgt_nr >= 'BGT-24'
GROUP BY begr_nr, begr_reg_kkey, bgt_nr, b_nr) o_axx
ON x.mld_meldbron_nr = o_axx.begr_nr
AND x.begroot_kkey = o_axx.begr_reg_kkey
AND TO_CHAR (x.mld_melding_datum, 'yy') = SUBSTR (bgt_nr, 5, 2)
LEFT JOIN ( SELECT mld_melding_key,
DECODE (prs_kostensoort_key,
1, 307,