Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r41932 -r42102
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 41932)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 42102)
@@ -3,6 +3,11 @@
 <Class name="APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator">
 <Super>DOM.common.PersonalityUnishopVisitor,APPS.EC.Verkoop.OfferteVoorBestellingValidator,APPS.common.impl.Validator</Super>
 
+<Parameter name="ASAP">
+<Type>%String</Type>
+<Default>ASAP</Default>
+</Parameter>
+
 <Property name="KlantID">
 <Type>%String</Type>
 <Private>1</Private>
@@ -60,13 +65,20 @@
 <Implementation><![CDATA[
 	Do ..ControleerReedsBesteld()
 	Do ..ControleerToegangEnPrijzen()
-	If (..IsStandaardTransport(VanHoeckePersonality) && (..Offerte.GeefLeverDatum()=""))
+	If (..IsStandaardTransport(VanHoeckePersonality) && (..Offerte.GeefLeverDatum()="") && $$$Not(..IsAsap()))
 	{
 		Do ..Meldingen.Insert("De leverdatum is niet ingevuld voor deze bestelde offerte (ID: "_..Offerte.GeefID()_")")
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsAsap">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..Offerte.IsVhisie4() && (..Offerte.GeefWensLeverDatum()= ..#ASAP))
+]]></Implementation>
+</Method>
+
 <Method name="IsStandaardTransport">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/OfferteVoorBestellingValidator/TestVH.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/OfferteVoorBestellingValidator/TestVH.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/OfferteVoorBestellingValidator/TestVH.cls.xml	(revision 42102)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Verkoop.impl.Externe.VerkoopService.OfferteVoorBestellingValidator.TestVH">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OfferteStub">
+<Type>vhTest.Mock.APPS.VKP.Offerte</Type>
+</Property>
+
+<Property name="OfferteVoorBestellingValidator">
+<Type>APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator</Type>
+</Property>
+
+<Parameter name="KlantID">
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="PersonalityID">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="OfferteID">
+<Default>1000</Default>
+</Parameter>
+
+<Method name="Test: Vhisie4 offerte zonder leverdatum met ASAP is geldig">
+<Implementation><![CDATA[
+	#dim LeverDatum As %String = ""
+
+	Do ..Init(LeverDatum,..#PersonalityID)
+	Do ..OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn("ASAP")
+	Do ..OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$True)
+
+	Set ..OfferteVoorBestellingValidator = ##class(APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator).%New()
+
+	Do $$$AssertTrue(..OfferteVoorBestellingValidator.IsGeldig(..OfferteStub,..#KlantID,..#PersonalityID))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Offerte met leverdatum is geldig">
+<Implementation><![CDATA[
+	#dim LeverDatum As %String = "2017-05-05"
+
+	Do ..Init(LeverDatum,..#PersonalityID)
+
+	Set ..OfferteVoorBestellingValidator = ##class(APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator).%New()
+
+	Do $$$AssertTrue(..OfferteVoorBestellingValidator.IsGeldig(..OfferteStub,..#KlantID,..#PersonalityID))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Vhisie4 offerte zonder leverdatum en zonder ASAP is niet geldig">
+<Implementation><![CDATA[
+	#define NogNietBesteld 0
+	#define PrijzenVervallen 0
+	#dim LeverDatum As %String = ""
+
+	Do ..Init(LeverDatum,..#PersonalityID)
+	Do ..OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn("")
+	Do ..OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$True)
+
+	Set ..OfferteVoorBestellingValidator = ##class(APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator).%New()
+
+	Do $$$AssertFalse(..OfferteVoorBestellingValidator.IsGeldig(..OfferteStub,..#KlantID,..#PersonalityID))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Vhisie3 offerte zonder leverdatum en met ASAP is niet geldig">
+<Implementation><![CDATA[
+	#define NogNietBesteld 0
+	#define PrijzenVervallen 0
+	#dim LeverDatum As %String = ""
+
+	Do ..Init(LeverDatum,..#PersonalityID)
+	Do ..OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn("ASAP")
+	Do ..OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+
+	Set ..OfferteVoorBestellingValidator = ##class(APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator).%New()
+
+	Do $$$AssertFalse(..OfferteVoorBestellingValidator.IsGeldig(..OfferteStub,..#KlantID,..#PersonalityID))
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<FormalSpec>LeverDatum:%Date,PersonalityID:DOM.common.enu.Personality=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim IsBesteld As %Boolean = 0
+	#dim ZijnPrijzenVervallen As %Boolean = 0
+
+	Set ..OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	If PersonalityID '= ""{
+		Do ..OfferteStub.IndienMethodCall("GeefPersonalityID").DanReturn(PersonalityID)
+	} Else{
+		Do ..OfferteStub.IndienMethodCall("GeefPersonalityID").DanReturn(..#PersonalityID)
+	}
+	Do ..OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(..#KlantID)
+	Do ..OfferteStub.IndienMethodCall("GeefID").DanReturn(..#OfferteID)
+	Do ..OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn($$$DummyInteger)
+	Do ..OfferteStub.IndienMethodCall("IsBesteld").DanReturn(IsBesteld)
+	Do ..OfferteStub.IndienMethodCall("ZijnPrijzenVervallen").DanReturn(ZijnPrijzenVervallen)
+	Do ..OfferteStub.IndienMethodCall("GeefLeverDatum").DanReturn(LeverDatum)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>