Index: DOM/AKP/ToeleveringAPI.cls.xml
===================================================================
diff -u -r44973 -r45028
--- DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 44973)
+++ DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 45028)
@@ -55,12 +55,6 @@
 <ReturnType>DOM.AKP.ToeleveringService</ReturnType>
 </Method>
 
-<Method name="VoegToeProduct">
-<Abstract>1</Abstract>
-<FormalSpec>Toelevering:DOM.AKP.Toelevering,ProductID:%String,Aantal:%Integer</FormalSpec>
-<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
-</Method>
-
 <Method name="IsToeleveringVanHaluxZonderVanHoeckeOrder">
 <Abstract>1</Abstract>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
Index: vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml	(revision 45028)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test standaard gedrag">
+<Implementation><![CDATA[
+	#dim DateTimeAPIMock As vhTest.Mock.TECH.DateTime.DateTimeAPI = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(64524)
+	
+	#dim LegacyPartijAPIMock as vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).MockInstance()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefLeverancierPartijID","1234").DanReturn("L||1234")
+
+	#dim ToeleveringMock as DOM.AKP.Toelevering = ..GeefToelevering()
+	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringAPIMock.VerwachtMethodCall("MaakNieuwToelevering","L||1234","").DanReturn(ToeleveringMock)
+	Do ToeleveringAPIMock.VerwachtMethodCall("Bewaar",ToeleveringMock).DanDoeNiks()
+	
+	Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,LegacyPartijAPIMock)
+	
+	#dim response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal(),"MessageID")
+	
+	Do DateTimeAPIMock.Verifieer()	
+	Do ToeleveringAPIMock.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefToelevering">
+<ReturnType>vhTest.Mock.DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	do ToeleveringMock.IndienMethodCall("ZetAanmaakDatum",$$$ElkeWaarde).DanDoeNiks()
+	do ToeleveringMock.IndienMethodCall("ZetMunt",$$$ElkeWaarde).DanDoeNiks()
+	do ToeleveringMock.IndienMethodCall("ZetReferentie",$$$ElkeWaarde).DanDoeNiks()
+	do ToeleveringMock.IndienMethodCall("ZetBestelBevestigingNr",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set ToeleveringLijnMock = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetAantal",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetMunt",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetEenheidsPrijs",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetNettoprijs",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetBestelBevestigingNr",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetTotaalBedrag",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetGrootteOrde",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetLeveringsWeekVoorziene",$$$ElkeWaarde).DanDoeNiks()
+	Do ToeleveringLijnMock.IndienMethodCall("ZetUrgentiecode",$$$ElkeWaarde).DanDoeNiks()
+	
+	Do ToeleveringMock.IndienMethodCall("MaakNieuweProductLijn",$$$ElkeWaarde).DanReturn(ToeleveringLijnMock)
+	Quit ToeleveringMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefJournal">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</ReturnType>
+<Implementation><![CDATA[
+	Set Journal =  ##class(AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut).%New()
+	Set Journal.JournalTable= ##class(%ListOfObjects).%New()
+	
+	Set JournalEntry = ##class(AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable).%New() 	
+	Set JournalEntry.JournalId = "JournalId"
+	Do Journal.JournalTable.SetAt(JournalEntry,1)
+
+	Set JournalEntry.JournalTrans = ##class(%ListOfObjects).%New()
+	Set JournalEntryLine = ##class(AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans).%New()
+	Set JournalEntryLine.InventTransType = "Purch"
+	Set JournalEntryLine.JournalLineNum = 1
+	Set JournalEntryLine.ItemId = "1000"
+	Set JournalEntryLine.Qty = 25
+	Set JournalEntryLine.CustVendAccount = "1234"
+
+	Do JournalEntry.JournalTrans.SetAt(JournalEntryLine,1)
+	
+	quit Journal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/AKP/impl/DataM/DataMToeleveringAPI.cls.xml
===================================================================
diff -u -r44973 -r45028
--- DOM/AKP/impl/DataM/DataMToeleveringAPI.cls.xml	(.../DataMToeleveringAPI.cls.xml)	(revision 44973)
+++ DOM/AKP/impl/DataM/DataMToeleveringAPI.cls.xml	(.../DataMToeleveringAPI.cls.xml)	(revision 45028)
@@ -92,19 +92,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeProduct">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering,ProductID:%String,Aantal:%Integer</FormalSpec>
-<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(vhLib.OldSchool).InitVars()
-	
-	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductID)
-	Do ToeleveringLijn.ZetAantal(Aantal)
-	Do ToeleveringLijn.ZetMunt(Toelevering.GeefMunt())
-	quit ToeleveringLijn
-]]></Implementation>
-</Method>
-
 <Method name="Bewaar">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Implementation><![CDATA[	Do Toelevering.Save()
Index: vhTest/Mock/DOM/AKP/ToeleveringAPI.cls.xml
===================================================================
diff -u -r44973 -r45028
--- vhTest/Mock/DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 44973)
+++ vhTest/Mock/DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 45028)
@@ -75,13 +75,6 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderToelevering",ToeleveringID)
 ]]></Implementation>
 </Method>
-
-<Method name="VoegToeProduct">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering,ProductID:%String,Aantal:%Integer</FormalSpec>
-<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",Toelevering,ProductID,Aantal)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r44933 -r45028
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 44933)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45028)
@@ -3,10 +3,85 @@
 <Class name="AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter">
 <Super>TECH.Mockable</Super>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringArray">
+<Type>DOM.AKP.Toelevering</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DateTimeAPI:TECH.DateTime.DateTimeAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	 Set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.Context).Instance().GeefDateTimeAPI())
+	 Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	 Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	 Set ..ToeleveringArray = ##class(%ArrayOfDataTypes).%New()
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
 <FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut,MessageId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery</ReturnType>
-<Implementation><![CDATA[		quit ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
+<Implementation><![CDATA[
+	Set JournalTableIterator = ##class(TECH.ListIterator).%New(WMSJournalOutRequest.JournalTable)
+	While JournalTableIterator.HasNext()
+	{
+		#dim JournalEntry as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable = JournalTableIterator.Next()
+
+		Set JournalLineIterator = ##class(TECH.ListIterator).%New(JournalEntry.JournalTrans)
+		While JournalLineIterator.HasNext()
+		{
+			#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)
+				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 ..ToeleveringAPI.Bewaar(Toelevering)
+	}
+	quit ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
 ]]></Implementation>
 </Method>
 </Class>