FZKH#88392 Probleem bij importeren verbruiksartikelen zonder kostensoort

Regels met niet bestaande kostensoort omschrijvingen worden niet in importtabel gezet.

svn path=/Database/branches/DB50/; revision=68689

BES/BES_PAC.SRC

@@ -66,10 +66,12 @@ AS
       RETURN NUMBER;
 
    PROCEDURE notifybestellingbedrijven (pbestelkey            NUMBER,
-                                        ptrackingkey          NUMBER);
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay NUMBER DEFAULT NULL);
 
    PROCEDURE notifybestelopdrbedrijven (pbestelopdrkey        NUMBER,
-                                        ptrackingkey          NUMBER);
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay NUMBER DEFAULT NULL);
 
    PROCEDURE autodeliver;
 
@@ -2226,14 +2228,16 @@ AS
    END;
 
    PROCEDURE notifybestellingbedrijven (pbestelkey            NUMBER,
-                                        ptrackingkey          NUMBER)
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay            NUMBER DEFAULT NULL)
    AS
    BEGIN
       NULL; --  TODO?
    END;
 
    PROCEDURE notifybestelopdrbedrijven (pbestelopdrkey        NUMBER,
-                                       ptrackingkey          NUMBER)
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay NUMBER DEFAULT NULL)
    AS
    BEGIN
       FOR bedrijfrec IN (SELECT b.prs_bedrijf_key,
@@ -2261,7 +2265,8 @@ AS
                             prefkey               => pbestelopdrkey,
                             ptrackingkey          => ptrackingkey,
                             preference            => bedrijfrec.bes_bestelopdr_id,
-                            plocatie_key          => bedrijfrec.alg_locatie_key);
+                            plocatie_key          => bedrijfrec.alg_locatie_key,
+                            pnotidelay            => pnotidelay);
       END LOOP;
    END;
 

CNT/CNT_PAC.SRC

@@ -22,7 +22,8 @@ CREATE OR REPLACE PACKAGE cnt AS
   PROCEDURE remove(p_contract_key IN NUMBER);
 
   PROCEDURE notifycontractbedrijven (pcntkey               NUMBER,
-                                     ptrackingkey          NUMBER);
+                                     ptrackingkey          NUMBER,
+                                     pnotidelay            NUMBER DEFAULT NULL);
 
   PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
 END cnt;
@@ -295,7 +296,11 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
          SELECT c.cnt_contract_key
            FROM cnt_contract c
           WHERE c.cnt_contract_inactiveren = 1
-            AND TRUNC(c.cnt_contract_looptijd_tot) < TRUNC(SYSDATE);
+            AND TRUNC(c.cnt_contract_looptijd_tot) < TRUNC(SYSDATE)
+            AND NOT EXISTS (SELECT f.fin_factuur_key                       -- Contract mag geen openstaande facturen hebben.
+                              FROM fin_factuur f
+                             WHERE f.cnt_contract_key = c.cnt_contract_key
+                              AND f.fin_factuur_statuses_key NOT IN (1,7));
    BEGIN
       BEGIN
          SELECT prs_perslid_key
@@ -700,7 +705,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
    END;
 
    PROCEDURE notifycontractbedrijven (pcntkey               NUMBER,
-                                      ptrackingkey          NUMBER)
+                                      ptrackingkey          NUMBER,
+                                      pnotidelay            NUMBER DEFAULT NULL)
    AS
    BEGIN
       FOR bedrijfrec
@@ -769,7 +775,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                             prefkey               => pcntkey,
                             ptrackingkey          => ptrackingkey,
                             preference            => bedrijfrec.cnt_contract_nummer_intern,
-                            plocatie_key          => bedrijfrec.alg_locatie_key);
+                            plocatie_key          => bedrijfrec.alg_locatie_key,
+                            pnotidelay            => pnotidelay);
       END LOOP;
    END;
 

FAC/FAC_INI.SRC

