Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r45028 -r45029
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45028)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45029)
@@ -53,37 +53,60 @@
 		{
 			#dim JournalEntryLine as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans = JournalLineIterator.Next()
 			if $$$Not(..ToeleveringArray.IsDefined(JournalEntryLine.CustVendAccount)){
-				#dim LeverancierID as %String = ..LegacyPartijAPI.GeefLeverancierPartijID(JournalEntryLine.CustVendAccount)
-
-				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.MaakNieuwToelevering(LeverancierID)
-				Do Toelevering.ZetAanmaakDatum(..DateTimeAPI.CurrentDate() )
-				Do Toelevering.ZetMunt("EUR")
-				Do Toelevering.ZetReferentie(JournalEntry.JournalId)
-				Do Toelevering.ZetBestelBevestigingNr(JournalEntry.JournalId)
+				
+				#dim Toelevering As DOM.AKP.Toelevering = ..MaakToelevering(JournalEntry,JournalEntryLine)	
+				
 				Do ..ToeleveringArray.SetAt(Toelevering,JournalEntryLine.CustVendAccount)
 			} else {
+				
 				Set Toelevering = ..ToeleveringArray.GetAt(JournalEntryLine.CustVendAccount)
 			}
 			
-			#dim ProductNr as %String = JournalEntryLine.ItemId
-			#dim Aantal as %Decimal = JournalEntryLine.Qty
-			#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductNr)
-			Do ToeleveringLijn.ZetAantal(JournalEntryLine.Qty)
-			Do ToeleveringLijn.ZetMunt("EUR")
-			Do ToeleveringLijn.ZetEenheidsPrijs(0)
-			Do ToeleveringLijn.ZetNettoprijs(0)
-			Do ToeleveringLijn.ZetBestelBevestigingNr("JournalEntry.JournalId" _ "-" _ JournalEntryLine.JournalLineNum)
-			Do ToeleveringLijn.ZetTotaalBedrag(0)
-			Do ToeleveringLijn.ZetGrootteOrde(##class(DOM.PM.enu.GrootteOrde).Eenheid())
-			; TODO
-			;Do ToeleveringLijn.ZetLeveringsWeekVoorziene("")
-			Do ToeleveringLijn.ZetUrgentiecode("")				
+			Do ..VoegToeToeleveringProductLijn(Toelevering ,JournalEntryLine)
 		}
 		Do ..ToeleveringAPI.Bewaar(Toelevering)
 	}
 	quit ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakToelevering">
+<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 LeverancierID as %String = ..LegacyPartijAPI.GeefLeverancierPartijID(JournalEntryLine.CustVendAccount)
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.MaakNieuwToelevering(LeverancierID)
+
+	Do Toelevering.ZetAanmaakDatum(..DateTimeAPI.CurrentDate() )
+	Do Toelevering.ZetMunt("EUR")
+	Do Toelevering.ZetReferentie(JournalEntry.JournalId)
+	Do Toelevering.ZetBestelBevestigingNr(JournalEntry.JournalId)
+	
+	Quit Toelevering
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeToeleveringProductLijn">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	#dim ProductNr as %String = JournalEntryLine.ItemId
+	#dim Aantal as %Decimal = JournalEntryLine.Qty
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductNr)
+	Do ToeleveringLijn.ZetAantal(JournalEntryLine.Qty)
+	Do ToeleveringLijn.ZetMunt("EUR")
+	Do ToeleveringLijn.ZetEenheidsPrijs(0)
+	Do ToeleveringLijn.ZetNettoprijs(0)
+	Do ToeleveringLijn.ZetBestelBevestigingNr("JournalEntry.JournalId" _ "-" _ JournalEntryLine.JournalLineNum)
+	Do ToeleveringLijn.ZetTotaalBedrag(0)
+	Do ToeleveringLijn.ZetGrootteOrde(##class(DOM.PM.enu.GrootteOrde).Eenheid())
+	; TODO
+	;Do ToeleveringLijn.ZetLeveringsWeekVoorziene("")
+	Do ToeleveringLijn.ZetUrgentiecode("")
+]]></Implementation>
+</Method>
 </Class>