Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml
===================================================================
diff -u -r71486 -r71488
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml	(.../DataVoorToeleveringGenerator.cls.xml)	(revision 71486)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator.cls.xml	(.../DataVoorToeleveringGenerator.cls.xml)	(revision 71488)
@@ -3,6 +3,11 @@
 <Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="BatchPitchedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OrderApi">
 <Type>DOM.VKP.OrderAPI</Type>
 <Private>1</Private>
@@ -19,26 +24,30 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..BatchPitchedRepository = $$$Inject(BatchPitchedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New())
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
-	Set ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerData">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
 <Implementation><![CDATA[
 	Set BatchNaarObjectiveData = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData).%New()
 	
+	Set BatchNaarObjectiveData.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering)
+	Set BatchNaarObjectiveData.ReceptNaam = "Template Lade TLM.Template Lade TLM M1.10" // Receptnaam tijdelijk invullen als vaste waarde
+	
 	Set BatchNaarObjectiveData.Id = Toelevering.GeefID()
 	Set BatchNaarObjectiveData.Omschrijving = "Productieorder gegenereerd vanuit Caché"
 	Set BatchNaarObjectiveData.ToeleveringId = Toelevering.GeefID()
@@ -58,9 +67,6 @@
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 	Set BatchNaarObjectiveData.KlantNaam = Partij.GeefNaam()
 	Set BatchNaarObjectiveData.KlantId = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())
-		
-	Set BatchNaarObjectiveData.ReceptNaam = "Template Lade TLM.Template Lade TLM M1.10" // Receptnaam tijdelijk invullen als vaste waarde
-	Set BatchNaarObjectiveData.Rangorde = "2485/253746" // Receptnaam tijdelijk invullen als vaste waarde
 	
 	Quit BatchNaarObjectiveData
 ]]></Implementation>
@@ -78,6 +84,44 @@
 	Quit Datum _ "T" _ Tijdstip _ "Z"
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalRangorde">
+<FormalSpec>BatchId:%String,SequentieNummerToelevering:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Rangorde As %String = ""
+	#dim BatchPitchedIterator As TECH.Iterator = ..BatchPitchedRepository.ZoekViaBatchId(BatchId)
+	#dim BatchPitchedLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(BatchPitchedIterator)
+	
+	If (BatchPitchedLijst.Size = 1) {
+		#dim BatchPitched As APPS.Halux.Planning.Pitching.dto.BatchPitched = BatchPitchedLijst.GetAt(1)
+		#dim Id As %String = BatchPitched.GeefID()
+		
+		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.")
+		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.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit Rangorde
+]]></Implementation>
+</Method>
+
+<Method name="FormateerSequentieNummer">
+<FormalSpec>Getal:%String,Lengte:%Integer=5</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	While ($Length(Getal) < Lengte) {
+		Set Getal = "0" _ Getal
+	}
+	
+	Quit Getal
+]]></Implementation>
+</Method>
 </Class>