Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/dto/BatchNaarObjectiveData.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/dto/BatchNaarObjectiveData.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/dto/BatchNaarObjectiveData.cls.xml	(revision 71348)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>XML</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="description"/>
+</Property>
+
+<Property name="AantalLades">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="qtyPlanned"/>
+</Property>
+
+<Property name="ReceptNaam">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="recipeKey"/>
+</Property>
+
+<Property name="ToeleveringId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt1"/>
+</Property>
+
+<Property name="Rangorde">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt2"/>
+</Property>
+
+<Property name="BatchId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt3"/>
+</Property>
+
+<Property name="VerkoopOrderId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt4"/>
+</Property>
+
+<Property name="ProductieLijn">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt5"/>
+</Property>
+
+<Property name="OrderReferentie">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt6"/>
+</Property>
+
+<Property name="CommisieReferentie">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt7"/>
+</Property>
+
+<Property name="KlantOrderId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt8"/>
+</Property>
+
+<Property name="Verzendwijze">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt9"/>
+</Property>
+
+<Property name="KlantNaam">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt10"/>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="usrTxt11"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BatchNaarObjectiveDataState</State>
+<StreamLocation>^APPS.Halux1789.BatchNaarObj4F5S</StreamLocation>
+<Data name="BatchNaarObjectiveDataState">
+<Value name="1">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="2">
+<Value>AantalLades</Value>
+</Value>
+<Value name="3">
+<Value>ReceptNaam</Value>
+</Value>
+<Value name="4">
+<Value>ToeleveringId</Value>
+</Value>
+<Value name="5">
+<Value>Rangorde</Value>
+</Value>
+<Value name="6">
+<Value>BatchId</Value>
+</Value>
+<Value name="7">
+<Value>VerkoopOrderId</Value>
+</Value>
+<Value name="8">
+<Value>ProductieLijn</Value>
+</Value>
+<Value name="9">
+<Value>OrderReferentie</Value>
+</Value>
+<Value name="10">
+<Value>CommisieReferentie</Value>
+</Value>
+<Value name="11">
+<Value>KlantOrderId</Value>
+</Value>
+<Value name="12">
+<Value>Verzendwijze</Value>
+</Value>
+<Value name="13">
+<Value>Klant</Value>
+</Value>
+<Value name="14">
+<Value>KlantNaam</Value>
+</Value>
+<Value name="15">
+<Value>KlantId</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71337 -r71348
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71337)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71348)
@@ -3,12 +3,137 @@
 <Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective">
 <Super>APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis</Super>
 
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkUitvoeringInfoLijst">
 <FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.dto.UitvoeringResultaat).%New(##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes())
+<Implementation><![CDATA[
+	#dim UitvoeringStatus As APPS.Halux.PPS.enu.UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
+	
+	#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(Lijst)
+	Do ..ExporteerDataNaarXmlDocument(BatchData)
+	
+	Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+	Quit UitvoeringStatus
 ]]></Implementation>
 </Method>
+
+<Method name="GenereerBatchDataVoorUitvoeringInfoLijst">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Set BatchDataLijst = ##class(%ListOfObjects).%New()
+			
+	If (UitvoeringInfoLijst.Count() > 0) {
+		#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()
+		
+		While ToeleveringenIterator.HasNext() {
+			#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringenIterator.Next().GeefID())
+			#dim BatchData As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData = ..GeefDataVoorUitvoeringInfo(Batch, Toelevering)
+			Do BatchDataLijst.Insert(BatchData)
+		}		
+	}
+		
+	Quit BatchDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefDataVoorUitvoeringInfo">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
+<Implementation><![CDATA[
+	Set BatchNaarObjectiveData = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData).%New()
+	
+	Set BatchNaarObjectiveData.Omschrijving = "Productieorder gegenereerd vanuit Caché"
+	Set BatchNaarObjectiveData.BatchId = Batch.GeefID()
+	Set BatchNaarObjectiveData.ToeleveringId = Toelevering.GeefID()
+	
+	#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()
+	
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
+	Set BatchNaarObjectiveData.KlantNaam = Partij.GeefNaam()
+	Set BatchNaarObjectiveData.KlantId = Toelevering.GeefKlantID()
+	
+	Quit BatchNaarObjectiveData
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerDataNaarXmlDocument">
+<FormalSpec>BatchDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ListIterator).%New(BatchDataLijst)
+	#dim Index As %Integer = 0
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	
+	While (Iterator.HasNext()) {
+		#dim BatchData As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData = Iterator.Next()
+		Set Index = Index + 1
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.BatchId, Index, "xml")
+		Do FileWriter.Open(BestandVolledigNaam)
+		Do FileWriter.WriteXML(BatchData)
+		Do FileWriter.Close()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefRangorde">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	// Uit pitchingtabel
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandVolledigeNaam">
+<FormalSpec>BatchId:%String,Index:%Integer,Extensie:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective.FilePath")
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ Index _ "." _ Extensie)
+	
+	Quit BestandVolledigeNaam
+]]></Implementation>
+</Method>
 </Class>