Index: BL/Legacy/DCPRINT2.cls.xml
===================================================================
diff -u -r73694 -r74180
--- BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 73694)
+++ BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 74180)
@@ -93,125 +93,23 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[BonId:%Integer,&PrinterNaam:%String,&DocType:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim IsAfdrukOpBlancoPapier As %Boolean = ##class(BL.Legacy.DCPRINT2).IsAfdrukOpBlancoPapier(BonId)
-
 	// Printer voor FOP bepalen 
 	If PrinterNaam = "" {
 		Set PrinterNaam = ##class(BL.Legacy.DCPRINT2).GeefPrinter(BonId)
 	}
 	
-	// Andere printer instellen indien de specifieke printer geen Lade voor Blanco papier heeft 
-	// Method GeefPrinterVoorBlancoPapier() is opgekuist (zie svn) 
-	
 	// Een printer algemeen omleiden (bvb. indien technisch defect) 
 	Set PrinterNaam = ##class(BL.Sys.FOP.CommonTasks).ApplyPrinterRedirects(PrinterNaam)
-
-	// Papier aanpassen voor o.a. "Rechtstreekse levering" 
-	If IsAfdrukOpBlancoPapier {
-		Do ##class(BL.Legacy.DCPRINT2).PasAanDocTypeNaarBlancoPapier(.DocType, PrinterNaam, BonId)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="PrinterHeeftBlancoPapier">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>PrinterNaam:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (##class(TECH.StringUtils).Equals(PrinterNaam, "LEVBON_DI", "LEVBON_GLS2", "LEVBON_ORGALUX", "LEVBON_EXPORT", "LEVBON_PS"))
-]]></Implementation>
-</Method>
-
-<Method name="PasAanDocTypeNaarBlancoPapier">
-<Description>
-BonWit (op logo-papier) aanpassen naar BonBlanco (o.a. voor Handels met rechtstreekse levering) </Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&DocType:%String,PrinterNaam:%String,BonId:%Integer]]></FormalSpec>
-<Implementation><![CDATA[
-	#dim PrinterHeeftBlancoPapier As %Boolean = ..PrinterHeeftBlancoPapier(PrinterNaam)
 	
-	If PrinterHeeftBlancoPapier {
-		Set DocType = $Replace(DocType, "BonWit", "BonBlanco")   ;  macros $$$ldtBonWit en $$$ldtBonBlanco  uit BL.Sys.FOP.Common.inc hard-coded overgenomen 
-	}
-	Else {
-		// Fallback op geel papier + warning mailen 
-		Set DocType = $Replace(DocType, "BonWit", "BonGeel")
-		
-		Set Logger = ##class(vhLib.Logger).%New("")
-		Do Logger.WarningMail("PasAanDocTypeNaarBlancoPapier","Afdrukken Leveringsbon '"_BonId _ "' "_$$$CRLF_"OPGELET! Printer '"_ PrinterNaam _ "' kan niet op Blanco papier printen. DocType is aangepast naar Geel papier. "_$$$CRLF_"Gelieve dit te melden aan de ICT-verantwoordelijke voor rechtstreekse leveringen van Handels.")
-	}
+	// Andere printer instellen indien de specifieke printer geen Lade voor Blanco papier heeft 
+	// Method GeefPrinterVoorBlancoPapier() is opgekuist (zie svn) 
+	// Method IsAfdrukOpBlancoPapier() is opgekuist (zie svn) 
+	// Method PrinterHeeftBlancoPapier() is opgekuist (zie svn) 
+	// Method PasAanDocTypeNaarBlancoPapier() is opgekuist (zie svn) 
+	// Method GeefPersonalityIdVoorBon() is opgekuist (zie svn)
 ]]></Implementation>
 </Method>
 
-<Method name="IsAfdrukOpBlancoPapier">
-<Description>
-o.a. voor Handels met rechtstreekse levering </Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>BonId:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
-	#dim IsAfdrukOpBlancoPapier As %Boolean = $$$False
-	
-	#dim PersonalityId As DOM.common.enu.Personality = ..GeefPersonalityIdVoorBon(BonId)
-	Set ProjectSettingsAPI = ##class(DOM.common.impl.ProjectSettingsAPI).%New()
-	
-	If (PersonalityId = Personality.Noteborn) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (PersonalityId = Personality.HaefeleNL) || (PersonalityId = Personality.HaefeleDE)|| (PersonalityId = Personality.HaefeleIT) || (PersonalityId = Personality.HaefeleAT)  || (PersonalityId = Personality.HaefeleSE) || (PersonalityId = Personality.HaefeleFI) || (PersonalityId = Personality.HaefeleFR) || (PersonalityId = Personality.HaefeleDK) || (PersonalityId = Personality.HaefeleCH)  || (PersonalityId = Personality.HaefeleNO) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (PersonalityId = Personality.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant()) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (ProjectSettingsAPI.IsActiefHeinNaarEindklant()) && (PersonalityId = Personality.Hein) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (ProjectSettingsAPI.IsActiefDuPontNaarEindklant()) && ((..GeefKlantIDVoorBon(BonId) = ##class(DOM.VKP.enu.Klant).DuPont()) || (PersonalityId = Personality.Dupont)) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf ((..GeefKlantIDVoorBon(BonId) = ##class(DOM.VKP.enu.Klant).SFS()) || (PersonalityId = Personality.SFS)) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	}ElseIf ((PersonalityId = Personality.VanRaemdonck)) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	}ElseIf ((PersonalityId = Personality.OPO)) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	}ElseIf ((PersonalityId = Personality.CampeTonny)) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	}ElseIf ((PersonalityId = Personality.BlumPL)) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	}
-	
-	Quit IsAfdrukOpBlancoPapier
-]]></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 PersonalityIdVoorBon As %Integer = Bon.GeefPersonalityID()
-	#dim EindPersonalityId As %Integer = Bon.GeefEindPersonality().GeefID()
-	If $$$Not(EindPersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()) {
-		Set PersonalityIdVoorBon = EindPersonalityId
-	}
-	Quit PersonalityIdVoorBon
-]]></Implementation>
-</Method>
-
-<Method name="GeefKlantIDVoorBon">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>BonId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.VanHoeckeKlantID</ReturnType>
-<Implementation><![CDATA[
-	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonId)
-	
-	Quit Bon.GeefKlantID()
-]]></Implementation>
-</Method>
-
 <Method name="AfleveringsbewijsNodigBepaaldDoorVerzendwijze">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>VerzendWijzeID:%String</FormalSpec>