Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml
===================================================================
diff -u -r72113 -r72359
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 72113)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 72359)
@@ -29,7 +29,7 @@
 </Parameter>
 
 <Parameter name="AantalLades">
-<Type>%Ineger</Type>
+<Type>%Integer</Type>
 <Default>25</Default>
 </Parameter>
 
@@ -175,6 +175,136 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bij enkele oorsprongketting wordt de eerste Multipersonality id opgevuld">
+<Implementation><![CDATA[
+	#dim OorspronKeeting As %String = "((48, ""263111"", 1037027), (1, ""K||37598"", 1037069))"
+	#dim VerwachtTijdstipGeformatteerd = "2023-08-18T17:30:10.000Z"
+	#dim BatchPitchExportedVolgnummer As %String = 100
+	#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)
+	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#ToeleveringId, ..#AantalLades, ..#Horolog, 1, OorspronKeeting)
+	
+	Set DummyDocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	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)
+	
+	#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()
+	Do OrderMock.VerwachtMethodCall("GeefCommissieReferentie").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefVerzendingWijze").ExactAantalKeer(1).DanReturn(VerzendingWijze)
+	Do OrderMock.VerwachtMethodCall("GeefDocumentReferenties").ExactAantalKeer(1).DanReturn(DummyDocumentReferenties)
+
+	#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()
+	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)
+		
+	If ($$$AssertTrue($IsObject(BatchNaarObjectiveData.GebruikersVelden))) {
+		#dim GebruikersVelden As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden = BatchNaarObjectiveData.GebruikersVelden
+				
+		If ($$$AssertTrue($IsObject(GebruikersVelden.TekstVelden))) {
+			#dim TekstVelden As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden = GebruikersVelden.TekstVelden
+			Do $$$AssertEquals(TekstVelden.MultipersonalityKlant1, "48")
+			Do $$$AssertEquals(TekstVelden.MultipersonalityKlant2,"null")
+		}
+	}
+	
+	Do BatchMock.Verifieer()
+	Do ToeleveringMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+	Do OrderMock.Verifieer()
+	Do PartijAPIMock.Verifieer()
+	Do LegacyPartijApiMock.Verifieer()
+	Do BatchPitchExportedServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij dubbele oorsprongketting wordt de eerste en tweede Multipersonality id opgevuld">
+<Implementation><![CDATA[
+	#dim OorspronKeeting As %String = "((49, ""AGSTA"", 1034063), (48, ""630429"", 1034080), (1, ""K||37598"", 1034112))"
+	#dim VerwachtTijdstipGeformatteerd = "2023-08-18T17:30:10.000Z"
+	#dim BatchPitchExportedVolgnummer As %String = 100
+	#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)
+	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#ToeleveringId, ..#AantalLades, ..#Horolog, 1, OorspronKeeting)
+	
+	Set DummyDocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	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)
+	
+	#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()
+	Do OrderMock.VerwachtMethodCall("GeefCommissieReferentie").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefVerzendingWijze").ExactAantalKeer(1).DanReturn(VerzendingWijze)
+	Do OrderMock.VerwachtMethodCall("GeefDocumentReferenties").ExactAantalKeer(1).DanReturn(DummyDocumentReferenties)
+
+	#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()
+	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)
+		
+	If ($$$AssertTrue($IsObject(BatchNaarObjectiveData.GebruikersVelden))) {
+		#dim GebruikersVelden As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden = BatchNaarObjectiveData.GebruikersVelden
+				
+		If ($$$AssertTrue($IsObject(GebruikersVelden.TekstVelden))) {
+			#dim TekstVelden As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden = GebruikersVelden.TekstVelden
+			Do $$$AssertEquals(TekstVelden.MultipersonalityKlant1, 48)
+			Do $$$AssertEquals(TekstVelden.MultipersonalityKlant2, 49)
+		}
+	}
+	
+	Do BatchMock.Verifieer()
+	Do ToeleveringMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+	Do OrderMock.Verifieer()
+	Do PartijAPIMock.Verifieer()
+	Do LegacyPartijApiMock.Verifieer()
+	Do BatchPitchExportedServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchPitchExportedServiceMock">
 <FormalSpec>BatchId:%String,BatchPitchExportedLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>
