Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r69616 -r70305
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 69616)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 70305)
@@ -86,6 +86,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test VRD en uitblanken telefoonnummer leveradres indien dit het VH nummer is">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$true)
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroEnWWPallet()
+	Set LeveringInfo.LeverAdres.Telefoon = "+3237601900"
+	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).VRD())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
+	Do RitMock.Verifieer()
+	do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doBooking Dachser met costcenter voor OPO">
 <Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
Index: vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestVRDenuitblankentelefoonnummerleveradresindiendithetVHnummeris/doBookingRequestVRD.xml
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestVRDenuitblankentelefoonnummerleveradresindiendithetVHnummeris/doBookingRequestVRD.xml	(revision 0)
+++ vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestVRDenuitblankentelefoonnummerleveradresindiendithetVHnummeris/doBookingRequestVRD.xml	(revision 70305)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<doBooking xmlns="http://connect1.transwise.eu/TboxService/">
+  <bookingInfo>
+    <carrier>VRD</carrier>
+    <origin>WEB</origin>
+    <mailType>0</mailType>
+    <language>NL</language>
+    <action>doBooking</action>
+    <version>2.0</version>
+  </bookingInfo>
+  <shipmentInfo>
+    <reference>referentie</reference>
+    <additionalReferences>
+      <additionalReference>
+        <type>DELIVERYID</type>
+        <value>12345</value>
+      </additionalReference>
+      <additionalReference>
+        <type>CUSTOMER</type>
+        <value>1000</value>
+      </additionalReference>
+      <additionalReference>
+        <type>OTHER</type>
+        <value>referentie</value>
+      </additionalReference>
+    </additionalReferences>
+    <pickupDate>2011-06-30</pickupDate>
+    <requestedDeliveryDate>2011-07-01</requestedDeliveryDate>
+    <serviceLevelTime>STANDARD</serviceLevelTime>
+    <inbound>0</inbound>
+    <loadmeter>0</loadmeter>
+    <noOfPackages>2</noOfPackages>
+    <shipmentLines>
+      <shipmentLine>
+        <lineNo>1</lineNo>
+        <packageType>EUROPALLET</packageType>
+        <quantity>1</quantity>
+        <measurements>
+          <length>0</length>
+          <width>0</width>
+          <height>0</height>
+          <weight>.25</weight>
+          <sizeUom>CM</sizeUom>
+          <weightUom>KG</weightUom>
+        </measurements>
+      </shipmentLine>
+      <shipmentLine>
+        <lineNo>2</lineNo>
+        <packageType>Wwpallet</packageType>
+        <quantity>1</quantity>
+        <measurements>
+          <length>0</length>
+          <width>0</width>
+          <height>0</height>
+          <weight>.25</weight>
+          <sizeUom>CM</sizeUom>
+          <weightUom>KG</weightUom>
+        </measurements>
+      </shipmentLine>
+    </shipmentLines>
+    <addresses>
+      <address>
+        <type>SEND</type>
+        <name>Van Hoecke</name>
+        <street1>Europark Noord</street1>
+        <city>Sint Niklaas</city>
+        <houseNo>9</houseNo>
+        <zipCode>9100</zipCode>
+        <countryCode>BE</countryCode>
+      </address>
+      <address>
+        <type>RECV</type>
+        <name>Een Belg</name>
+        <street1>Ankerstraat 91</street1>
+        <city>Sint-Niklaas</city>
+        <zipCode>9100</zipCode>
+        <countryCode>BE</countryCode>
+      </address>
+    </addresses>
+  </shipmentInfo>
+</doBooking>
\ No newline at end of file
Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r70304 -r70305
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 70304)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 70305)
@@ -348,12 +348,26 @@
 	Set Bestemmeling.city = ..BeperkLengteTot(LeveringInfo.LeverAdres.Woonplaats,64)
 	Set Bestemmeling.zipCode = ..BeperkLengteTot(..FormatteerPostcode(LeveringInfo.LeverAdres.LandCode , LeveringInfo.LeverAdres.Postcode),16)
 	Set Bestemmeling.countryCode = ..BeperkLengteTot(LeveringInfo.LeverAdres.LandCode,3)
-	Set Bestemmeling.telNo = ..BeperkLengteTot(LeveringInfo.LeverAdres.Telefoon,15)
+	Set Bestemmeling.telNo = ..BepaalBestemmelingTelefoon(LeveringInfo,Rit)
 	Set Bestemmeling.state = ..BeperkLengteTot(LeveringInfo.LeverAdres.Provincie,16)
 	Quit Bestemmeling
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalBestemmelingTelefoon">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+	#dim Telefoon As %String = ..BeperkLengteTot(LeveringInfo.LeverAdres.Telefoon,15)
+	If (Rit.GeefTransporteur() = Transporteur.VRD) && (Telefoon = "+3237601900") {
+		Set Telefoon = ""
+	}
+	Quit Telefoon
+]]></Implementation>
+</Method>
+
 <Method name="FormatteerStraat">
 <FormalSpec>Straat:%String</FormalSpec>
 <Private>1</Private>