Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveData.cls.xml
===================================================================
diff -u -r71589 -r72113
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveData.cls.xml	(.../BatchNaarObjectiveData.cls.xml)	(revision 71589)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveData.cls.xml	(.../BatchNaarObjectiveData.cls.xml)	(revision 72113)
@@ -14,7 +14,7 @@
 
 <Property name="Id">
 <Type>%String</Type>
-<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLNAME" value="productionOrderKey"/>
 </Property>
 
 <Property name="Omschrijving">
@@ -29,7 +29,7 @@
 
 <Property name="ReceptNaam">
 <Type>%String</Type>
-<Parameter name="XMLNAME" value="recipeKey"/>
+<Parameter name="XMLNAME" value="recipeVariantVersionKey"/>
 </Property>
 
 <Property name="DueBefore">
@@ -44,76 +44,12 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
-<Property name="DueOut">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="usrDts1"/>
+<Property name="GebruikersVelden">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden</Type>
+<Parameter name="XMLNAME" value="userFields"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </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>
-
-<Property name="MultipersonalityKlant1">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="usrTxt12"/>
-</Property>
-
-<Property name="MultipersonalityKlant2">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="usrTxt13"/>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>BatchNaarObjectiveDataState</State>
@@ -182,6 +118,9 @@
 <Value name="21">
 <Value>Opties</Value>
 </Value>
+<Value name="22">
+<Value>GebruikersVelden</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u -r71904 -r72113
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 71904)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 72113)
@@ -51,39 +51,110 @@
 <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()
+	Do ..VoegToeAlgemenInfo(BatchNaarObjectiveData, Batch, Toelevering)
+	Do ..VoegToeGebruikersVelden(BatchNaarObjectiveData, Batch, Toelevering, SequentieNummerToelevering)
 	
-	Set BatchNaarObjectiveData.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering)
-	Set BatchNaarObjectiveData.ReceptNaam = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_Receptnaam")
-	
+	Quit BatchNaarObjectiveData
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAlgemenInfo">
+<FormalSpec><![CDATA[&BatchNaarObjectiveData:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData,Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Set BatchNaarObjectiveData.Id = ..GeefWaardeOfNull(Toelevering.GeefID())
 	Set BatchNaarObjectiveData.Omschrijving = ..GeefWaardeOfNull("Productieorder gegenereerd vanuit Caché")
+	Set BatchNaarObjectiveData.ReceptNaam = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_Receptnaam")
+	Set BatchNaarObjectiveData.AantalLades = ..GeefWaardeOfNull(..GeefAantalLades(Batch, Toelevering))
+	Set BatchNaarObjectiveData.DueBefore = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime()))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeGebruikersVelden">
+<FormalSpec><![CDATA[&BatchNaarObjectiveData:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData,Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set GebruikersVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden).%New()
+	Set GebruikersVelden.DatumVelden = ..GeefDatumVelden(Toelevering)
+	Set GebruikersVelden.TekstVelden = ..GeefTekstVelden(Batch, Toelevering, SequentieNummerToelevering)
+	Set GebruikersVelden.Vlag = ""
+	Set GebruikersVelden.NumeriekeVelden = ""
 	
-	Set BatchNaarObjectiveData.ToeleveringId = ..GeefWaardeOfNull(..GeefToeleveringId(Batch, Toelevering))
-	Set BatchNaarObjectiveData.AantalLades = ..GeefWaardeOfNull(..GeefAantalLades(Batch, Toelevering))	
+	Set BatchNaarObjectiveData.GebruikersVelden = GebruikersVelden
+]]></Implementation>
+</Method>
+
+<Method name="GeefDatumVelden">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveDatumVelden</ReturnType>
+<Implementation><![CDATA[
+	Set DatumVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveDatumVelden).%New()
+	Set DatumVelden.DueOut = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime()))
 	
