Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71353 -r71355
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71353)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71355)
@@ -58,7 +58,6 @@
 		#dim BatchId As %String  = UitvoeringInfoLijst.GetAt(1).BatchID
 		#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId)
 		#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-		
 		If (..IsActiefVoorMES(Batch.GeefLijn())) {
 			While ToeleveringenIterator.HasNext() {
 				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringenIterator.Next().GeefID())
@@ -97,23 +96,31 @@
 <Implementation><![CDATA[
 	Set BatchNaarObjectiveData = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData).%New()
 	
+	Set BatchNaarObjectiveData.Id = Toelevering.GeefID()
 	Set BatchNaarObjectiveData.Omschrijving = "Productieorder gegenereerd vanuit Caché"
-	Set BatchNaarObjectiveData.BatchId = Batch.GeefID()
 	Set BatchNaarObjectiveData.ToeleveringId = Toelevering.GeefID()
+	Set BatchNaarObjectiveData.BatchId = Batch.GeefID()
+	Set BatchNaarObjectiveData.ProductieLijn = Batch.GeefLijn()
+	Set BatchNaarObjectiveData.AantalLades = Toelevering.GeefAantalProducten()
+	Set BatchNaarObjectiveData.DueBefore = ..FormateerHorolog(Toelevering.GeefDueOutTime())
+	Set BatchNaarObjectiveData.DueOut = ..FormateerHorolog(Toelevering.GeefDueOutTime())
 	
 	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
 	Set BatchNaarObjectiveData.VerkoopOrderId = Order.GeefAxSalesId()
 	
-	Set BatchNaarObjectiveData.ProductieLijn = Batch.GeefLijn()
+
 	Set BatchNaarObjectiveData.OrderReferentie = Order.GeefOrderReferentie()
 	Set BatchNaarObjectiveData.CommisieReferentie = Order.GeefCommissieReferentie()
-	Set BatchNaarObjectiveData.KlantOrderId = "?"
-	Set BatchNaarObjectiveData.Verzendwijze = Order.GeefVerzendingWijze()
+	Set BatchNaarObjectiveData.Verzendwijze = $Piece(Order.GeefVerzendingWijze(), ";", 1)
 	
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 	Set BatchNaarObjectiveData.KlantNaam = Partij.GeefNaam()
 	Set BatchNaarObjectiveData.KlantId = Toelevering.GeefKlantID()
 	
+	Set BatchNaarObjectiveData.ReceptNaam = "?"
+	Set BatchNaarObjectiveData.Rangorde = "?"
+	Set BatchNaarObjectiveData.KlantOrderId = "?"
+	
 	Quit BatchNaarObjectiveData
 ]]></Implementation>
 </Method>
@@ -137,6 +144,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FormateerHorolog">
+<FormalSpec>Horolog:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Timestamp As %String = ##class(TECH.DateTime).HorologToTimeStamp(Horolog)	
+	#dim Datum As %String = $Piece(Timestamp, " ", 1)
+	#dim Tijdstip As %String = $Piece(Timestamp, " ", 2)
+	
+	Quit Datum _ "T" _ Tijdstip _ "Z"
+]]></Implementation>
+</Method>
+
 <Method name="GeefRangorde">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	// Uit pitchingtabel