Index: vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml	(revision 44411)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.common.VKP.MogelijkeLeverdatumsBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: IsAsapMogelijk is niet van toepassing als er 1 vroegsteleverdatum is">
+<Implementation><![CDATA[
+	Set VroegsteLeverdatumList = ##class(%ListOfDataTypes).%New()
+	Do VroegsteLeverdatumList.Insert("64533")
+
+	Do ..AssertIsAsapMogelijk(VroegsteLeverdatumList, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsAsapMogelijk is niet van toepassing als er meerdere, maar geen verschillende vroegsteleverdatums zijn">
+<Implementation><![CDATA[
+	Set VroegsteLeverdatumList = ##class(%ListOfDataTypes).%New()
+	Do VroegsteLeverdatumList.Insert("64533")
+	Do VroegsteLeverdatumList.Insert("64533")
+
+	Do ..AssertIsAsapMogelijk(VroegsteLeverdatumList, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsAsapMogelijk is van toepassing als er 2 verschillende vroegsteleverdatums zijn">
+<Implementation><![CDATA[
+	Set VroegsteLeverdatumList = ##class(%ListOfDataTypes).%New()
+	Do VroegsteLeverdatumList.Insert("64533")
+	Do VroegsteLeverdatumList.Insert("64534")
+
+	Do ..AssertIsAsapMogelijk(VroegsteLeverdatumList, $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsAsapMogelijk is van toepassing als er meer dan 1 verschillende vroegsteleverdatums zijn">
+<Implementation><![CDATA[
+	Set VroegsteLeverdatumList = ##class(%ListOfDataTypes).%New()
+	Do VroegsteLeverdatumList.Insert("64533")
+	Do VroegsteLeverdatumList.Insert("64534")
+	Do VroegsteLeverdatumList.Insert("64535")
+	Do VroegsteLeverdatumList.Insert("64536")
+
+	Do ..AssertIsAsapMogelijk(VroegsteLeverdatumList, $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="AssertIsAsapMogelijk">
+<FormalSpec>VroegsteLeverdatumList:%ListOfDataTypes,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set VerzendWijzeBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
+	Do VerzendWijzeBepalerStub.IndienMethodCall("GeefVerzendWijze", $$$ElkeWaarde).DanReturn("")
+	
+	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VroegsteLeverdatumList)
+	
+	Set MogelijkeLeverdatumsBepaler = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New(VerzendWijzeBepalerStub, VroegsteLeverDatumBepalerStub)
+	
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+	
+	Do $$$AssertEquals(MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar), VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44359 -r44411
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44359)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44411)
@@ -51,7 +51,16 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..GeefVerzendWijze(Winkelkar, LeverAdres)
-	Quit (..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar, VerzendWijze).Count()>1)
+	
+	Set FreqTabel = ##class(TECH.FrequentieTabel).%New()
+	
+	#dim VroegsteLeverdatumList As %ListOfDataTypes = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar, VerzendWijze)
+	#dim VroegsteLeverDatumIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VroegsteLeverdatumList)
+	While VroegsteLeverDatumIterator.HasNext() {
+		Do FreqTabel.Verhoog(VroegsteLeverDatumIterator.Next())
+	}
+	
+	Quit (FreqTabel.GeefAantalVerschillendeItems()>1)
 ]]></Implementation>
 </Method>