@@ -188,7 +318,7 @@
 </Method>
 
 <Method name="GeefToeleveringMock">
-<FormalSpec>ToeleveringId:%String,AantalLades:%Integer,Horolog:%String,OrderId:%String</FormalSpec>
+<FormalSpec>ToeleveringId:%String,AantalLades:%Integer,Horolog:%String,OrderId:%String,OorsprongKetting:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.AKP.Toelevering</ReturnType>
 <Implementation><![CDATA[
@@ -197,6 +327,7 @@
 	Do ToeleveringMock.VerwachtMethodCall("GeefAantalProducten").DanReturn(AantalLades)
 	Do ToeleveringMock.VerwachtMethodCall("GeefDueOutTime").DanReturn(Horolog)
 	Do ToeleveringMock.VerwachtMethodCall("GeefOrderID").DanReturn(OrderId)
+	Do ToeleveringMock.VerwachtMethodCall("GeefOorsprongKetting").DanReturn(OorsprongKetting)
 	
 	Quit ToeleveringMock
 ]]></Implementation>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u -r72113 -r72359
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 72113)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 72359)
@@ -119,42 +119,14 @@
 	Set TekstVelden.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
 	Set TekstVelden.KlantId = ..GeefWaardeOfNull(..PrependNul(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())))
 	
-	Set TekstVelden.MultipersonalityKlant1 = ..GeefWaardeOfNull("")
-	Set TekstVelden.MultipersonalityKlant2 = ..GeefWaardeOfNull("")
+	#dim OorsprongKettingLijst As %List = ..GeefOorsprongKettingLijst(Toelevering.GeefOorsprongKetting())
+	Set TekstVelden.MultipersonalityKlant1 = ..GeefWaardeOfNull(..GeefEersteMultipersonality(OorsprongKettingLijst))
+	Set TekstVelden.MultipersonalityKlant2 = ..GeefWaardeOfNull(..GeefTweedeMultipersonality(OorsprongKettingLijst))
 	
 	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>
@@ -261,6 +233,55 @@
 	Quit Waarde
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEersteMultipersonality">
+<FormalSpec>OorsprongKettingLijst:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EersteMultipersonality As %String = ""
+	#dim EersteMultipersonalityOorsprong As %String = ""
+	
+	If ($ListLength(OorsprongKettingLijst) = 2) {
+		Set EersteMultipersonalityOorsprong = $ListGet(OorsprongKettingLijst, 1)
+	} ElseIf ($ListLength(OorsprongKettingLijst) = 3) {
+		Set EersteMultipersonalityOorsprong = $ListGet(OorsprongKettingLijst, 2)
+	}
+	
+	Set EersteMultipersonality = $Piece(EersteMultipersonalityOorsprong, ",", 1)
+	
+	Quit EersteMultipersonality
+]]></Implementation>
+</Method>
+
+<Method name="GeefTweedeMultipersonality">
+<FormalSpec>OorsprongKettingLijst:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim TweedeMultipersonality As %String = ""
+	#dim TweedeMultipersonalityOorsprong As %String = ""
+	
+	If ($ListLength(OorsprongKettingLijst) = 3) {
+		Set TweedeMultipersonalityOorsprong = $ListGet(OorsprongKettingLijst, 1)
+	}
+	
+	Set TweedeMultipersonality = $Piece(TweedeMultipersonalityOorsprong, ",", 1)
+	
+	Quit TweedeMultipersonality
+]]></Implementation>
+</Method>
+
+<Method name="GeefOorsprongKettingLijst">
+<FormalSpec>OorsprongKettingString:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set OorsprongKettingString = $Replace(OorsprongKettingString,"((","")
+	Set OorsprongKettingString = $Replace(OorsprongKettingString,"))","")
+			
+	Quit ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKettingString, "), (")
+]]></Implementation>
+</Method>
 </Class>