Index: APPS/AKP/Receptie/impl/ReceptieService.cls.xml
===================================================================
diff -u -r45646 -r45654
--- APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 45646)
+++ APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 45654)
@@ -93,7 +93,7 @@
 </Method>
 
 <Method name="MaakReceptieVoorToelevering">
-<FormalSpec>LeverancierId:%String,ToeleveringNummer:%String,ProductToeleveringLijnen:%ListOfObjects,OntvangstTijdstip:%String,Referentie:%String</FormalSpec>
+<FormalSpec>LeverancierId:%String,ToeleveringNummer:%String,ProductToeleveringLijnen:%ListOfObjects,OntvangstTijdstip:%TimeStamp,Referentie:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Do ##class(vhLib.OldSchool).InitVars()
@@ -106,7 +106,7 @@
 	}	
 	#Dim ReceptieNummer = $$NEXTID^EWRCP()
 	#dim LeverancierNummer as %String = ..LegacyPartijAPI.GeefLeverancierNummerVoorPartijID(LeverancierId)
-	do BLDRCP^EWRCPS2(LeverancierNummer,ToeleveringNummer,"^||MarkRef",ReceptieNummer,OntvangstTijdstip ,Referentie,Referentie)
+	do BLDRCP^EWRCPS2(LeverancierNummer,ToeleveringNummer,"^||MarkRef",ReceptieNummer,##class(TECH.DateTime).TimeStampToHorolog(OntvangstTijdstip) ,Referentie,Referentie)
 	do SEND^EWRCPSW(ReceptieNummer)
 	Kill ^||MarkRef
 	
Index: vhTest/Mock/APPS/AKP/Receptie/impl/ReceptieService.cls.xml
===================================================================
diff -u -r45170 -r45654
--- vhTest/Mock/APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 45170)
+++ vhTest/Mock/APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 45654)
@@ -37,7 +37,7 @@
 </Method>
 
 <Method name="MaakReceptieVoorToelevering">
-<FormalSpec>LeverancierNummer:%String,ToeleveringNummer:%String,ProductToeleveringLijnen:%ListOfObjects,OntvangstTijdstip:%String,Referentie:%String</FormalSpec>
+<FormalSpec>LeverancierNummer:%String,ToeleveringNummer:%String,ProductToeleveringLijnen:%ListOfObjects,OntvangstTijdstip:%TimeStamp,Referentie:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakReceptieVoorToelevering",LeverancierNummer,ToeleveringNummer,ProductToeleveringLijnen,OntvangstTijdstip,Referentie)
 ]]></Implementation>
Index: vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml
===================================================================
diff -u -r45646 -r45654
--- vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45646)
+++ vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45654)
@@ -3,12 +3,15 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test standaard gedrag">
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-    Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(64524)
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn(64524.57298)
+	Do ##super()
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+]]></Implementation>
+</Method>
 
