Index: AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml
===================================================================
diff -u -r46079 -r47355
--- AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml	(.../InventoryOutConverter.cls.xml)	(revision 46079)
+++ AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml	(.../InventoryOutConverter.cls.xml)	(revision 47355)
@@ -41,7 +41,7 @@
 <Content><![CDATA[
 /*------------------------------------------------------------------------------------------------------------------*\
  * Let op : deze converter wordt op verschillende plaatsen gebruikt                                                 *
- * als de structuur van dit antwoord gewijzigd word heeft dat ook impact op het anwoord van de InventoryIn          *
+ * als de structuur van dit antwoord gewijzigd wordt heeft dat ook impact op het antwoord van de InventoryIn        *
  *       AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter                                                 *
  *		 AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter                                           *
  * 		 AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter                                            *
@@ -53,17 +53,36 @@
 <FormalSpec>Request:AXimpl.Request,MessageId:%String=""</FormalSpec>
 <ReturnType>AXif.Dynamics.Inventory.MessageParts</ReturnType>
 <Implementation><![CDATA[
-	#dim AangereiktPRNr, PrincipaalSoprPRNr As %String = ""
-	Set PRNrIterator = ##class(TECH.StringIterator).%New(Request.SubjectId,",")
+	Set ProductIterator = ##class(TECH.StringIterator).%New(Request.SubjectId,",")
 	Set MessageParts = ##class(AXif.Dynamics.Inventory.MessageParts).%New()
 	
 	Set ..AxdEntityHeader = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityHeader).%New()
 	Set ..AxdEntityHeader.class = "entity"
 	Set ..AxdEntityHeader.MessageId = MessageId
-		
-	While PRNrIterator.HasNext(){
+	
+	Do ..InsertInventSyncObjecten(ProductIterator)
+	
+	If ..AxdEntityHeader.InventSync.Count() = 0 {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er werden geen InventSyncs gemaakt voor '"_Request.SubjectId_"'")
+	}
+	
+	Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	Set MessageParts.MessagePart = ADUMsgOutboundInQuery
+	
+	Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader)
+	
+	Quit MessageParts
+]]></Implementation>
+</Method>
+
+<Method name="InsertInventSyncObjecten">
+<FormalSpec>ProductIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	While ProductIterator.HasNext(){
+		#dim AangereiktPRNr, PrincipaalSoprPRNr As %String = ""
 		try {
-			Set AangereiktPRNr = PRNrIterator.Next()
+			Set AangereiktPRNr = ProductIterator.Next()
 			If ('..SoprProductConverter.IsSOPRInAX(AangereiktPRNr)){ 
 				If ('..SoprProductConverter.IsSOPRInCache(AangereiktPRNr)){ 
 					Do ..AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(AangereiktPRNr))
@@ -80,17 +99,6 @@
 			Do ##class(vhLib.Logger).%New().Warning("InventoryOutConverter",Exception.GeefOmschrijving())
 		}
 	}
-	
-	If ..AxdEntityHeader.InventSync.Count() = 0 {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er werden geen InventSyncs gemaakt voor '"_Request.SubjectId_"'")
-	}
-	
-	Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
-	Set MessageParts.MessagePart = ADUMsgOutboundInQuery
-	
-	Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader)
-	
-	Quit MessageParts
 ]]></Implementation>
 </Method>