PROR#79462 Outlook-koppeling deadlocks

svn path=/Database/branches/DB45/; revision=61821

EXC/EXC_PAC.SRC

@@ -644,6 +644,11 @@ AS
             COMMIT;
     END import_exchange;
 
+    -- Merk op dat er veel meer dan gewoonlijk COMMIT's tussendoor staan
+    -- Dat is allemaal om zo veel mogelijk deadlocks te voorkomen
+    -- Pas ook op met de volgorde van statements (binnen een transactie)
+    --     Voorkom altijd UPDATE exc_import, dan UPDATE res_rsv_ruimte en dan weer UPDATE exc_import
+    --     De laatste UPDATE exc_import moet voor de UPDATE res_rsv_ruimte
     PROCEDURE update_exchange (p_import_key IN NUMBER, p_days_from IN NUMBER DEFAULT 0, p_days_to IN NUMBER DEFAULT 90)
     IS
         v_aanduiding          VARCHAR2 (200);
@@ -1015,6 +1020,8 @@ AS
                           FROM res_rsv_ruimte
                          WHERE INSTR(res_rsv_ruimte_externnr, i.appt_id || '|') = 1);
 
+        COMMIT; -- Cleanup
+
         FOR rec IN c_del
         LOOP
             BEGIN
@@ -1077,6 +1084,18 @@ AS
 
                 v_errorhint := 'Deelreservering verwijderen';
 
+                -- Succesvol afgerond; zet vlag.
+                -- AKZA#35459: vlag niet zetten voor een single die recurring is geworden;
+                -- die recurrence moeten we straks in de add-cursor nog toevoegen.
+                IF NOT (rec.reden = 'Made recurring')
+                THEN
+                    UPDATE exc_import
+                       SET gelukt = 1
+                     WHERE     appt_id || '|' || recur_id =
+                               rec.appt_id || '|' || rec.recur_id
+                           AND gelukt IS NULL;
+                END IF;
+
                 UPDATE res_rsv_ruimte
                    SET res_status_fo_key = v_status_fo_key,
                        res_rsv_ruimte_verwijder = SYSDATE
@@ -1108,18 +1127,6 @@ AS
                                  WHERE res_reservering_key =
                                        rec.res_reservering_key);
 
-                -- Succesvol afgerond; zet vlag.
-                -- AKZA#35459: vlag niet zetten voor een single die recurring is geworden;
-                -- die recurrence moeten we straks in de add-cursor nog toevoegen.
-                IF NOT (rec.reden = 'Made recurring')
-                THEN
-                    UPDATE exc_import
-                       SET gelukt = 1
-                     WHERE     appt_id || '|' || recur_id =
-                               rec.appt_id || '|' || rec.recur_id
-                           AND gelukt IS NULL;
-                END IF;
-
                 fac.imp_writelog (p_import_key,
                                   'I',
                                   v_aanduiding,
@@ -1143,7 +1150,7 @@ AS
             END;
         END LOOP;
 
-        COMMIT;
+        COMMIT; -- de DELETE's
 
         -- Omdat we entries die gefaald zijn 'bewaren', kan het zijn dat we voor <20><>n appointment
         -- meerdere updates - of zelfs een delete - hebben. Dan zijn we alleen ge<67>nteresseerd in de
@@ -1170,6 +1177,8 @@ AS
                           FROM res_rsv_ruimte
                          WHERE res_rsv_ruimte_externnr = i.appt_id || '|' || i.recur_id);
 
+        COMMIT; -- Cleanup
+
         -- Dan bestaande bijwerken, anders kan het gebeuren dat we op basis van een UPDATE
         -- eerst een rsv_ruimte aanmaken en 'm daarna meteen proberen bij te werken.
         -- TODO: is dat nog steeds zo met "gelukt = 1"?
@@ -1347,6 +1356,16 @@ AS
                     END IF;
                 END IF;
 
