Index: APPS/EDI/common/dto/v001/LadeTBX.cls.xml
===================================================================
diff -u -r35797 -r35808
--- APPS/EDI/common/dto/v001/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 35797)
+++ APPS/EDI/common/dto/v001/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 35808)
@@ -38,6 +38,14 @@
 <Property name="HeeftGreepEnMeenemer">
 <Type>TECH.String</Type>
 </Property>
+
+<Property name="ZijwandVerhogingMateriaal">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="ZijwandVerhogingKleur">
+<Type>TECH.String</Type>
+</Property>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r35807 -r35808
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35807)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35808)
@@ -7,6 +7,8 @@
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.CorpusWandDikte = "16"
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
 	
 	#dim Aantal = 42	
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
@@ -47,6 +49,8 @@
 	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()
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -287,6 +291,85 @@
 ]]></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()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(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()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(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()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(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()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(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()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: Zijwandverhoging: foute combinatie -&gt; exception">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verkeerde combinatie voor Zijwandverhoging")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+]]></Implementation>
+</Method>
+
 <Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
@@ -323,6 +406,8 @@
 	Set TeConverterenProduct.CorpusBreedte = "1000"
 	Set TeConverterenProduct.CorpusWandDikte = "16"
 	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+	Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
 	Quit TeConverterenProduct
 ]]></Implementation>
 </Method>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35806 -r35808
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35806)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35808)
@@ -32,6 +32,7 @@
 	Do ..ConvertOpvullijst(Product,WebOrderLijn)
 	Do ..ConvertFrontOndersteuningAantal(Product,WebOrderLijn)
 	Do ..ConvertGreepEnMeenemer(Product,WebOrderLijn)
+	Do ..ConvertInschuifElement(Product,WebOrderLijn)
 	
 	Quit WebOrderLijn
 ]]></Implementation>
@@ -108,6 +109,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertInschuifElement">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()) {
+		Set WebOrderLijn.ItemKV = "FG8"
+	}
+	ElseIf (Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()) {
+		Set WebOrderLijn.ItemKV = "FZ8"
+	}
+	ElseIf (Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()) {
+		Set WebOrderLijn.ItemKV = "ALU.MG"
+	}
+	ElseIf (Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()) {
+		Set WebOrderLijn.ItemKV = "ALU.BZ"
+	}
+	ElseIf (Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()) {
+		Set WebOrderLijn.ItemKV = "ALU.SW"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verkeerde combinatie voor Zijwandverhoging"))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>