Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r66148 -r66261
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 66148)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 66261)
@@ -39,7 +39,7 @@
 	Set DotNetKenmerken.HeeftZijstabilisering	= TbxKenmerken.HeeftZijstabilisering
 	Set DotNetKenmerken.IsBinnenlade 			= TbxKenmerken.IsBinnenlade
 	Set DotNetKenmerken.InterneBreedte			= TbxKenmerken.InterneBreedte
-	Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()
+	Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()   ; BETER : Eerst DesignCode bepalen, en dan i.c.m. LadeKleur eenvoudig het LadeDesign bepalen 
 	Set DotNetKenmerken.LadeDesignCode			= ..GeefLadeDesignCode()
 	Set DotNetKenmerken.LadeDiepte		 		= TbxKenmerken.LadeDiepte
 	Set DotNetKenmerken.LadeHoogte 				= TbxKenmerken.LadeHoogte
@@ -69,7 +69,14 @@
 <Method name="GeefLadeDesign">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Case(..TbxKenmerken.LadeKleur, "BZ":"ZA", "SW":"WA", "MG":"GA","IN":"IA", "OG":"OMT",:"")
+<Implementation><![CDATA[
+	#dim DesignCodeId As %String = ..TbxKenmerken.ZijkantDesign
+	If (DesignCodeId = "") && ($IsObject(..TbxKenmerken.LegacyKenmerken)) {
+		Set DesignCodeId = ..TbxKenmerken.LegacyKenmerken.ItemDC
+	}
+	Quit:(..TbxKenmerken.LadeKleur = "MG")&&(DesignCodeId = ##class(DOM.PM.enu.TBXDesigncode).MengvormADesign()) "GMA"
+	
+	Quit $Case(..TbxKenmerken.LadeKleur, "BZ":"ZA", "SW":"WA", "MG":"GA","IN":"IA", "OG":"OMT",:"")
 ]]></Implementation>
 </Method>
 
@@ -167,6 +174,14 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
+ /*   ; Deze voorlopig nog in comment laten staan (WV 24/11/2021) 
+	#dim DesignCodeId As %String = ..TbxKenmerken.ZijkantDesign
+	If (DesignCodeId = "") && ($IsObject(..TbxKenmerken.LegacyKenmerken)) {
+		Set DesignCodeId = ..TbxKenmerken.LegacyKenmerken.ItemDC
+	}
+	Quit DesignCodeId
+ */
+	
 	#dim LadeDesignCode As %String = ""
 	
 	//Gma = "ma"