+                -- Succesvol afgerond; zet vlag.
+                -- All<6C><6C>n voor nu beschouwde ruimte! (appointments kunnen op meerdere ruimtes zijn)
+                -- TODO: komen we hier ook als er iets mis ging met de bezoekers?
+                UPDATE exc_import
+                   SET gelukt = 1
+                 WHERE     appt_id || '|' || recur_id =
+                           rec.appt_id || '|' || rec.recur_id
+                       AND room_id = rec.room_id
+                       AND gelukt IS NULL;
+
                 -- We hebben niet geskipt, dus willen we deze rsv_ruimte bijwerken
                 -- Basisgegevens reservering gewijzigd?
                 IF (   v_ruimte_extern_id != rec.res_ruimte_extern_id
@@ -1457,16 +1476,6 @@ AS
                     END IF;
                 END IF;
 
-                -- Succesvol afgerond; zet vlag.
-                -- All<6C><6C>n voor nu beschouwde ruimte! (appointments kunnen op meerdere ruimtes zijn)
-                -- TODO: komen we hier ook als er iets mis ging met de bezoekers?
-                UPDATE exc_import
-                   SET gelukt = 1
-                 WHERE     appt_id || '|' || recur_id =
-                           rec.appt_id || '|' || rec.recur_id
-                       AND room_id = rec.room_id
-                       AND gelukt IS NULL;
-
                 IF (v_debug)
                 THEN
                     fac.imp_writelog (p_import_key,
@@ -1493,7 +1502,7 @@ AS
             END;
         END LOOP;
 
-        COMMIT;
+        COMMIT; -- de UPDATE's
 
         -- Ten slotte nieuwe reserveringen toevoegen
         FOR rec IN c_add
@@ -1560,6 +1569,14 @@ AS
                            --               AND res_rsv_ruimte_externnr NOT LIKE '%|'||rec.recur_id||'|%'
                            AND res_rsv_ruimte_verwijder IS NULL;
 
+                    -- Succesvol afgerond; zet vlag.
+                    -- TODO: komen we hier ook als er iets mis ging met de bezoekers?
+                    UPDATE exc_import
+                       SET gelukt = 1
+                     WHERE     appt_id || '|' || recur_id =
+                               rec.appt_id || '|' || rec.recur_id
+                           AND gelukt IS NULL;
+
                     -- Er bestaan al deelreserveringen voor andere occurences van deze recurring appointment
                     -- Deelreservering binnen de bijbehorende res_reservering aanmaken
                     IF (v_count > 0)
@@ -1687,14 +1704,6 @@ AS
                     v_errorhint := 'Toevoegen bezoekers';
                     exc.importBezoekers(p_import_key, rec.appt_id, rec.recur_id, v_rsv_ruimte_key, date_interval_start, date_interval_end);
 
-                    -- Succesvol afgerond; zet vlag.
-                    -- TODO: komen we hier ook als er iets mis ging met de bezoekers?
-                    UPDATE exc_import
-                       SET gelukt = 1
-                     WHERE     appt_id || '|' || recur_id =
-                               rec.appt_id || '|' || rec.recur_id
-                           AND gelukt IS NULL;
-
                     IF (v_debug)
                     THEN
                         fac.imp_writelog (p_import_key,
@@ -1768,7 +1777,7 @@ AS
             v_errorhint := '';
             exc.set_ruimtes_clean (p_import_key);
         END IF;
-        COMMIT;
+        COMMIT; -- de INSERT's
 
     EXCEPTION
         WHEN OTHERS
@@ -1822,9 +1831,9 @@ AS
                        AND (   (SELECT BITAND ( COALESCE (fac_setting_pvalue, fac_setting_default), 6)
                                   FROM fac_setting
                                  WHERE fac_setting_name = 'msgraph_sync_level') = 4
-                            OR (    rr.res_rsv_ruimte_externnr IS NOT NULL
+                            OR (    rr.res_rsv_ruimte_externnr IS NOT NULL  -- Sluit Facilitor initiated reserveringen uit bij S(msgraph_sync_level) &2
                                 AND rr.res_rsv_ruimte_externnr2 IS NULL
-                                AND rr.res_rsv_ruimte_externsyncdate IS NOT NULL))
+                                AND rr.res_rsv_ruimte_externsyncdate IS NULL))
                        AND rr.res_rsv_ruimte_verwijder IS NULL
                        AND rr.res_rsv_ruimte_van >=
                            (SELECT MIN (starttime) FROM this_import)

FAC/FAC_LCL.SRC

@@ -970,6 +970,8 @@ FAC_LCL('lcl_mld_verwerk', 'Verwerken', 'Finalize')
 FAC_LCL('lcl_mld_verwerk_hint', 'Sluit de melding helemaal en definitief af', 'Finalize this call forever')
 FAC_LCL('lcl_mld_reopen', 'Heropenen', 'Reopen')
 FAC_LCL('lcl_mld_reopen_hint', 'Heropen deze melding.', 'Reopen this call.')
+FAC_LCL('lcl_mld_reopen_done', 'Melding is heropend.', 'Call has been reopened.')
+FAC_LCL('lcl_mld_reopen_failed', 'Heropenen is niet gelukt', 'Reopen failed')
 FAC_LCL('lcl_mld_close_standalone', 'Dank voor uw melding, u kunt dit scherm nu sluiten', 'Thank you for your call, you can now close this screen')
 FAC_LCL('lcl_mld_object_filled_in', 'Er is automatisch een object ingevuld', 'An object has been automatically selected')
 FAC_LCL('lcl_mld_overrule_stdmelding', 'Afwijking per melding', 'Overrule per call')
@@ -5553,7 +5555,7 @@ FAC_LCL('lcl_usrrap_stylingLOV', '0;Tabel/Grafiek (standaard);16;Mobiel;1;Via st
                                 ,'0;Table/Graph (standard);16;Mobile;1;Styled;2;Procedure;3;Procedure+styled;8;Via tabelizer;32;UDR Template')
 FAC_LCL('lcl_usrrap_property_wizard', 'Wizard kenmerkkolom toevoegen', 'Add property column wizard')
 FAC_LCL('lcl_usrrap_property_module', 'Kenmerkmodule', 'Property module')
-FAC_LCL('lcl_usrrap_property_moduleLOV', 'BES;Bestellingen;INS;Objecten;MLD;Meldingen;OPD;Opdrachten;RES;Reserveringen', 'BES;Purchase orders;INS;Objects;MLD;Calls;OPD;Orders;RES;Reservations')
+FAC_LCL('lcl_usrrap_property_moduleLOV', 'BES;Bestellingen;CNT;COntracten;INS;Objecten;MLD;Meldingen;OPD;Opdrachten;RES;Reserveringen', 'BES;Purchase orders;CNT;Contracts;INS;Objects;MLD;Calls;OPD;Orders;RES;Reservations')
 FAC_LCL('lcl_usrrap_connect_key', 'Koppelen aan', 'Connect with')
 
 FAC_LCL('lcl_fac_usrrap_functie1', 'Opmaak', 'Layout')
@@ -5969,7 +5971,8 @@ FAC_LCL('lcl_schedule_format',          'Formaat', 'Format')
 FAC_LCL('lcl_schedule_format_standard', 'Standaard', 'Standard')
 FAC_LCL('lcl_schedule_format_excel',    'Excel', 'Excel')
 FAC_LCL('lcl_schedule_format_csv',      'CSV', 'CSV')
-FAC_LCL('lcl_schedule_is_planned',      'Versturen is ingepland', 'Sending has been scheduled.')
+FAC_LCL('lcl_schedule_is_planned',      'Versturen is ingepland', 'Sending has been scheduled')
+FAC_LCL('lcl_schedule_plan_created',    'Rapport ''{0}'' is ingepland', 'Report ''{0}'' has been scheduled')
 
 FAC_LCL('fac_srtnotificatie',          'Notificatie', 'Notification')
 FAC_LCL('fac_srtnotificatie_m',        'Notificaties', 'Notifications')
@@ -6912,7 +6915,7 @@ FAC_LCL('res_alg_ruimte_m', 'Fysieke Ruimten', 'Real estate rooms')
 FAC_LCL('res_srtartikel_onrgoed', 'Verbruiksartikel-scope', 'Catering scope')
 FAC_LCL('res_srtartikel_onrgoed_m', 'Verbruiksartikelen-scope', 'Catering scope')
 FAC_LCL('res_srtartikel_plaats', 'Onroerendgoed', 'Real estate')
-FAC_LCL('res_discipline_bonotify', 'Backoffice notificeren (RES2BO)', 'Notify back office (RES2BO)')
+FAC_LCL('res_discipline_bonotify', 'Backoffice last-minute notificeren (RES2BO)', 'Notify back office last-minute (RES2BO)')
 
 FAC_LCL('ins_controlemode', 'Taakafhandeling', 'Method')
 FAC_LCL('ins_default_controlemode', 'Standaard taakafhandeling', 'Default method')

FAC/FAC_SET.SRC

@@ -482,7 +482,7 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prodsearch_rank'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'progress_notification_for'             , 'boolean'                     , 'false'                       , 'Send progress notification to [false=prs_perslid_key | true=prs_perslid_key_voor]')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_bulk_mail_max'                     , 'number'                      , '0'                           , 'Maximum number of persons to be mailed')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_einddatum_login_grace'             , 'number'                      , '-1'                          , 'Disallow login after prs_einddatum. (-1=disabled, >=0 disallow after einddatum+nnn days')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_expiration'               , 'number'                      , '-1'                          , 'Password expire days {-1 = does not expire}')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_expiration'               , 'number'                      , '-1'                          , 'Password expire days {-1 = does not expire}, existing password will not expire autmatically after adjusting this')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_fail_limit'               , 'number'                      , '999'                         , 'Lockout after many password failures (Future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_validation'               , 'string'                      , '.{8,}'                       , 'At least 8 characters')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_validation_mode'          , 'number'                      , '255'                         , 'Password validation +1=+prs_password_validation regexp, +2=wordlist, +4=charsets')
@@ -558,7 +558,7 @@ DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_enable_moveup'
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_approvedmelding_description'       , 'number'                      , '1'                           , 'Subject for MJOB generated ticket {1=object type (default), 2=task description, 3=task description (object type). }')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_total_add_pct1'                    , 'float'                       , '0'                           , 'Fixed percentage of column total to add #1 (0=None, <percentage>=percentage')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_total_add_pct2'                    , 'float'                       , '0'                           , 'Fixed percentage of column total to add #2 (0=None, <percentage>=percentage')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'cnt_autolink_regexp'                   , 'string'                      , '(?:((?:contract\s?)|(?:C\s?))(\d+))|((?:contract#\s?|(?:C#\s?))(([a-z]|[0-9])+))', 'Automatically turn CNT-references in texts into clickable links eg. (?:((?:contract\s?)|(?:C\s?))(\d+))|((?:contract#\s?|(?:C#\s?))(([a-z]|[0-9])+))')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'cnt_autolink_regexp'                   , 'string'                      , '(?:((?:contract\s?)|(?:\WC\s?))(\d+))|((?:contract#\s?|(?:\WC#\s?))(([a-z]|[0-9])+))', 'Automatically turn CNT-references in texts into clickable links eg. (?:((?:contract\s?)|(?:\WC\s?))(\d+))|((?:contract#\s?|(?:\WC#\s?))(([a-z]|[0-9])+))')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'faq_autolink_regexp'                   , 'string'                      , '(?:(?:FAQ\s?)|(?:\WKB\s?))(\d+)', 'Automatically turn FAQ-references in texts into clickable links eg. (?:(?:FAQ\s?)|(?:KB\s?))(\d+) gives valid links for FAQ981, FAQ 981, KB981 and KB 981')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'fac_flags_visible_for_fe'              , 'number'                      , '1'                           , 'An FE-user may see the flag-status of calls, reservations etc {0=No | 1=Yes(default)}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_accept_confirm'                    , 'boolean'                     , 'false'                       , 'bij accepteren melding direct afhandelingsveld invullen')

