Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml	(revision 38991)
@@ -0,0 +1,690 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.common.impl.LegacyConverter.ConverteerEdiNaarLegacy.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	
+	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.ItemKB,"MG")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,"350")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,"65")
+	Do $$$AssertTrue(WebOrderLijn.ItemSB)
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,"1000")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"T")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"MG")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"MG")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P")
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica - Product 2">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.BodemKleur = "TS"
+	Set TeConverterenProduct.LadeDiepte = "400"
+	Set TeConverterenProduct.HeeftDwarsverdeling = $$$True
+	Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Een()
+	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht50()
+	Set TeConverterenProduct.HeeftZijstabilisering = $$$False
+	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()
+	Set TeConverterenProduct.CorpusBreedte = "800"
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Drevel()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
+	Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement"
+	Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()
+	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 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.ItemKB,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,"400")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"1")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,"50")
+	Do $$$AssertFalse(WebOrderLijn.ItemSB)
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,"800")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"D")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"TOB")
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"G")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: CorpusWandDikte -&gt; ItemWD als IsInteriorCabinetWidth = false">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: CorpusWandDikte: &apos;B&apos; -&gt; ItemWD als IsInteriorCabinetWidth = true">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks -&gt; &apos;L&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstRechts -&gt; &apos;R&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks en -Rechts -&gt; &apos;L+R&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: NumberOfFrontSupports: 1,2,3 -&gt; gewoon overnemen">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: NumberOfFrontSupports: geen -&gt; &apos;Auto&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem = No -&gt; &apos;Z&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte M -&gt; &apos;M&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte C -&gt; &apos;M&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte M -&gt; &apos;G&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte C -&gt; &apos;G&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem: Greep ingevuld, maar niet IsBinnenlade -&gt; &apos;X&apos; ">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Zijwandverhoging: Glas -&gt; FG8">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Zijwandverhoging: Glas verzuurd -&gt; FZ8">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Zijwandverhoging: Alu Grijs Metallic -&gt; ALU_punt_MG">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Zijwandverhoging: Alu Zijdewit -&gt; ALU_punt_SW">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Zijwandverhoging: Alu Terrazwart -&gt; ALU_punt_BZ">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: GeleiderTechnologie: Als B, dan I">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX - InschuifElement">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: AntislipMat: HeeftMat ingevuld en matkleur -&gt; ItemASM">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: AntislipMat: HeeftMat false">
+<Implementation><![CDATA[
+	#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,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: LadeCodeKenmerken -&gt; ItemLT">
+<Implementation><![CDATA[
+	#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()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Dwarsverdeling: HasCrossDividers false -&gt; aantal = 0">
+<Implementation><![CDATA[
+	#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,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Dwarsverdeling: HasCrossDividers true en aantal &lt;= 3">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Frontbevestiging: Indien binnenlade, altijd &apos;Z&apos;">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Verlaagde rug enkel invullen indien rughoogte &apos;= ladehoogte">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Verlaagde rug leeg indien rughoogte = ladehoogte">
+<Implementation><![CDATA[
+	#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,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 1 smalle uitsparing 150">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 1 brede uitsparing 250">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 1 uitsparing Maatwerk">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 2 uitsparingen 150/150">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 2 uitsparingen 250/250">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 2 uitsparingen 150/250">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 2 uitsparingen 250/150">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sifonlade 2 uitsparingen maatwerk">
+<Implementation><![CDATA[
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Implementation><![CDATA[
+	Set TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	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
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 38991 refers to a dead (removed) revision in file `vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerProduct/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?