Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml
===================================================================
diff -u -r65626 -r66267
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml	(.../Test.cls.xml)	(revision 65626)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml	(.../Test.cls.xml)	(revision 66267)
@@ -758,6 +758,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: DZLadeInMengvormADesign">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).DZLadeInMengvormADesign()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(LegacyKenmerken.ItemDC,"MA")
+	Do $$$AssertEquals(LegacyKenmerken.ItemDS,"GMA")
+	Do $$$AssertEquals(LegacyKenmerken.ItemKL,"MG")
+]]></Implementation>
+</Method>
+
+<Method name="Test: DS2LadeInMengvormADesign">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).SpoelbakLade()
+	
+	Set TeConverterenProduct.DesignCode = ##class(DOM.PM.enu.TBXDesigncode).MengvormADesign()
+	Set TeConverterenProduct.LadeKleur = "MG"
+	
+	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).D()
+	Set TeConverterenProduct.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).D()
+	Set TeConverterenProduct.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set TeConverterenProduct.ZijwandVerhogingType = "SimpleGallery"
+	
+	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()   ; De echte gebruiken i.p.v. DummyTBXLadeCodeBepaler
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(LegacyKenmerken.ItemDC,"MA")
+	Do $$$AssertEquals(LegacyKenmerken.ItemDS,"GMA")
+	Do $$$AssertEquals(LegacyKenmerken.ItemKL,"MG")
+	Do $$$AssertEquals(LegacyKenmerken.ItemLT,"DS2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: DMZLade met Ongeldige LadeKleur en lege DesignCode geeft foutmelding">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).DMZLade()
+	Set TeConverterenProduct.DesignCode = ""
+	Set TeConverterenProduct.LadeKleur = "UT_OngeldigeKleur"   ; Wanneer de LadeKleur vanuit eCon (bvb. "MG-GMA") niet correct geconverteerd zou worden. 
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Fout bij opvragen LadeKleur. Kon geen object openen voor","'UT_OngeldigeKleur'"," en DesignCode=''")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+		
+	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterenProduct">
 <Implementation><![CDATA[
 	Set TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()