Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r51176 -r52995
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 51176)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 52995)
@@ -121,6 +121,8 @@
 <ReturnType>AXif.Dynamics.Inventory.MessageParts</ReturnType>
 <Implementation><![CDATA[
 	Do ..Logger.Info("ReceiveInventory IN", "Begin verwerken journaal " _ WMSJournalOutRequest.JournalTable.GetAt(1).JournalId)
+	Set Timer = ##class(TECH.Timing.Timer).%New("Journaal")
+	Do Timer.Start()
 	#dim VerwerkingBezwaren as %String = ##class(TECH.ListUtils).ListToPieces(..ConversieBezwarenBepaler.GeefBezwaren(WMSJournalOutRequest),$$$CRLF)	
 	Quit:$Length(VerwerkingBezwaren) ..GeefFoutResponse(VerwerkingBezwaren,MessageId)
 	
@@ -156,6 +158,7 @@
 	} else {
 		Set Response = ..GeefFoutResponse("Ontvangstjournaal bevat geen producten om te verwerken of fout tijdens bepaling te locken producten.",MessageId)
 	}
+	Do ..Logger.Info("ReceiveInventory IN", "Einde verwerken journaal " _ WMSJournalOutRequest.JournalTable.GetAt(1).JournalId _ " duurtijd " _ (Timer.Stop()/1000) )
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -184,6 +187,10 @@
 <FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ..Logger.Info("ReceiveInventory IN", "Begin maken Toeleveringen")	
+	Set Timer = ##class(TECH.Timing.Timer).%New("Toeleveringen")
+	Do Timer.Start()
+
 	Set JournalTableIterator = ##class(TECH.ListIterator).%New(WMSJournalOutRequest.JournalTable)
 	While JournalTableIterator.HasNext() {
 		#dim JournalEntry as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable = JournalTableIterator.Next()
@@ -198,6 +205,7 @@
 			Do ..FLOWTOE.SWNode(Toelevering.GeefLeverancierID(),Toelevering.GeefID(),VolgNummer)
 		}		
 	}
+	Do ..Logger.Info("ReceiveInventory IN", "Einde maken Toeleveringen duurtijd " _ (Timer.Stop()/1000))
 ]]></Implementation>
 </Method>
 
@@ -309,6 +317,10 @@
 <FormalSpec>JournalId:%String,PakBonnummer:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ..Logger.Info("ReceiveInventory IN", "Begin maken Recepties")
+	Set Timer = ##class(TECH.Timing.Timer).%New("Recepties")
+	Do Timer.Start()
+
 	#dim Volgnummer as %Integer = 0
 	Set ToeleveringIterator = ##class(TECH.ListIterator).%New(..ToeleveringMetReceptieArray)
 	While ToeleveringIterator.HasNext(){
@@ -317,6 +329,7 @@
 		Do ..AangemaakteRecepties.Insert(..MaakReceptieVoorToelevering(ToeleveringIterator.Next(),ReceptieNummer,PakBonnummer))
 		Set Volgnummer = Volgnummer+1
 	}
+	Do ..Logger.Info("ReceiveInventory IN", "Einde maken Recepties duurtijd " _ (Timer.Stop()/1000))
 ]]></Implementation>
 </Method>
 
Index: APPS/AKP/Receptie/impl/ReceptieService.cls.xml
===================================================================
diff -u -r49177 -r52995
--- APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 49177)
+++ APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 52995)
@@ -97,22 +97,33 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,OntvangstTijdstip:%TimeStamp=$$$CurrentTimeStamp,Receptienummer:%String="",PakBonNummer:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set Timer = ##class(TECH.Timing.Timer).%New("ReceptievoorToelevering")
+	Do Timer.Start()
+	Do ##class(vhLib.Logger).%New().Info("Receptie voor Toelevering", "Begin maken Receptie voor " _Toelevering.GeefID())
 	#dim ProductLijnIterator as TECH.ListIterator = Toelevering.GeefProductLijnIterator()
 
-	Quit:$$$Not(ProductLijnIterator.HasNext()) ""
-	Do ##class(vhLib.OldSchool).InitVars()
-	Kill ^||MarkRef
+	If ProductLijnIterator.HasNext() {
+		Do ##class(vhLib.OldSchool).InitVars()
+		Kill ^||MarkRef
 	
-	While ProductLijnIterator.HasNext(){
-		#dim ProductToeleveringLijn as DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
-		set ^||MarkRef(Toelevering.GeefID(),ProductToeleveringLijn.GeefUniekLijnNummer())=ProductToeleveringLijn.GeefAantal()_"\"
-	}	
-	Set:($Length(Receptienummer)=0) Receptienummer = $$NEXTID^EWRCP()
-	#dim LeverancierNummer as %String = ..LegacyPartijAPI.GeefLeverancierNummerVoorPartijID(Toelevering.GeefLeverancierID())
-	do BLDRCP^EWRCPS2(LeverancierNummer,Toelevering.GeefID(),"^||MarkRef",Receptienummer,##class(TECH.DateTime).TimeStampToHorolog(OntvangstTijdstip) ,PakBonNummer,Toelevering.GeefBestelBevestigingNr())
-	do SEND^EWRCPSW(Receptienummer)
-	Kill ^||MarkRef
-	
+		While ProductLijnIterator.HasNext(){
+			#dim ProductToeleveringLijn as DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+			set ^||MarkRef(Toelevering.GeefID(),ProductToeleveringLijn.GeefUniekLijnNummer())=ProductToeleveringLijn.GeefAantal()_"\"
+		}	
+		Set:($Length(Receptienummer)=0) Receptienummer = $$NEXTID^EWRCP()
+		#dim LeverancierNummer as %String = ..LegacyPartijAPI.GeefLeverancierNummerVoorPartijID(Toelevering.GeefLeverancierID())
+		
+		do BLDRCP^EWRCPS2(LeverancierNummer,Toelevering.GeefID(),"^||MarkRef",Receptienummer,##class(TECH.DateTime).TimeStampToHorolog(OntvangstTijdstip) ,PakBonNummer,Toelevering.GeefBestelBevestigingNr())
+		Do ##class(vhLib.Logger).%New().Info("Receptie voor Toelevering", "Receptie "_ Receptienummer _" gemaakt voor " _Toelevering.GeefID() _ " duurtijd " _ (Timer.Stop()/1000))		
+		Do Timer.Start()
+		do SEND^EWRCPSW(Receptienummer)
+		Do ##class(vhLib.Logger).%New().Info("Receptie voor Toelevering", "Receptie "_ Receptienummer _" Doorgestuurd naar ewms duurtijd " _ (Timer.Stop()/1000))
+
+		Kill ^||MarkRef
+	} else {
+		Set Receptienummer = ""
+	}
+	Do ##class(vhLib.Logger).%New().Info("Receptie voor Toelevering", "Einde maken Receptie voor " _Toelevering.GeefID() _ " duurtijd " _ Timer.Stop()/ 1000)	
 	Quit Receptienummer
 ]]></Implementation>
 </Method>