Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r59363 -r62183
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 59363)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 62183)
@@ -341,6 +341,9 @@
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant()){
 		Set HeeftEigenHoofding = HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = HoofdingType.Dupont)
 	}
+	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant()){
+		Set HeeftEigenHoofding = HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE)
+	}
 	
 	#dim IsOrgalux As %Boolean = ..DocIsOrgalux(BONNr)	
 	
@@ -457,7 +460,7 @@
 	Set ..CheckDigitLevNr=$$CalcCDigit6^vhRtn2(BONNr)
 	Set ..BarCodeBONNr=BONNr
 	
-	If AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleNL {
+	If (AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleNL) || ((AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant())) {
 		Set ..LEVERINGSNR=""
 		Set ..CheckDigitLevNr=""
 	}
@@ -494,7 +497,7 @@
 		#dim TaalVV As DOM.enu.Taal = Partij.GeefTaal()
 		Do ..VoegToeVerkoopsvoorwaarden(Oorsprong,TaalVV)
 		Set ..HeaderType = HoofdingType.Custom
-	} ElseIf ..HeaderType = HoofdingType.HaefeleNL {
+	} ElseIf (..HeaderType = HoofdingType.HaefeleNL) || ((AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant())) {
 		Set ..KlantTelefoon = ""
 		Set ..BTWNR = ""
 		Set ..HeaderType = HoofdingType.Custom