Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r45508 -r45511
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45508)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45511)
@@ -55,35 +55,44 @@
 <FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut,MessageId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery</ReturnType>
 <Implementation><![CDATA[
-	Set Response = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	Do ..MaakToeleveringen(WMSJournalOutRequest)
+	Do ..MaakRecepties()
 	
+	Quit ..GeefResponse(WMSJournalOutRequest)
+]]></Implementation>
+</Method>
+
+<Method name="MaakToeleveringen">
+<FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set JournalTableIterator = ##class(TECH.ListIterator).%New(WMSJournalOutRequest.JournalTable)
-	While JournalTableIterator.HasNext()
-	{
+	While JournalTableIterator.HasNext() {
 		#dim JournalEntry as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable = JournalTableIterator.Next()
-
 		Set JournalLineIterator = ##class(TECH.ListIterator).%New(JournalEntry.JournalTrans)
-		While JournalLineIterator.HasNext()
-		{
+		While JournalLineIterator.HasNext()	{
 			#dim JournalEntryLine as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans = JournalLineIterator.Next()
-			if $$$Not(..ToeleveringArray.IsDefined(JournalEntryLine.CustVendAccount)){
-				
-				#dim Toelevering As DOM.AKP.Toelevering = ..MaakToelevering(JournalEntry,JournalEntryLine)	
-				
-				Do ..ToeleveringArray.SetAt(Toelevering,JournalEntryLine.CustVendAccount)
-			} else {
-				
-				Set Toelevering = ..ToeleveringArray.GetAt(JournalEntryLine.CustVendAccount)
-			}
-			
+			#dim Toelevering As DOM.AKP.Toelevering = ..BepaalToelevering(JournalEntry,JournalEntryLine)
 			Do ..VoegToeToeleveringProductLijn(Toelevering ,JournalEntryLine)
 			Do ..ToeleveringAPI.Bewaar(Toelevering)
 		}		
 	}
+]]></Implementation>
+</Method>
 
-	Do ..MaakRecepties()
-	
-	Quit Response
+<Method name="BepaalToelevering">
+<FormalSpec>JournalEntry:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering
+	If $$$Not(..ToeleveringArray.IsDefined(JournalEntryLine.CustVendAccount)) {
+		Set Toelevering = ..MaakToelevering(JournalEntry,JournalEntryLine)	
+			Do ..ToeleveringArray.SetAt(Toelevering,JournalEntryLine.CustVendAccount)
+		} Else {
+			Set Toelevering = ..ToeleveringArray.GetAt(JournalEntryLine.CustVendAccount)
+		}
+	Quit Toelevering
 ]]></Implementation>
 </Method>
 
@@ -108,7 +117,6 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	#dim ProductNr as %String = ..ProductLookup.GeefProductNummerVoorLeverancierID(JournalEntryLine.ItemId,Toelevering.GeefLeverancierID())
 	#dim Aantal as %Decimal = JournalEntryLine.Qty
 	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductNr)
@@ -142,13 +150,24 @@
 <Implementation><![CDATA[
 	#dim ProductLijnIterator as TECH.ListIterator = Toelevering.GeefProductLijnIterator()
 	Set Productlijnen = ##class(%ListOfObjects).%New()
-	while ProductLijnIterator.HasNext() {
-		do Productlijnen.Insert(ProductLijnIterator.Next())
+	While ProductLijnIterator.HasNext() {
+		Do Productlijnen.Insert(ProductLijnIterator.Next())
 	}
 	#Dim LeverancierNummer as %String = ..LegacyPartijAPI.GeefLeverancierNummerVoorPartijID(Toelevering.GeefLeverancierID())
 	Quit ..ReceptieService.MaakReceptieVoorToelevering(LeverancierNummer,Toelevering.GeefID(),Productlijnen,..DateTimeAPI.CurrentHorolog(),Toelevering.GeefBestelBevestigingNr())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefResponse">
+<FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	
+	Quit Response
+]]></Implementation>
+</Method>
 </Class>