-	Set BatchNaarObjectiveData.BatchId = ..GeefWaardeOfNull(Batch.GeefID())
-	Set BatchNaarObjectiveData.ProductieLijn = ..GeefWaardeOfNull(..GeefProductieLijn(Batch.GeefID()))
-	Set BatchNaarObjectiveData.DueBefore = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime()))
-	Set BatchNaarObjectiveData.DueOut = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime()))
+	Quit DatumVelden
+]]></Implementation>
+</Method>
+
+<Method name="GeefTekstVelden">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden</ReturnType>
+<Implementation><![CDATA[
+	Set TekstVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden).%New()
 	
+	Set TekstVelden.ToeleveringId = Toelevering.GeefID()
+	Set TekstVelden.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering)
+	Set TekstVelden.BatchId = ..GeefWaardeOfNull(Batch.GeefID())
+	Set TekstVelden.ProductieLijn = ..GeefWaardeOfNull(..GeefProductieLijn(Batch.GeefID()))
+	
 	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
-	Set BatchNaarObjectiveData.VerkoopOrderId = ..GeefWaardeOfNull(Order.GeefAxSalesId())
-	Set BatchNaarObjectiveData.OrderReferentie = ..GeefWaardeOfNull(Order.GeefOrderReferentie())
-	Set BatchNaarObjectiveData.CommisieReferentie = ..GeefWaardeOfNull(Order.GeefCommissieReferentie())
-	Set BatchNaarObjectiveData.Verzendwijze = ..GeefWaardeOfNull($Piece(Order.GeefVerzendingWijze(), ";", 1))
-	Set BatchNaarObjectiveData.KlantOrderId = ..GeefWaardeOfNull(Order.GeefDocumentReferenties().KlantOrderNummer)
+	Set TekstVelden.VerkoopOrderId = ..GeefWaardeOfNull(Order.GeefAxSalesId())
+	Set TekstVelden.OrderReferentie = ..GeefWaardeOfNull(Order.GeefOrderReferentie())
+	Set TekstVelden.CommissieReferentie = ..GeefWaardeOfNull(Order.GeefCommissieReferentie())
+	Set TekstVelden.Verzendwijze = ..GeefWaardeOfNull($Piece(Order.GeefVerzendingWijze(), ";", 1))
+	Set TekstVelden.KlantOrderId = ..GeefWaardeOfNull(Order.GeefDocumentReferenties().KlantOrderNummer)
 	
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
-	Set BatchNaarObjectiveData.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
-	Set BatchNaarObjectiveData.KlantId = ..GeefWaardeOfNull(..PrependNul(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())))
+	Set TekstVelden.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
+	Set TekstVelden.KlantId = ..GeefWaardeOfNull(..PrependNul(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())))
 	
-	Set BatchNaarObjectiveData.MultipersonalityKlant1 = ..GeefWaardeOfNull("")
-	Set BatchNaarObjectiveData.MultipersonalityKlant2 = ..GeefWaardeOfNull("")
+	Set TekstVelden.MultipersonalityKlant1 = ..GeefWaardeOfNull("")
+	Set TekstVelden.MultipersonalityKlant2 = ..GeefWaardeOfNull("")
 	
-	Quit BatchNaarObjectiveData
+	Quit TekstVelden
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeTekstVelden">
+<FormalSpec><![CDATA[&BatchNaarObjectiveData:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData,Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TekstVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden).%New()
+	
+	Set TekstVelden.ToeleveringId = Toelevering.GeefID()
+	Set TekstVelden.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering)
+	Set TekstVelden.BatchId = ..GeefWaardeOfNull(Batch.GeefID())
+	Set TekstVelden.ProductieLijn = ..GeefWaardeOfNull(..GeefProductieLijn(Batch.GeefID()))
+	
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
+	Set TekstVelden.VerkoopOrderId = ..GeefWaardeOfNull(Order.GeefAxSalesId())
+	Set TekstVelden.OrderReferentie = ..GeefWaardeOfNull(Order.GeefOrderReferentie())
+	Set TekstVelden.CommissieReferentie = ..GeefWaardeOfNull(Order.GeefCommissieReferentie())
+	Set TekstVelden.Verzendwijze = ..GeefWaardeOfNull($Piece(Order.GeefVerzendingWijze(), ";", 1))
+	Set TekstVelden.KlantOrderId = ..GeefWaardeOfNull(Order.GeefDocumentReferenties().KlantOrderNummer)
+	
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
+	Set TekstVelden.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
+	Set TekstVelden.KlantId = ..GeefWaardeOfNull(..PrependNul(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())))
+	
+	Set TekstVelden.MultipersonalityKlant1 = ..GeefWaardeOfNull("")
+	Set TekstVelden.MultipersonalityKlant2 = ..GeefWaardeOfNull("")
+	
+	Set BatchNaarObjectiveData.GebruikersVelden.TekstVelden = TekstVelden
+]]></Implementation>
+</Method>
+
 <Method name="FormateerHorolog">
 <FormalSpec>Horolog:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml
