Index: APPS/TBXWeb/impl/OrderVerwerker.cls.xml
===================================================================
diff -u -r40658 -r54082
--- APPS/TBXWeb/impl/OrderVerwerker.cls.xml	(.../OrderVerwerker.cls.xml)	(revision 40658)
+++ APPS/TBXWeb/impl/OrderVerwerker.cls.xml	(.../OrderVerwerker.cls.xml)	(revision 54082)
@@ -233,10 +233,38 @@
 		do ..BewaarOfferteLijn(WebOrderLijn,OfferteLijn)
 	}
 	
+	Do ..VoegToeTekstlijnVoorLevertijd()
+	
 	do ..BewaarOfferte()
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeTekstlijnVoorLevertijd">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:(..WebOrder.LeverTijdID = "ASAP")
+	
+	#define DatumAsDollarH(%v)   ($P(%v,",",1)?5.6N)
+	
+	#dim Leverdatum As %String
+	#dim TekstVoorLeverdatum As %String
+	#dim OfferteTekstLijn As Flow.Offerte.Lijn
+	
+	Set Leverdatum = $$$Trim(..WebOrder.LeverTijd)
+	If (Leverdatum = "") && ($$$DatumAsDollarH(..WebOrder.LeverTijdID)) {
+		Set Leverdatum = $$FormatDateTime^vhLib("dd/mm/yyyy",..WebOrder.LeverTijdID)
+	}
+	
+	If $$$HasLength(Leverdatum) {
+		Set TekstVoorLeverdatum = $$$CRLF _ " !!! AANDACHT !!! "_$$$CRLF 
+										  _ "Leverdatum instellen op "_Leverdatum_""_$$$CRLF 
+										  _ $$$CRLF 
+										  _ "Daarna deze tekstlijn verwijderen." 
+		Set OfferteTekstLijn = ..blFlowOfferte.InsertLijnText(,,TekstVoorLeverdatum)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakMultDimVanWebOrderLijn">
 <FormalSpec><![CDATA[Lijn:WS.TBX.EM.OrderLijn,&mdData:%String]]></FormalSpec>
 <Private>1</Private>