Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r38879 -r38969
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 38879)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 38969)
@@ -119,7 +119,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If Product.IsBinnenlade {		
-		Set TBXProduct.ItemBGRP = $CASE(Product.GreepEnMeenemer, "HandleAndLatch":"M", "Handle":"G", :"Z")		
+		If ##class(TECH.StringUtils).Equals(Product.RugHoogte,"C","D") && ##class(TECH.StringUtils).Equals(Product.ZijkantHoogte,"M","K"){
+			Set TBXProduct.ItemBGRP = "R"
+		} Else {
+			Set TBXProduct.ItemBGRP = $CASE(Product.GreepEnMeenemer, "HandleAndLatch":"M", "Handle":"G", :"Z")
+		}
 	} Else {
 		Set TBXProduct.ItemBGRP = "X"
 	}
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r38941 -r38969
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 38941)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 38969)
@@ -192,11 +192,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures: InsideBoxSystem: greep en meenemer -&gt; &apos;M&apos;">
+<Method name="Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte M -&gt; &apos;M&apos;">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
 	Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch"
 	Set TeConverterenProduct.IsBinnenlade = $$$True
+	Set TeConverterenProduct.RugHoogte = "M"
 	
 	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
@@ -207,21 +208,52 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer -&gt; &apos;G&apos;">
+<Method name="Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte C -&gt; &apos;M&apos;">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
-	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
+	Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch"
 	Set TeConverterenProduct.IsBinnenlade = $$$True
 	
 	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
 	
 	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
 	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
 	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte M -&gt; &apos;G&apos;">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
+	Set TeConverterenProduct.IsBinnenlade = $$$True	
+	Set TeConverterenProduct.RugHoogte = "M"
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
 	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte C -&gt; &apos;G&apos;">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ..GeefTeConverterenProduct()
+	Set TeConverterenProduct.GreepEnMeenemer = "Handle"
+	Set TeConverterenProduct.IsBinnenlade = $$$True
+	
+	Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New(DummyTBXLadeCodeBepaler)
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R")
+]]></Implementation>
+</Method>
+
 <Method name="Test: ProductFeatures: InsideBoxSystem: Greep ingevuld, maar niet IsBinnenlade -&gt; &apos;X&apos; ">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct = ..GeefTeConverterenProduct()