===================================================================
diff -u -r71901 -r72113
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 71901)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 72113)
@@ -3,37 +3,59 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator.GenereerData.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="Horolog">
+<Type>%String</Type>
+<Default>66704,63010</Default>
+</Parameter>
+
+<Parameter name="BatchId">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="ToeleveringId">
+<Type>%String</Type>
+<Default>222222</Default>
+</Parameter>
+
+<Parameter name="KlantOrderNummer">
+<Type>%String</Type>
+<Default>333333</Default>
+</Parameter>
+
+<Parameter name="SequentieNummerToelevering">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="AantalLades">
+<Type>%Ineger</Type>
+<Default>25</Default>
+</Parameter>
+
 <Method name="Test: Test standaardgedrag met conversie horolog">
 <Implementation><![CDATA[
-	#dim Horolog As %String = "66704,63010"
 	#dim VerwachtTijdstipGeformatteerd = "2023-08-18T17:30:10.000Z"
-	#dim BatchId As %String = 12345
 	#dim BatchPitchExportedVolgnummer As %String = 100
-	#dim SequentieNummerToelevering As %Integer = 1
 	#dim VerzendingWijze As %String = "OD3;1`OD3;3"
 	#dim VerwachteVerzendingWijzeGeformateerd = "OD3"
 	#dim KlantId As %String = "1000"
 	#dim LijnNummer As %Integer = 1
 	
 	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
-	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(3).DanReturn(BatchId)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(3).DanReturn(..#BatchId)
 	
-	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()	
-	Do ToeleveringMock.VerwachtMethodCall("GeefAantalProducten").ExactAantalKeer(1).DanDoeNiks()
-	Do ToeleveringMock.VerwachtMethodCall("GeefDueOutTime").ExactAantalKeer(2).DanReturn(Horolog)
-	Do ToeleveringMock.VerwachtMethodCall("GeefOrderID").ExactAantalKeer(1).DanReturn(1)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#ToeleveringId, ..#AantalLades, ..#Horolog, 1)
 	
 	Set DummyDocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
-	Set DummyDocumentReferenties.KlantOrderNummer = 5
+	Set DummyDocumentReferenties.KlantOrderNummer = ..#KlantOrderNummer
 	
 	Set BatchPitchExported = ##class(APPS.Halux.Planning.Pitching.BatchPitchExported).%New()
 	Set BatchPitchExported.Volgnummer = BatchPitchExportedVolgnummer
 	Set BatchPitchExported.LijnNummer = LijnNummer
 	#dim BatchPitchExportedLijst As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BatchPitchExported)
+	#dim BatchPitchExportedServiceMock As vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService = ..GeefBatchPitchExportedServiceMock(..#BatchId, BatchPitchExportedLijst)
 	
-	Set BatchPitchExportedServiceMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New()
-	Do BatchPitchExportedServiceMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).ExactAantalKeer(2).DanReturn(BatchPitchExportedLijst)
-	
 	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").ExactAantalKeer(1).DanDoeNiks()
 	Do OrderMock.VerwachtMethodCall("GeefOrderReferentie").ExactAantalKeer(1).DanDoeNiks()
@@ -44,24 +66,45 @@
 	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	Do OrderApiMock.VerwachtMethodCall("GeefOrder", 1).ExactAantalKeer(1).DanReturn(OrderMock)
 	
+	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
 	Set PartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
 	Set PartijMock = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
-	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
 	Do PartijAPIMock.VerwachtMethodCall("GeefPartij", "K||1234").DanReturn(Partij)
+	
 	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
 	Do LegacyPartijApiMock.VerwachtMethodCall("GeefKlantNummerVoorPartijID", "K||1234").ExactAantalKeer(1).DanReturn(KlantId)
 		
 	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator).%New(BatchPitchExportedServiceMock, OrderApiMock, PartijAPIMock, LegacyPartijApiMock)
-	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, ToeleveringMock, SequentieNummerToelevering)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, ToeleveringMock, ..#SequentieNummerToelevering)
 	
