Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r66681 -r66780
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 66681)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 66780)
@@ -192,13 +192,21 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	; als de afleverdatum groter dan volgende werkdag is, zet dan de pickupdatum op de volgende werkdag
 	#dim Datum as %Date = +(..DateTimeAPI.CurrentHorolog())
-	If (Rit.GeefTransporteur() = Transporteur.VRD) || (Rit.GeefTransporteur() = Transporteur.DHL) {
+
+	If (Rit.GeefTransporteur() = Transporteur.DHL) { 	; als de afleverdatum groter dan volgende werkdag is, zet dan de pickupdatum op de volgende werkdag
 		If (LeveringInfo.AfleverDatum > ##class(TECH.DateTime).BerekenWerkdag(Datum,1) ) {	
 			Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
 		}
 	}
+	
+	If (Rit.GeefTransporteur() = Transporteur.VRD) { 	; Zet de pickup datum op de dag voor de gewenste leverdatum, en minstens op vandaag (dus niet in het verleden)
+		Set Datum = ##class(TECH.DateTime).BerekenWerkdag(LeveringInfo.AfleverDatum,-1)
+		If Datum < +(..DateTimeAPI.CurrentHorolog()) {
+			Set Datum = +(..DateTimeAPI.CurrentHorolog())
+		}
+	}
+
 	Quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"JJJJ-MM-DD")
 ]]></Implementation>
 </Method>