@@ -2492,7 +2492,7 @@ DEF_IMPORT('WEB_PRSSYS', 'FLEX',                'TRANSPORT: Flexkenmerken',
 DEF_IMPORT('WEB_PRSSYS', 'USRDATA',             'FIP: Eigen tabellen',                                     'FIP: Own tables', 0)
 DEF_IMPORT('WEB_PRSSYS', 'SLE',                 'FIP: Sleutels',                                           'FIP: Keys', 0)
 DEF_IMPORT('WEB_PRSSYS', 'FAQ',                 'FIP: Kennisbank',                                         'FIP: Knowledge base', 0)
-DEF_IMPORT('WEB_PRSSYS', 'CNT',                 'FIP: Contracten',                                         'FIP: Contracts', 0)
+DEF_IMPORT('WEB_PRSSYS', 'CNT',                 'FIP: Contracten',                                         'FIP: Contracts', 1)
 DEF_IMPORT('WEB_PRSSYS', 'MLDAFMTXT',           'FIP: Afmeldteksten',                                      'FIP: Standard texts', 0)
 DEF_IMPORT('WEB_PRSSYS', 'BEDRIJFADRES',        'FIP: Aanvullen technische bedrijfadressen',               'FIP: Add company technical addresses', 0)
 DEF_IMPORT('WEB_LCLSYS', 'TRANSLATION',         'Import of FACILITOR translation file',                    'Import of FACILITOR translation file', 0)
@@ -2994,6 +2994,7 @@ DEF_MENUITEM(2, 'lcl_menu_fac_bookmarks'        , '', 'FAC', 'appl/fac/fac_bookm
 DEF_MENUITEM(2, 'lcl_menu_cht_chatkanalen'      , '', 'CHT', 'appl/mgt/cht_discipline.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_eigen_tabellen'   , '', 'FAC', 'appl/mgt/fac_usrtab.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_prs_bedrijf_system'   , '', 'FAC', 'appl/prs/prs_bedrijf_search.asp?intern=2', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_system_adresses'      , '', 'FAC', 'appl/mgt/prs_bedrijfadres.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_xsledit'          , '', 'FAC', 'appl/fac/fac_edit_xsl.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_jobs'             , '', 'FAC', 'appl/fac/job_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_importfuncties'   , '', 'FAC', 'appl/imp/imp_search.asp', 0, 0, 'WEB_IMPORT', 'W', '1', '');

FAC/FAC_LCL.SRC

@@ -762,10 +762,10 @@ FAC_LCL('frm_columnsframe','Kolommen', 'Columns')
 
 FAC_LCL('frm_prscontactlistframe','Contactpersonen', 'Contact persons')
 FAC_LCL('frm_prsdienstlistframe','Diensten', 'Services')
-FAC_LCL('frm_prsadreslistframe','Systeemadressen', 'System Addresses')
+FAC_LCL('frm_prsadreslistframe','Systeemadressen', 'System addresses')
 FAC_LCL('frm_facadresframe','Adressen', 'Addresses')
 FAC_LCL('frm_prsbdrijfframe','Bedrijf', 'Company')
-FAC_LCL('frm_badrframe','Technische adressen', 'Tech addresses')
+FAC_LCL('frm_badrframe','Systeemadressen', 'System addresses')
 FAC_LCL('frm_sleframe','Sleutel', 'Key')
 
 
@@ -839,7 +839,7 @@ FAC_LCL('lcl_alg_del_txt_verdieping', 'Verwijderen verdieping', 'Delete floor')
 FAC_LCL('lcl_alg_del_txt_ruimte', 'Verwijderen ruimte', 'Delete room')
 FAC_LCL('lcl_alg_del_txt_werkplek', 'Verwijderen werkplek', 'Delete workplace')
 FAC_LCL('lcl_prs_del_txt_bedrijf', 'Weet u zeker dat u dit bedrijf wilt verwijderen?', 'Are you sure you want to delete this company?')
-FAC_LCL('lcl_prs_del_txt_bedrijfadres', 'Weet u zeker dat u dit technisch adres wilt verwijderen?', 'Are you sure you want to delete this technical address?')
+FAC_LCL('lcl_prs_del_txt_bedrijfadres', 'Weet u zeker dat u dit systeemadres wilt verwijderen?', 'Are you sure you want to delete this system address?')
 FAC_LCL('lcl_prs_del_txt_afdeling', 'Weet u zeker dat u deze afdeling wilt verwijderen?', 'Are you sure you want to delete this department?')
 FAC_LCL('lcl_pda_bez_delete', 'Weet u zeker dat u deze bezoeker wilt verwijderen?', 'Are you sure you want to delete this visitor?')
 FAC_LCL('lcl_pda_bez_afs_delete', 'De afspraak zal dan ook verwijderd worden.', 'Doing so will also delete the appointment.')
@@ -2150,6 +2150,7 @@ FAC_LCL('lcl_mes_message', 'Bericht', 'Message')
 FAC_LCL('lcl_mes_message_received', 'Ontvangen bericht', 'Received message')
 FAC_LCL('lcl_mes_message_received_back', 'Terug ontvangen bericht', 'Received message')
 FAC_LCL('lcl_mes_message_send', 'Mijn verzonden bericht', 'My message sent')
+FAC_LCL('lcl_mes_message_recipients', 'ontvangers', 'recipients')
 FAC_LCL('lcl_mes_all', 'Let op: wil je dit bericht echt versturen naar ALLE Facilitor gebruikers?', 'Attention: Do you really want to send this message to ALL Facilitor users?')
 FAC_LCL('lcl_mes_empty', 'Typ hier het bericht (maximaal 4.000 tekens)', 'Enter your message here (with a maximum of 4000 characters)')
 FAC_LCL('lcl_mes_is_send', ' bericht is verzonden', ' message is sent')
@@ -2157,6 +2158,7 @@ FAC_LCL('lcl_mes_is_send2', ' berichten zijn verzonden', ' messages are sent')
 FAC_LCL('lcl_mes_del', 'Verwijderen portalbericht', 'Delete message')
 COMMIT;
 
+FAC_LCL('lcl_mes_sent_to', 'Bericht verstuurd naar {0}', 'Message sent to {0}')
 FAC_LCL('lcl_mes_no_receivers', 'Bericht niet verzonden. Geen ontvangers gevonden met opgegeven zoekcriterium. Verruim/wijzig het zoekcriterium en probeer het eventueel nogmaals', 'Message not sent. No users found that match the search criteria. Please change the criteria and try again')
 FAC_LCL('lcl_mes_to_many_char', 'Het bericht is te lang', 'Too many characters')
 FAC_LCL('lcl_mes_less_500', 'Maximum is 4000 tekens', 'Maximum is 4000 characters')
@@ -3478,10 +3480,10 @@ FAC_LCL('lcl_prs_companies_dienst', 'Dienst', 'Service')
 FAC_LCL('lcl_prs_companies_dienst_locs', 'Locaties', 'Locations')
 FAC_LCL('lcl_prs_companies_dienst_title', 'Diensten', 'Services')
 FAC_LCL('lcl_prs_uitvoertijd', 'Uitvoertijd', 'Processing time')
-FAC_LCL('lcl_prs_bedrijfadres_title', 'Technische adressen', 'Technical addresses')
+FAC_LCL('lcl_prs_bedrijfadres_title', 'Systeemadressen', 'System addresses')
 FAC_LCL('lcl_prs_bedrijfadres_srtnoti_frame', 'Gebeurtenis', 'Event')
 FAC_LCL('lcl_prs_bedrijfadres_srtnoti_title', 'Gebeurtenissen', 'Events')
-FAC_LCL('lcl_prs_bedrijfadres_frame', 'Technisch adres', 'Technical address')
+FAC_LCL('lcl_prs_bedrijfadres_frame', 'Systeemadres', 'System address')
 FAC_LCL('lcl_prs_bedrijfadres_omschrijving', 'Omschrijving', 'Description')
 
 FAC_LCL('lcl_prs_bedrijfadres_type', 'Kanaal', 'Channel')
@@ -3492,6 +3494,8 @@ FAC_LCL('lcl_prs_bedrijfadres_type_c', 'Contracten', 'Contracts')
 FAC_LCL('lcl_prs_bedrijfadres_type_v', 'Bestelvoorraad info', 'Stock info')
 FAC_LCL('lcl_prs_bedrijfadres_type_n', 'Notificaties', 'Notifications')
 FAC_LCL('lcl_prs_bedrijfadres_type_i', 'Service (IOT)', 'Service (IOT)')
+FAC_LCL('lcl_prs_bedrijfadres_type_s', 'Systeem', 'System')
+FAC_LCL('lcl_prs_bedrijfadres_type_p', 'Planning aanvraag', 'Planning request')
 FAC_LCL('lcl_prs_bedrijfadres_type_r', 'Catering', 'Catering')
 FAC_LCL('lcl_prs_bedrijfadres_type_g', 'Generiek kanaal', 'Generic channel')
 FAC_LCL('lcl_prs_bedrijfadres_type_e_intern', 'ERP synchronisatie', 'ERP synchronisation')
@@ -4566,6 +4570,7 @@ FAC_LCL('lcl_menu_prs_bo_use', 'Persoonsgegevens', 'Persons details')
 FAC_LCL('lcl_menu_prs_bo', '> Persoon', '> Person')
 FAC_LCL('lcl_menu_prs_bedrijf_intern', 'Bedrijf', 'Company')
 FAC_LCL('lcl_menu_prs_bedrijf_system', 'Externe systemen', 'External systems')
+FAC_LCL('lcl_menu_system_adresses', 'Systeemadressen', 'System adresses')
 FAC_LCL('lcl_menu_prs_browser', 'Afdelingbrowser', 'Department browser')
 FAC_LCL('lcl_menu_prs_dep_name_level1', 'Afdelingsniveau 1', 'Department level 1')
 FAC_LCL('lcl_menu_prs_dep_name_level2', 'Afdelingsniveau 2', 'Department level 2')
@@ -6962,8 +6967,8 @@ FAC_LCL('mld_typeopdr_bez_register', 'Bezoekersregistratie', 'Visitor registrati
 FAC_LCL('mld_typeopdr_afhandeling', 'Afhandeltekst verplicht bij afmelden', 'Text mandatory when closing order')
 FAC_LCL('mld_typeopdr_confirmforsend', 'Opdrachtverzending', 'Order sending')
 FAC_LCL('mld_typeopdr_confirmforsendLOV',
-               '0;Direct versturen;1;Eerste vragen;2;Markeren',
+               '0;Direct versturen;1;Eerst vragen;2;Handmatig versturen',
-               '0;Send directly;1;Ask first;2;Mark')
+               '0;Send directly;1;Ask first;2;Send manually')
 FAC_LCL('mld_typeopdr_kosten_verplicht', 'Opdrachtbedrag verplicht', 'Order amount mandatory')
 FAC_LCL('mld_typeopdr_kosten_verplichtLOV',
                '0;Niet verplicht;7;Bij aanmaak;6;Bij afmelden;4;Bij afronden',
@@ -8002,8 +8007,8 @@ FAC_LCL('lcl_noti_PRSDEL', 'Persoon verwijderd',        'Person deleted')
 FAC_LCL('lcl_noti_PRSLOG', 'Persoon ingelogd',          'Person logged in')
 FAC_LCL('lcl_noti_PRSKPU', 'Kostenplaats gewijzigd',    'Cost centre changed')
 FAC_LCL('lcl_noti_PRSANO', 'Persoon is geanonimiseerd', 'Person is anonymized')
-FAC_LCL('lcl_noti_PRSUPB', 'Bedrijf gewijzigd',       'Company changed')
+FAC_LCL('lcl_noti_PRSUPB', 'Bedrijf gewijzigd',         'Company changed')
-FAC_LCL('lcl_noti_PRSUPT', 'Technisch adres gewijzigd', 'Technical address changed')
+FAC_LCL('lcl_noti_PRSUPT', 'Systeemadres gewijzigd',    'System address changed')
 
 FAC_LCL('lcl_noti_RESNEW', 'Uw reservering ##KEY## (##DESC##) is geregistreerd',           'Your reservation ##KEY## (##DESC##) is registered')
 FAC_LCL('lcl_noti_RESUPD', 'Uw reservering ##KEY## (##DESC##) is aangepast',               'Your reservation ##KEY## (##DESC##) is changed')

FAC/FAC_PAC.SRC

@@ -148,20 +148,22 @@ CREATE OR REPLACE PACKAGE fac
     PROCEDURE trackaction_withkey (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE, poms VARCHAR2, psubjectkey NUMBER, new_fac_tracking_key OUT NUMBER);
     PROCEDURE backtrackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE);
     PROCEDURE notifytracking(psrtnotificatiekey NUMBER, pperslid_key NUMBER, ptracking_oms VARCHAR2, prefkey NUMBER, ptrackingkey NUMBER DEFAULT NULL);
-    PROCEDURE notifytrackingbedrijven(ptrackingkey NUMBER);
+    PROCEDURE notifytrackingbedrijven(ptrackingkey NUMBER, pnotidelay NUMBER DEFAULT NULL);
-    PROCEDURE notifytrackingbedrijven(peventcode IN VARCHAR2, prefkey IN NUMBER);
+    PROCEDURE notifytrackingbedrijven(peventcode IN VARCHAR2, prefkey IN NUMBER, pnotidelay NUMBER DEFAULT NULL);
-    PROCEDURE notifygeneriekbedrijven(prefkey NUMBER, ptrackingkey NUMBER);
+    PROCEDURE notifygeneriekbedrijven(prefkey NUMBER, ptrackingkey NUMBER, pnotidelay NUMBER DEFAULT NULL);
     PROCEDURE notifybedrijf(pbedrijf_key           NUMBER,
                             pbedrijfadres_type     VARCHAR2,
                             prefkey                NUMBER,
                             ptrackingkey           NUMBER DEFAULT NULL,
                             psrtnoti_key           NUMBER DEFAULT NULL, -- als geen trackingkey
+                            pnotidelay             NUMBER DEFAULT NULL,
                             pxrefkey               NUMBER DEFAULT NULL,
                             preference             VARCHAR2 DEFAULT NULL,
                             psender                VARCHAR2 DEFAULT NULL,
                             plocatie_key           NUMBER DEFAULT NULL,
                             pdiscipline_key        NUMBER DEFAULT NULL,
                             ptypeopdr_key          NUMBER DEFAULT NULL,
+                            pbedrijf_key2          NUMBER DEFAULT NULL,
                             pdisc_key              NUMBER DEFAULT NULL);
     FUNCTION gettrackingdate (peventcode IN VARCHAR2, pkey IN number) RETURN date;
     FUNCTION gettrackinguserkey (peventcode IN VARCHAR2, pkey IN number) RETURN number;
@@ -2292,12 +2294,15 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       oldersmode   fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
       susermode    fac_srtnotificatie.fac_srtnotificatie_usermode%TYPE;
       lmode        fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
+      any_tech     NUMBER;
       skey         fac_srtnotificatie.fac_srtnotificatie_key%TYPE;
       l_srtnoti_delay    fac_srtnotificatie.fac_srtnotificatie_delay%TYPE;
       lemail       fac_notificatie.fac_notificatie_receiver_email%TYPE;
       lphone       fac_notificatie.fac_notificatie_receiver_phone%TYPE;
       llang        prs_perslid.prs_perslid_lang%TYPE;
       lsysteem     prs_perslid.prs_perslid_systeemadres%TYPE;
+      notbefore    fac_notificatie.fac_notificatie_notbefore%TYPE;
+      delaymode    NUMBER;
       immediate    NUMBER(1);
    BEGIN
       IF pcode IS NOT NULL
@@ -2337,13 +2342,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                         NULL;
                   END;
                END IF;
-               IF smode IS NULL OR smode = 0
+               -- Misschien komt er nog een technisch adres
-               THEN
+               --IF smode IS NULL OR smode = 0
-                  RETURN; -- Geen kanaal om te notificeren
+               --THEN
-               END IF;
+               --   RETURN; -- Geen kanaal om te notificeren
+               --END IF;
             ELSE
                -- Wel status meegegeven; die is dan vast
-               -- Als status=2 en pcode=xxxMAI, dan moet de mail altijd vertuurd worden.
+               -- Als status=2 en pcode=xxxMAI, dan moet de mail altijd verstuurd worden.
                smode := poptstatus;
                IF ((SUBSTR(pcode, -3) = 'MAI' AND poptstatus = 2) OR pcode = 'PRSREG')
                THEN
@@ -2406,28 +2412,70 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
             IF pbedrijfadreskey IS NULL
             THEN -- Mogelijk naar technische adressen van het (interne) bedrijf waar deze persoon onder valt
-                  FOR bedrijfadresrec
+               FOR bedrijfadresrec
-                     IN (SELECT ba.prs_bedrijfadres_key
+                  IN (SELECT ba.prs_bedrijfadres_key
-                           FROM prs_perslid p,
+                        FROM prs_perslid p,
-                                prs_v_afdeling aa,
+                             prs_v_afdeling_boom aa,
-                                prs_bedrijfadres ba,
+                             prs_bedrijfadres ba,
-                                prs_bedrijfadres_srtnoti basrt
+                             prs_bedrijfadres_srtnoti basrt
-                          WHERE p.prs_perslid_key = pto
+                       WHERE p.prs_perslid_key = pto
-                            AND aa.prs_afdeling_key = p.prs_afdeling_key
+                         AND BITAND(prs_perslid_flags, 1) = 1 -- System user, voorkomt dat het naar elke user onder dit bedrijf gaat
-                            AND ba.prs_bedrijf_key = aa.prs_bedrijf_key
+                         AND prs_perslid_verwijder IS NULL
-                            AND ba.prs_bedrijfadres_startdatum <= SYSDATE
+                         AND aa.prs_afdeling_key = p.prs_afdeling_key
-                            -- AND ba.prs_bedrijfadres_type = 'G' // maakt me dat uit?
+                         AND ba.prs_bedrijf_key = aa.prs_bedrijf_key
-                            AND basrt.prs_bedrijfadres_key = ba.prs_bedrijfadres_key
+                         AND ba.prs_bedrijfadres_startdatum <= SYSDATE
-                            AND basrt.fac_srtnotificatie_key = skey
+                         AND ba.prs_bedrijfadres_type = 'S' -- Systeem notificaties
-                        )
+                         AND basrt.prs_bedrijfadres_key = ba.prs_bedrijfadres_key
-                  LOOP
+                         AND basrt.fac_srtnotificatie_key = skey
-                     putnotificationsrtprio (NULL, NULL, pcode, pref, poptmessage, 0 /* poptstatus */,
+                     )
-                                             NULL, NULL, pxref, pprio, psender, NULL,
+               LOOP
-                                             pbedrijfadreskey => bedrijfadresrec.prs_bedrijfadres_key -- enige bijzondere, rest gewoon blind doorgeven
+                  DBMS_OUTPUT.PUT_LINE('Notify systeembedrijf-adres: ' || bedrijfadresrec.prs_bedrijfadres_key);
-                                            );
+                  IF (pto = pfrom) -- Toch maar niet
-                  END LOOP;
+                  THEN
-            END IF;
+                     DBMS_OUTPUT.PUT_LINE('Maar ik ga niet naar mezelf terugsturen');
+                     CONTINUE;
+                  END IF;
 
+                  notbefore := SYSDATE;
+                  delaymode := fac.safe_to_number(fac.getsetting('noti_delay_mode'));
+                  IF delaymode = 1 -- default uit, naar technische adres zonder vertraging
+                  THEN
+                     notbefore := notbefore + NVL(l_srtnoti_delay/ 60/ 60/ 24, 0);
+                  ELSIF delaymode > 1 -- fixed delay
+                  THEN
+                     notbefore := notbefore + delaymode / 60/ 60/ 24;
+                  END IF;
+                  INSERT INTO fac_notificatie (fac_srtnotificatie_key,
+                                             fac_notificatie_status,
+                                             prs_perslid_key_sender,
+                                             fac_notificatie_oms,
+                                             fac_notificatie_refkey,
+                                             fac_notificatie_extrakey,
+                                             fac_notificatie_prioriteit,
+                                             fac_notificatie_sender_email,
+                                             fac_notificatie_lang,
+                                             fac_notificatie_attachments,
+                                             prs_bedrijfadres_key,
+                                             fac_notificatie_notbefore)
+                     VALUES (skey, -- deze is eerder al bepaald
+                              0, -- nooit via andere opties versturen
+                              pfrom,
+                              soms,
+                              pref,
+                              pxref,
+                              pprio,
+                              psender,
+                              llang,
+                              pattach,
+                              bedrijfadresrec.prs_bedrijfadres_key, -- enige bijzondere, rest gewoon blind doorgeven,
+                              notbefore);
+               END LOOP;
+            END IF;
+         END IF;
+
+         IF smode IS NULL OR smode = 0
+         THEN
+            RETURN; -- Geen kanaal om te notificeren
          END IF;
 
          lmode := smode;
@@ -2594,7 +2642,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                      soms,
                      pref,
                      pxref,
-                     pprio,
+                     CASE WHEN l_srtnoti_delay = 0 THEN 1 ELSE pprio END, // delay 0 altijd hoge prio en 'voorkruipen'
                      psender,
                      llang,
                      lsysteem,
@@ -3800,7 +3848,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       lcode := pcode;
       loms := poms;
 
-      IF SUBSTR(lcode,1,1) = '#'
+      IF SUBSTR(lcode,1,1) = '#' -- later niemand notificeren
       THEN
         lcode := SUBSTR(lcode, 2);
         IF poms IS NULL
@@ -3811,6 +3859,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         END IF;
       END IF;
 
+      IF SUBSTR(lcode,1,1) = '@' -- later niet naar technische adressen notificeren
+      THEN
+        lcode := SUBSTR(lcode, 2);
+        IF poms IS NULL
+        THEN
+            loms := '@';
+        ELSE
+            loms := '@' || SUBSTR(loms, 1, 2047);
+        END IF;
+      END IF;
+
       SELECT   fac_srtnotificatie_key
         INTO   tkey
         FROM   fac_srtnotificatie
@@ -4830,7 +4889,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
     END;
 
    -- Zoek de nieuwste 'peventcode' tracking van prefkey en notificeer daarvan de bedrijven
-   PROCEDURE notifytrackingbedrijven(peventcode IN VARCHAR2, prefkey IN NUMBER)
+   PROCEDURE notifytrackingbedrijven(peventcode IN VARCHAR2, prefkey IN NUMBER, pnotidelay NUMBER DEFAULT NULL)
    AS
        l_trackingkey  fac_tracking.fac_tracking_key%TYPE;
    BEGIN
@@ -4843,12 +4902,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
          AND fsn.fac_srtnotificatie_code = peventcode;
       IF l_trackingkey IS NOT NULL
       THEN
-          fac.notifytrackingbedrijven (l_trackingkey);
+          fac.notifytrackingbedrijven (l_trackingkey, pnotidelay);
       END IF;
    END;
 
    -- Notificeren via een technisch adres
-   PROCEDURE notifytrackingbedrijven (ptrackingkey          NUMBER)
+   PROCEDURE notifytrackingbedrijven (ptrackingkey NUMBER, pnotidelay NUMBER DEFAULT NULL)
    AS
         lxmlnode  fac_srtnotificatie.fac_srtnotificatie_xmlnode%TYPE;
         lcode     fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
@@ -4869,30 +4928,30 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         CASE
             WHEN lxmlnode = 'melding'
             THEN
-                mld.notifymeldingbedrijven(l_refkey, ptrackingkey);
+                mld.notifymeldingbedrijven(l_refkey, ptrackingkey, pnotidelay);
             WHEN lxmlnode = 'opdracht'
             THEN
-                mld.notifyopdrbedrijven(l_refkey, ptrackingkey);
+                mld.notifyopdrbedrijven(l_refkey, ptrackingkey, pnotidelay);
             WHEN lxmlnode = 'reservering' OR lxmlnode = 'xreservering'
             THEN
-                res.notifyreserveringbedrijven(l_refkey, ptrackingkey);
+                res.notifyreserveringbedrijven(l_refkey, ptrackingkey, pnotidelay);
             WHEN lxmlnode = 'bestelling'
             THEN
-                bes.notifybestellingbedrijven(l_refkey, ptrackingkey);
+                bes.notifybestellingbedrijven(l_refkey, ptrackingkey, pnotidelay);
             WHEN lxmlnode = 'bestelopdr'
             THEN
-                bes.notifybestelopdrbedrijven(l_refkey, ptrackingkey);
+                bes.notifybestelopdrbedrijven(l_refkey, ptrackingkey, pnotidelay);
             WHEN lxmlnode = 'contract'
             THEN
-                cnt.notifycontractbedrijven(l_refkey, ptrackingkey);
+                cnt.notifycontractbedrijven(l_refkey, ptrackingkey, pnotidelay);
             ELSE
-               fac.notifygeneriekbedrijven(l_refkey, ptrackingkey);
+               fac.notifygeneriekbedrijven(l_refkey, ptrackingkey, pnotidelay);
 
         END CASE;
    END;
 
    -- Notificeer genrieke bedrijven die luisteren naar onze notificatie
-   PROCEDURE notifygeneriekbedrijven (prefkey NUMBER, ptrackingkey NUMBER)
+   PROCEDURE notifygeneriekbedrijven (prefkey NUMBER, ptrackingkey NUMBER, pnotidelay NUMBER DEFAULT NULL)
    AS
    BEGIN
       FOR bedrijfrec
@@ -4911,7 +4970,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
          fac.notifybedrijf (pbedrijf_key       => bedrijfrec.prs_bedrijf_key,
                             pbedrijfadres_type => bedrijfrec.bedrijfadres_type,
                             prefkey            => prefkey,
-                            ptrackingkey       => ptrackingkey);
+                            ptrackingkey       => ptrackingkey,
+                            pnotidelay         => pnotidelay);
       END LOOP;
    END;
 
@@ -4921,12 +4981,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                             prefkey                NUMBER,
                             ptrackingkey           NUMBER DEFAULT NULL,
                             psrtnoti_key           NUMBER DEFAULT NULL, -- als geen trackingkey, bijvoorbeeld vanuit mld_t_mld_opdr_B_IU als teverzenden op 2 wordt gezet
+                            pnotidelay             NUMBER DEFAULT NULL,
                             pxrefkey               NUMBER DEFAULT NULL,
                             preference             VARCHAR2 DEFAULT NULL,
                             psender                VARCHAR2 DEFAULT NULL,  -- alleen bij opdrachten alg_locatie_email?
                             plocatie_key           NUMBER DEFAULT NULL,
                             pdiscipline_key        NUMBER DEFAULT NULL,
                             ptypeopdr_key          NUMBER DEFAULT NULL,
+                            pbedrijf_key2          NUMBER DEFAULT NULL,
                             pdisc_key              NUMBER DEFAULT NULL)  -- future use
    AS
       l_bdradr_key       prs_bedrijfadres.prs_bedrijfadres_key%TYPE;
@@ -4942,6 +5004,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       nn_noti            NUMBER (10);
       aantal             NUMBER (10);
       dummy              VARCHAR2 (1);
+      notbefore          fac_notificatie.fac_notificatie_notbefore%TYPE;
+      delaymode          NUMBER;
 
    BEGIN
       IF ptrackingkey IS NULL
@@ -4955,9 +5019,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
            FROM fac_tracking ft
           WHERE ft.fac_tracking_key = ptrackingkey;
 
-         -- als de tracking.prs_perslid_key een systeem contactpersoon is van prs_bedrijf
+         -- als de tracking.prs_perslid_key een systeem contactpersoon is van het prs_bedrijf
-         -- dan geen notificatie terugsturen (Arai/van Dorp case)
+         -- dan geen notificatie terugsturen (ARAI/van Dorp case)
-
          SELECT COUNT(*)
            INTO aantal
            FROM prs_contactpersoon pcp
@@ -4966,6 +5029,23 @@ CREATE OR REPLACE PACKAGE BODY fac AS
             AND prs_contactpersoon_systeem = 1;
          IF aantal > 0
          THEN
+            DBMS_OUTPUT.put_line ('NOT sending notification initiated by System contact person');
+            RETURN;
+         END IF;
+
+         -- als de tracking.prs_perslid_key zelf een system user is en van het prs_bedrijf
+         -- dan ook geen notificatie terugsturen
+         SELECT COUNT(*)
+           INTO aantal
+           FROM prs_perslid p,
+                prs_v_afdeling_boom aa
+          WHERE p.prs_perslid_key = l_perslid_key
+            AND BITAND(p.prs_perslid_flags, 1) = 1 -- System user
+            AND aa.prs_afdeling_key = p.prs_afdeling_key
+            AND aa.prs_bedrijf_key = pbedrijf_key;
+         IF aantal > 0
+         THEN
+            DBMS_OUTPUT.put_line ('NOT sending notification initiated by System user');
             RETURN;
          END IF;
       END IF;
@@ -4993,6 +5073,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                AND (ba.mld_typeopdr_key = ptypeopdr_key OR ba.mld_typeopdr_key IS NULL)
                AND (ba.ins_discipline_key = pdiscipline_key OR ba.ins_discipline_key IS NULL)
                AND (ba.alg_locatie_key = plocatie_key OR ba.alg_locatie_key IS NULL)
+               AND (ba.prs_bedrijf_key2 = pbedrijf_key2 OR ba.prs_bedrijf_key2 IS NULL)
                AND (ba.ins_discipline_key = pdisc_key OR ba.ins_discipline_key IS NULL)
                AND (   ba.alg_district_key = (SELECT d.alg_district_key
                                                 FROM alg_locatie d
@@ -5076,6 +5157,19 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
       -- Ok, het technisch adres luistert naar onze notificatie!
       -- Geen putnotificationsrtprio. Die is veel te agressief met ontdubbelen
+      delaymode := fac.safe_to_number(fac.getsetting('noti_delay_mode'));
+      IF pnotidelay IS NOT NULL
+      THEN
+         notbefore := SYSDATE + pnotidelay / 60/ 60/ 24;
+      ELSIF delaymode = 1
+      THEN
+         notbefore := SYSDATE + NVL(l_srtnoti_delay/ 60/ 60/ 24, 0);
+      ELSIF delaymode > 1 -- fixed delay
+      THEN
+         notbefore := SYSDATE + delaymode / 60/ 60/ 24;
+      ELSE -- delaymode = 0 -- default uit, naar technische adres zonder vertraging
+         notbefore := SYSDATE;
+      END IF;
       INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                     fac_notificatie_oms,
                                     fac_notificatie_refkey,
@@ -5093,7 +5187,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                      psender,
                      0,
                      l_bdradr_key,
-                     SYSDATE); -- nooit delay, we ontdubbelen toch niet? + NVL(l_srtnoti_delay/ 60/ 60/ 24, 0));
+                     notbefore);
    END;
 
     -- Levert de (nieuwste) datum op van een getrackt event op key

