Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToelevering/GeefEindPersonality/Test.cls.xml
===================================================================
diff -u -r51348 -r51372
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToelevering/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 51348)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToelevering/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 51372)
@@ -10,7 +10,7 @@
 
 <Parameter name="LeverancierNummer">
 <Type>%String</Type>
-<Default>L||5005</Default>
+<Default>5005</Default>
 </Parameter>
 
 <Method name="Test: Standaardgedrag">
@@ -20,11 +20,12 @@
 	
 	Set $P(^KTO(..#LeverancierNummer,..#Toelevering,1),"\",27) = "((1, ""K||7833"", 255025))"
 	
-	Set DataMBonToelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#Toelevering, ..#LeverancierNummer)
-	Do DataMBonToelevering.ZetEindPersonalityBepaler(EindPersonalityBepalerMock)
-	#dim EindPersonality As DOM.common.Personality = DataMBonToelevering.GeefEindPersonality()
+	Set DataMToelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#Toelevering, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefLeverancierPartijID(..#LeverancierNummer))
+	Do DataMToelevering.ZetEindPersonalityBepaler(EindPersonalityBepalerMock)
+	#dim EindPersonality As DOM.common.Personality = DataMToelevering.GeefEindPersonality()
 	
 	Do EindPersonalityBepalerMock.Verifieer()
+	
 	K ^KTO(..#LeverancierNummer,..#Toelevering,1)
 ]]></Implementation>
 </Method>
@@ -36,9 +37,9 @@
 	
 	Set $P(^KTO(..#LeverancierNummer,..#Toelevering,1),"\",27) = "((1, ""K||7833"", 255025))"
 	
-	Set DataMBonToelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#Toelevering, ..#LeverancierNummer)
-	Do DataMBonToelevering.ZetEindPersonalityBepaler(EindPersonalityBepalerStub)
-	#dim EindPersonality As DOM.common.Personality = DataMBonToelevering.GeefEindPersonality()
+	Set DataMToelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#Toelevering, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefLeverancierPartijID(..#LeverancierNummer))
+	Do DataMToelevering.ZetEindPersonalityBepaler(EindPersonalityBepalerStub)
+	#dim EindPersonality As DOM.common.Personality = DataMToelevering.GeefEindPersonality()
 	
 	K ^KTO(..#LeverancierNummer,..#Toelevering,1)
 ]]></Implementation>