Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35805 -r35806
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35805)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35806)
@@ -31,8 +31,7 @@
 	Do ..ConvertCorpusWandDikte(Product,WebOrderLijn)
 	Do ..ConvertOpvullijst(Product,WebOrderLijn)
 	Do ..ConvertFrontOndersteuningAantal(Product,WebOrderLijn)
-	;Do ..ConvertGreepEnMeenemer(Product,WebOrderLijn)
-	Do ..ConvertInschuifElement(Product,WebOrderLijn)
+	Do ..ConvertGreepEnMeenemer(Product,WebOrderLijn)
 	
 	Quit WebOrderLijn
 ]]></Implementation>
@@ -94,21 +93,21 @@
 </Method>
 
 <Method name="ConvertGreepEnMeenemer">
-<FormalSpec><![CDATA[ObjectIn:APPS.EDI.common.dto.v001.LadeTBX,&Output:WS.TBX.EM.OrderLijn]]></FormalSpec>
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	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"
+	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"
+	}
 ]]></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>
@@ -124,7 +123,6 @@
 	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>