+	Do $$$AssertEquals(BatchNaarObjectiveData.Id, ..#ToeleveringId)
+	Do $$$AssertEquals(BatchNaarObjectiveData.Omschrijving, "Productieorder gegenereerd vanuit Caché")
+	Do $$$AssertEquals(BatchNaarObjectiveData.AantalLades, ..#AantalLades)
 	Do $$$AssertEquals(BatchNaarObjectiveData.DueBefore, VerwachtTijdstipGeformatteerd)
-	Do $$$AssertEquals(BatchNaarObjectiveData.DueOut, VerwachtTijdstipGeformatteerd)
-	Do $$$AssertEquals(BatchNaarObjectiveData.Verzendwijze, VerwachteVerzendingWijzeGeformateerd)
-	Do $$$AssertEquals(BatchNaarObjectiveData.Rangorde, BatchPitchExportedVolgnummer _ "_0000" _ SequentieNummerToelevering)
-	Do $$$AssertEquals(BatchNaarObjectiveData.MultipersonalityKlant1, "null")
-	Do $$$AssertEquals(BatchNaarObjectiveData.KlantId, "01000")
-	Do $$$AssertEquals(BatchNaarObjectiveData.ProductieLijn, LijnNummer)
 	
+	If ($$$AssertTrue($IsObject(BatchNaarObjectiveData.GebruikersVelden))) {
+		#dim GebruikersVelden As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden = BatchNaarObjectiveData.GebruikersVelden
+		
+		If ($$$AssertTrue($IsObject(GebruikersVelden.DatumVelden))) {
+			Do $$$AssertEquals(GebruikersVelden.DatumVelden.DueOut, VerwachtTijdstipGeformatteerd)
+		}
+		
+		If ($$$AssertTrue($IsObject(GebruikersVelden.TekstVelden))) {
+			#dim TekstVelden As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden = GebruikersVelden.TekstVelden
+			Do $$$AssertEquals(TekstVelden.ToeleveringId, ..#ToeleveringId)
+			Do $$$AssertEquals(TekstVelden.Rangorde, "100_00001")
+			Do $$$AssertEquals(TekstVelden.BatchId, ..#BatchId)
+			Do $$$AssertEquals(TekstVelden.ProductieLijn, LijnNummer)
+			Do $$$AssertEquals(TekstVelden.Verzendwijze, VerwachteVerzendingWijzeGeformateerd)
+			Do $$$AssertEquals(TekstVelden.KlantOrderId, ..#KlantOrderNummer)
+			Do $$$AssertEquals(TekstVelden.MultipersonalityKlant1, "null")
+			Do $$$AssertEquals(TekstVelden.KlantId,"01000")
+		}
+		
+		Do $$$AssertEquals(GebruikersVelden.NumeriekeVelden ,"")
+		Do $$$AssertEquals(GebruikersVelden.Vlag ,"")
+	}
+	
 	Do BatchMock.Verifieer()
 	Do ToeleveringMock.Verifieer()
 	Do OrderApiMock.Verifieer()
@@ -74,51 +117,47 @@
 
 <Method name="Test: Rangorde kan niet bepaald worden aangezien deze leeg is -&gt; error gooien en loggen">
 <Implementation><![CDATA[
-	#dim BatchId As %String = 12345
-	#dim SequentieNummerToelevering As %Integer = 1
-	#dim ErrorBoodschap As %String = "Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '12345'."
+	#dim ErrorBoodschap As %String = "Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '111111'."
 	
 	Set BatchPitchExportedLijst = ##class(%ListOfObjects).%New()
-	
-	Set BatchPitchExportedServiceMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New()
-	Do BatchPitchExportedServiceMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).ExactAantalKeer(1).DanReturn(BatchPitchExportedLijst)
+	#dim BatchPitchExportedServiceMock As vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService = ..GeefBatchPitchExportedServiceMock(..#BatchId, BatchPitchExportedLijst)
 		
 	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
-	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(BatchId)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(..#BatchId)
 	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
 	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#ToeleveringId, ..#AantalLades, ..#Horolog, 1)
+	
 	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Error", "BepaalRangorde", ErrorBoodschap, $$$False).DanDoeNiks()
 	
 	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes(ErrorBoodschap)
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substring))
 	
 	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator).%New(BatchPitchExportedServiceMock, "", "", "", LoggerMock)
-	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, "", SequentieNummerToelevering)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, ToeleveringMock, ..#SequentieNummerToelevering)
 	
 	Do BatchPitchExportedServiceMock.Verifieer()
 	Do BatchMock.Verifieer()
+	Do ToeleveringMock.Verifieer()
 	Do LoggerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Meerdere objecten worden gevonden -&gt; error gooien en loggen">
 <Implementation><![CDATA[
-	#dim BatchId As %String = 12345
-	#dim SequentieNummerToelevering As %Integer = 1
-	#dim ErrorBoodschap As %String = "De rangorde kan niet worden bepaald voor BatchId '12345', aangezien er meerdere batches zijn gepitcht."
+	#dim ErrorBoodschap As %String = "De rangorde kan niet worden bepaald voor BatchId '111111', aangezien er meerdere batches zijn gepitcht."
 	
 	Set BatchPitchExported1 = ##class(APPS.Halux.Planning.Pitching.BatchPitchExported).%New()
 	Set BatchPitchExported2 = ##class(APPS.Halux.Planning.Pitching.BatchPitchExported).%New()
 	#dim BatchPitchExportedLijst As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BatchPitchExported1, BatchPitchExported2)
+	#dim BatchPitchExportedServiceMock As vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService = ..GeefBatchPitchExportedServiceMock(..#BatchId, BatchPitchExportedLijst)
 	
-	Set BatchPitchExportedServiceMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New()
-	Do BatchPitchExportedServiceMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).ExactAantalKeer(1).DanReturn(BatchPitchExportedLijst)
-	
 	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
-	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(BatchId)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(..#BatchId)
 	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
 	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#ToeleveringId, ..#AantalLades, ..#Horolog, 1)
 	
 	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Error", "BepaalRangorde", ErrorBoodschap, $$$False).DanDoeNiks()
@@ -127,13 +166,41 @@
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataCorruptException",Substring))
 	
 	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator).%New(BatchPitchExportedServiceMock, "", "", "", LoggerMock)
-	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, "", SequentieNummerToelevering)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, ToeleveringMock, ..#SequentieNummerToelevering)
 	
 	Do BatchPitchExportedServiceMock.Verifieer()
 	Do BatchMock.Verifieer()
+	Do ToeleveringMock.Verifieer()
 	Do LoggerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBatchPitchExportedServiceMock">
+<FormalSpec>BatchId:%String,BatchPitchExportedLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService</ReturnType>
+<Implementation><![CDATA[
+	Set BatchPitchExportedServiceMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New()
+	Do BatchPitchExportedServiceMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(BatchPitchExportedLijst)
+	
+	Quit BatchPitchExportedServiceMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringMock">
+<FormalSpec>ToeleveringId:%String,AantalLades:%Integer,Horolog:%String,OrderId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(ToeleveringId)
+	Do ToeleveringMock.VerwachtMethodCall("GeefAantalProducten").DanReturn(AantalLades)
+	Do ToeleveringMock.VerwachtMethodCall("GeefDueOutTime").DanReturn(Horolog)
+	Do ToeleveringMock.VerwachtMethodCall("GeefOrderID").DanReturn(OrderId)
+	
+	Quit ToeleveringMock
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71850 -r72113
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71850)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 72113)
@@ -206,12 +206,12 @@
 	While (Iterator.HasNext()) {
 		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = Iterator.Next()
 		Set Index = Index + 1
-		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.BatchId, Index, "xml")
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.GebruikersVelden.TekstVelden.BatchId, Index, "xml")
 		Do FileWriter.Open(BestandVolledigNaam)
 		Do FileWriter.WriteXML(BatchData)
 		Do FileWriter.Close()
 		
-		Do ..Logger.Debug("GenereerBatchDataVoorUitvoeringInfoLijst", "XML bestand gegenereerd voor Batch '" _ BatchData.BatchId _ "' en toelevering '"_ BatchData.ToeleveringId _ "' op locatie '" _ BestandVolledigNaam _ "'")
+		Do ..Logger.Debug("GenereerBatchDataVoorUitvoeringInfoLijst", "XML bestand gegenereerd voor Batch '" _ BatchData.GebruikersVelden.TekstVelden.BatchId _ "' en toelevering '"_ BatchData.GebruikersVelden.TekstVelden.ToeleveringId _ "' op locatie '" _ BestandVolledigNaam _ "'")
 	}
 ]]></Implementation>
 </Method>