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

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

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,30 @@ CREATE OR REPLACE PACKAGE BODY mld AS
 
       -- Evaluate flex expressions.
       flx.evaluateflexexpressions('OPD', l_new_opdr_key, l_prs_perslid_key, 1);
+
+      -- De nieuwe opdracht, in geval van een uitvoerder, door putorders laten oppikken (te verzenden veld zetten).
+      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 mld_addautoorder;
 
    PROCEDURE mld_nextworkflowstep (p_melding_key IN NUMBER, p_success IN NUMBER)