Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35779 -r35783
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35779)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35783)
@@ -30,6 +30,7 @@
 	Do ..ObjectConverter.Convert(Product,WebOrderLijn,..GeefConvertDataTBX())
 	Do ..ConvertCorpusWandDikte(Product,WebOrderLijn)
 	Do ..ConvertOpvullijst(Product,WebOrderLijn)
+	Do ..ConvertFrontOndersteuningAantal(Product,WebOrderLijn)
 	
 	Quit WebOrderLijn
 ]]></Implementation>
@@ -43,7 +44,7 @@
 		Set WebOrderLijn.ItemWD = "B"
 		} Else 
 	{
-		If ##class(TECH.StringUtils).Contains(Product.CorpusWandDikte, "16","18","19" ) {
+		If ##class(TECH.ListUtils).Contains(##class(TECH.ListUtils).ListbuildToList($lb("16","18","19")),Product.CorpusWandDikte) {
 			Set WebOrderLijn.ItemWD = Product.CorpusWandDikte
 		} Else {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Product.CorpusWandDikte_" is geen geldige waarde voor CorpusWandDikte"))
@@ -76,6 +77,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertFrontOndersteuningAantal">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.ListUtils).Contains(##class(TECH.ListUtils).ListbuildToList($lb("1","2","3")),Product.FrontOndersteuningAantal) {
+		Set WebOrderLijn.ItemFS = Product.FrontOndersteuningAantal
+	} ElseIf (Product.FrontOndersteuningAantal="") {
+		Set WebOrderLijn.ItemFS = "A"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Te veel frontondersteuningen ("_Product.FrontOndersteuningAantal_")"))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r35779 -r35783
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35779)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35783)
@@ -28,6 +28,7 @@
 	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
 	Set TeConverterenProduct.CorpusBreedte = "1000"
 	Set TeConverterenProduct.CorpusWandDikte = "16"
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -39,6 +40,7 @@
 	Do $$$AssertTrue(WebOrderLijn.ItemSB)
 	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P")
 	Do $$$AssertEquals(WebOrderLijn.ItemCB,"1000")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
 ]]></Implementation>
 </Method>
 
@@ -53,6 +55,7 @@
 	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen()
 	Set TeConverterenProduct.CorpusBreedte = "800"
 	Set TeConverterenProduct.CorpusWandDikte = "16"
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Drevel()
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
@@ -64,6 +67,7 @@
 	Do $$$AssertFalse(WebOrderLijn.ItemSB)
 	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
 	Do $$$AssertEquals(WebOrderLijn.ItemCB,"800")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"D")
 ]]></Implementation>
 </Method>
 
@@ -177,19 +181,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - FrontBevestiging -&gt; ItemFB">
+<Method name="Test: ProductFeatures: NumberOfFrontSupports: 1,2,3 -&gt; gewoon overnemen">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TeConverterenProduct.FrontOndersteuningAantal = 2
 	Set TeConverterenProduct.CorpusWandDikte = "16"
-		
+	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"2")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ProductFeatures: NumberOfFrontSupports: &gt; 3 -&gt; exceptie">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.FrontOndersteuningAantal = "42"
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Te veel frontondersteuningen (42)")
+	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: NumberOfFrontSupports: geen -&gt; &apos;Auto&apos;">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+]]></Implementation>
+</Method>
+
 <Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
Index: APPS/EDI/common/dto/v001/LadeTBX.cls.xml
===================================================================
diff -u -r35757 -r35783
--- APPS/EDI/common/dto/v001/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 35757)
+++ APPS/EDI/common/dto/v001/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 35783)
@@ -26,6 +26,10 @@
 <Property name="AntislipMat">
 <Type>TECH.String</Type>
 </Property>
+
+<Property name="FrontOndersteuningAantal">
+<Type>TECH.String</Type>
+</Property>
 </Class>