Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml
===================================================================
diff -u -r49145 -r51122
--- vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml	(.../TestAfzenderHoofding.cls.xml)	(revision 49145)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml	(.../TestAfzenderHoofding.cls.xml)	(revision 51122)
@@ -59,6 +59,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Hoofding voor Häfele NL">
+<Implementation><![CDATA[
+	Do ..MaakTestLevering(2671)
+	#dim BONNr As %String = ..BonID
+	
+	#dim pxLevering As BL.Flow.Proxy.pxLevering = ##class(BL.Flow.Proxy.pxLevering).Create(BONNr,0,"F")   
+	#dim afzender As BL.FOP.Derde.pxAfzenderHoofding =pxLevering.AfzenderHoofding
+	If $$$AssertTrue($IsObject(afzender)){
+		Do $$$AssertEquals(afzender.NAAM,"Häfele Nederland BV","Klantnaam")
+		Do $$$AssertEquals(afzender.STRAATNRBUS,"Nagelpoelweg 30","Straat")
+		Do $$$AssertEquals(afzender.POSTCODE,"7333 NZ","Postcode")
+		Do $$$AssertEquals(afzender.WOONPLAATS,"Apeldoorn","Woonplaats")
+		Do $$$AssertEquals(afzender.EMAIL,"Info@hafele.nl")
+		Do $$$AssertEquals(afzender.TELEFOON,"+31 (0)55 - 5384600")
+		Do $$$AssertEquals(afzender.FAX,"")
+		Do $$$AssertEquals(afzender.LOGO.Content,"\\fop\Resources\Media\KlantLogos\Logo\Logo Haefele NL 2671.jpg")
+		Do $$$AssertEquals(afzender.LOGO.Type,"JPG")
+		
+		Do $$$AssertEquals(afzender.T1,"BTW: NL008044211B01")
+		Do $$$AssertEquals(afzender.T2,"KVK: 08044079")
+		Do $$$AssertEquals(afzender.T3,"Rabobank: IBAN NL12RABO0393150151 BIC: RABONL2U")
+		Do $$$AssertEquals(afzender.T4,"Deutsche Bank: IBAN NL74DEUT0531622495 BIC: DEUTNL2N")
+		Do $$$AssertEquals(afzender.T5,"")
+		Do $$$AssertEquals(afzender.T6,"")
+		Do $$$AssertEquals(afzender.T7,"")
+		Do $$$AssertEquals(afzender.T8,"")
+	}
+	
+	Do $$$AssertEquals(pxLevering.HeaderType,##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNL())
+	Do $$$AssertEquals(pxLevering.KlantTelefoon,"")
+	Do $$$AssertEquals(pxLevering.BTWNR,"")
+	Do $$$AssertEquals(pxLevering.FactuurAan,"","""Factuur aan: "" niet ingevuld")
+	Do $$$AssertEquals(pxLevering.CheckSumBon,"","Checksum niet ingevuld")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="AssertAfhandelaar">
 <FormalSpec>AfzenderHoofding:BL.FOP.Derde.pxAfzenderHoofding</FormalSpec>
 <Private>1</Private>
Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r51081 -r51122
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 51081)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 51122)
@@ -62,7 +62,33 @@
 
 <Method name="VerwerkHaefeleNL">
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNL()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleNLPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+		#dim Bestand As %String = Klant.GeefLogo()
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
+    	Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
+    	Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
+	}	    
+    Set ..LeverbonHoofding.NAAM = "Häfele Nederland BV"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Nagelpoelweg 30"    
+    Set ..LeverbonHoofding.WOONPLAATS = "Apeldoorn"
+    Set ..LeverbonHoofding.POSTCODE = "7333 NZ"
+	Set ..LeverbonHoofding.TELEFOON = "+31 (0)55 - 5384600"	
+	Set ..LeverbonHoofding.EMAIL = "Info@hafele.nl"
+	Set ..LeverbonHoofding.T1 = "BTW: NL008044211B01"
+	Set ..LeverbonHoofding.T2 = "KVK: 08044079"
+	Set ..LeverbonHoofding.T3 = "Rabobank: IBAN NL12RABO0393150151 BIC: RABONL2U"
+	Set ..LeverbonHoofding.T4 = "Deutsche Bank: IBAN NL74DEUT0531622495 BIC: DEUTNL2N"
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkKisch">
@@ -73,7 +99,7 @@
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
 <Implementation><![CDATA[
-	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom()
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Noteborn()
 	
 	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
     Set ..LeverbonHoofding.ColRightWidth = "73mm"
@@ -93,7 +119,11 @@
     Set ..LeverbonHoofding.WOONPLAATS = "www.noteborn.com"
 	Set ..LeverbonHoofding.TELEFOON = "+31(0) 45 535 77 77"	
 	Set ..LeverbonHoofding.EMAIL = "taor@noteborn.nl"
-	Do ..VoegToeAfhandelaar()
+	Set ..LeverbonHoofding.T1 = "Afhandeling door Van Hoecke nv"
+	Set ..LeverbonHoofding.T2 = "Europark-Noord 9"
+	Set ..LeverbonHoofding.T3 = "B-9100 Sint-Niklaas"
+	Set ..LeverbonHoofding.T4 = "BTW: BE 0440.085.040"
+	Set ..LeverbonHoofding.T5 = "RPR: Dendermonde"
 ]]></Implementation>
 </Method>
 
@@ -121,17 +151,6 @@
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="VoegToeAfhandelaar">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ..LeverbonHoofding.T1 = "Afhandeling door Van Hoecke nv"
-	Set ..LeverbonHoofding.T2 = "Europark-Noord 9"
-	Set ..LeverbonHoofding.T3 = "B-9100 Sint-Niklaas"
-	Set ..LeverbonHoofding.T4 = "BTW: BE 0440.085.040"
-	Set ..LeverbonHoofding.T5 = "RPR: Dendermonde"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r51118 -r51122
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51118)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51122)
@@ -336,13 +336,10 @@
 	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))
 	
-	//Set AfzenderHoofdingBepaler = ##class(BL.Flow.Proxy.impl.AfzenderHoofdingBepaler).%New()
-	//Set AfzenderHoofdingDto  = AfzenderHoofdingBepaler.GeefAfzenderHoofdingDto(Oorsprong)
-	#dim HeeftEigenHoofding As %Boolean = (AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom())
+	#dim HeeftEigenHoofding As %Boolean = (AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNL())||(AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Noteborn())
 	
-	#dim IsOrgalux As %Boolean = ..DocIsOrgalux(BONNr)
+	#dim IsOrgalux As %Boolean = ..DocIsOrgalux(BONNr)	
 	
-	
 	#dim MogelijkeDragersVoorKlant As List of DOM.PM.enu.DragerType = ##class(%ListOfDataTypes).%New()
 	; Het toevoegen van Dragertypes aan deze lijst verlangt ook dat er een vertaling is voor deze dragers. Zie methode AddDragerInfo
 	Do:(..KlantInstellingenService.MoetPalletDragerIDOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Pallet())
@@ -475,7 +472,7 @@
 	Set ..AfzenderHoofding = AfzenderHoofdingDto.AfzenderHoofding
 	Set ..HeaderType = AfzenderHoofdingDto.HeaderType
 	
-	If HeeftEigenHoofding {
+	If ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Noteborn() {
 		Set ..KlantTelefoon = $P(^KUL(KLNr,FactSoort,BONNr,3),"\",13)
 		If ..KlantTelefoon = "" {
 			Set ..KlantTelefoon=$P($$$KLRec(0),"\",13)	
@@ -484,7 +481,11 @@
 		#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(KlantID)
 		#dim TaalVV As DOM.enu.Taal = Partij.GeefTaal()
 		Do ..VoegToeVerkoopsvoorwaarden(Oorsprong,TaalVV)
-	}Else{
+		Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom()
+	} ElseIf ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNL(){
+		Set ..KlantTelefoon = ""
+		Set ..BTWNR = ""
+	} Else {
 		Set ..KlantTelefoon=$P($$$KLRec(0),"\",13)
 		Set ..CheckSumBon= "" ;CheckSumBon
 	}
Index: vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r29059 -r51122
--- vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 29059)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51122)
@@ -91,6 +91,9 @@
  Set $Piece(x1,"\",2)=LevDat
  Set $Piece(x1,"\",6)=KLNr
  Set $Piece(x1,"\",7)=Verzendwijze
+ If KLNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleNederland()) {
+	 Set $Piece(x1,"\",59) = "((12, ""HFNL_NL1234"", 255024), (1, ""K||2671"", 255025))"
+ }
  
  #dim x2 As %String = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 
  #dim x3 As %String = "1\VAN DER MEIJDEN\BETIMMERINGEN\B.V.\KROMME GAT 23\NL-3372-DH\HARDINXVELD-GIESSENDAM\1147\N\\\\"_..#KlantTelefoon_"\\\\\\.\\\\\FAX : 0031-184/67.55.54\\\\\\\"