Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml
===================================================================
diff -u -r52127 -r56132
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 52127)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 56132)
@@ -122,6 +122,50 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestIsActiefDuPontNaarEindklant">
+<Implementation><![CDATA[
+	; Arrange
+	#define NettoGewicht 				60.7
+	#define VoorzieneOphaalTimeStamp    "2013-06-14 16:00:00"
+	
+	set VerpakkingEenheden = ##class(%ListOfObjects).%New()
+	do VerpakkingEenheden.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()))
+	
+	set LeveringStub = ##class(vhUnitTest.APPS.TRANSP.LeveringMock).%New()
+	
+	do LeveringStub.IndienMethodCall("GeefGeleverdAanKlantID").DanReturn(##class(DOM.VKP.enu.Klant).DuPont())
+	do LeveringStub.IndienMethodCall("GeefNettoGewicht").DanReturn($$$NettoGewicht)
+	do LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(VerpakkingEenheden)
+	do LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn("0")
+	do LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn("0")
+	do LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn("1")
+	do LeveringStub.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn("0")
+	do LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn("0")
+	do LeveringStub.IndienMethodCall("GeefBedragRembours").DanReturn("0")
+	do LeveringStub.IndienMethodCall("GeefBonIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New()))
+	
+	set RitStub = ##class(vhUnitTest.APPS.TRANSP.TransportService.GeefLeveringInfo.RitMock).%New()
+	do RitStub.IndienMethodCall("GeefVoorzieneOphaalTimeStamp").DanReturn($$$VoorzieneOphaalTimeStamp)
+
+	#dim TransportStub As DOM.VKP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
+	do TransportStub.IndienMethodCall("GeefLevering",..#RitID,..#LeveringID).DanReturn(LeveringStub)
+	do TransportStub.IndienMethodCall("GeefRit",..#RitID).DanReturn(RitStub)
+
+	; Act 
+	#dim LeveringInfo As APPS.TRANSP.dto.LeveringInfo = ##class(APPS.TRANSP.impl.TransportService).%New().GeefLeveringInfo(..#RitID,..#LeveringID)
+	
+	; Assert
+	Do $$$AssertEquals(LeveringInfo.Gewicht,$$$NettoGewicht)
+	Do $$$AssertEquals(LeveringInfo.OphaalTijdstip,$$$VoorzieneOphaalTimeStamp)
+	Do $$$AssertEquals(LeveringInfo.Referentie,"1X2")
+	Do $$$AssertEquals(LeveringInfo.GeleverdAanKlantNummer,"1736")
+	Do $$$AssertEquals(LeveringInfo.Telefoon,"UnitTest_Telefoon")
+			
+	Do ..AssertAdres("DU PONT BVBA" ,LeveringInfo.AfzenderAdres,"","BE","BE 2242","KLEINHEIDE 24G","HOECKE","PULDERBOS")	
+	Do ..AssertAdres("UnitTest_Naam",LeveringInfo.LeverAdres,"UnitTest_Aanspreking","BE","1000","UnitTest_Straat","UnitTest_Toenaam","UnitTest_Gemeente")
+]]></Implementation>
+</Method>
+
 <Method name="AssertAdres">
 <FormalSpec>Naam:%String,Adres:APPS.common.dto.Adres,Aanspreking:%String,LandCode:%String,Postcode:%String,Straat:%String,Toenaam:%String,Gemeente:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/TRANSP/PARTIJAPIMock.cls.xml
===================================================================
diff -u -r51113 -r56132
--- vhUnitTest/APPS/TRANSP/PARTIJAPIMock.cls.xml	(.../PARTIJAPIMock.cls.xml)	(revision 51113)
+++ vhUnitTest/APPS/TRANSP/PARTIJAPIMock.cls.xml	(.../PARTIJAPIMock.cls.xml)	(revision 56132)
@@ -12,6 +12,7 @@
 <Implementation><![CDATA[
 	Set:(Nr = "K||1000") Klant = ##class(vhUnitTest.APPS.TRANSP.impl.PartijKlantMock).%New(1000, ..GeefLeverAdres())
 	Set:(Nr = "K||2671") Klant = ##class(vhUnitTest.APPS.TRANSP.impl.PartijKlantMock).%New(2671, ..GeefLeverAdres())
+	Set:(Nr = "K||1736") Klant = ##class(vhUnitTest.APPS.TRANSP.impl.PartijKlantMock).%New(1736, ..GeefLeverAdres())
 	Set:($$$Not(Klant.Open())) Klant = ""	
 
 	Quit Klant
Index: TRANSPEA.mac.rou
===================================================================
diff -u -r52828 -r56132
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 52828)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 56132)
@@ -147,6 +147,8 @@
  .Set Nummer=$P(Straat," ",$L(Straat," ")),Straat=$P(Straat," ",1,$L(Straat," ")-1),Land=$$LAND^vhRtn1(Land)
  Do:($$IsActiefHaefeleNlNaarEindklant(KLNr))
  .Set Naam="HAEFELE NEDERLAND",Straat="POSTBUS",Nummer="1085",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("NL-7333-NZ"),Gemeente="APELDOORN",Land=$$LAND^vhRtn1(1147),Telefoon="0031-55-541 90 00"
+ Do:($$IsActiefDuPontNaarEindklant(KLNr))
+ .Set Naam="DU PONT BVBA",Straat="KLEINHEIDE",Nummer="24G",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("BE 2242"),Gemeente="PULDERBOS",Land=$$LAND^vhRtn1(1019),Telefoon="+32 3 464 00 91"
  Set:Afzender="" Afzender=$P(^TRANSP("T",TranspNr),"\",2)
  Set Bedrijf = ##class(Res.Bedrijf).%New()
  Set Naam=$G(Naam,Bedrijf.Naam)
@@ -367,3 +369,7 @@
  Quit:($$$Not(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleNlNaarEindklant())) 0
  Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleNederland()))
  ;
+IsActiefDuPontNaarEindklant(KlantNummer)
+ Quit:($$$Not(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDuPontNaarEindklant())) 0
+ Quit (KlantNummer=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).DuPont()))
+ ;