Index: BL/Flow/Levering/Doc.cls.xml
===================================================================
diff -u -r56403 -r56404
--- BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 56403)
+++ BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 56404)
@@ -218,35 +218,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPersonalityIDVoorBon">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>BonID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[
-	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonID)
-	#dim EindPersonalityID As %Integer = Bon.GeefEindPersonality().GeefID()
-	Quit:$$$Not(EindPersonalityID=##class(DOM.common.enu.Personality).VanHoecke()) EindPersonalityID
-	Quit Bon.GeefPersonalityID()
-]]></Implementation>
-</Method>
-
 <Method name="LogoPapierSettingsAanpassen">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&arSettings:%String,BonID:%String]]></FormalSpec>
 <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() {
-		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"
-			}
-		}
-	}
+<Implementation><![CDATA[	// Is verplaatst naar DCPRINT2.mac
 ]]></Implementation>
 </Method>