Index: APPS/EDI/common/impl/LegacyConverter.cls.xml
===================================================================
diff -u -r38992 -r38993
--- APPS/EDI/common/impl/LegacyConverter.cls.xml	(.../LegacyConverter.cls.xml)	(revision 38992)
+++ APPS/EDI/common/impl/LegacyConverter.cls.xml	(.../LegacyConverter.cls.xml)	(revision 38993)
@@ -29,6 +29,16 @@
 	Quit EdiNaarLegacyConverter.Converteer(Product)
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerLegacyNaarEdi">
+<FormalSpec>Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</FormalSpec>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	Set LegacyNaarEdiConverter = ##class(APPS.EDI.common.impl.LegacyConverter.LegacyNaarEdi).%New()
+	
+	Quit LegacyNaarEdiConverter.Converteer(Product)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(revision 0)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(revision 38993)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.common.impl.LegacyConverter.LegacyNaarEdi">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ObjectConverter">
+<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TBXLadeCodeBepaler:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</FormalSpec>
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[
+	Set TBXProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	
+	Do ..ObjectConverter.Convert(Product,TBXProduct,..GeefConvertDataTBX())
+	
+	/*Do ..ConvertDesignEnKleuren(Product,TBXProduct)
+
+	Do ..ConvertCorpusWandDikte(Product,TBXProduct)
+	Do ..ConvertOpvullijst(Product,TBXProduct)
+	Do ..ConvertFrontOndersteuningAantal(Product,TBXProduct)
+	Do ..ConvertGreepEnMeenemer(Product,TBXProduct)
+	Do ..ConvertInschuifElement(Product,TBXProduct)
+	Do ..ConvertMat(Product,TBXProduct)
+	Do ..ConvertLadeCodeKenmerken(Product,TBXProduct)
+	Do ..ConvertDwarsverdelingen(Product,TBXProduct)
+	Do ..ConvertFrontBevestiging(Product,TBXProduct)
+	Do ..ConvertUitsparingen(Product,TBXProduct)
+	Do ..ConvertVerlaagdeRug(Product,TBXProduct)*/
+	
+	Quit TBXProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConvertDataTBX">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	Set ConvertData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	Do ConvertData.Add("ItemLD","LadeDiepte")
+	Do ConvertData.Add("ItemKB","BodemKleur","Set Output = $Select(Input = ""BZ"" : ""TS"", 1:Input)")
+	Do ConvertData.Add("ItemCB","CorpusBreedte")
+	Do ConvertData.Add("ItemDK","Draagkracht")
+	Do ConvertData.Add("ItemSB","HeeftZijstabilisering")
+	Do ConvertData.Add("ItemBX","ZijwandVerhogingType", "Set Output = $Case(Input, ""ZR"":""NoGallery"",  ""ER"":""SimpleGallery"", ""INSCHF"":""DesignElement"", :""NoGallery"")")
+	Do ConvertData.Add("ItemBM","GeleiderTechnologie", "Set Output = $Select(Input = ""I"" : ""B"", 1:Input)")
+	Do ConvertData.Add("ItemKL","LadeKleur", "Set Output = $Select(Input = ""BZ"" : ""TS"", 1:Input)")
+	Do ConvertData.Add("ItemVPK","VerpakkingType", "Set Output = $Case(Input, ""P"":""Pallet"",  ""X"":""Probox"", ""S"":""V1"", :""V1"")")
+	
+	Quit ConvertData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(revision 38993)
@@ -0,0 +1,654 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.common.impl.LegacyConverter.ConverteerLegacyNaarEdi.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+		
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
+	
+	Do $$$AssertEquals(GeconverteerdProduct.BodemKleur,"WI")
+	Do $$$AssertEquals(GeconverteerdProduct.LadeDiepte,"400")
+	Do $$$AssertEquals(GeconverteerdProduct.AantalDwarsverdelingen,"")
+	Do $$$AssertEquals(GeconverteerdProduct.Draagkracht,"30")
+	Do $$$AssertFalse(GeconverteerdProduct.HeeftZijstabilisering)
+	Do $$$AssertEquals(GeconverteerdProduct.VerpakkingType,"V1")
+	Do $$$AssertEquals(GeconverteerdProduct.CorpusBreedte,"600")
+	Do $$$AssertEquals(GeconverteerdProduct.ZijwandVerhogingType,"NoGallery")
+	Do $$$AssertEquals(GeconverteerdProduct.GeleiderTechnologie,"B")
+	Do $$$AssertEquals(GeconverteerdProduct.LadeKleur,"SW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica - Product 2">
+<Implementation><![CDATA[
+	/*
+	#dim TeConverterenProduct As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemKB = "BZ"
+	Set TeConverterenProduct.ItemLD = "300"
+	Set TeConverterenProduct.ItemDWV = "1"
+	Set TeConverterenProduct.ItemDK = "50"
+	Set TeConverterenProduct.ItemSB = "0"
+	Set TeConverterenProduct.ItemCB = "800"
+	Set TeConverterenProduct.ItemFB = "D"
+	Set TeConverterenProduct.ItemBX = "800"
+	Set TeConverterenProduct.ItemBM = "TOB"
+	Set TeConverterenProduct.ItemWD = "16"
+	Set TeConverterenProduct.ItemASM = "G"
+	Set TeConverterenProduct.ItemKL = "BZ"
+	Set TeConverterenProduct.ItemRK = "BZ"
+	Set TeConverterenProduct.ItemVPK = "P"
+	Set TeConverterenProduct.ItemDC = "A"
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
+	
+	Do $$$AssertEquals(GeconverteerdProduct.BodemKleur,"TS")
+	Do $$$AssertEquals(GeconverteerdProduct.LadeDiepte,"300")
+	Do $$$AssertEquals(GeconverteerdProduct.HeeftDwarsverdeling,$$$True)
+	Do $$$AssertEquals(GeconverteerdProduct.AantalDwarsverdelingen,##class(DOM.PM.enu.TBXDwarsverdeling).Een())
+	Do $$$AssertEquals(GeconverteerdProduct.Draagkracht,##class(DOM.PM.enu.TBXDraagkracht).Draagkracht50())
+	Do $$$AssertEquals(GeconverteerdProduct.HeeftZijstabilisering,$$$False)
+	Do $$$AssertEquals(GeconverteerdProduct.VerpakkingType,##class(DOM.PM.enu.TBXVerpakkingType).Pallet())
+	Do $$$AssertEquals(GeconverteerdProduct.CorpusBreedte,"800")
+	Do $$$AssertEquals(GeconverteerdProduct.CorpusWandDikte,"16")
+	Do $$$AssertEquals(GeconverteerdProduct.FrontBevestiging,##class(DOM.PM.enu.TBXFrontBevestiging).Drevel())
+	Do $$$AssertEquals(GeconverteerdProduct.ZijwandVerhogingMateriaal,##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium())
+	Do $$$AssertEquals(GeconverteerdProduct.ZijwandVerhogingKleur,##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart())
+	Do $$$AssertEquals(GeconverteerdProduct.ZijwandVerhogingType,"DesignElement")
+	Do $$$AssertEquals(GeconverteerdProduct.GeleiderTechnologie,##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion())
+	Do $$$AssertEquals(GeconverteerdProduct.HeeftMat,$$$True)
+	Do $$$AssertEquals(GeconverteerdProduct.MatKleur,##class(DOM.PM.enu.MATKleur).Antraciet())
+	Do $$$AssertEquals(GeconverteerdProduct.LadeKleur,"TS")
+	Do $$$AssertEquals(GeconverteerdProduct.LadeHoogte,##class(DOM.PM.enu.TBXLadehoogte).M())
+	*/
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: ProductFeatures: CorpusWandDikte -> ItemWD als IsInteriorCabinetWidth = false"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.CorpusWandDikte = "18"
+	Set TeConverterenProduct.IsBinnenbreedte = $$$False
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"18")
+}
+
+Method "Test: ProductFeatures: CorpusWandDikte: 'B' -> ItemWD als IsInteriorCabinetWidth = true"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.IsBinnenbreedte = $$$True
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
+}
+
+Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks -> 'L'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L")
+}
+
+Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstRechts -> 'R'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"R")
+}
+
+Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks en -Rechts -> 'L+R'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
+	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L+R")
+}
+
+Method "Test: ProductFeatures: NumberOfFrontSupports: 1,2,3 -> gewoon overnemen"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.FrontOndersteuningAantal = 2
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"2")
+}
+
+Method "Test: ProductFeatures: NumberOfFrontSupports: geen -> 'Auto'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.FrontOndersteuningAantal = ""
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+}
+
+Method "Test: ProductFeatures: InsideBoxSystem = No -> 'Z'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "No"
+	Set TeConverterenProduct.IsBinnenlade = $$$True
+	Set TeConverterenProduct.RugHoogte = "K"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z")
+}
+
+Method "Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte M -> 'M'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch"
+	Set TeConverterenProduct.IsBinnenlade = $$$True
+	Set TeConverterenProduct.RugHoogte = "M"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"M")
+}
+
+Method "Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte C -> 'M'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch"
+	Set TeConverterenProduct.IsBinnenlade = $$$True
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R")
+}
+
+Method "Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte M -> 'G'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
+	Set TeConverterenProduct.IsBinnenlade = $$$True	
+	Set TeConverterenProduct.RugHoogte = "M"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G")
+}
+
+Method "Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte C -> 'G'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
+	Set TeConverterenProduct.IsBinnenlade = $$$True
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R")
+}
+
+Method "Test: ProductFeatures: InsideBoxSystem: Greep ingevuld, maar niet IsBinnenlade -> 'X' "()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
+	Set TeConverterenProduct.IsBinnenlade = $$$False
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X")
+}
+
+Method "Test: ProductFeatures: Zijwandverhoging: Glas -> FG8"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FG8")
+}
+
+Method "Test: ProductFeatures: Zijwandverhoging: Glas verzuurd -> FZ8"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ8")
+}
+
+Method "Test: ProductFeatures: Zijwandverhoging: Alu Grijs Metallic -> ALU_punt_MG"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.MG")
+}
+
+Method "Test: ProductFeatures: Zijwandverhoging: Alu Zijdewit -> ALU_punt_SW"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.SW")
+}
+
+Method "Test: ProductFeatures: Zijwandverhoging: Alu Terrazwart -> ALU_punt_BZ"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ")
+}
+
+Method "Test: ProductFeatures: GeleiderTechnologie: Als B, dan I"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
+}
+
+Method "Test: ProductFeatures - ZijwandverhogingType -> ItemBX - InschuifElement"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
+}
+
+Method "Test: ProductFeatures: AntislipMat: HeeftMat ingevuld en matkleur -> ItemASM"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftMat = $$$True
+	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z")
+}
+
+Method "Test: ProductFeatures: AntislipMat: HeeftMat false"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftMat = $$$False
+	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"")
+}
+
+Method "Test: ProductFeatures: LadeCodeKenmerken -> ItemLT"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftMat = $$$True
+	Set TeConverterenProduct.Klasse = "L"
+	Set TeConverterenProduct.ZijkantHoogte = "C"
+	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
+	
+	#dim TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Do TBXLadeCodeBepalerStub.VerwachtMethodCall("BepaalLadeCode",TeConverterenProduct.Klasse, TeConverterenProduct.ZijkantHoogte, TeConverterenProduct.RugHoogte, TeConverterenProduct.IsBinnenlade, "V", $$$ElkeWaarde).ExactAantalKeer(1)
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(TBXLadeCodeBepalerStub)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do TBXLadeCodeBepalerStub.Verifieer()
+}
+
+Method "Test: ProductFeatures: Dwarsverdeling: HasCrossDividers false -> aantal = 0"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftDwarsverdeling = $$$False
+	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"")
+}
+
+Method "Test: ProductFeatures: Dwarsverdeling: HasCrossDividers true en aantal <= 3"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.HeeftDwarsverdeling = $$$True
+	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2")
+}
+
+Method "Test: ProductFeatures: Frontbevestiging: Indien binnenlade, altijd 'Z'"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.IsBinnenlade = $$$True
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"Z")
+}
+
+Method "Test: ProductFeatures: Verlaagde rug enkel invullen indien rughoogte '= ladehoogte"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.RugHoogte = "M"
+	Set TeConverterenProduct.LadeHoogte = "C"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"M")
+}
+
+Method "Test: ProductFeatures: Verlaagde rug leeg indien rughoogte = ladehoogte"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.RugHoogte = "M"
+	Set TeConverterenProduct.LadeHoogte = "M"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+}
+
+Method "Test: Sifonlade 1 smalle uitsparing 150"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 1
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"S;120;140;150")
+}
+
+Method "Test: Sifonlade 1 brede uitsparing 250"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 1
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"B;120;140;250")
+}
+
+Method "Test: Sifonlade 1 uitsparing Maatwerk"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 1
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 42
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"M.;120;140;42")
+}
+
+Method "Test: Sifonlade 2 uitsparingen 150/150"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150
+	Set TeConverterenProduct.UitsparingDataBreedteM = 60
+	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 150
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SS;120;140;60;150;150")
+}
+
+Method "Test: Sifonlade 2 uitsparingen 250/250"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250
+	Set TeConverterenProduct.UitsparingDataBreedteM = 60
+	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 250
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"BB;120;140;60;250;250")
+}
+
+Method "Test: Sifonlade 2 uitsparingen 150/250"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150
+	Set TeConverterenProduct.UitsparingDataBreedteM = 60
+	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 250
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SB;120;140;60;150;250")
+}
+
+Method "Test: Sifonlade 2 uitsparingen 250/150"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250
+	Set TeConverterenProduct.UitsparingDataBreedteM = 60
+	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 150
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"BS;120;140;60;250;150")
+}
+
+Method "Test: Sifonlade 2 uitsparingen maatwerk"()
+{
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.Klasse = "SY2"
+	Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2
+	Set TeConverterenProduct.UitsparingDataBreedteX = 120
+	Set TeConverterenProduct.UitsparingDataBreedteZ1 = 42
+	Set TeConverterenProduct.UitsparingDataBreedteM = 60
+	Set TeConverterenProduct.UitsparingDataBreedteZ2 = 42
+	Set TeConverterenProduct.UitsparingDataBreedteY = 140
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"MM;120;140;60;42;42")
+}
+
+Method GeefTeConverterenProduct()
+{
+/*
+	Set TeConverterenProduct = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXLadeKleur).MG()
+	Set TeConverterenProduct.LadeDiepte = 350
+	Set TeConverterenProduct.HeeftDwarsverdeling = $$$True
+	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
+	Set TeConverterenProduct.HeeftZijstabilisering = $$$True
+	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet()
+	Set TeConverterenProduct.CorpusBreedte = 1000
+	Set TeConverterenProduct.CorpusWandDikte = 16
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Tipon()
+	Set TeConverterenProduct.RugHoogte = "C"
+	Set TeConverterenProduct.HeeftMat = $$$False
+	Set TeConverterenProduct.MatMateriaal = ""
+	Set TeConverterenProduct.MatKleur = ""
+	Set TeConverterenProduct.GreepEnMeenemer = "No"
+	Set TeConverterenProduct.IsBinnenlade = $$$False
+	Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).MG()
+	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K()
+	Set TeConverterenProduct.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set TeConverterenProduct.Klasse = "L"
+	
+	Quit TeConverterenProduct
+}*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml
===================================================================
diff -u -r38991 -r38993
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml	(.../Test.cls.xml)	(revision 38991)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml	(.../Test.cls.xml)	(revision 38993)
@@ -49,7 +49,7 @@
 	Set TeConverterenProduct.HeeftMat = $$$True
 	Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet()
 	Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).BZ()
-	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M()
 	
 	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/AcceptatieTest.cls.xml
===================================================================
diff -u -r38992 -r38993
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/AcceptatieTest.cls.xml	(.../AcceptatieTest.cls.xml)	(revision 38992)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/AcceptatieTest.cls.xml	(.../AcceptatieTest.cls.xml)	(revision 38993)
@@ -65,6 +65,15 @@
 	Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren())
 ]]></Implementation>
 </Method>
+
+<Method name="aTest: LegacyNaarEdi Standaard M lade">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	
+	Do $$$AssertObject(ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade())
+]]></Implementation>
+</Method>
 </Class>