From ea8f38be7fba217c6e08aa13289a3e48161fb0cc Mon Sep 17 00:00:00 2001
From: Koen Reefman <koen.reefman@aareon.nl>
Date: Mon, 5 Jul 2021 22:46:01 +0000
Subject: [PATCH] FCLT#63760 l_prs_bedrijf_key is niet altijd bekend,
 bijvoorbeeld bij isOfferte of indien dienst_key = null, dat moet wel (volgens
 mld_c_mld_uitvoerende_keys), dus eruit klappen als die er niet is.
 opdr_omschrijving werd niet goed bepaald indien l_mld_melding_onderwerp IS
 NULL en l_mld_melding_omschrijving IS NOT NULL. enkele aliasen weggehaald

svn path=/Database/trunk/; revision=52220
---
 MLD/MLD_PAC.SRC | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

diff --git a/MLD/MLD_PAC.SRC b/MLD/MLD_PAC.SRC
index bc255679..1f7fc1ec 100644
--- a/MLD/MLD_PAC.SRC
+++ b/MLD/MLD_PAC.SRC
@@ -1742,6 +1742,13 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          RETURN;
       END IF;
 
+      -- mld_c_mld_uitvoerende_keys
+      IF l_prs_bedrijf_key IS NULL
+      THEN
+         -- Internal error; prs_bedrijf_key must exist.
+         RETURN;
+      END IF;
+
       -- Uurloon
       SELECT b.prs_bedrijf_uurloon
         INTO l_prs_bedrijf_uurloon
@@ -1752,8 +1759,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       IF l_mld_typeopdr_slamode = 2
       THEN
          -- Uitvoertijd opdracht is melding uitvoertijd.
-         SELECT m.mld_melding_t_uitvoertijd.tijdsduur tijdsduur
-              , m.mld_melding_t_uitvoertijd.eenheid eenheid
+         SELECT m.mld_melding_t_uitvoertijd.tijdsduur
+              , m.mld_melding_t_uitvoertijd.eenheid
            INTO l_bdl_tijdsduur
               , l_bdl_eenheid
            FROM mld_melding m
@@ -1763,8 +1770,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          -- Als er een specifieke uitvoertijd voor ons gebouw is, dan zijn l_bdl_tijdsduur en l_bdl_eenheid hiermee gevuld.
          IF l_bdl_tijdsduur IS NULL
          THEN
-            SELECT b.prs_bedrijf_t_uitvoertijd.tijdsduur tijdsduur
-                 , b.prs_bedrijf_t_uitvoertijd.eenheid eenheid
+            SELECT b.prs_bedrijf_t_uitvoertijd.tijdsduur
+                 , b.prs_bedrijf_t_uitvoertijd.eenheid
               INTO l_bdl_tijdsduur
                  , l_bdl_eenheid
               FROM prs_bedrijf b
@@ -1802,10 +1809,14 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       IF l_mld_melding_onderwerp IS NOT NULL
       THEN
          l_mld_opdr_omschrijving := l_mld_melding_onderwerp;
+         IF l_mld_melding_omschrijving IS NOT NULL
+         THEN
+            l_mld_opdr_omschrijving := l_mld_opdr_omschrijving || CHR(10);
+         END IF;
       END IF;
-      IF l_mld_melding_onderwerp IS NOT NULL AND l_mld_melding_omschrijving IS NOT NULL
+      IF l_mld_melding_omschrijving IS NOT NULL
       THEN
-         l_mld_opdr_omschrijving := l_mld_opdr_omschrijving || CHR(10) || l_mld_melding_omschrijving;
+         l_mld_opdr_omschrijving := l_mld_opdr_omschrijving || l_mld_melding_omschrijving;
       END IF;
       IF fac.getsetting('mld_ord_flexsummary') = 1
       THEN
@@ -1861,7 +1872,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                   WHEN u.intern = 1
                   THEN 'ORDMLI'
                   ELSE 'ORDMLE'
-                  END action
+                  END
              INTO l_action
              FROM mld_v_uitvoerende u
             WHERE u.mld_uitvoerende_key = l_prs_bedrijf_key;