Index: BL/Legacy/DCPRINT2.cls.xml
===================================================================
diff -u -r62468 -r74180
--- BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 62468)
+++ BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 74180)
@@ -93,130 +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)
 	}
-	If IsAfdrukOpBlancoPapier {
-		Set PrinterNaam = ##class(BL.Legacy.DCPRINT2).GeefPrinterVoorBlancoPapier(PrinterNaam)
-	}
+	
+	// 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="GeefPrinterVoorBlancoPapier">
-<Description>
-!! OPGELET !! 
-Deze method is enkel bedoeld voor logistieke omleidingen, i.e. bewust gekozen door ICT in samenspraak met magazijn-medewerkers. 
-Voor omleidingen omwille van bvb. een technisch defect: zie klasse BL.Sys.FOP.CommonTasks method ApplyPrinterRedirects() </Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>PrinterNaam:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit:(PrinterNaam = "LEVBON_PS") "LEVBON_DI"   ; Omleiding zoals besproken met RDL en AVH, omdat LEVBON_PS geen lade met blanco (wit) papier heeft.
-	Quit PrinterNaam
-]]></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"))
-]]></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[
-	#dim IsAfdrukOpBlancoPapier As %Boolean = $$$False
-	
-	#dim PersonalityId As DOM.common.enu.Personality = ..GeefPersonalityIdVoorBon(BonId)
-	Set ProjectSettingsAPI = ##class(DOM.common.impl.ProjectSettingsAPI).%New()
-	
-	If (PersonalityId = ##class(DOM.common.enu.Personality).Noteborn()) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (PersonalityId = ##class(DOM.common.enu.Personality).HaefeleNL()) || (PersonalityId = ##class(DOM.common.enu.Personality).HaefeleDE()){
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (PersonalityId = ##class(DOM.common.enu.Personality).HaefeleBE()) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant()) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (ProjectSettingsAPI.IsActiefHeinNaarEindklant()) && (PersonalityId = ##class(DOM.common.enu.Personality).Hein()) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (ProjectSettingsAPI.IsActiefDuPontNaarEindklant()) && (PersonalityId = ##class(DOM.common.enu.Personality).Dupont()) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf ((..GeefKlantIDVoorBon(BonId) = ##class(DOM.VKP.enu.Klant).SFS()) || (PersonalityId = ##class(DOM.common.enu.Personality).SFS())) {
-		Set IsAfdrukOpBlancoPapier = $$$True
-	}ElseIf ((PersonalityId = ##class(DOM.common.enu.Personality).VanRaemdonck())) {
-		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>
@@ -247,7 +140,7 @@
 <FormalSpec>KlantNr:%String,BonNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim FopPad as %String
+	#dim FopPad as %String = ""
 	Set DocumentLocationService = ##class(AXimpl.Dynamics.DocumentLocationOut.DocumentLocationService).%New()
 	Set FileAPI = ##class(TECH.File.impl.FileAPI).%New()
 
@@ -257,7 +150,7 @@
 	
 	If $$$HasLength(Exartepad) {
 		#Dim BestandsNaam as %String = $Piece(Exartepad,"\",$Length(Exartepad,"\"))
-		Set FopPad = "\\fop\FOP\LevBon_Klant" _ "\" _ BestandsNaam
+		Set FopPad = "\\Notes01\FOP\LevBon_Klant" _ "\" _ BestandsNaam
 		Do FileAPI.CopyFile(Exartepad,FopPad)
 	}