+<Method name="Test standaard gedrag">
+<Implementation><![CDATA[
 	Set ProductLijnen = ##class(%ListOfObjects).%New()
 	Do ProductLijnen.Insert(..GeefProductToeleveringLijn())
     #dim ToeleveringMock as DOM.AKP.Toelevering = ..GeefToelevering("L||1234",ProductLijnen)
@@ -20,31 +23,26 @@
     Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer","L||1234").DanReturn("4321")
  
  	Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
- 	Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
- 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",ListMatcher ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+ 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1", ..Matches.List(ProductLijnen) ,$$$CurrentTimeStamp ,"BestelBevestigingNr").DanReturn("RcpNummer")
  	
  	Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321")
 	#dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(1)
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
-	Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
+	Do InventoryOutConverterStub.VerwachtMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
     
-    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
+    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
     #dim Response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal(),"MessageID")
     
-    Do DateTimeAPIMock.Verifieer()  
     Do ToeleveringAPIMock.Verifieer()
     Do ProductLookupMock.Verifieer()
     Do ReceptieServiceMock.Verifieer()
+    Do InventoryOutConverterStub.Verifieer()
     Do $$$AssertEquals(Response.Header.GetAt(1).InventSync.Count(),1)
 ]]></Implementation>
 </Method>
 
 <Method name="Test 2 lijnen zelfde leverancier">
 <Implementation><![CDATA[
-    Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(64524)
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn(64524.57298)
-
 	Set ProductLijnen = ##class(%ListOfObjects).%New()
 	Do ProductLijnen.Insert(..GeefProductToeleveringLijn())
 	Do ProductLijnen.Insert(..GeefProductToeleveringLijn())
@@ -59,31 +57,26 @@
     Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer2","L||1234").DanReturn("8765")
     
    	Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
- 	Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
- 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",ListMatcher ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+ 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",..Matches.List(ProductLijnen) ,$$$CurrentTimeStamp,"BestelBevestigingNr").DanReturn("RcpNummer")
  	
  	Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321,8765")
 	#dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2)
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
-	Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
+	Do InventoryOutConverterStub.VerwachtMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
 
-    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
+    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
     #dim Response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal2LijnenZelfdeLeverancier(),"MessageID")
     
-    Do DateTimeAPIMock.Verifieer()  
     Do ToeleveringAPIMock.Verifieer()
     Do ProductLookupMock.Verifieer()
     Do ReceptieServiceMock.Verifieer()
+    Do InventoryOutConverterStub.Verifieer()
 	Do $$$AssertEquals(Response.Header.GetAt(1).InventSync.Count(),2)
 ]]></Implementation>
 </Method>
 
 <Method name="Test 2 lijnen zelfde leverancier zelfde product">
 <Implementation><![CDATA[
-    Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(64524)
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn(64524.57298)
-
 	Set ProductLijnen = ##class(%ListOfObjects).%New()
 	Do ProductLijnen.Insert(..GeefProductToeleveringLijn())
 	Do ProductLijnen.Insert(..GeefProductToeleveringLijn())
@@ -97,31 +90,26 @@
     Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer","L||1234").DanReturn("4321")
     
    	Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
- 	Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
- 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",ListMatcher ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+ 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",..Matches.List(ProductLijnen) ,$$$CurrentTimeStamp,"BestelBevestigingNr").DanReturn("RcpNummer")
  	
  	Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321")
 	#dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(1)
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
-	Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
+	Do InventoryOutConverterStub.VerwachtMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
 
-    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
+    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
     #dim Response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal2LijnenZelfdeLeverancierZelfdeProduct(),"MessageID")
-    
-    Do DateTimeAPIMock.Verifieer()  
+   
     Do ToeleveringAPIMock.Verifieer()
     Do ProductLookupMock.Verifieer()
     Do ReceptieServiceMock.Verifieer()
+    Do InventoryOutConverterStub.Verifieer()
 	Do $$$AssertEquals(Response.Header.GetAt(1).InventSync.Count(),1)
 ]]></Implementation>
 </Method>
 
 <Method name="Test 2 lijnen verschillende leverancier">
 <Implementation><![CDATA[
-    Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(64524)
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn(64524.57298)
-
 	Set ProductLijnen1 = ##class(%ListOfObjects).%New()
 	Do ProductLijnen1.Insert(..GeefProductToeleveringLijn())
     #dim ToeleveringMock1 as DOM.AKP.Toelevering = ..GeefToelevering("L||1234",ProductLijnen1)
@@ -141,23 +129,21 @@
     Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer2","L||5678").DanReturn("8765")
         
   	Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
- 	Set ListMatcher1 = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen1)
- 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",ListMatcher1 ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
- 	Set ListMatcher2 = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen2)
- 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||5678","1",ListMatcher2 ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+ 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",..Matches.List(ProductLijnen1) ,$$$CurrentTimeStamp,"BestelBevestigingNr").DanReturn("RcpNummer")
+ 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||5678","1",..Matches.List(ProductLijnen2) ,$$$CurrentTimeStamp,"BestelBevestigingNr").DanReturn("RcpNummer")
  	
  	Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321,8765")
 	#dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2)
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
-	Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
+	Do InventoryOutConverterStub.VerwachtMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
 
-    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
+    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
     #dim Response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal2LijnenVerschillendeLeverancier(),"MessageID")
     
-    Do DateTimeAPIMock.Verifieer()  
     Do ToeleveringAPIMock.Verifieer()
     Do ProductLookupMock.Verifieer()
     do ReceptieServiceMock.Verifieer()
+    Do InventoryOutConverterStub.Verifieer()
 	Do $$$AssertEquals(Response.Header.GetAt(1).InventSync.Count(),2)
 ]]></Implementation>
 </Method>
