Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml
===================================================================
diff -u -r53095 -r55951
--- vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml	(.../TestAfzenderHoofding.cls.xml)	(revision 53095)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml	(.../TestAfzenderHoofding.cls.xml)	(revision 55951)
@@ -16,7 +16,7 @@
 <Default>0031-184-67 55 55</Default>
 </Parameter>
 
-<Method name="Test: Hoofding VanHoecke -&gt; GeenHoofdingIngevuld">
+<Method name="aTest: Hoofding VanHoecke -&gt; GeenHoofdingIngevuld">
 <Implementation><![CDATA[
 	Do ..MaakTestLevering(1000)
 	#dim BONNr As %String = ..BonID
@@ -29,7 +29,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Hoofding indien Noteborn TaorCubics">
+<Method name="aTest: Hoofding indien Noteborn TaorCubics">
 <Implementation><![CDATA[
    Do ..MaakTestLevering(1000)
    #dim BONNr As %String = ..BonID
@@ -63,7 +63,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Hoofding voor Häfele NL">
+<Method name="aTest: Hoofding voor Häfele NL">
 <Implementation><![CDATA[
 	Do ..MaakTestLevering(2671)
 	#dim BONNr As %String = ..BonID
@@ -103,7 +103,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Hoofding voor Hein indien ProjectSettings IsActiefHeinNaarEindklant actief staat">
+<Method name="aTest: Hoofding voor Hein indien ProjectSettings IsActiefHeinNaarEindklant actief staat">
 <Implementation><![CDATA[
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHeinNaarEindklant()) {
 		Do ..MaakTestLevering(7833)
@@ -145,6 +145,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hoofding voor Dupont indien ProjectSettings IsActiefDupontNaarEindklant actief staat">
+<Implementation><![CDATA[
+	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant()) {
+		Do ..MaakTestLevering(1736)
+		#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,"Du Pont bvba","Klantnaam")
+			Do $$$AssertEquals(afzender.STRAATNRBUS,"Kleinheide 24G","Straat")
+			Do $$$AssertEquals(afzender.POSTCODE,"2242","Postcode")
+			Do $$$AssertEquals(afzender.WOONPLAATS,"Pulderbos (Zandhoven)","Woonplaats")
+			Do $$$AssertEquals(afzender.EMAIL,"info@du-pont.be")
+			Do $$$AssertEquals(afzender.TELEFOON,"+32(0)3 464 00 91")
+			Do $$$AssertEquals(afzender.FAX,"")
+			Do $$$AssertEquals(afzender.LOGO.Content,"\\fop\Resources\Media\KlantLogos\Logo\Logo Du Pont 1736.jpg")
+			Do $$$AssertEquals(afzender.LOGO.Type,"JPG")
+			
+			Do $$$AssertEquals(afzender.T1,"BTW BE0430.459.769")
+			Do $$$AssertEquals(afzender.T2,"0430.459.769")
+			Do $$$AssertEquals(afzender.T3,"RPR Antwerpen")
+			Do $$$AssertEquals(afzender.T4,"")
+			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).Custom())
+		Do $$$AssertEquals(pxLevering.KlantTelefoon,"")
+		Do $$$AssertEquals(pxLevering.BTWNR,"")
+		Do $$$AssertEquals(pxLevering.FactuurAan,"","""Factuur aan: "" niet ingevuld")
+		Do $$$AssertEquals(pxLevering.CheckSumBon,"","Checksum niet ingevuld")
+		Do $$$AssertEquals(pxLevering.BarCodeBONNr,"900000")
+		Do $$$AssertEquals(pxLevering.LEVERINGSNR,"900000")
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="AssertAfhandelaar">
 <FormalSpec>AfzenderHoofding:BL.FOP.Derde.pxAfzenderHoofding</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r53003 -r55951
--- vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 53003)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 55951)
@@ -97,6 +97,9 @@
  If KLNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).Hein()) {
 	 Set $Piece(x1,"\",59) = "((11, ""HEIN_1234"", 255024), (1, ""K||2671"", 255025))"
  }
+ If KLNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).DuPont()) {
+	 Set $Piece(x1,"\",59) = "((4, ""DUPONT_1234"", 255024), (1, ""K||1736"", 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\\\\\\\" 
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r55720 -r55951
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 55720)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 55951)
@@ -338,6 +338,9 @@
 		Set HeeftEigenHoofding = ((AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleNL()) || 
 								(AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Noteborn()))
 	}
+	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant()){
+		Set HeeftEigenHoofding = HeeftEigenHoofding || (AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Dupont())
+	}
 	
 	#dim IsOrgalux As %Boolean = ..DocIsOrgalux(BONNr)	
 	
@@ -498,6 +501,10 @@
 		Set ..KlantTelefoon = ""
 		Set ..BTWNR = ""
 		Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom()
+	} ElseIf ((##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant()) && (..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Dupont())) {
+		Set ..KlantTelefoon = ""
+		Set ..BTWNR = ""
+		Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom()
 	} Else {
 		Set ..KlantTelefoon=$P($$$KLRec(0),"\",13)
 		Set ..CheckSumBon= "" ;CheckSumBon
@@ -827,7 +834,6 @@
 <FormalSpec>Oorsprong:BL.Flow.Offerte.enu.Oorsprong,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	Set VerkoopsvoorwaardenToevoeger = ##class(BL.Flow.Proxy.impl.VerkoopsvoorwaardenToevoeger).%New(..VerkoopsvoorwaardenURLBepaler)
 	Do VerkoopsvoorwaardenToevoeger.VoegToeVerkoopsvoorwaarden($this,Oorsprong,Taal)
 ]]></Implementation>
@@ -844,6 +850,7 @@
 	} Else {
 		Set PersonalityID = Bon.GeefEindPersonality().GeefID()
 	}
+	
 	Quit PersonalityID
 ]]></Implementation>
 </Method>