Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r66261 -r66416
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 66261)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 66416)
@@ -39,8 +39,8 @@
 	Set DotNetKenmerken.HeeftZijstabilisering	= TbxKenmerken.HeeftZijstabilisering
 	Set DotNetKenmerken.IsBinnenlade 			= TbxKenmerken.IsBinnenlade
 	Set DotNetKenmerken.InterneBreedte			= TbxKenmerken.InterneBreedte
-	Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()   ; BETER : Eerst DesignCode bepalen, en dan i.c.m. LadeKleur eenvoudig het LadeDesign bepalen 
 	Set DotNetKenmerken.LadeDesignCode			= ..GeefLadeDesignCode()
+	//Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()
 	Set DotNetKenmerken.LadeDiepte		 		= TbxKenmerken.LadeDiepte
 	Set DotNetKenmerken.LadeHoogte 				= TbxKenmerken.LadeHoogte
 	Set DotNetKenmerken.LadeKleur		 		= TbxKenmerken.LadeKleur
@@ -66,19 +66,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLadeDesign">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method GeefLadeDesign() As %String [ Private ]
+{
 	#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>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="GeefLadeKleur">
 <Private>1</Private>
@@ -174,25 +177,12 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
- /*   ; Deze voorlopig nog in comment laten staan (WV 24/11/2021) 
+    ; 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"
-	//ladedesigncode F en MA moeten hier ook nog ergens in worden verwerkt
-	If ..GeefLadeDesign() = "OMT" {
-		Set LadeDesignCode = "MT"
-	} Else {
-		Set LadeDesignCode = "A"
-	}
-	
-	Quit LadeDesignCode
 ]]></Implementation>
 </Method>
 
@@ -220,13 +210,13 @@
 	
 	If (..TbxKenmerken.VerpakkingType = "P") {
 	 	Set VerpakkingType = "Pallet"
-	} ElseIf (..TbxKenmerken.VerpakkingType = "X") {
+	} ElseIf (##class(TECH.StringUtils).Equals(..TbxKenmerken.VerpakkingType, "X", "Y")) {
 		Set VerpakkingType = "Probox"
 	} ElseIf (..TbxKenmerken.VerpakkingType = "C") {
 		Set VerpakkingType = "Procom"
 	} ElseIf (..TbxKenmerken.VerpakkingType = "S") {
 		Set VerpakkingType = "V1"
-	} ElseIf (..TbxKenmerken.VerpakkingType = "A") {
+	} ElseIf (##class(TECH.StringUtils).Equals(..TbxKenmerken.VerpakkingType, "A", "B")) {
 		Set VerpakkingType = "VHoss"
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..TbxKenmerken.VerpakkingType_"' is niet gekend in de DomNaarDotNetconvertor."))