Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r63265 -r63395
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 63265)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 63395)
@@ -334,9 +334,9 @@
 	
 	#dim HeeftEigenHoofding As %Boolean = $$$False
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHeinNaarEindklant()) {
-		Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.Hein,)
+		Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.Hein, HoofdingType.CampeTonny)
 	} Else {
-		Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck)
+		Set HeeftEigenHoofding = ##class(TECH.StringUtils).Equals(AfzenderHoofdingDto.HeaderType, HoofdingType.HaefeleNL,HoofdingType.HaefeleDE,HoofdingType.Noteborn,HoofdingType.SFS,HoofdingType.VanRaemdonck, HoofdingType.CampeTonny)
 	}
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant()){
 		Set HeeftEigenHoofding = HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = HoofdingType.Dupont)
@@ -517,6 +517,10 @@
 		Set ..KlantTelefoon = ""
 		Set ..BTWNR = ""
 		Set ..HeaderType = HoofdingType.Custom
+	} ElseIf ..HeaderType = HoofdingType.CampeTonny {
+		Set ..KlantTelefoon = ""
+		Set ..BTWNR = ""
+		Set ..HeaderType = HoofdingType.Custom
 	} Else {
 		Set ..KlantTelefoon=$P($$$KLRec(0),"\",13)
 		Set ..CheckSumBon= "" ;CheckSumBon