Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u -r72359 -r72536
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 72359)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 72536)
@@ -103,7 +103,7 @@
 <Implementation><![CDATA[
 	Set TekstVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden).%New()
 	
-	Set TekstVelden.ToeleveringId = Toelevering.GeefID()
+	Set TekstVelden.ToeleveringId = ..GeefToeleveringId(Batch, Toelevering)
 	Set TekstVelden.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering)
 	Set TekstVelden.BatchId = ..GeefWaardeOfNull(Batch.GeefID())
 	Set TekstVelden.ProductieLijn = ..GeefWaardeOfNull(..GeefProductieLijn(Batch.GeefID()))