MLD/MLD_PAC.SRC

@@ -274,21 +274,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             THEN
                newstatus := pstatus;
                eventcode := 'MLDACP';
-            ELSIF currentstatus = 5
-            THEN
-               newstatus := pstatus;
-               -- Geen nieuwe tracking bij heropenen.
-               eventcode := NULL;
-               -- De MLDAFM trackingen veranderen in een MLDUPD tracking. De tekst (fac_srtnotificatie_oms) blijft hetzelfde.
-               UPDATE fac_tracking
-                  SET fac_srtnotificatie_key = ((SELECT fac_srtnotificatie_key
-                                                   FROM fac_srtnotificatie tr
-                                                  WHERE fac_srtnotificatie_code = 'MLDUPD')),
-                      fac_tracking_oms = lcl.l('lcl_mld_is_mldafm')
-                WHERE fac_tracking_refkey = pmeldingkey
-                  AND fac_srtnotificatie_key = ((SELECT sn.fac_srtnotificatie_key
-                                                   FROM fac_srtnotificatie sn
-                                                  WHERE sn.fac_srtnotificatie_code = 'MLDAFM'));
             ELSIF currentstatus = 7
             THEN
                newstatus := pstatus;
@@ -3304,11 +3289,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
           -- Als alg_srtruimte_t_uitvoertijd, alg_srtgebouw_t_uitvoertijd en alg_srtterreinsec_t_uitvtijd geen waarden hebben, dan terugvallen op standaard uitvoertijd die altijd een waarde heeft.
           IF l_alg_type = 'T'
           THEN
