NOVA#80968 NOVA0

svn path=/Customer/trunk/; revision=67161

NOVA/nova.sql

@@ -637,6 +637,7 @@ AS
    PROCEDURE afmelden_bes;
    PROCEDURE afmelden_mld;
    PROCEDURE insert_kanaal;
+   PROCEDURE verwerken_res; -- VOOR res2benq: Verwerkt eerder doorgezette RES!
    PROCEDURE res2benq;
 END;
 /
@@ -1059,6 +1060,77 @@ AS
          fac.writelog ('INSERT_KANAAL', 'E', v_errormsg, '');
    END insert_kanaal;
 
+   -- Automatisch verwerken ruimte-reserveringen (roomservice-reserveringen
+   -- hebben geen BO-status) die eerder (= voorgaande dag) zijn doogezet naar
+   -- Benque.
+   -- LET OP: De procedure 'verwerken_res' moet draaien VOOR 'res2benq'!
+   PROCEDURE verwerken_res
+   AS
+      v_errormsg       VARCHAR2 (1000);
+      oracle_err_num   NUMBER;
+      oracle_err_mes   VARCHAR2 (200);
+      v_count          NUMBER (10);
+
+      CURSOR c1
+      IS
+         WITH wachtdagen
+                 AS (SELECT fac.safe_to_number (fac_usrdata_omschr) aantal
+                       FROM fac_v_aanwezigusrdata
+                      WHERE fac_usrtab_key = 161           -- BENQUE-koppeling
+                            AND fac_usrdata_upper = 'BENQ_EXPORT_DAYS')
+           SELECT DISTINCT '[' || TO_CHAR (rrr.res_rsv_ruimte_key) || '|' || TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr) || '] '
+                     aanduiding,
+                  rrr.res_rsv_ruimte_key
+             FROM wachtdagen wd, res_v_aanwezigrsv_ruimte rrr
+            WHERE rrr.res_rsv_ruimte_van > fac.safe_to_date ('30-09-2024', 'dd-mm-yyyy')
+                  --AND rrr.res_ruimte_opstel_key IS NOT NULL
+                  AND rrr.res_status_bo_key != 6                         -- AV
+                  AND rrr.res_status_fo_key = 2    -- Definitief/Of ook Optie?/Zou moeten
+                  AND rrr.res_rsv_ruimte_dirtlevel = 0           -- Niet dirty/Zou moeten
+                  AND fac.count_work_days (rrr.res_rsv_ruimte_van, SYSDATE) >= wd.aantal -- Zou moeten
+                  AND EXISTS                -- Succesvol doorgezet naar Benque
+                        (SELECT 1
+                           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)
+                  AND EXISTS      -- Met verwerkt artikel uit Benque-catalogus/Zou moeten (na 15-11-2024!)
+                        (SELECT 1
+                           FROM res_v_aanwezigrsv_artikel rra, res_artikel ra, res_disc_params dp
+                          WHERE rra.res_status_bo_key = 6                -- AV
+                                AND rra.res_rsv_artikel_verwerkt IS NOT NULL
+                                AND rra.res_rsv_artikel_dirtlevel = 0 -- Niet dirty
+                                AND rra.res_artikel_key = ra.res_artikel_key
+                                AND ra.res_discipline_key = dp.res_ins_discipline_key
+                                AND dp.prs_bedrijf_key = 3661 -- Benque-catalogus
+                                AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
+         ORDER BY 1, 2;
+   BEGIN
+      v_count := 0;
+      FOR rec IN c1
+      LOOP
+         v_errormsg := 'Fout verwerken res_rsv_ruimte';
+
+         UPDATE res_rsv_ruimte
+            SET res_status_bo_key = 6                                    -- AV
+          WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
+
+         v_errormsg := 'Fout tracken verwerking ruimte';
+         fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
+
+         v_count := v_count + 1;
+      END LOOP;
+
+      fac.writelog ('VERWERKEN_RES', 'S', 'Reserveringen/#dichtgezet: ' || TO_CHAR (v_count), '');
+   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 ('VERWERKEN_RES', 'E', v_errormsg, '');
+   END verwerken_res;
+
    PROCEDURE res2benq
    AS
       v_errormsg       VARCHAR2 (1000);
@@ -1216,13 +1288,17 @@ BEGIN
    -- Alle BES op geleverd na 'leverdagen'+'notidagen'!
    nova.afmelden_bes;
 
-   -- Automatisch sluiten meldingen (zoals helder gespecificeerd)!
+   -- Automatisch sluiten MLD (zoals helder gespecificeerd)!
    nova.afmelden_mld;
 
    -- Automatisch toevoegen O-kanaal voor nieuwe relaties!
    nova.insert_kanaal;
 
-   -- Alle RES verondersteld voor uitwisseling naar BENQ!
+   -- Automatisch na 5 werkdagen doorzetten RES met App<70>l-catering naar Benque
+   -- en de volgende dag pas verwerken van de bovenliggende ruimte-reservering
+   -- (roomservice-reserveringen hebben geen BO-status)!
+   -- LET OP: De procedure 'verwerken_res' moet draaien VOOR 'res2benq'!
+   nova.verwerken_res;
    nova.res2benq;
 EXCEPTION
    WHEN OTHERS
@@ -3551,6 +3627,24 @@ AS
              ON x.mld_meldbron_nr = o_axx.mld_meldbron_nr
                 AND x.begroot_kkey = o_axx.mld_kenmerk_key
 */
+/*
+CNT_CONTRACT_NOTE_KEY
+CNT_CONTRACT_KEY
+CNT_CONTRACT_NOTE_AANMAAK
+CNT_CONTRACT_NOTE_OMSCHRIJVING
+CREATE OR REPLACE VIEW NOVA_V_RAP_CNT_NOTES
+AS
+    SELECT cn.cnt_contract_note_aanmaak aanmaak,
+           c.cnt_contract_key,
+           c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie) contractnr,
+           c.cnt_contract_omschrijving contractbeschrijving,
+           pf.prs_perslid_naam_full notitie_van,
+           cn.cnt_contract_note_omschrijving omschrijving
+      FROM cnt_contract_note cn, cnt_contract c, cnt_discipline cd, prs_v_perslid_fullnames_all pf
+     WHERE cn.cnt_contract_key = c.cnt_contract_key
+           AND c.ins_discipline_key = cd.ins_discipline_key
+           AND cn.prs_perslid_key = pf.prs_perslid_key;
+*/
 ------ payload end   ------
 
 SET DEFINE OFF