Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml
===================================================================
diff -u -r71489 -r71492
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 71489)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 71492)
@@ -68,7 +68,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Rangorde kan niet bepaald worden aangezien deze leeg is -&gt; error gooien">
+<Method name="Test: Rangorde kan niet bepaald worden aangezien deze leeg is -&gt; error gooien en loggen">
 <Implementation><![CDATA[
 	#dim DummyBatchId As %String = 12345
 	#dim DummySequentieNummerToelevering As %Integer = 1
@@ -83,13 +83,17 @@
 	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(DummyBatchId)
 	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
 	
-	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is.")
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error", "BepaalRangorde", "Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '12345'.", $$$False).DanDoeNiks()
+		
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '12345'.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substring))
-	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock,)
+	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock, "", "", "", LoggerMock)
 	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, "", DummySequentieNummerToelevering)
 	
 	Do BatchPitchedRepositoryMock.Verifieer()
 	Do BatchMock.Verifieer()
+	Do LoggerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -112,13 +116,17 @@
 	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(DummyBatchId)
 	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
 	
-	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("De rangorde kan niet worden bepaald, aangezien er meerdere batches zijn gepitcht.")
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error", "BepaalRangorde", "De rangorde kan niet worden bepaald voor BatchId '12345', aangezien er meerdere batches zijn gepitcht.", $$$False).DanDoeNiks()
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("De rangorde kan niet worden bepaald voor BatchId '12345', aangezien er meerdere batches zijn gepitcht.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataCorruptException",Substring))
-	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock,)
+	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock, "", "", "", LoggerMock)
 	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, "", DummySequentieNummerToelevering)
 	
 	Do BatchPitchedRepositoryMock.Verifieer()
 	Do BatchMock.Verifieer()
+	Do LoggerMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml
===================================================================
diff -u -r71488 -r71492
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml	(.../DataVoorToeleveringGenerator.cls.xml)	(revision 71488)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml	(.../DataVoorToeleveringGenerator.cls.xml)	(revision 71492)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI=""</FormalSpec>
+<FormalSpec>BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,6 +39,7 @@
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator"))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -100,10 +106,14 @@
 		
 		Set Rangorde = Id _ "_" _ ..FormateerSequentieNummer(SequentieNummerToelevering)
 	} ElseIf (BatchPitchedLijst.Size > 1) {
-		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("De rangorde kan niet worden bepaald, aangezien er meerdere batches zijn gepitcht.")
+		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("De rangorde kan niet worden bepaald voor BatchId '" _ BatchId _ "', aangezien er meerdere batches zijn gepitcht.")
+		Do ..Logger.Error("BepaalRangorde", Exception.GeefOmschrijving())
+		
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	} Else {
-		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New("Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is.")
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New("Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '" _ BatchId _ "'.")
+		Do ..Logger.Error("BepaalRangorde", Exception.GeefOmschrijving())
+		
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}