Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml
===================================================================
diff -u -r51127 -r51128
--- vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml	(.../TestAfzenderHoofding.cls.xml)	(revision 51127)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml	(.../TestAfzenderHoofding.cls.xml)	(revision 51128)
@@ -16,7 +16,7 @@
 <Default>0031-184-67 55 55</Default>
 </Parameter>
 
-<Method name="TestHoofdingVanHoeckexGeenHoofdingIngevuld">
+<Method name="Test: Hoofding VanHoecke -&gt; GeenHoofdingIngevuld">
 <Implementation><![CDATA[
 	Do ..MaakTestLevering(1000)
 	#dim BONNr As %String = ..BonID
@@ -29,7 +29,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestHoofdingIndienNotebornTaorCubics">
+<Method name="Test: Hoofding indien Noteborn TaorCubics">
 <Implementation><![CDATA[
    Do ..MaakTestLevering(1000)
    #dim BONNr As %String = ..BonID
@@ -63,7 +63,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Hoofding voor Häfele NL">
+<Method name="Test: Hoofding voor Häfele NL">
 <Implementation><![CDATA[
 	Do ..MaakTestLevering(2671)
 	#dim BONNr As %String = ..BonID
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r51127 -r51128
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51127)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51128)
@@ -326,15 +326,8 @@
 	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BONNr)
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = Bon.GeefOorsprong()
 	
-	#dim PersonalityID As DOM.common.enu.Personality
-	Set PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
-	If Oorsprong = ##class(BL.Flow.Offerte.enu.Oorsprong).NotebornTaorCubicsWebshop() {
-		Set PersonalityID = ##class(DOM.common.enu.Personality).Noteborn()
-	} Else {
-		Set PersonalityID = Bon.GeefEindPersonality().GeefID()
-	}
 	Set LeverbonHoofdingBepaler = ##class(BL.Flow.Proxy.impl.LeverbonHoofdingBepaler).%New()
-	#dim AfzenderHoofdingDto As BL.Flow.Proxy.dto.AfzenderHoofdingDto = LeverbonHoofdingBepaler.BepaalLeverbonHoofding(##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(PersonalityID))
+	#dim AfzenderHoofdingDto As BL.Flow.Proxy.dto.AfzenderHoofdingDto = LeverbonHoofdingBepaler.BepaalLeverbonHoofding(##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(..GeefPersonalityId(Bon)))
 	
 	#dim HeeftEigenHoofding As %Boolean = (AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNL())||(AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Noteborn())
 	
@@ -812,5 +805,20 @@
 	Do VerkoopsvoorwaardenToevoeger.VoegToeVerkoopsvoorwaarden($this,Oorsprong,Taal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPersonalityId">
+<FormalSpec>Bon:DOM.VKP.Bon</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+	If Bon.GeefOorsprong() = ##class(BL.Flow.Offerte.enu.Oorsprong).NotebornTaorCubicsWebshop() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).Noteborn()
+	} Else {
+		Set PersonalityID = Bon.GeefEindPersonality().GeefID()
+	}
+	Quit PersonalityID
+]]></Implementation>
+</Method>
 </Class>
 </Export>