Index: DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r54711 -r72768
--- DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 54711)
+++ DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 72768)
@@ -89,6 +89,34 @@
 	Quit Personality.GeefPrefix()_HandelKlantId
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEindklantIdVolgensOorsprongKetting">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EindklantId As %String = ""
+	#dim OorsprongKettingLijst As %List = ..GeefOorsprongKettingLijst(OorsprongKetting)
+	
+	If ($ListLength(OorsprongKettingLijst) > 0) {
+		Set EindklantId = $Piece($List(OorsprongKettingLijst, 1),",", 2)
+		Set EindklantId = $Replace(EindklantId, " ", "")
+	}
+	
+	Quit EindklantId
+]]></Implementation>
+</Method>
+
+<Method name="GeefOorsprongKettingLijst">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set OorsprongKetting = $Replace(OorsprongKetting, "((", "")
+	Set OorsprongKetting = $Replace(OorsprongKetting, "))", "")
+			
+	Quit ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKetting, "), (")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml
===================================================================
diff -u -r54711 -r72768
--- vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 54711)
+++ vhUnitTest/DOM/PARTIJ/impl/TestLegacyPartijAPI.cls.xml	(.../TestLegacyPartijAPI.cls.xml)	(revision 72768)
@@ -71,6 +71,16 @@
 <Implementation><![CDATA[	Do $$$AssertEquals(##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VoegPrefixToeAanHandelKlantId("123456", ##class(DOM.common.enu.Personality).SFS()),"SFS_123456")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefEindklantIdVolgensOorsprongKetting geeft de ID van de EindKlant volgens de OorsprongKetting">
+<Implementation><![CDATA[
+	#dim VerwachteEindKlantId As %String = "IT1613684"
+	#dim OorsprongKetting As %String = "((39, " _ VerwachteEindKlantId _ ", 1103833), (1, ""K||35412"", 1104716))"
+	#dim EindKlantId As %String = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefEindklantIdVolgensOorsprongKetting(OorsprongKetting)
+	
+	Do $$$AssertEquals(EindKlantId, VerwachteEindKlantId)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PARTIJ/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r38756 -r72768
--- vhTest/Mock/DOM/PARTIJ/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 38756)
+++ vhTest/Mock/DOM/PARTIJ/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 72768)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PARTIJ.LegacyPartijAPI,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -18,6 +17,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEindklantIdVolgensOorsprongKetting">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEindklantIdVolgensOorsprongKetting",OorsprongKetting)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNummerVoorPartijID">
 <FormalSpec>PartijID:DOM.common.PartijID</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Front/OpdeelzaagOptimalisatieDataAanvuller.cls.xml
===================================================================
diff -u -r67824 -r72768
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Front/OpdeelzaagOptimalisatieDataAanvuller.cls.xml	(.../OpdeelzaagOptimalisatieDataAanvuller.cls.xml)	(revision 67824)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Front/OpdeelzaagOptimalisatieDataAanvuller.cls.xml	(.../OpdeelzaagOptimalisatieDataAanvuller.cls.xml)	(revision 72768)
@@ -13,6 +13,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FrontPlaat:DOM.PM.Maatwerk.LadeInfo.FrontPlaat</FormalSpec>
 <Private>1</Private>
@@ -22,6 +32,8 @@
 <Implementation><![CDATA[
 	Set ..FrontPlaat = FrontPlaat
 	Set ..OpdeelzaagDimensieBepaler = ##class(APPS.Halux.Machine.OpdeelZaag.impl.DimensieBepaler).%New()
+	Set ..ToeleveringAPI = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New()
+	Set ..LegacyPartijAPI = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -32,7 +44,7 @@
 	#dim ZaagDimensie As DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies = ..OpdeelzaagDimensieBepaler.GeefDimensie(..FrontPlaat)
 	#dim FrontPlaatKleur As DOM.PM.enu.TAORLadeKleur = ..FrontPlaat.GeefKleur()
 	
-	If ((FrontPlaatKleur = ##class(DOM.PM.enu.TAORLadeKleur).OudZwart()) || (FrontPlaatKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())) {
+	If ((FrontPlaatKleur = ##class(DOM.PM.enu.TAORLadeKleur).OudZwart()) || (FrontPlaatKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown()) || ..IsEindklantSnaideroOnderPersonalityHaefeleItalie(UitvoeringInfo)) {
 		Set UitvoeringInfo.OptimalisatieData.Rol = "Monster"
 	} Else {
 		Set UitvoeringInfo.OptimalisatieData.Rol = "Front"
@@ -54,6 +66,33 @@
 	Set UitvoeringInfo.OptimalisatieData.Aantal = 1
 ]]></Implementation>
 </Method>
+
+<Method name="IsEindklantSnaideroOnderPersonalityHaefeleItalie">
+<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsEindklantSnaideroOnderPersonalityHaefeleItalie As %Boolean = $$$False
+	#dim IsKlantHaefeleItalie As %Boolean = (UitvoeringInfo.PartijID = "K||35412")
+	
+	If IsKlantHaefeleItalie {
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(UitvoeringInfo.ToeleveringID)
+		#dim Personality As DOM.common.Personality = Toelevering.GeefEindPersonality()
+		#dim IsPersonalityHaefeleItalie As %Boolean = (Personality.GeefID() = "39")
+		
+		If IsPersonalityHaefeleItalie {
+			#dim EindKlant As %String = ..LegacyPartijAPI.GeefEindklantIdVolgensOorsprongKetting(Toelevering.GeefOorsprongKetting())
+			#dim EindKlantSnaideroOnderPersonalityHaefeleItalie As %String = "IT1613684"
+			
+			If (EindKlant = EindKlantSnaideroOnderPersonalityHaefeleItalie) {
+				Set IsEindklantSnaideroOnderPersonalityHaefeleItalie = $$$True
+			}
+		}
+	}
+	
+	Quit IsEindklantSnaideroOnderPersonalityHaefeleItalie
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PARTIJ/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r38756 -r72768
--- DOM/PARTIJ/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 38756)
+++ DOM/PARTIJ/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 72768)
@@ -41,6 +41,12 @@
 <FormalSpec>LeverancierID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefEindklantIdVolgensOorsprongKetting">
+<Abstract>1</Abstract>
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>