From cc7ff3ead8776237415f5c1ac2c0df95ae136d13 Mon Sep 17 00:00:00 2001
From: Erik Groener <erik.groener@aareon.nl>
Date: Tue, 3 Dec 2024 14:36:54 +0000
Subject: [PATCH] FCLT#85815 Opdrachttype codes toevoegen voor duidelijkheid en
 compatibiliteit

svn path=/Database/trunk/; revision=67274
---
 FAC/FAC_PACX.SRC | 8 ++++++--
 MLD/MLD_TAB.SRC  | 3 +++
 _UP/DB49to50.src | 5 +++++
 3 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/FAC/FAC_PACX.SRC b/FAC/FAC_PACX.SRC
index 113d8d9f..8781b3c2 100644
--- a/FAC/FAC_PACX.SRC
+++ b/FAC/FAC_PACX.SRC
@@ -4808,6 +4808,7 @@ AS
       v_gvs               mld_typeopdr.mld_typeopdr_gvs%TYPE;
       v_bez               mld_typeopdr.mld_typeopdr_bez%TYPE;
       v_image             mld_typeopdr.mld_typeopdr_image%TYPE;
+      v_code              mld_typeopdr.mld_typeopdr_code%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -4830,7 +4831,8 @@ AS
                 mld_typeopdr_isofferte,
                 mld_typeopdr_gvs,
                 mld_typeopdr_bez,
-                mld_typeopdr_image
+                mld_typeopdr_image,
+                mld_typeopdr_code
            INTO v_omschrijving,
                 v_decentraal,
                 v_kosten,
@@ -4845,7 +4847,8 @@ AS
                 v_isofferte,
                 v_gvs,
                 v_bez,
-                v_image
+                v_image,
+                v_code
            FROM mld_typeopdr
           WHERE mld_typeopdr_key = p_key;
 
@@ -4865,6 +4868,7 @@ AS
          createxmltagvalue ('gvs', v_gvs);
          createxmltagvalue ('bez', v_bez);
          createxmltagvalue ('image', v_image);
+         createxmltagvalue ('code', v_code);
          createclosetag ('opdrachttype');
       END IF;
    END;
diff --git a/MLD/MLD_TAB.SRC b/MLD/MLD_TAB.SRC
index d368e437..3630e14a 100644
--- a/MLD/MLD_TAB.SRC
+++ b/MLD/MLD_TAB.SRC
@@ -356,6 +356,9 @@ CREATE_TABLE(mld_typeopdr,0)
         DEFAULT 0 NOT NULL,
     mld_typeopdr_image
         VARCHAR2(255 CHAR),
+    mld_typeopdr_code
+        VARCHAR2(60)
+        CONSTRAINT mld_u_mld_typeopdr_code UNIQUE,
     CONSTRAINT mld_u_mld_typeopdr_upper UNIQUE(mld_typeopdr_upper, mld_typeopdr_module)
 );
 
diff --git a/_UP/DB49to50.src b/_UP/DB49to50.src
index b59741f3..3e5a322d 100644
--- a/_UP/DB49to50.src
+++ b/_UP/DB49to50.src
@@ -144,6 +144,11 @@ UPDATE prs_perslid
 /////////////////////////////////////////////////////////////////////////////////////////// FCLT#00000
 DEF_FAC_MESSAGE ('INS_M205', 'Parent object bestaat niet.','Parent object does noet exist.');
 
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#85815
+ALTER TABLE mld_typeopdr
+  ADD mld_typeopdr_code VARCHAR2(60)
+  CONSTRAINT mld_u_mld_typeopdr_code UNIQUE;
+
 /////////////////////////////////////////////////////////////////////////////////////////// FCLT#00000
 REGISTERONCE('$Id$')