FAC/FAC_PACF.SRC

@@ -11848,57 +11848,31 @@ BEGIN
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_discipline_oms);
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_kostensoort_oms);
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_nr);
-         fac.imp_getfield (v_newline,
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_omschrijving);
-                           c_fielddelimitor,
-                           v_res_artikel_omschrijving
-                          );
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_eenheid);
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_prijs);
-         fac.imp_getfield (v_newline,
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_prijs_vast);
-                           c_fielddelimitor,
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_inkoopprijs);
-                           v_res_artikel_prijs_vast
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_kostenpersoneel);
-                          );
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_kostenalgemeen);
-         fac.imp_getfield (v_newline,
-                           c_fielddelimitor,
-                           v_res_artikel_inkoopprijs
-                          );
-         fac.imp_getfield (v_newline,
-                           c_fielddelimitor,
-                           v_res_artikel_kostenpersoneel
-                          );
-         fac.imp_getfield (v_newline,
-                           c_fielddelimitor,
-                           v_res_artikel_kostenalgemeen
-                          );
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_btw);
-         fac.imp_getfield (v_newline,
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_opmerking);
-                           c_fielddelimitor,
-                           v_res_artikel_opmerking
-                          );
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_groep);
-         fac.imp_getfield (v_newline,
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_volgnummer);
-                           c_fielddelimitor,
-                           v_res_artikel_volgnummer
-                          );
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_ingangsdatum);
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_vervaldatum);
          fac.imp_getfield (v_newline, c_fielddelimitor, v_res_artikel_minimum);
-         v_aanduiding :=
-               'importregel: ('
-            || v_res_artikel_key
-            || '|'
-            || v_res_discipline_oms
-            || '|'
-            || v_res_artikel_nr
-            || '|'
-            || v_res_artikel_omschrijving
-            || ')';
 
          -- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
          -- de juiste kolomkop. Ik controleer alle kolommen..
          -- Ik negeer alles totdat ik een geldige header gepasseerd ben
          IF (header_is_valid = 0)
          THEN
+            v_aanduiding := 'importregel: (' || v_res_artikel_key
+                                      || '|' || v_res_discipline_oms
+                                      || '|' || v_res_artikel_nr
+                                      || '|' || v_res_artikel_omschrijving
+                                      || ')';
             IF     UPPER (v_res_artikel_key) = 'ARTIKELKEY'
                AND UPPER (v_res_discipline_oms) = 'CATALOGUSNAAM'
                AND UPPER (v_res_kostensoort_oms) = 'CATALOGUSKOSTENSOORT'
@@ -11908,10 +11882,8 @@ BEGIN
                AND UPPER (v_res_artikel_prijs) = 'ARTIKELPRIJS'
                AND UPPER (v_res_artikel_prijs_vast) = 'ARTIKELPRIJSVAST'
                AND UPPER (v_res_artikel_inkoopprijs) = 'ARTIKELINKOOPPRIJS'
-               AND UPPER (v_res_artikel_kostenpersoneel) =
+               AND UPPER (v_res_artikel_kostenpersoneel) = 'ARTIKELPERSONEELKOSTEN'
-                                                     'ARTIKELPERSONEELKOSTEN'
+               AND UPPER (v_res_artikel_kostenalgemeen) = 'ARTIKELALGEMENEKOSTEN'
-               AND UPPER (v_res_artikel_kostenalgemeen) =
-                                                      'ARTIKELALGEMENEKOSTEN'
                AND UPPER (v_res_artikel_btw) = 'ARTIKELBTW'
                AND UPPER (v_res_artikel_opmerking) = 'ARTIKELOPMERKING'
                AND UPPER (v_res_artikel_groep) = 'ARTIKELGROEP'
@@ -11924,9 +11896,14 @@ BEGIN
             END IF;
          ELSE
             v_count_tot := v_count_tot + 1;
+            v_aanduiding := 'importregel ' || TO_CHAR(v_count_tot) || ': (' || v_res_artikel_key
+                                                                     || '|' || v_res_discipline_oms
+                                                                     || '|' || v_res_artikel_nr
+                                                                     || '|' || v_res_artikel_omschrijving
+                                                                     || ')';
 
             -- Controleer alle veldwaarde
-            IF LTRIM (RTRIM (v_res_artikel_key)) IS NOT NULL
+            IF TRIM (v_res_artikel_key) IS NOT NULL
             THEN
                IF fac.safe_to_number (v_res_artikel_key) IS NOT NULL
                THEN
