Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r35797 -r35805
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35797)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 35805)
@@ -266,7 +266,7 @@
 	Set TeConverterenProduct.IsBinnenlade = $$$False
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen binnenlade, maar wel binnenladeopties ingevuld")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%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)
@@ -280,7 +280,7 @@
 	Set TeConverterenProduct.IsBinnenlade = $$$False
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen binnenlade, maar wel binnenladeopties ingevuld")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%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)
@@ -299,18 +299,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures - KleurInschuifElement -&gt; ItemKV">
-<Implementation><![CDATA[
-	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	Set TeConverterenProduct.KleurInschuifElement = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd()
-	
-	#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,"FZ")
-]]></Implementation>
-</Method>
-
 <Method name="Test: ProductFeatures - AntislipMat -&gt; ItemASM">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35797 -r35805
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35797)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35805)
@@ -31,7 +31,8 @@
 	Do ..ConvertCorpusWandDikte(Product,WebOrderLijn)
 	Do ..ConvertOpvullijst(Product,WebOrderLijn)
 	Do ..ConvertFrontOndersteuningAantal(Product,WebOrderLijn)
-	Do ..ConvertGreepEnMeenemer(Product,WebOrderLijn)
+	;Do ..ConvertGreepEnMeenemer(Product,WebOrderLijn)
+	Do ..ConvertInschuifElement(Product,WebOrderLijn)
 	
 	Quit WebOrderLijn
 ]]></Implementation>
@@ -93,21 +94,21 @@
 </Method>
 
 <Method name="ConvertGreepEnMeenemer">
-<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<FormalSpec><![CDATA[ObjectIn:APPS.EDI.common.dto.v001.LadeTBX,&Output:WS.TBX.EM.OrderLijn]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (Product.HeeftGreepEnMeenemer || Product.HeeftGreep) && $$$Not(Product.IsBinnenlade) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen binnenlade, maar wel binnenladeopties ingevuld"))
-	}
-	Set WebOrderLijn.ItemBGRP = "Z"
-	If Product.HeeftGreepEnMeenemer {
-		Set WebOrderLijn.ItemBGRP = "M"
-	} ElseIf Product.HeeftGreep {
-		Set WebOrderLijn.ItemBGRP = "G"
-	}
+	If (ObjectIn.HeeftGreepEnMeenemer || ObjectIn.HeeftGreep) && ('(ObjectIn.IsBinnenlade)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen binnenlade, maar wel binnenladeopties ingevuld"))
+	Set Output = "Z"
+	If ObjectIn.HeeftGreepEnMeenemer Set Output = "M"  
+	Else  If ObjectIn.HeeftGreep Set Output = "G"
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertInschuifElement">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<Private>1</Private>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
@@ -119,11 +120,11 @@
 	Do ConvertData.Add("FrontBevestiging","ItemFB")
 	Do ConvertData.Add("Dwarsverdeling","ItemDWV")
 	Do ConvertData.Add("ZijwandVerhogingType","ItemBX")
-	Do ConvertData.Add("KleurInschuifElement","ItemKV")
 	Do ConvertData.Add("Draagkracht","ItemDK")
 	Do ConvertData.Add("HeeftZijstabilisering","ItemSB")
 	Do ConvertData.Add("AntislipMat","ItemASM")
 	Do ConvertData.Add("VerpakkingType","ItemVPK")	
+	Do ConvertData.Add("HeeftGreepEnMeenemer","ItemBGRP",##class(%Dictionary.MethodDefinition).%OpenId("APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter||ConvertGreepEnMeenemer").Implementation.Read())
 	
 	Quit ConvertData
 ]]></Implementation>