Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r69620 -r69821
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 69620)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 69821)
@@ -181,7 +181,7 @@
 	}
 	
 	Do ShipmentInfo.addresses.Insert(..GeefAfzenderAdres(LeveringInfo))
-	Do ShipmentInfo.addresses.Insert(..GeefBestemmelingAdres(LeveringInfo))
+	Do ShipmentInfo.addresses.Insert(..GeefBestemmelingAdres(LeveringInfo,Rit))
 	
 	Do ShipmentInfo.additionalReferences.Insert(..GeefVrachtwagenAdditionalReference(Rit))
 	Do ShipmentInfo.additionalReferences.Insert(..GeefKlantAdditionalReference(LeveringInfo))
@@ -330,10 +330,11 @@
 </Method>
 
 <Method name="GeefBestemmelingAdres">
-<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Transsmart.tns.DoBookingAddress</ReturnType>
 <Implementation><![CDATA[
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	Set Bestemmeling = ##class(WS.Transsmart.tns.DoBookingAddress).%New()
 	
 	Set Bestemmeling.type = "RECV"
@@ -343,7 +344,9 @@
 	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)
+	if $$$Not(Rit.GeefTransporteur() = Transporteur.VRD){
+		Set Bestemmeling.telNo = ..BeperkLengteTot(LeveringInfo.LeverAdres.Telefoon,15)
+	}
 	Set Bestemmeling.state = ..BeperkLengteTot(LeveringInfo.LeverAdres.Provincie,16)
 	Quit Bestemmeling
 ]]></Implementation>