@@ -11938,38 +11915,46 @@ BEGIN
                   EXCEPTION
                      WHEN NO_DATA_FOUND
                      THEN
-                        fac.imp_writelog (p_import_key,
+                        fac.imp_writelog (p_import_key, 'I',
-                                          'I',
                                           v_aanduiding,
                                           'Catalogus is nieuw'
                                          );
                   END;
                ELSE
-                  fac.imp_writelog (p_import_key,
+                  fac.imp_writelog (p_import_key, 'E',
-                                    'E',
                                     v_aanduiding,
-                                    'Artikel key niet gevonden'
+                                    'Artikel key ongeldig'
                                    );
                   v_ongeldig := 1;
                END IF;
             END IF;
 
-            BEGIN
+            v_res_discipline_oms := TRIM (v_res_discipline_oms);
-               SELECT ins_discipline_key
+            IF v_res_discipline_oms IS NOT NULL
-                 INTO v_res_discipline_key
+            THEN
-                 FROM res_discipline
+               BEGIN
-                WHERE ins_discipline_omschrijving = v_res_discipline_oms
+                  SELECT ins_discipline_key
-                      AND ins_discipline_verwijder IS NULL;
+                    INTO v_res_discipline_key
-            EXCEPTION
+                    FROM res_discipline
-               WHEN NO_DATA_FOUND
+                   WHERE ins_discipline_omschrijving = v_res_discipline_oms
-               THEN
+                     AND ins_discipline_verwijder IS NULL;
-                  fac.imp_writelog (p_import_key,
+               EXCEPTION
-                                    'I',
+                  WHEN NO_DATA_FOUND
-                                    v_aanduiding,
+                  THEN
-                                    'Catalogus ' || v_res_discipline_oms || ' is nieuw'
+                     fac.imp_writelog (p_import_key, 'I',
-                                   );
+                                       v_aanduiding,
-            END;
+                                       'Catalogus ' || v_res_discipline_oms || ' is nieuw'
+                                      );
+               END;
+            ELSE  
+               fac.imp_writelog (p_import_key, 'E',
+                                 v_aanduiding,
+                                 'Catalogus ontbreekt'
+                                );
+               v_ongeldig := 1;
+            END IF;
 
+            v_res_kostensoort_oms := TRIM (v_res_kostensoort_oms);
             IF v_res_kostensoort_oms IS NOT NULL
             THEN
               BEGIN
@@ -11981,76 +11966,68 @@ BEGIN
                EXCEPTION
                   WHEN NO_DATA_FOUND
                   THEN
-                     fac.imp_writelog (p_import_key,
+                     fac.imp_writelog (p_import_key, 'E',
-                                      'I',
                                        v_aanduiding,
-                                       'Kostensoort ' || v_res_kostensoort_oms || ' is nieuw'
+                                       'Kostensoort ' || v_res_kostensoort_oms || ' niet gevonden'
                                       );
+                     v_ongeldig := 1;
                END;
             END IF;
 
+            v_res_artikel_nr := TRIM (v_res_artikel_nr);
             IF LENGTH (v_res_artikel_nr) > 10
             THEN
-               v_res_artikel_nr := SUBSTR (TRIM (v_res_artikel_nr), 1, 10);
+               v_res_artikel_nr := SUBSTR (v_res_artikel_nr, 1, 10);
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Artikelnummer wordt afgebroken tot ['
+                                 'Artikelnummer wordt afgebroken tot [' || v_res_artikel_nr || ']'
-                                 || v_res_artikel_nr
-                                 || ']'
                                 );
             END IF;
 
+            v_res_artikel_omschrijving := TRIM (v_res_artikel_omschrijving);
             IF LENGTH (v_res_artikel_omschrijving) > 40
             THEN
-               v_res_artikel_omschrijving :=
+               v_res_artikel_omschrijving := SUBSTR (v_res_artikel_omschrijving, 1, 40);
-                            SUBSTR (TRIM (v_res_artikel_omschrijving), 1, 40);
+               fac.imp_writelog (p_import_key, 'W',
-               fac.imp_writelog
+                                 v_aanduiding,
-                             (p_import_key,
+                                 'Artikelomschrijving wordt afgebroken tot [' || v_res_artikel_omschrijving || ']'
-                              'W',
+                                );
-                              v_aanduiding,
+            END IF;
-                                 'Artikelomschrijving wordt afgebroken tot ['
+            IF v_res_artikel_omschrijving IS NULL 
-                              || v_res_artikel_omschrijving
+            THEN 
-                              || ']'
+               fac.imp_writelog (p_import_key, 'W',
-                             );
+                                 v_aanduiding,
+                                 'Artikelomschrijving ontbreekt'
+                                );
+               v_ongeldig := 1;
             END IF;
 
+            v_res_artikel_eenheid := TRIM (v_res_artikel_eenheid);
             IF LENGTH (v_res_artikel_eenheid) > 10
             THEN
-               v_res_artikel_eenheid :=
+               v_res_artikel_eenheid := SUBSTR (v_res_artikel_eenheid, 1, 10);
-                                 SUBSTR (TRIM (v_res_artikel_eenheid), 1, 10);
+               fac.imp_writelog (p_import_key, 'W',
-               fac.imp_writelog (p_import_key,
-                                 'W',
                                  v_aanduiding,
-                                    'Artikeleenheid wordt afgebroken tot ['
+                                 'Artikeleenheid wordt afgebroken tot [' || v_res_artikel_eenheid || ']'
-                                 || v_res_artikel_eenheid
-                                 || ']'
                                 );
             END IF;
 
             v_res_artikel_prijs := REPLACE (v_res_artikel_prijs, ',', '.');
-
             IF     v_res_artikel_prijs IS NOT NULL
                AND fac.safe_to_number (v_res_artikel_prijs) IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige artikelprijs ['
+                                 'Ongeldige artikelprijs [' || v_res_artikel_prijs || ']'
-                                 || v_res_artikel_prijs
-                                 || ']'
                                 );
             END IF;
 
             IF (   v_res_artikel_prijs_vast <> '0'
                AND v_res_artikel_prijs_vast <> '1')
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige artikel_prijs_vast ['
+                                 'Ongeldige artikel_prijs_vast [' || v_res_artikel_prijs_vast || '] --> [0|1]'
-                                 || v_res_artikel_prijs_vast
-                                 || '] --> [0|1]'
                                 );
             END IF;
             -- Doe een poging er de juiste waarde van te maken.
@@ -12060,88 +12037,63 @@ BEGIN
                v_res_artikel_prijs_vast := '0';
             END IF;
 
-            v_res_artikel_inkoopprijs :=
+            v_res_artikel_inkoopprijs := REPLACE (v_res_artikel_inkoopprijs, ',', '.');
-                                 REPLACE (v_res_artikel_inkoopprijs, ',', '.');
-
             IF     v_res_artikel_inkoopprijs IS NOT NULL
                AND fac.safe_to_number (v_res_artikel_inkoopprijs) IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige inkoopprijs ['
+                                 'Ongeldige inkoopprijs [' || v_res_artikel_inkoopprijs || ']'
-                                 || v_res_artikel_inkoopprijs
-                                 || ']'
                                 );
             END IF;
 
-            v_res_artikel_kostenpersoneel :=
+            v_res_artikel_kostenpersoneel := REPLACE (v_res_artikel_kostenpersoneel, ',', '.');
-                             REPLACE (v_res_artikel_kostenpersoneel, ',', '.');
-
             IF     v_res_artikel_kostenpersoneel IS NOT NULL
                AND fac.safe_to_number (v_res_artikel_kostenpersoneel) IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige personeelskosten ['
+                                 'Ongeldige personeelskosten [' || v_res_artikel_kostenpersoneel || ']'
-                                 || v_res_artikel_kostenpersoneel
-                                 || ']'
                                 );
             END IF;
 
-            v_res_artikel_kostenalgemeen :=
+            v_res_artikel_kostenalgemeen := REPLACE (v_res_artikel_kostenalgemeen, ',', '.');
-                              REPLACE (v_res_artikel_kostenalgemeen, ',', '.');
-
             IF     v_res_artikel_kostenalgemeen IS NOT NULL
                AND fac.safe_to_number (v_res_artikel_kostenalgemeen) IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige algemene kosten ['
+                                 'Ongeldige algemene kosten [' || v_res_artikel_kostenalgemeen || ']'
-                                 || v_res_artikel_kostenalgemeen
-                                 || ']'
                                 );
             END IF;
 
             v_res_artikel_btw := REPLACE (v_res_artikel_btw, ',', '.');
-
             IF     v_res_artikel_btw IS NOT NULL
                AND fac.safe_to_number (v_res_artikel_btw) IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige BTW tarief ['
+                                 'Ongeldige BTW tarief [' || v_res_artikel_btw || ']'
-                                 || v_res_artikel_btw
-                                 || ']'
                                 );
             END IF;
 
+            v_res_artikel_opmerking := TRIM (v_res_artikel_opmerking);
             IF LENGTH (v_res_artikel_opmerking) > 2000
             THEN
-               v_res_artikel_opmerking :=
+               v_res_artikel_opmerking := SUBSTR (v_res_artikel_opmerking, 1, 2000);
-                             SUBSTR (TRIM (v_res_artikel_opmerking), 1, 2000);
+               fac.imp_writelog (p_import_key, 'W',
-               fac.imp_writelog (p_import_key,
-                                 'W',
                                  v_aanduiding,
-                                    'Artikelopmerking wordt afgebroken tot ['
+                                 'Artikelopmerking wordt afgebroken tot [' || v_res_artikel_opmerking || ']'
-                                 || v_res_artikel_opmerking
-                                 || ']'
                                 );
             END IF;
 
+            v_res_artikel_groep := TRIM (v_res_artikel_groep);
             IF LENGTH (v_res_artikel_groep) > 10
             THEN
-               v_res_artikel_groep :=
+               v_res_artikel_groep := SUBSTR (v_res_artikel_groep, 1, 10);
-                                   SUBSTR (TRIM (v_res_artikel_groep), 1, 10);
+               fac.imp_writelog (p_import_key, 'W',
-               fac.imp_writelog (p_import_key,
-                                 'W',
                                  v_aanduiding,
-                                    'Artikelgroep wordt afgebroken tot ['
+                                 'Artikelgroep wordt afgebroken tot [' || v_res_artikel_groep || ']'
-                                 || v_res_artikel_groep
-                                 || ']'
                                 );
             END IF;
 
@@ -12150,12 +12102,9 @@ BEGIN
                IF    LENGTH (v_res_artikel_volgnummer) > 3
                   OR fac.safe_to_number (v_res_artikel_volgnummer) IS NULL
                THEN
-                  fac.imp_writelog (p_import_key,
+                  fac.imp_writelog (p_import_key, 'W',
-                                    'W',
                                     v_aanduiding,
-                                       'Ongeldig artikelvolgnummer ['
+                                    'Ongeldig artikelvolgnummer [' || v_res_artikel_volgnummer || ']'
-                                    || v_res_artikel_volgnummer
-                                    || ']'
                                    );
                   v_res_artikel_volgnummer := NULL;
                END IF;
@@ -12166,24 +12115,18 @@ BEGIN
             IF     v_res_artikel_ingangsdatum IS NOT NULL
                AND fac.safe_to_date (v_res_artikel_ingangsdatum, 'yyyymmdd') IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige ingangsdatum ['
+                                 'Ongeldige ingangsdatum [' || v_res_artikel_ingangsdatum || ']'
-                                 || v_res_artikel_ingangsdatum
-                                 || ']'
                                 );
             END IF;
 
             IF     v_res_artikel_vervaldatum IS NOT NULL
                AND fac.safe_to_date (v_res_artikel_vervaldatum, 'yyyymmdd') IS NULL
             THEN
-               fac.imp_writelog (p_import_key,
+               fac.imp_writelog (p_import_key, 'W',
-                                 'W',
                                  v_aanduiding,
-                                    'Ongeldige vervaldatum ['
+                                 'Ongeldige vervaldatum [' || v_res_artikel_vervaldatum || ']'
-                                 || v_res_artikel_vervaldatum
-                                 || ']'
                                 );
             END IF;
 
@@ -12192,12 +12135,9 @@ BEGIN
                IF    LENGTH (v_res_artikel_minimum) > 3
                   OR fac.safe_to_number (v_res_artikel_minimum) IS NULL
                THEN
-                  fac.imp_writelog (p_import_key,
+                  fac.imp_writelog (p_import_key, 'W',
-                                    'W',
                                     v_aanduiding,
-                                       'Ongeldig artikelminimum ['
+                                    'Ongeldig artikelminimum [' || v_res_artikel_minimum || ']'
-                                    || v_res_artikel_minimum
-                                    || ']'
                                    );
                   v_res_artikel_minimum := NULL;
                END IF;
@@ -12237,10 +12177,8 @@ BEGIN
                                fac.safe_to_number (v_res_artikel_prijs),
                                fac.safe_to_number (v_res_artikel_prijs_vast),
                                fac.safe_to_number (v_res_artikel_inkoopprijs),
-                               fac.safe_to_number
+                               fac.safe_to_number (v_res_artikel_kostenpersoneel),
-                                                (v_res_artikel_kostenpersoneel),
+                               fac.safe_to_number (v_res_artikel_kostenalgemeen),
-                               fac.safe_to_number
-                                                 (v_res_artikel_kostenalgemeen),
                                fac.safe_to_number (v_res_artikel_btw),
                                v_res_artikel_opmerking, v_res_artikel_groep,
                                fac.safe_to_number (v_res_artikel_volgnummer),
@@ -12256,13 +12194,10 @@ BEGIN
                      oracle_err_num := SQLCODE;
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                      v_errormsg := ' ORACLE (' || oracle_err_mes || ')';
-                     fac.imp_writelog
+                     fac.imp_writelog (p_import_key, 'E',
-                        (p_import_key,
+                                       v_aanduiding,
-                         'E',
+                                       'Ingelezen regel kan niet weggeschreven worden: fout bij toevoegen regel aan importtabel FAC_IMP_RES_ARTIKEL_SYNC. ' || v_errormsg
-                         v_aanduiding,
+                                      );
-                            'Ingelezen regel kan niet weggeschreven worden: fout bij toevoegen regel aan importtabel FAC_IMP_RES_ARTIKEL_SYNC. '
-                         || v_errormsg
-                        );
                END;
             END IF;
          END IF;
@@ -12271,26 +12206,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_import_key,
+      fac.imp_writelog (p_import_key, 'E',
-                        'E',
                         v_aanduiding || 'Ongeldig importbestand',
                         'Toelichting: ... '
                        );
    ELSE
-      fac.imp_writelog
+      fac.imp_writelog (p_import_key, 'S',
-                     (p_import_key,
+                        'Reserveringen: aantal ingelezen catering regels: ' || TO_CHAR (v_count_tot),
-                      'S',
+                        ''
-                         'Reserveringen: aantal ingelezen catering regels: '
+                       );
-                      || TO_CHAR (v_count_tot),
+      fac.imp_writelog (p_import_key, 'S',
-                      ''
+                        'Reserveringen: aantal ongeldige niet ingelezen importregels: ' || TO_CHAR (v_count_tot - v_count_import),
-                     );
+                        ''
-      fac.imp_writelog
+                        );
-         (p_import_key,
-          'S',
-             'Reserveringen: aantal ongeldige niet ingelezen importregels: <b>'
-          || TO_CHAR (v_count_tot - v_count_import),
-          ''
-         );
    END IF;
 
    COMMIT;
@@ -12299,10 +12227,8 @@ EXCEPTION
    THEN
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-      v_errormsg :=
+      v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-           'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+      fac.imp_writelog (p_import_key, 'E',
-      fac.imp_writelog (p_import_key,
-                        'E',
                         v_errormsg,
                         'Inleesproces verbruiksartikelen afgebroken!'
                        );
@@ -12369,141 +12295,119 @@ BEGIN
             END;
          END IF;
 
+         BEGIN
+            SELECT ins_discipline_key
+              INTO v_res_discipline_key
+              FROM res_discipline
+             WHERE ins_discipline_omschrijving = rec.res_discipline_oms
+               AND ins_discipline_min_level = 2
+               AND ins_discipline_verwijder IS NULL;
 
-         IF v_res_kostensoort_key IS NOT NULL
+            UPDATE ins_tab_discipline
-         THEN
+               SET prs_kostensoort_key = v_res_kostensoort_key
-            BEGIN
+             WHERE ins_discipline_key = v_res_discipline_key;
-               SELECT ins_discipline_key
+         EXCEPTION
-                 INTO v_res_discipline_key
+            WHEN NO_DATA_FOUND
-                 FROM res_discipline
-                WHERE ins_discipline_omschrijving = rec.res_discipline_oms
-                  AND ins_discipline_min_level = 2
-                  AND ins_discipline_verwijder IS NULL;
-
-               IF v_res_kostensoort_key IS NOT NULL
-               THEN
-                  UPDATE ins_tab_discipline
-                     SET prs_kostensoort_key = v_res_kostensoort_key
-                   WHERE ins_discipline_key = v_res_discipline_key;
-               END IF;
-
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  INSERT INTO ins_tab_discipline
-                              (ins_discipline_module,
-                               ins_discipline_omschrijving,
-                               ins_discipline_min_level,
-                               prs_kostensoort_key
-                              )
-                       VALUES ('RES',
-                               rec.res_discipline_oms,
-                               2,
-                               v_res_kostensoort_key
-                              )
-                   RETURNING ins_discipline_key
-                        INTO v_res_discipline_key;
-
-                  INSERT INTO res_disc_params
-                              (res_ins_discipline_key
-                              )
-                       VALUES (v_res_discipline_key
-                              );
-            END;
-
-            IF rec.res_artikel_key IS NULL
             THEN
-               INSERT INTO res_artikel
+               INSERT INTO ins_tab_discipline
-                           (res_discipline_key, res_artikel_nr,
+                           (ins_discipline_module,
-                            res_artikel_omschrijving,
+                            ins_discipline_omschrijving,
-                            res_artikel_eenheid, res_artikel_prijs,
+                            ins_discipline_min_level,
-                            res_artikel_prijs_vast,
+                            prs_kostensoort_key
-                            res_artikel_inkoopprijs, res_artikel_btw,
-                            res_artikel_opmerking, res_artikel_groep,
-                            res_artikel_kostenpersoneel,
-                            res_artikel_kostenalgemeen,
-                            res_artikel_volgnummer,
-                            res_artikel_ingangsdatum,
-                            res_artikel_vervaldatum,
-                            res_artikel_minimum
                            )
-                    VALUES (v_res_discipline_key, rec.res_artikel_nr,
+                    VALUES ('RES',
-                            rec.res_artikel_omschrijving,
+                            rec.res_discipline_oms,
-                            rec.res_artikel_eenheid, rec.res_artikel_prijs,
+                            2,
-                            rec.res_artikel_prijs_vast,
+                            v_res_kostensoort_key
-                            rec.res_artikel_inkoopprijs, rec.res_artikel_btw,
+                           )
-                            rec.res_artikel_opmerking, rec.res_artikel_groep,
+                RETURNING ins_discipline_key
-                            rec.res_artikel_kostenpersoneel,
+                     INTO v_res_discipline_key;
-                            rec.res_artikel_kostenalgemeen,
+
-                            rec.res_artikel_volgnummer,
+               INSERT INTO res_disc_params
-                            rec.res_artikel_ingangsdatum,
+                           (res_ins_discipline_key
-                            rec.res_artikel_vervaldatum,
+                           )
-                            rec.res_artikel_minimum
+                    VALUES (v_res_discipline_key
                            );
+         END;
 
-               v_count_ins := v_count_ins + 1;
+         IF rec.res_artikel_key IS NULL
-            ELSE
+         THEN
-               UPDATE res_artikel
+            INSERT INTO res_artikel
-                  SET res_discipline_key = v_res_discipline_key,
+                        (res_discipline_key, res_artikel_nr,
-                      res_artikel_nr = rec.res_artikel_nr,
+                         res_artikel_omschrijving,
-                      res_artikel_omschrijving = rec.res_artikel_omschrijving,
+                         res_artikel_eenheid, res_artikel_prijs,
-                      res_artikel_eenheid = rec.res_artikel_eenheid,
+                         res_artikel_prijs_vast,
-                      res_artikel_prijs = rec.res_artikel_prijs,
+                         res_artikel_inkoopprijs, res_artikel_btw,
-                      res_artikel_prijs_vast = rec.res_artikel_prijs_vast,
+                         res_artikel_opmerking, res_artikel_groep,
-                      res_artikel_inkoopprijs = rec.res_artikel_inkoopprijs,
+                         res_artikel_kostenpersoneel,
-                      res_artikel_kostenpersoneel = rec.res_artikel_kostenpersoneel,
+                         res_artikel_kostenalgemeen,
-                      res_artikel_kostenalgemeen = rec.res_artikel_kostenalgemeen,
+                         res_artikel_volgnummer,
-                      res_artikel_btw = rec.res_artikel_btw,
+                         res_artikel_ingangsdatum,
-                      res_artikel_opmerking = rec.res_artikel_opmerking,
+                         res_artikel_vervaldatum,
-                      res_artikel_groep = rec.res_artikel_groep,
+                         res_artikel_minimum
-                      res_artikel_volgnummer = rec.res_artikel_volgnummer,
+                        )
-                      res_artikel_ingangsdatum = rec.res_artikel_ingangsdatum,
+                 VALUES (v_res_discipline_key, rec.res_artikel_nr,
-                      res_artikel_vervaldatum = rec.res_artikel_vervaldatum,
+                         rec.res_artikel_omschrijving,
-                      res_artikel_minimum = rec.res_artikel_minimum
+                         rec.res_artikel_eenheid, rec.res_artikel_prijs,
-                WHERE res_artikel_key = rec.res_artikel_key;
+                         rec.res_artikel_prijs_vast,
+                         rec.res_artikel_inkoopprijs, rec.res_artikel_btw,
+                         rec.res_artikel_opmerking, rec.res_artikel_groep,
+                         rec.res_artikel_kostenpersoneel,
+                         rec.res_artikel_kostenalgemeen,
+                         rec.res_artikel_volgnummer,
+                         rec.res_artikel_ingangsdatum,
+                         rec.res_artikel_vervaldatum,
+                         rec.res_artikel_minimum
+                        );
 
-               v_count_update := v_count_update + 1;
+            v_count_ins := v_count_ins + 1;
-            END IF;
+         ELSE
+            UPDATE res_artikel
+               SET res_discipline_key = v_res_discipline_key,
+                   res_artikel_nr = rec.res_artikel_nr,
+                   res_artikel_omschrijving = rec.res_artikel_omschrijving,
+                   res_artikel_eenheid = rec.res_artikel_eenheid,
+                   res_artikel_prijs = rec.res_artikel_prijs,
+                   res_artikel_prijs_vast = rec.res_artikel_prijs_vast,
+                   res_artikel_inkoopprijs = rec.res_artikel_inkoopprijs,
+                   res_artikel_kostenpersoneel = rec.res_artikel_kostenpersoneel,
+                   res_artikel_kostenalgemeen = rec.res_artikel_kostenalgemeen,
+                   res_artikel_btw = rec.res_artikel_btw,
+                   res_artikel_opmerking = rec.res_artikel_opmerking,
+                   res_artikel_groep = rec.res_artikel_groep,
+                   res_artikel_volgnummer = rec.res_artikel_volgnummer,
+                   res_artikel_ingangsdatum = rec.res_artikel_ingangsdatum,
+                   res_artikel_vervaldatum = rec.res_artikel_vervaldatum,
+                   res_artikel_minimum = rec.res_artikel_minimum
+             WHERE res_artikel_key = rec.res_artikel_key;
+
+            v_count_update := v_count_update + 1;
          END IF;
       END;
    END LOOP;
 
-   fac.imp_writelog (p_import_key,
+   fac.imp_writelog (p_import_key, 'S',
-                     'S',
+                     'Reserveringen: aantal artikelregels: ' || TO_CHAR (v_count_tot), ''
-                        'Reserveringen: aantal artikelregels: '
-                     || TO_CHAR (v_count_tot),
-                     ''
                     );
 
    IF v_count_ins <> 0
    THEN
-      fac.imp_writelog
+      fac.imp_writelog (p_import_key, 'S',
-                      (p_import_key,
+                        'Reserveringen: aantal artikelregels toegevoegd: ' || TO_CHAR (v_count_ins), ''
-                       'S',
+                       );
-                          'Reserveringen: aantal artikelregels toegevoegd: '
-                       || TO_CHAR (v_count_ins),
-                       ''
-                      );
    END IF;
 
    IF v_count_update <> 0
    THEN
-      fac.imp_writelog (p_import_key,
+      fac.imp_writelog (p_import_key, 'S',
-                        'S',
+                        'Reserveringen: aantal artikelregels aangepast: ' || TO_CHAR (v_count_update), ''
-                           'Reserveringen: aantal artikelregels aangepast: '
-                        || TO_CHAR (v_count_update),
-                        ''
                        );
    END IF;
    IF (v_count_tot > (v_count_ins + v_count_update))
    THEN
-      fac.imp_writelog
+      fac.imp_writelog (p_import_key, 'S',
-                      (p_import_key,
+                        'Reserveringen: aantal artikelregels overgeslagen: ' || TO_CHAR (v_count_tot - v_count_ins - v_count_update), ''
-                       'S',
+                       );
-                          'Reserveringen: aantal artikelregels overgeslagen: '
-                       || TO_CHAR (v_count_tot - v_count_ins - v_count_update),
-                       ''
-                      );
    END IF;
 
    COMMIT;
@@ -23107,7 +23011,7 @@ BEGIN
          ( mld_vrije_dagen_datum
          , mld_vrije_dagen_id
          )
-         VALUES (v_datum, vrije_dag.calendarid);
+         VALUES (v_datum, COALESCE(vrije_dag.calendarid, 'Default'));
          v_count_new := v_count_new + 1;
       EXCEPTION
          WHEN OTHERS

FAC/FAC_PACTSK.SRC

@@ -17,6 +17,8 @@ AS
     PROCEDURE starttask (p_taskcode VARCHAR2,
                          p_nextrun DATE DEFAULT SYSDATE,
                          p_customerid VARCHAR2 DEFAULT NULL);
+    PROCEDURE waittask  (pinterval NUMBER DEFAULT 5,
+                         ptimeout NUMBER DEFAULT 300);
 END tsk;
 /
 
@@ -28,7 +30,8 @@ AS
         tsk_master_schema VARCHAR(32);
         custid            fac_version.fac_version_cust%TYPE;
         selfid            fac_version.fac_version_cust%TYPE;
-        selfschema        fac_version.fac_version_schema%TYPE;
+        fac_schema        fac_version.fac_version_schema%TYPE;
+        currentdb_schema  VARCHAR2 (64);
         tsksql            VARCHAR2 (4000);
         cursor_name       INTEGER;
         rows_processed    INTEGER;
@@ -36,16 +39,17 @@ AS
         SELECT fac_version_cust,
                fac_version_schema
           INTO selfid,
-               selfschema
+               fac_schema
           FROM fac_version;
         custid := COALESCE(p_customerid, selfid);
         tsk_master_schema := fac.getsetting ('tsk_master_schema');
+        currentdb_schema := SYS_CONTEXT ('USERENV', 'CURRENT_SCHEMA');
 
-        IF tsk_master_schema IS NULL OR tsk_master_schema = USER
+        IF tsk_master_schema IS NULL OR tsk_master_schema = '*SELF*' OR tsk_master_schema = currentdb_schema
         THEN    -- zelf oplossen
           BEGIN
             INSERT INTO fac_cust(fac_cust_customerid, fac_cust_schema)
-               VALUES(custid, COALESCE(p_schema, selfschema));
+               VALUES(custid, COALESCE(p_schema, fac_schema));
            EXCEPTION
            WHEN DUP_VAL_ON_INDEX
            THEN
@@ -53,7 +57,7 @@ AS
           END;
           -- Schema bijwerken
           UPDATE fac_cust
-             SET fac_cust_schema = COALESCE(p_schema, selfschema)
+             SET fac_cust_schema = COALESCE(p_schema, fac_schema)
            WHERE fac_cust_customerid = custid;
         ELSE    -- Remote register
             tsksql := 'BEGIN ' || tsk_master_schema || '.tsk.registercust(:custid, :schema); END;';
@@ -61,7 +65,7 @@ AS
             cursor_name := DBMS_SQL.open_cursor;
             DBMS_SQL.PARSE (cursor_name, tsksql, DBMS_SQL.NATIVE);
             DBMS_SQL.BIND_VARIABLE (cursor_name, ':custid', selfid);
-            DBMS_SQL.BIND_VARIABLE (cursor_name, ':schema', selfschema);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':schema', fac_schema);
             rows_processed := DBMS_SQL.EXECUTE (cursor_name);
             DBMS_SQL.CLOSE_CURSOR (cursor_name);
         END IF;
@@ -73,13 +77,15 @@ AS
         tsk_master_schema VARCHAR(32);
         selfid            fac_version.fac_version_cust%TYPE;
         tsksql            VARCHAR2 (4000);
+        currentdb_schema  VARCHAR2 (64);
         cursor_name       INTEGER;
         rows_processed    INTEGER;
     BEGIN
         SELECT fac_version_cust INTO selfid FROM fac_version;
         tsk_master_schema := fac.getsetting ('tsk_master_schema');
+        currentdb_schema := SYS_CONTEXT ('USERENV', 'CURRENT_SCHEMA');
 
-        IF tsk_master_schema IS NULL OR tsk_master_schema = USER
+        IF tsk_master_schema IS NULL OR tsk_master_schema = '*SELF*' OR tsk_master_schema = currentdb_schema
         THEN    -- zelf oplossen
             BEGIN
                 INSERT INTO fac_task(fac_cust_key, fac_task_code)
@@ -111,13 +117,15 @@ AS
         tsk_master_schema VARCHAR(32);
         selfid            fac_version.fac_version_cust%TYPE;
         tsksql            VARCHAR2 (4000);
+        currentdb_schema  VARCHAR2 (64);
         cursor_name       INTEGER;
         rows_processed    INTEGER;
     BEGIN
         SELECT fac_version_cust INTO selfid FROM fac_version;
         tsk_master_schema := fac.getsetting ('tsk_master_schema');
+        currentdb_schema := SYS_CONTEXT ('USERENV', 'CURRENT_SCHEMA');
 
-        IF tsk_master_schema IS NULL OR tsk_master_schema = USER
+        IF tsk_master_schema IS NULL OR tsk_master_schema = '*SELF*' OR tsk_master_schema = currentdb_schema
         THEN    -- zelf oplossen
             UPDATE fac_task
                SET fac_task_nextrun = fac.safe_LEAST (p_nextrun, fac_task_nextrun)
@@ -137,6 +145,34 @@ AS
             DBMS_SQL.CLOSE_CURSOR (cursor_name);
         END IF;
     END;
+
+    -- Keert terug als er iets interessants in fac_task staat
+    -- of als timeout is verstreken
+    PROCEDURE waittask (pinterval NUMBER DEFAULT 5,
+                        ptimeout NUMBER DEFAULT 300)
+    AS
+        timeend   DATE;
+        firsttask DATE;
+    BEGIN
+        timeend := SYSDATE + ptimeout / 60/60/24;
+        WHILE timeend > SYSDATE
+        LOOP
+            SELECT MIN (fac_task_nextrun)
+              INTO firsttask
+              FROM fac_task tt, fac_cust tsko
+            WHERE   tt.fac_cust_key = tsko.fac_cust_key
+                AND fac_cust_enabled > 0
+                AND fac_task_nextrun <= SYSDATE
+                AND BITAND (fac_task_flags, 1) = 1;
+
+            IF firsttask <= SYSDATE
+            THEN
+                RETURN;
+            END IF;
+
+            DBMS_SESSION.SLEEP(pinterval);
+        END LOOP;
+    END;
 END tsk;
 /
 -- tsk_master_schema needs:

FAC/FAC_SET.SRC

@@ -53,6 +53,7 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'openai_model'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'openai_model_large_context'            , 'string'                      , ''                            , 'UNUSED! Fallback model for prompts with larger contexts')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'openai_apikey'                         , 'string'                      , 'sk-proj-yzeVEAimM50pGzoPSTdmT3BlbkFJM3cBKKfpo0PVEEyBYJwR', 'UNUSED! OpenAI APIKEY for AI services')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'openai_organization'                   , 'string'                      , 'org-6M9EiAUYLBepI30skvLFk39B', 'UNUSED! OpenAI Organization for AI services')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_confirm_for_send'             , 'number'                      , '0'                           , 'Ask confirmation before sending an e-Order to a supplier (0=do not ask| 1=ask)')
 -- \Unused
 
 DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_otap'                              , 'string'                      , 'P'                           , 'OTAP environment. custenv.wsc overrule only')
@@ -64,7 +65,14 @@ DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'sys_ip_restrict_internal'
 DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_imagecharts_account_id'            , 'string'                      , ''                            , 'Image-charts account_id (future use)')
 DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_imagecharts_secret_key'            , 'string'                      , ''                            , 'Image-charts secret_key (future use)')
 
-DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'tsk_master_schema'                     , 'string'                      , ''                            , 'Task master schema name (not necessarily customerId)')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'licensed_fe_users'                     , 'number'                      , '0'                           , 'Number of licensed frontend users')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'licensed_key_users'                    , 'number'                      , '0'                           , 'Number of licensed key users')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'licensed_device_users'                 , 'number'                      , '0'                           , 'Number of licensed device users')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'licensed_passive_users'                , 'number'                      , '0'                           , 'Number of licensed passive users')
+
+DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'tsk_master_schema'                     , 'string'                      , ''                            , 'Tasker master schema name (not necessarily customerId)')
+DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'tsk_extra_folders'                     , 'array'                       , ''                            , 'Tasker extra folders to start CUST tasks (future use))')
+DEFINE_SETTING('FAC', 0000, 'WEB_FACTAB', 'noti_delay_mode'                       , 'number'                      , '0'                           , '0=Notification to bedrijfadres always zero delay, 1=honor fac_srtnotificatie_delay, >1=fixed delay in seconds (eg. 5)')
 
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_api2_compatibility'                , 'number'                      , '0'                           , '0=latest and greatest, bit 1=backwards compatible')
 
@@ -106,7 +114,7 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_api_allow_impersonate'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_api_key_in_url'                    , 'boolean'                     , 'false'                       , 'Is APIKEY= in url also allowed (unsafe)? Default is header X-Facilitor-API-Key only')
 DEFINE_SETTING('ALG', 0001, 'WEB_FACFAC', 'fac_betafeatures'                      , 'number'                      , '0'                           , 'Bits for enabling release specific experimental features')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_pdf_printer'                       , 'number'                      , '0'                           , 'PDF Printer support bits (future use)')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_usrrap_mode'                       , 'number'                      , '0'                           , 'User reports mode {0=default, 1=advanced}')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_usrrap_mode'                       , 'number'                      , '0'                           , 'User reports mode {0=default, 1=advanced (UDR)}')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_usrrap_safe_view_regexp'           , 'string'                      , ''                            , 'User reports safe views regexp')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fclt_web_url'                          , 'string'                      , ''                            , 'Url to the Facilitor software (future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'hiresTimer'                            , 'number'                      , '1'                           , 'internal use only')