@@ -169,10 +155,6 @@
 
 <Method name="Test Conversie">
 <Implementation><![CDATA[
-    Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(64524)
-    Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog",0).DanReturn(64524.57298)
-
     Set ToeleveringLijnMock = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
     Do ToeleveringLijnMock.VerwachtMethodCall("ZetAantal",25).DanDoeNiks()
     Do ToeleveringLijnMock.VerwachtMethodCall("ZetMunt","EUR").DanDoeNiks()
@@ -188,7 +170,7 @@
     Do ToeleveringMock.IndienMethodCall("GeefID").DanReturn(1)
     Do ToeleveringMock.IndienMethodCall("GeefReferentie").DanReturn("Referentie")
     Do ToeleveringMock.IndienMethodCall("GeefBestelBevestigingNr").DanReturn("BestelBevestigingNr")
-    do ToeleveringMock.VerwachtMethodCall("ZetAanmaakDatum",64524).DanDoeNiks()
+    do ToeleveringMock.VerwachtMethodCall("ZetAanmaakDatum",$$$CurrentDate).DanDoeNiks()
     do ToeleveringMock.VerwachtMethodCall("ZetMunt","EUR").DanDoeNiks()
     do ToeleveringMock.VerwachtMethodCall("ZetReferentie","JournalId").DanDoeNiks()
     do ToeleveringMock.VerwachtMethodCall("ZetBestelBevestigingNr","JournalId").DanDoeNiks()
@@ -208,23 +190,22 @@
     Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer","L||1234").DanReturn("4321")
     
     Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
- 	Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
- 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",ListMatcher,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+ 	Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","L||1234","1",..Matches.List(ProductLijnen),$$$CurrentTimeStamp,"BestelBevestigingNr").DanReturn("RcpNummer")
  	
  	Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321")
 	#dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(1)
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
-	Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
+	Do InventoryOutConverterStub.VerwachtMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
  	
-    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
+    Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,InventoryOutConverterStub)
     #dim Response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal(),"MessageID")
     
-    Do DateTimeAPIMock.Verifieer()
     Do ToeleveringLijnMock.Verifieer()
     Do ToeleveringMock.Verifieer()
     Do ToeleveringAPIMock.Verifieer()
     Do ProductLookupMock.Verifieer()
     Do ReceptieServiceMock.Verifieer()
+    Do InventoryOutConverterStub.Verifieer()
     Do $$$AssertEquals(Response.Header.GetAt(1).InventSync.Count(),1)
 ]]></Implementation>
 </Method>
Index: EWRCPS.mac.rou
===================================================================
diff -u -r29059 -r45654
--- EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 29059)
+++ EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 45654)
@@ -175,7 +175,7 @@
  Quit:"-"[RCPNr
  If RCPNr="N" Do
  .Set RCPNr=$$NEXTID^EWRCP
- .Set RCPDate=$H
+ .Set RCPDate=##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
  .If Extern,LEVNr=6332 Quit
  .Do FIELD^vhScherm("EWRCPSH","RCPDATE")
  .Do FIELD^vhScherm("EWRCPSH","RCPVREF")
Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r45647 -r45654
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45647)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45654)
@@ -35,13 +35,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DateTimeAPI:TECH.DateTime.DateTimeAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter</FormalSpec>
+<FormalSpec>ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter</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 ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	 Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	 Set ..ProductLookup = $$$Inject(ProductLookup,##class(AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler).%New())
 	 Set ..ReceptieService = $$$Inject(ReceptieService,##class(APPS.AKP.Receptie.impl.ReceptieService).%New())
@@ -153,8 +153,7 @@
 	While ProductLijnIterator.HasNext() {
 		Do Productlijnen.Insert(ProductLijnIterator.Next())
 	}
-	;#Dim LeverancierNummer as %String = ..LegacyPartijAPI.GeefLeverancierNummerVoorPartijID(Toelevering.GeefLeverancierID())
-	Quit ..ReceptieService.MaakReceptieVoorToelevering(Toelevering.GeefLeverancierID(),Toelevering.GeefID(),Productlijnen,..DateTimeAPI.CurrentHorolog(),Toelevering.GeefBestelBevestigingNr())
+	Quit ..ReceptieService.MaakReceptieVoorToelevering(Toelevering.GeefLeverancierID(),Toelevering.GeefID(),Productlijnen,..DateTimeAPI.CurrentTimeStamp(),Toelevering.GeefBestelBevestigingNr())
 ]]></Implementation>
 </Method>