-             v_uitvoertijd_object.tijdsduur := COALESCE(l_mldsrtterrein_uitvtijd_object.tijdsduur, l_srtterrein_uitvoertijd_object.tijdsduur, v_uitvoertijd_object_s.tijdsduur);
+             v_uitvoertijd_object.tijdsduur := COALESCE(l_mldsrtterrein_uitvtijd_object.tijdsduur, l_srtterrein_uitvoertijd_object.tijdsduur, v_uitvoertijd_object.tijdsduur);
           ELSE
              v_uitvoertijd_object.tijdsduur := COALESCE(l_mldsrtruimte_uitvtijd_object.tijdsduur, l_srtruimte_uitvoertijd_object.tijdsduur,  -- eerst ruimte
                                                         l_mldsrtgebouw_uitvtijd_object.tijdsduur, l_srtgebouw_uitvoertijd_object.tijdsduur,  -- dan gebouw
-                                                        v_uitvoertijd_object_s.tijdsduur);                                                   -- dan standaard.
+                                                        v_uitvoertijd_object.tijdsduur);                                                   -- dan standaard.
           END IF;
           IF l_mldsrtruimte_uitvtijd_object.tijdsduur IS NOT NULL
           THEN
@@ -3323,7 +3308,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
           THEN
              v_uitvoertijd_object.eenheid := l_srtgebouw_uitvoertijd_object.eenheid;
           ELSE
-             v_uitvoertijd_object.eenheid := v_uitvoertijd_object_s.eenheid;
+             v_uitvoertijd_object.eenheid := v_uitvoertijd_object.eenheid;
           END IF;
        END IF;