@@ -210,9 +218,9 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flexAllowedExt'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'imgAllowedExt'                         , 'string'                      , 'jpg|jpeg|png|gif|bmp' , 'Allowed image extensions')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flexPreviewExt'                        , 'string'                      , '.*\.(jpg|jpeg|png|gif|bmp)$' , 'Extentions of attachments to preview in show_mld')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_mimetypes'                        , 'json'                        , '{ "jpg": "image/jpeg", "jpeg": "image/jpeg" , "png": "image/png", "bmp": "image/bmp", "gif": "image/gif", "pdf": "application/pdf", "html": "text/html", "eml": "message/rfc822" }', 'Supported streaming mimetypes')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_min_size'                         , 'number'                      , '64'                          , 'E-mail attachments smaller (in bytes) than this are silently ignored')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flex_min_size'                         , 'number'                      , '64'                          , 'E-mail attachments smaller (in bytes) than this are silently ignored')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_min_imgsize'                      , 'number'                      , '64'                          , 'Future use. E-mail image attachments smaller (in bytes) than this are silently ignored')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flex_min_imgsize'                      , 'number'                      , '64'                          , 'E-mail image attachments smaller (in bytes) than this are silently ignored')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_min_imgsize_ext'                  , 'string'                      , '.*\.(jpg|jpeg|png|gif|bmp)$' , 'Future use. Small (flex_min_imgsize) E-mail attachments are ignored')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flex_min_imgsize_ext'                  , 'string'                      , '.*\.(jpg|jpeg|png|gif|bmp)$' , 'Small (flex_min_imgsize) E-mail attachments are ignored')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'mail_subject_undeliverable'            , 'string'                      , '^(Undeliverable:|Message undeliverable:|Onbestelbaar:|Bericht onbestelbaar:)', 'Undeliverable E-mails with bounced this subject are silently ignored')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'mail_subject_ignore'                   , 'string'                      , '^(Automatic reply:|Automatisch antwoord:)', 'E-mails with this subject are silently ignored')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mld_instemmer_self'                    , 'number'                      , '0'                           , 'Fallback option for approving a concept if no consenter is defined or if you are the consenter { 0=No consent needed | 1=Budgetholder | 2=Objectmanager | 4=Departmentmanager  | 8=Manager | 16=Buildingmanager}')
@@ -844,6 +852,7 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_pda_room_times'
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_adhoc_threshold'                   , 'number'                      , '10'                          , 'The amount of time (in minutes) before the end of a reservation before an adhoc reservation can be made')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'msgraph_sync_level'                    , 'number'                      , '0'                           , 'Level of synchronization (Sufficient rights required); { 0: No sync, +1: Facilitor reads from Exchange, +2: Facilitor writes only to Exchange rooms, +4: Facilitor writes to all Exchange users }')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'exchange_internal_email_regexp'        , 'string'                      , '*'                           , 'Regular expression to match internal visitors by; internal visitors are not registered in Facilitor (All visitors are internal by default)')
+DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'exchange_max_concurrent_notifications' , 'number'                      , '50'                          , 'The maximum number of concurrent notifications in progress')
 DEFINE_SETTING('SLE', 0001, 'WEB_PRSSYS', 'cil_ins_srt_groep_key'                 , 'number'                      , '-1'                          , 'INS_SRTDEEL_KEY of object type Cylinders')
 DEFINE_SETTING('SLE', 0001, 'WEB_PRSSYS', 'sle_cil_koppelen'                      , 'number'                      , '1'                           , 'Sleutels en cilinders zijn door bo handmatig te koppelen {0=nee, 1=ja(default)}')
 DEFINE_SETTING('SLE', 0001, 'WEB_PRSSYS', 'sle_ins_srt_groep_key'                 , 'number'                      , '-1'                          , 'INS_SRTDEEL_KEY of object type Keys')
