Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r38994 -r39002
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 38994)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39002)
@@ -29,18 +29,17 @@
 	Do ..ObjectConverter.Convert(Product,TBXProduct,..GeefConvertDataTBX())
 	
 	Do ..ConvertDwarsverdelingen(Product,TBXProduct)
+	Do ..ConvertOpvullijst(Product,TBXProduct)
 	
 	/*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)*/
 	
@@ -62,6 +61,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertOpvullijst">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Product.ItemOPVL = "L" {
+		Set TBXProduct.HeeftOpvullijstLinks = $$$True
+	}
+	If Product.ItemOPVL = "R" {
+		Set TBXProduct.HeeftOpvullijstRechts = $$$True
+	}
+	If Product.ItemOPVL = "L+R" {
+		Set TBXProduct.HeeftOpvullijstLinks = $$$True
+		Set TBXProduct.HeeftOpvullijstRechts = $$$True
+	}
+	Set TBXProduct.OpvullijstKleur = Product.ItemKLROPVL
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
@@ -72,6 +89,7 @@
 	Do ConvertData.Add("ItemCB","CorpusBreedte")
 	Do ConvertData.Add("ItemDK","Draagkracht")
 	Do ConvertData.Add("ItemSB","HeeftZijstabilisering")
+	Do ConvertData.Add("ItemFB","FrontBevestiging")
 	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)")
Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml
===================================================================
diff -u -r38994 -r39002
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 38994)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 39002)
@@ -97,50 +97,58 @@
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
 }
+*/
+]]></Content>
+</UDLText>
 
-Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks -> 'L'"()
-{
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
-	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+<Method name="Test: ProductFeatures: Opvullijsten: &apos;L&apos; -&gt; HeeftOpvullijstLinks">
+<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.ItemOPVL = "L"
+	Set TeConverterenProduct.ItemKLROPVL = "PSG"
 	
-	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
 	
-	#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")
-}
+	Do $$$AssertTrue(GeconverteerdProduct.HeeftOpvullijstLinks)
+	Do $$$AssertFalse(GeconverteerdProduct.HeeftOpvullijstRechts)
+	Do $$$AssertEquals(GeconverteerdProduct.OpvullijstKleur,##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs())
+]]></Implementation>
+</Method>
 
-Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstRechts -> 'R'"()
-{
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True
-	Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs()
+<Method name="Test: ProductFeatures: Opvullijsten: &apos;R&apos; -&gt; HeeftOpvullijstRechts">
+<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.ItemOPVL = "R"
+	Set TeConverterenProduct.ItemKLROPVL = "PSG"
 	
-	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
 	
-	#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")
-}
+	Do $$$AssertFalse(GeconverteerdProduct.HeeftOpvullijstLinks)
+	Do $$$AssertTrue(GeconverteerdProduct.HeeftOpvullijstRechts)
+	Do $$$AssertEquals(GeconverteerdProduct.OpvullijstKleur,##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs())
+]]></Implementation>
+</Method>
 
-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()
+<Method name="Test: ProductFeatures: Opvullijsten: &apos;L+R&apos; -&gt; HeeftOpvullijstLinks en -Rechts">
+<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.ItemOPVL = "L+R"
+	Set TeConverterenProduct.ItemKLROPVL = "PSG"
 	
-	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
 	
-	#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")
-}
+	Do $$$AssertTrue(GeconverteerdProduct.HeeftOpvullijstLinks)
+	Do $$$AssertTrue(GeconverteerdProduct.HeeftOpvullijstRechts)
+	Do $$$AssertEquals(GeconverteerdProduct.OpvullijstKleur,##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs())
+]]></Implementation>
+</Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
 Method "Test: ProductFeatures: NumberOfFrontSupports: 1,2,3 -> gewoon overnemen"()
 {
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
@@ -430,19 +438,6 @@
 <UDLText name="T">
 <Content><![CDATA[
 /*
-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()