FMHN#73451: Automatische opdrachten worden niet naar NPQ gestuurd (vervolg).

svn path=/Database/branches/DB42/; revision=56593

BEZ/BEZ_PAC.SRC

@@ -222,6 +222,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       END IF;
    END;
 
+   -- Pas op met testen van deze PROCEDURE. De user voor autorisatie wordt bepaald
+   -- via sys_context('USERENV', 'CLIENT_IDENTIFIER')
+   -- ASP-code zet die indirect via fac.initsession
+   -- Compacter kun je dat doen via DBMS_SESSION.SET_IDENTIFIER(3); (met 3=key van de user)
    PROCEDURE claim_parking (pbez_bezoekers_key IN NUMBER, palg_gebter_key IN NUMBER)
    AS
       lafspraakkey bez_afspraak.bez_afspraak_key%TYPE;
@@ -368,7 +372,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                              FROM prs_v_afdeling a
                                             WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
                                                                          FROM prs_perslid p,
-                                                                              prs_afdeling a
+                                                                              prs_v_afdeling a
                                                                         WHERE p.prs_afdeling_key = a.prs_afdeling_key
                                                                           AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))
                    -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
@@ -433,7 +437,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                                  FROM prs_v_afdeling a
                                                 WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
                                                                              FROM prs_perslid p,
-                                                                                  prs_afdeling a
+                                                                                  prs_v_afdeling a
                                                                             WHERE p.prs_afdeling_key = a.prs_afdeling_key
                                                                               AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))))
                    AND id.ins_alg_ruimte_type IN ('R', 'T')

MLD/MLD_PAC.SRC

@@ -1411,6 +1411,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       l_prs_bedrijf_uurloon              prs_bedrijf.prs_bedrijf_uurloon%TYPE;
       l_mld_opdr_einddatum               mld_opdr.mld_opdr_einddatum%TYPE;
       l_mld_opdr_omschrijving            mld_opdr.mld_opdr_omschrijving%TYPE;
+      l_prs_bedrijfadres_url             prs_bedrijfadres.prs_bedrijfadres_url%TYPE;
       l_haswrite                         NUMBER (1);
       l_new_opdr_key                     NUMBER (10);
       l_approver_key                     NUMBER (10);
@@ -2030,6 +2031,39 @@ CREATE OR REPLACE PACKAGE BODY mld AS
 
       -- Evaluate flex expressions.
       flx.evaluateflexexpressions('OPD', l_new_opdr_key, l_prs_perslid_key, 1);
+
+      -- De nieuwe (offerte)opdracht door putorders laten oppikken (te verzenden veld zetten), zodat de opdracht verstuurd wordt.
+      IF l_mld_typeopdr_isofferte = 1
+      THEN
+         -- Offerte.
+         UPDATE mld_opdr
+            SET mld_opdr_teverzenden = 1
+          WHERE mld_opdr_key = l_new_opdr_key;
+      ELSE
+         -- Alleen in geval van een uitvoerder, de opdracht door putorders laten oppikken.
+         BEGIN
+           SELECT prs_bedrijfadres_url
+             INTO l_prs_bedrijfadres_url
+             FROM prs_bedrijfadres
+            WHERE prs_bedrijfadres_type = 'O'
+              AND (mld_typeopdr_key IS NULL
+                OR mld_typeopdr_key = l_mld_typeopdr_key)
+              AND (alg_locatie_key = l_mld_alg_locatie_key
+                OR alg_locatie_key IS NULL)
+              AND (alg_district_key = (SELECT d.alg_district_key
+                                         FROM alg_locatie d
+                                        WHERE d.alg_locatie_key = l_mld_alg_locatie_key)
+                OR alg_district_key IS NULL)
+              AND prs_bedrijf_key = l_prs_bedrijf_key;
+
+           UPDATE mld_opdr
+              SET mld_opdr_teverzenden = 1
+            WHERE mld_opdr_key = l_new_opdr_key;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN NULL;
+         END;
+      END IF;
    END mld_addautoorder;
 
    PROCEDURE mld_nextworkflowstep (p_melding_key IN NUMBER, p_success IN NUMBER)

PRS/PRS_PAC.SRC

@@ -755,7 +755,7 @@ AS
                 IF v_wp_key IS NULL
                 THEN
                     -- Er is geen vrije (kan ook omdat we impliciet zijn), maak dan een nieuwe vrije werkplek.
-                    SELECT MIN (ll) eerstvrije
+                    SELECT COALESCE(MIN (ll), 1) eerstvrije
                       INTO v_wp_volgnr
                       FROM ( SELECT prs_werkplek_volgnr +1 AS ll
                                FROM prs_werkplek

PRS/PRS_VIE.SRC

@@ -483,7 +483,7 @@ SELECT
     AND a5.prs_afdeling_parentkey=a4.prs_afdeling_key
     AND a1.prs_afdeling_parentkey IS NULL;
 
-CREATE_VIEW (prs_v_afdeling_familie_oud, 0 )
+CREATE_VIEW (prs_v_afdeling_familie, 0 )
 (PRS_AFDELING_KEY, PRS_AFDELING_ELDER_KEY, NIVEAU)
 AS
 SELECT prs_afdeling_key5 prs_afdeling_key,
@@ -533,7 +533,8 @@ SELECT prs_afdeling_key5 prs_afdeling_key,
      FROM prs_v_afdeling_boom21 ;
 
 // Compacte en efficiente versie van prs_v_afdeling_familie
-CREATE_VIEW (prs_v_afdeling_familie, 0)
+// Maar helaas bij enorm veel afdelingen (BAMG, FMHN) soms toch trager
+CREATE_VIEW (prs_v_afdeling_familie_oud, 0)
 (PRS_AFDELING_KEY, PRS_AFDELING_ELDER_KEY, NIVEAU)
 AS
     WITH