@@ -915,6 +924,8 @@ DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_sftp'      , 'string
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_http'      , 'string'  , 'Opdracht per SOAP gestuurd naar {0}'       , 'Friendly text for http tracking')
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_mailto'    , 'string'  , 'Opdracht per e-mail gestuurd naar {0}'     , 'Friendly text for mail tracking')
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_tracknoti'          , 'string'  , 'Notificatie {0} verstuurd aan {1}'         , 'Friendly text for notification mail tracking')
+DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_tracknoti_sys'      , 'string'  , 'Notificatie {0} verstuurd naar {1}'        , 'Friendly text for system tracking {0} is notification, {1} is company')
+DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_tracknoti_sys_fail' , 'string'  , ' (na {0} gefaalde poging(en))'             , 'Friendly text for system tracking failing')
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefix'          , 'string'  , 'Facilitor bestelling: Bestelopdracht nr.'  , 'Mail subject prefix for BES orders (to be followed by ordernr)')
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefixcnt'       , 'string'  , 'Facilitor contract nr.'                    , 'Mail subject prefix for CNT')
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefixres'       , 'string'  , 'Facilitor reservering nr.'                 , 'Mail subject prefix for RES')

FAC/FAC_TRI.SRC

@@ -397,12 +397,25 @@ BEGIN
    -- Always clear the notify_to_statinfo bit, even when no :new.prs_perslid_key_receiver
    :NEW.fac_notificatie_status := BITAND (:NEW.fac_notificatie_status, 255 - 1);
    :NEW.fac_notificatie_queue:=UPPER(:NEW.fac_notificatie_queue);
