Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r35761 -r35772
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35761)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35772)
@@ -6,6 +6,7 @@
 <Method name="Test: Aantal">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
 	#dim Aantal = 42	
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
@@ -16,105 +17,129 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - Bodemkleur -&gt; ItemKB">
+<Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG()
+	Set TeConverterenProduct.LadeDiepte = "350"
+	Set TeConverterenProduct.Dwarsverdeling = ##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.TBXVerpakking).Pallet()
+	Set TeConverterenProduct.CorpusBreedte = "1000"
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(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")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - LadeDiepte -&gt; ItemLD">
+<Method name="Test: Standaardtags die 1 op 1 kunnen overgezet worden zonder speciale logica - Product 2">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.LadeDiepte = "350"
+	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).WI()
+	Set TeConverterenProduct.LadeDiepte = "400"
+	Set TeConverterenProduct.Dwarsverdeling = ##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.TBXVerpakking).StukMetOnderdelen()
+	Set TeConverterenProduct.CorpusBreedte = "800"
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemLD,"350")
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"WI")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,"400")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"1")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,"50")
+	Do $$$AssertFalse(WebOrderLijn.ItemSB)
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,"800")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - CorpusBreedte -&gt; ItemCB">
+<Method name="Test: ProductFeatures: CorpusWandDikte -&gt; ItemWD als IsInteriorCabinetWidth = false">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.CorpusBreedte = "1000"
+	Set TeConverterenProduct.CorpusWandDikte = "18"
+	Set TeConverterenProduct.IsBinnenbreedte = $$$False
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemCB,"1000")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"18")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - CorpusWandDikte -&gt; ItemWD">
+<Method name="Test: ProductFeatures: &apos;B&apos; -&gt; ItemWD als IsInteriorCabinetWidth = true">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.CorpusWandDikte = "10"
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+	Set TeConverterenProduct.IsBinnenbreedte = $$$True
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemWD,"10")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - FrontBevestiging -&gt; ItemFB">
+<Method name="Test: ProductFeatures: CorpusWandDikte ongeldige invoer">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TeConverterenProduct.CorpusWandDikte = "15"
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes(TeConverterenProduct.CorpusWandDikte_" is geen geldige waarde voor CorpusWandDikte")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
+	#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 - HeeftOpvullijstLinks -&gt; ItemOPVL">
+<Method name="Test: ProductFeatures - FrontBevestiging -&gt; ItemFB">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
-	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
+		
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertTrue(WebOrderLijn.ItemOPVL)
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - Dwarsverdeling -&gt; ItemDWV">
+<Method name="Test: ProductFeatures - HeeftOpvullijstLinks -&gt; ItemOPVL">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
-	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2")
+	Do $$$AssertTrue(WebOrderLijn.ItemOPVL)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemBX,"Laag")
 ]]></Implementation>
@@ -124,65 +149,27 @@
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.KleurInschuifElement = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - DraagKracht -&gt; ItemDK">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
-	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
-	
-	Do $$$AssertEquals(WebOrderLijn.ItemDK,"65")
-]]></Implementation>
-</Method>
-
-<Method name="Test: ProductFeatures - HeeftZijStabilisering -&gt; ItemSB">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.HeeftZijstabilisering = $$$True
-		
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
-	
-	Do $$$AssertTrue(WebOrderLijn.ItemSB)
-]]></Implementation>
-</Method>
-
 <Method name="Test: ProductFeatures - AntislipMat -&gt; ItemASM">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set TeConverterenProduct.AntislipMat = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
+	Set TeConverterenProduct.CorpusWandDikte = "16"
 		
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
 	
 	Do $$$AssertEquals(WebOrderLijn.ItemASM,"G")
 ]]></Implementation>
 </Method>
-
-<Method name="Test: ProductFeatures - VerpakkingType -&gt; ItemVPK">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
-	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
-	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
-	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
-	
-	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35757 -r35772
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35757)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35772)
@@ -28,11 +28,29 @@
 	Set WebOrderLijn.Qty = Aantal
 	
 	Do ..ObjectConverter.Convert(Product,WebOrderLijn,..GeefConvertDataTBX())
+	Do ..ConvertCorpusWandDikte(Product,WebOrderLijn)
 	
 	Quit WebOrderLijn
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertCorpusWandDikte">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Product.IsBinnenbreedte {
+		Set WebOrderLijn.ItemWD = "B"
+		} Else 
+	{
+		If ##class(TECH.StringUtils).Contains(Product.CorpusWandDikte, "16","18","19" ) {
+			Set WebOrderLijn.ItemWD = Product.CorpusWandDikte
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Product.CorpusWandDikte_" is geen geldige waarde voor CorpusWandDikte"))
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
@@ -41,7 +59,6 @@
 	Do ConvertData.Add("LadeDiepte","ItemLD")
 	Do ConvertData.Add("BodemKleur","ItemKB")
 	Do ConvertData.Add("CorpusBreedte","ItemCB")
-	Do ConvertData.Add("CorpusWandDikte","ItemWD")
 	Do ConvertData.Add("FrontBevestiging","ItemFB")
 	Do ConvertData.Add("HeeftOpvullijstLinks","ItemOPVL")
 	Do ConvertData.Add("Dwarsverdeling","ItemDWV")