Index: BL/Flow/Levering/Doc.cls.xml
===================================================================
diff -u -r48273 -r51204
--- BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 48273)
+++ BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 51204)
@@ -226,6 +226,7 @@
 <Implementation><![CDATA[
 	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonID)
+	Quit:Bon.GeefEindPersonality().GeefID()>1 Bon.GeefEindPersonality().GeefID()
 	Quit Bon.GeefPersonalityID()
 ]]></Implementation>
 </Method>
@@ -236,14 +237,21 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim PersonalityID As DOM.common.enu.Personality = ..GeefPersonalityIDVoorBon(BonID)
+	#dim Key As %String = "RP"
 	If PersonalityID=##class(DOM.common.enu.Personality).Noteborn() {
-		#dim Key As %String = "RP"
 		For { Set Key=$O(arSettings(Key))  Quit:$E(Key,1,2)'="RP"
 			If $G(arSettings(Key,"BonPapierSoort"))="LOGO" {
 				Set arSettings(Key,"BonPapierSoort")="BLANCO"
 				Set arSettings(Key,"BonWithLogo")="1"
 			}
 		}
+	} ElseIf PersonalityID=##class(DOM.common.enu.Personality).HaefeleNL() {
+		For { Set Key=$O(arSettings(Key))  Quit:$E(Key,1,2)'="RP"
+			If $G(arSettings(Key,"BonPapierSoort"))="LOGO" {
+				Set arSettings(Key,"BonPapierSoort")="GEEL"
+				Set arSettings(Key,"BonWithLogo")="1"
+			}
+		}	
 	}
 ]]></Implementation>
 </Method>