+END;
+/
 
-   IF BITAND(:NEW.fac_notificatie_status, 255 - 64) > 0 -- Alleen custom-queue negeren we
+CREATE_TRIGGER(fac_t_fac_notificatie_A_IU)
-      OR :NEW.prs_bedrijfadres_key IS NOT NULL
+   AFTER INSERT OR UPDATE
-      OR :NEW.fac_notificatie_systeemadres IS NOT NULL
+   ON fac_notificatie
+   FOR EACH ROW
+BEGIN
+   IF INSERTING OR UPDATING ('fac_notificatie_notbefore')
    THEN
-      tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => :NEW.fac_notificatie_notbefore);
+      IF BITAND(:NEW.fac_notificatie_status, 2 + 4 + 32) > 0 -- Alleen EMAIL, SMS of APPPUSH
+         OR :NEW.prs_bedrijfadres_key IS NOT NULL
+         OR :NEW.fac_notificatie_systeemadres IS NOT NULL
+      THEN
+         tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => :NEW.fac_notificatie_notbefore);
+      ELSIF :NEW.fac_notificatie_queue = 'EXCHANGE' -- future use
+      THEN
+         tsk.starttask(p_taskcode => 'EXCHANGE', p_nextrun => :NEW.fac_notificatie_notbefore);
+      END IF;
    END IF;
 END;
 /
@@ -583,16 +596,21 @@ CREATE_TRIGGER(fac_t_fac_tracking_b_i)
         END IF;
 
         -- dit event moet mogelijk ook actief worden genotificeerd,
-        -- dat kan expliciet worden onderdrukt door de omschrijving te prefixen met een #
+        -- dat kan expliciet worden onderdrukt door de omschrijving te prefixen met een # of @
         IF SUBSTR(:new.fac_tracking_oms, 1, 1) = '#'
         THEN
            -- bedoeld om te onderdrukken, maar moeten we wel weer verwijderen
            :new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
            -- En nu dus niet notificeren
            NULL;
+        ELSIF SUBSTR(:new.fac_tracking_oms, 1, 1) = '@' -- Technische adressen niet notificeren, wel personen
+        THEN
+            :new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
+            fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
+			-- geen newkey assignment zodat zo geen fac.notifytrackingbedrijven volgt
         ELSE
-           fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
+            fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
-           newkey := :new.fac_tracking_key;
+            newkey := :new.fac_tracking_key;
         END IF;
     END BEFORE EACH ROW;
 

FAC/FAC_VIE.SRC

@@ -619,67 +619,48 @@ AS
 -- Notificatie voor opdrachten in de queue die al meer dan S(puo_failalert_threshold) minuten gefaald zijn
 CREATE_VIEW(fac_v_noti_facorderqueuefails, 0)
 (
-   sender,
    receiver,
-   text,
+   text
-   par1,
-   code,
-   key,
-   xkey, xemail, xmobile, fac_srtnotificatie_key, attachments, xsender, prs_bedrijfadres_key
 )
 AS
-     SELECT '',
+ SELECT wg.prs_perslid_key,
-            wg.prs_perslid_key,
+          LTRIM (lcl.L ('lcl_facilitor_appl'))
-            LTRIM(lcl.L('lcl_facilitor_appl')) || ' alert: transmission of '
+       || ' alert: transmission of '
-            || DECODE (
+       || DECODE (fac_srtnotificatie_xmlnode,
-                  fac_srtnotificatie_code,
+                  'opdracht',    'Order '
-                  'ORDSNX',
+                              || (SELECT mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr
-                  'Order '
+                                    FROM mld_opdr o
-                  || (SELECT    mld_melding_key
+                                   WHERE mld_opdr_key = fac_notificatie_refkey),
-                             || '/'
+                  'bestelopdr',    'Procurement order '
-                             || mld_opdr_bedrijfopdr_volgnr
+                                || (SELECT bes_bestelopdr_id
-                             || ' to '
+                                      FROM bes_bestelopdr o
-                             || COALESCE (prs_bedrijf_naam, '??')
+                                     WHERE bes_bestelopdr_key = fac_notificatie_refkey),
-                        FROM mld_opdr o, prs_bedrijf b
+                  fac_notificatie_refkey)
-                       WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key(+) AND mld_opdr_key = key),
+       || ' to '
-                  'BES2SX',
+       || COALESCE ((SELECT (prs_bedrijf_naam)
-                  'Procurement order '
+                       FROM prs_bedrijf b, prs_bedrijfadres pba
-                  || (SELECT bes_bestelopdr_id || ' to ' || prs_bedrijf_naam
+                      WHERE b.prs_bedrijf_key = pba.prs_bedrijf_key
-                        FROM bes_bestelopdr o, prs_bedrijf b
+                        AND pba.prs_bedrijfadres_key = q.prs_bedrijfadres_key),
-                       WHERE o.prs_bedrijf_key = b.prs_bedrijf_key AND bes_bestelopdr_key = key),
+                    '??')
-                  key)
+       || ' has failed '
-            || ' has failed '
+       || fac_notificatie_failcount
-            || COUNT ( * )
+       || ' times since '
-            || ' times since '
+       || TO_CHAR (q.fac_notificatie_datum, 'DD-MM-YYYY HH24:MI')
-            || TO_CHAR (MIN (ft.fac_tracking_datum), 'DD-MM-YYYY HH24:MI')
+       || ' ('
-            || ' (' || MIN(fac_version_cust) || ')',
+       || fac_version_cust
-            NULL,
+       || ')'
-            NULL,
+  FROM fac_notificatie     q,
-            NULL,
+       fac_srtnotificatie  fs,
-            NULL
+       fac_functie         f,
-         , NULL xemail
+       fac_v_webgebruiker  wg,
-         , NULL xmobile
+       fac_version
-         , NULL fac_srtnotificatie_key
+ WHERE     f.fac_functie_key = wg.fac_functie_key
-         , NULL attachments
+       AND f.fac_functie_code = 'WEB_PRSSYS'
-         , NULL xsender
+       AND q.fac_srtnotificatie_key = fs.fac_srtnotificatie_key
-         , NULL prs_bedrijfadres_key
+       AND BITAND (q.fac_notificatie_status, 64) = 0
-       FROM fac_v_orderqueue q,
+       AND (q.prs_bedrijfadres_key IS NOT NULL OR q.fac_notificatie_systeemadres IS NOT NULL)
-            fac_tracking ft,
+       AND q.fac_notificatie_failcount > 0
-            fac_srtnotificatie fs,
+       AND (SYSDATE - q.fac_notificatie_datum) * 24 * 60 > fac.getSetting ('puo_failalert_threshold');
-            fac_functie f,
-            fac_v_webgebruiker wg,
-            fac_version
-      WHERE     f.fac_functie_key = wg.fac_functie_key
-            AND f.fac_functie_code = 'WEB_PRSSYS'
-            AND ft.fac_srtnotificatie_key = fs.fac_srtnotificatie_key
-            AND ft.fac_tracking_refkey = q.key
-            AND fac_srtnotificatie_code IN ('ORDSNX', 'BES2SX')
-   GROUP BY xmlnode,
-            key,
-            fac_srtnotificatie_code,
-            wg.prs_perslid_key
-     HAVING (SYSDATE - MIN (ft.fac_tracking_datum)) * 24 * 60 > fac.getSetting('puo_failalert_threshold');
-
 
 -- dagelijkse notificatie voor verwoede inlogpogingen (1 regel per user beetje veel misschien)
 CREATE OR REPLACE FORCE VIEW fac_v_noti_auditfail_day

FAC/FAC_VIEEXP.SRC

@@ -183,6 +183,8 @@ AS
         , TO_CHAR(id.ins_deel_vervaldatum,'dd-mm-yyyy')  Vervaldatum
         , id.ins_deel_aantal                      Aantal
         , id.ins_deel_externnr                    Externnr
+        , NULL                                    Parentobjectsoortomschr
+        , NULL                                    Parentobjectidentificatie
         , NULL                                    Kenmerk1
         , NULL                                    Kenmerk2
         , NULL                                    Kenmerk3
@@ -214,8 +216,8 @@ AS
         , res_deel rd
         , res_discipline r
     WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
-      AND d.alg_locatie_key = l.alg_locatie_key
+      AND d.alg_locatie_key = l.alg_locatie_key(+)
-      AND d.alg_gebouw_key = g.alg_gebouw_key
+      AND d.alg_gebouw_key = g.alg_gebouw_key(+)
       AND d.ins_deel_key = id.ins_deel_key
       AND d.ins_discipline_key = i.ins_discipline_key
       AND id.ins_deel_key = rd.res_ins_deel_key(+)
@@ -275,6 +277,11 @@ SELECT sd.ins_srtdiscipline_omschrijving        vakgroeptype
    AND sm.prs_kostensoort_key = ks.prs_kostensoort_key(+)
    AND sm.mld_typeopdr_key = mt.mld_typeopdr_key(+)
    AND sm.prs_dienst_key = pd.prs_dienst_key(+)
+   AND sm.mld_stdmelding_verwijder IS NULL
+   AND (    sm.mld_stdmelding_vervaldatum IS NULL
+         OR sm.mld_stdmelding_vervaldatum > SYSDATE)
+   AND md.ins_discipline_verwijder IS NULL
+   AND sd.ins_srtdiscipline_verwijder IS NULL
 ;
 
 -- import:      FIP: 1-Aanvullen districten t/m gebouwen

FCLT.NMK

@@ -62,7 +62,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 CURRENTVERSION=49
 NEXTVERSION=50
-FILEVERSION=
+FILEVERSION=a
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 

INS/INS_TAB.SRC

@@ -716,7 +716,7 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
         VARCHAR(4000 CHAR),
     ins_deelsrtcontrole_plandatum
        DATE,
-    ins_deelsrtcontrole_status // (vooralsnog 0;Ingepland 2;Gestart/In behandeling 5;Afgemeld/Gereed gemeld; 6;Afgerond)
+    ins_deelsrtcontrole_status // (vooralsnog 0;Ingepland 2;Gestart/In behandeling 3;Ter uitvoering 5;Afgemeld/Gereed gemeld; 6;Afgerond)
        NUMBER(1)
        DEFAULT (6)
        CONSTRAINT ins_c_deelsrtcontrole_status NOT NULL,

INS/INS_VIE.SRC

@@ -42,47 +42,49 @@ AS
 /* Voor onderdelen de plaats/eigenaar van de parent. */
 CREATE_VIEW(ins_v_deelenonderdeel, 0)
 AS
