Index: vhUnitTest/APPS/TRANSP/PARTIJAPIMock.cls.xml
===================================================================
diff -u -r29059 -r51113
--- vhUnitTest/APPS/TRANSP/PARTIJAPIMock.cls.xml	(.../PARTIJAPIMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/PARTIJAPIMock.cls.xml	(.../PARTIJAPIMock.cls.xml)	(revision 51113)
@@ -10,7 +10,8 @@
 <FormalSpec>Nr:DOM.common.PartijID</FormalSpec>
 <ReturnType>DOM.PARTIJ.Partij</ReturnType>
 <Implementation><![CDATA[
-	Set:(Nr = "K||1000") Klant = ##class(vhUnitTest.APPS.TRANSP.impl.PartijKlantMock).%New(1000, ..GeefLeverAdres())	
+	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:($$$Not(Klant.Open())) Klant = ""	
 
 	Quit Klant
Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml
===================================================================
diff -u -r40477 -r51113
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 40477)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 51113)
@@ -78,6 +78,50 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestIsActiefHaefeleNlNaarEindklant">
+<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).HaefeleNederland())
+	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,"2671")
+	Do $$$AssertEquals(LeveringInfo.Telefoon,"UnitTest_Telefoon")
+			
+	Do ..AssertAdres("HAEFELE NEDERLAND (DI)" ,LeveringInfo.AfzenderAdres,"","NL","NL-7333-NZ","NAGELPOELWEG 30","HOECKE","APELDOORN")	
+	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>