-    SELECT ins_deel_key,
+    SELECT dl.ins_deel_key,
-           ins_deel_module,
+           dl.ins_deel_module,
-           ins_srtdeel_key,
+           dl.ins_srtdeel_key,
-           (COALESCE(dl.ins_alg_ruimte_key, (SELECT d2.ins_alg_ruimte_key FROM ins_deel d2 WHERE d2.ins_deel_key = dl.ins_deel_parent_key))) ins_alg_ruimte_key,
+           COALESCE(dl.ins_alg_ruimte_key, parent_deel.ins_alg_ruimte_key) ins_alg_ruimte_key,
-           (COALESCE(dl.ins_alg_ruimte_type, (SELECT d2.ins_alg_ruimte_type FROM ins_deel d2 WHERE d2.ins_deel_key = dl.ins_deel_parent_key))) ins_alg_ruimte_type,
+           COALESCE(dl.ins_alg_ruimte_type, parent_deel.ins_alg_ruimte_type) ins_alg_ruimte_type,
-           ins_deel_aantal,
+           dl.ins_deel_aantal,
-           ins_deel_omschrijving,
+           dl.ins_deel_omschrijving,
-           ins_deel_opmerking,
+           dl.ins_deel_opmerking,
-           ins_deel_upper,
+           dl.ins_deel_upper,
-           ins_deel_aanmaak,
+           dl.ins_deel_aanmaak,
-           ins_deel_vervaldatum,
+           dl.ins_deel_vervaldatum,
-           ins_deel_verwijder,
+           dl.ins_deel_verwijder,
-           ins_deel_getekend,
+           dl.ins_deel_getekend,
-           ins_discipline_key,
+           dl.ins_discipline_key,
-           ins_alg_locatie_key,
+           dl.ins_alg_locatie_key,
-           ins_deel_parent_key,
+           dl.ins_deel_parent_key,
-           ins_deel_omtrek,
+           dl.ins_deel_omtrek,
-           ins_deel_oppervlak,
+           dl.ins_deel_oppervlak,
-           ins_deel_dwgx,
+           dl.ins_deel_dwgx,
-           ins_deel_dwgy,
+           dl.ins_deel_dwgy,
-           ins_deel_dwgz,
+           dl.ins_deel_dwgz,
-           ins_deel_dwgrotatie,
+           dl.ins_deel_dwgrotatie,
-           ins_deel_dwgschaal,
+           dl.ins_deel_dwgschaal,
-           ins_deel_x,
+           dl.ins_deel_x,
-           ins_deel_y,
+           dl.ins_deel_y,
-           ins_alg_ruimte_key_org,
+           dl.ins_alg_ruimte_key_org,
-           ins_alg_ruimte_type_org,
+           dl.ins_alg_ruimte_type_org,
-           ins_deel_state,
+           dl.ins_deel_state,
-           ins_deel_statedate,
+           dl.ins_deel_statedate,
-           ins_deel_t_uitvoertijd,
+           dl.ins_deel_t_uitvoertijd,
-           ins_deel_actief,
+           dl.ins_deel_actief,
-           ins_deel_image,
+           dl.ins_deel_image,
-           ins_deel_mjb_score1,
+           dl.ins_deel_mjb_score1,
-           ins_deel_mjb_score2,
+           dl.ins_deel_mjb_score2,
-           ins_deel_externnr,
+           dl.ins_deel_externnr,
-           ins_deel_externsyncdate,
+           dl.ins_deel_externsyncdate,
-           ins_deel_flag,
+           dl.ins_deel_flag,
-           prs_perslid_key_beh,
+           dl.prs_perslid_key_beh,
-           res_rsv_deel_key,
+           dl.res_rsv_deel_key,
-           bes_bestelopdr_key
+           dl.bes_bestelopdr_key
-      FROM ins_deel dl;
+      FROM ins_deel  dl
+           LEFT OUTER JOIN ins_deel parent_deel
+               ON parent_deel.ins_deel_key = dl.ins_deel_parent_key;
 
 /* Views met ins_deel moeten voorwaarde : "AND ins_deel_parent_key IS NULL" bevatten... */
 DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder,

MLD/MLD_PAC.SRC

@@ -25,9 +25,11 @@ CREATE OR REPLACE PACKAGE mld AS
   PROCEDURE notifyprio (pmeldingkey IN NUMBER, prio IN NUMBER, pperslid_key IN NUMBER, pdisc_level IN NUMBER DEFAULT 1);
   PROCEDURE notifyopdrgoedkeurders (popdrkey IN NUMBER);
   PROCEDURE notifyopdrbedrijven (popdrkey              NUMBER,
-                                 ptrackingkey          NUMBER);
+                                 ptrackingkey          NUMBER,
+                                 pnotidelay            NUMBER DEFAULT NULL);
   PROCEDURE notifymeldingbedrijven (pmldkey               NUMBER,
-                                    ptrackingkey          NUMBER);
+                                    ptrackingkey          NUMBER,
+                                    pnotidelay            NUMBER DEFAULT NULL);
   FUNCTION getinstemmer (pmldkey IN NUMBER) RETURN NUMBER;
   PROCEDURE notifyinstemmer (pmldkey IN NUMBER);
   FUNCTION mld_besteed_budget_pgb (p_prs_key IN NUMBER, p_disc_key IN NUMBER)
@@ -526,9 +528,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
              THEN
                 newstatus :=  pstatus;
                 eventcode :=  'ORDNEW';
-                IF teverzenden IS NULL OR teverzenden = 1 -- gebruiker heeft aangegeven 'niet versturen'
+                IF l_notificeren = 1 AND (teverzenden IS NULL OR teverzenden = 0) -- gebruiker heeft aangegeven 'niet versturen'
                 THEN
-                   l_notificeren := 0;
+                   l_notificeren := 2; -- alleen niet naar technisch adres
                 END IF;
              END IF;
           WHEN 6  -- Proces Technisch voltooid (TV) (Afgemeld)
@@ -601,6 +603,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
              THEN
                eventcode := '#' || eventcode;
              END IF;
+             IF l_notificeren = 2 AND eventcode IS NOT NULL
+             THEN
+               eventcode := '@' || eventcode; -- Niet naar technisch adres, wel naar personen
+             END IF;
              fac.trackaction (eventcode, popdrachtkey, puserkey, NULL, NULL, new_fac_tracking_key);
              IF popdr_note_key IS NOT NULL
              THEN
@@ -1426,7 +1432,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
    -- in het bijzonder de uitvoerende maar het mag ook een
    -- ander 'subscribed' bedrijf zijn (bedrijfadres_type 'G').
    PROCEDURE notifyopdrbedrijven (popdrkey           NUMBER,
-                                  ptrackingkey       NUMBER)
+                                  ptrackingkey       NUMBER,
+                                  pnotidelay         NUMBER DEFAULT NULL)
    AS
     BEGIN
         FOR bedrijfrec
@@ -1469,12 +1476,15 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                ptypeopdr_key         => bedrijfrec.mld_typeopdr_key,
                                plocatie_key          => bedrijfrec.alg_locatie_key,
                                pdisc_key             => bedrijfrec.mld_opdr_discipline_key,
-                               psender               => bedrijfrec.alg_locatie_email);
+                               psender               => bedrijfrec.alg_locatie_email,
+                               pbedrijf_key2         => bedrijfrec.persoon_bedrijf_key,
+                               pnotidelay            => pnotidelay);
         END LOOP;
     END;
 
    PROCEDURE notifymeldingbedrijven (pmldkey            NUMBER,
-                                     ptrackingkey       NUMBER)
+                                     ptrackingkey       NUMBER,
+                                     pnotidelay         NUMBER DEFAULT NULL)
    AS
     BEGIN
         FOR bedrijfrec
@@ -1513,7 +1523,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                preference            => bedrijfrec.reference,
                                plocatie_key          => bedrijfrec.alg_locatie_key,
                                pdisc_key             => bedrijfrec.mld_ins_discipline_key,
-                               psender               => bedrijfrec.alg_locatie_email);
+                               psender               => bedrijfrec.alg_locatie_email,
+                               pnotidelay            => pnotidelay);
         END LOOP;
     END;
 

MLD/MLD_TRI.SRC

@@ -465,6 +465,7 @@ BEGIN
                                 ptypeopdr_key         => :NEW.mld_typeopdr_key,
                                 plocatie_key          => bedrijfrec.alg_locatie_key,
                                 pdisc_key             => :NEW.mld_opdr_discipline_key,
+                                pbedrijf_key2         => bedrijfrec.persoon_bedrijf_key,
                                 psender               => bedrijfrec.alg_locatie_email);
         END LOOP;
     END IF;

RES/RES_PAC.SRC

@@ -42,7 +42,7 @@ CREATE OR REPLACE PACKAGE res AS
    FUNCTION notifypool (pbez_bezoeker_key IN NUMBER, pcode IN VARCHAR2) RETURN NUMBER;
    PROCEDURE notifybackoffice (prsvkey IN NUMBER, pcode IN VARCHAR2, ptype IN VARCHAR2 DEFAULT NULL, pkey IN NUMBER DEFAULT NULL);
    PROCEDURE remove(p_rsv_ruimte_key IN NUMBER);
-   PROCEDURE notifyreserveringbedrijven (prsvkey NUMBER, ptrackingkey NUMBER);
+   PROCEDURE notifyreserveringbedrijven (prsvkey NUMBER, ptrackingkey NUMBER, pnotidelay NUMBER DEFAULT NULL);
 
 END res;
 /
@@ -2552,7 +2552,8 @@ AS
    END;
 
    PROCEDURE notifyreserveringbedrijven (prsvkey               NUMBER,
-                                         ptrackingkey          NUMBER)
+                                         ptrackingkey          NUMBER,
+                                         pnotidelay            NUMBER DEFAULT NULL)
    AS
    BEGIN
       FOR bedrijfrec
@@ -2595,7 +2596,8 @@ AS
                             prefkey               => prsvkey,
                             ptrackingkey          => ptrackingkey,
                             preference            => bedrijfrec.reference,
-                            plocatie_key          => bedrijfrec.alg_locatie_key);
+                            plocatie_key          => bedrijfrec.alg_locatie_key,
+                            pnotidelay            => pnotidelay);
       END LOOP;
    END;
 END res;

RES/RES_VIE.SRC

@@ -681,8 +681,7 @@ CREATE_VIEW(res_v_udr_reservering, 1)
    opmerking,
    visibility,
    ruimte_prijs,
-   ruimte_korting,
+   ruimte_korting
-   ruimte_totaal
 )
 AS
    SELECT rrr.res_rsv_ruimte_key,
@@ -859,9 +858,8 @@ AS
           rsa.res_srtactiviteit_omschrijving,
           rrr.res_rsv_ruimte_opmerking,
           rrr.res_rsv_ruimte_visibility,
-          rrr.res_rsv_ruimte_prijs,
+          res.getruimteprijs(rrr.res_rsv_ruimte_key),
-          rrr.res_rsv_ruimte_korting,
+          rrr.res_rsv_ruimte_korting
-          rrr.res_rsv_ruimte_totaal
      FROM res_v_aanwezigrsv_ruimte rrr,
           res_activiteit ra,
           res_srtactiviteit rsa,

_UP/DB49to50.src

@@ -71,6 +71,14 @@ ALTER TABLE prs_bedrijfadres
 
 ALTER TABLE prs_bedrijf DROP CONSTRAINT prs_c_prs_bedrijf_intern;  // mag ook 2 zijn
 
+ALTER PACKAGE fac COMPILE; // anders (mogelijk nog) invalid en lukt het volgende niet
+ALTER PACKAGE fac COMPILE BODY;
+
+UPDATE prs_bedrijf
+   SET prs_bedrijf_intern = 2, // is nu logischer
+       prs_bedrijf_uitvoerende = NULL
+ WHERE prs_bedrijf_naam = 'Aareon Facilitor Mobile app';
+
 ALTER TABLE prs_contactpersoon
     ADD prs_contactpersoon_systeem
     NUMBER(1) DEFAULT 0 NOT NULL;
@@ -109,6 +117,10 @@ DEF_FAC_SRTNOT('RESSND', 1, 'lcl_noti_RESSND', 'res/res_reservering.asp?rsv_ruim
 
 DEF_MENUITEM(2, 'lcl_menu_prs_bedrijf_system'   , '', 'FAC', 'appl/prs/prs_bedrijf_search.asp?intern=2', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 MENU_INS_AFTER('lcl_menu_prs_bedrijf_system', 'lcl_menu_fac_eigen_tabellen', 1);
+
+DEF_MENUITEM(2, 'lcl_menu_system_adresses'      , '', 'FAC', 'appl/mgt/prs_bedrijfadres.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_system_adresses', 'lcl_menu_prs_bedrijf_system', 1);
+
 /////////////////////////////////////////////////////////////////////////////////////////// FCLT#80469
 
 
@@ -316,6 +328,12 @@ ALTER TABLE mld_typeopdr
       NUMBER(1)
       DEFAULT 0;
 
+ALTER PACKAGE fac COMPILE; // anders (mogelijk nog) invalid en lukt het volgende niet
+ALTER PACKAGE fac COMPILE BODY;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_confirm_for_send = fac.getsetting('mld_opdr_confirm_for_send');
+
 /////////////////////////////////////////////////////////////////////////////////////////// CARG#85437
 ALTER TABLE bes_disc_params
   ADD bes_disc_params_autodeliverdays
@@ -337,6 +355,9 @@ UPDATE fac_setting
 ALTER TABLE prs_bedrijf DROP CONSTRAINT prs_u_prs_bedrijf_naam_upper DROP INDEX;
 ALTER TABLE prs_bedrijf ADD CONSTRAINT prs_u_prs_bedrijf_naam_upper UNIQUE(prs_bedrijf_naam_upper, prs_bedrijf_intern, prs_bedrijf_verwijder);
 
+/////////////////////////////////////////////////////////////////////////////////////////// WRTH#87857
+UPDATE fac_import_app SET fac_import_app_csv = 1 WHERE fac_import_app_code = 'CNT';
+
 /////////////////////////////////////////////////////////////////////////////////////////// FCLT#00000
 REGISTERONCE('$Id$')