Index: APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u -r39991 -r40000
--- APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 39991)
+++ APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 40000)
@@ -34,22 +34,13 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	if (VerzendWijze = "")
-	{
-		Set VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
-	}
+	Set:(VerzendWijze = "") VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
 	
-	#Dim VroegsteLeverDatumsPerLijn as %ListOfDataTypes
-	Set VroegsteLeverDatumsPerLijn = ..LeverDatumBepaler.GeefLeverdatumPerLijn(Winkelkar,VerzendWijze)
-
-	#Dim DatumIterator as TECH.ArrayOneDimIterator = ##class(TECH.ArrayOneDimIterator).%New(VroegsteLeverDatumsPerLijn)
-	if VroegsteLeverDatumsPerLijn.Count(){
-		#Dim Datum as %Date
-		Set ..VroegsteLeverdatum = DatumIterator.Next()
-		While DatumIterator.HasNext(){
-			Set Datum = DatumIterator.Next()
-			Set:(Datum > ..VroegsteLeverdatum) ..VroegsteLeverdatum = Datum
-		}
+	Set ..VroegsteLeverdatum = ""
+	Set DatumPerLijnIterator = ##class(TECH.ListIterator).%New(..LeverDatumBepaler.GeefLeverdatumPerLijn(Winkelkar,VerzendWijze))
+	While DatumPerLijnIterator.HasNext() {
+		#dim Datum As %Date = DatumPerLijnIterator.Next()
+		Set:(Datum > ..VroegsteLeverdatum) ..VroegsteLeverdatum = Datum
 	}
 	Quit ..VroegsteLeverdatum
 ]]></Implementation>
@@ -59,11 +50,8 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,VerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	if (VerzendWijze = "")
-	{
-		Set VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
-	}
-	quit ..LeverDatumBepaler.GeefLeverdatumPerLijn(Winkelkar,VerzendWijze)
+	Set:(VerzendWijze = "") VerzendWijze = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar)	
+	Quit ..LeverDatumBepaler.GeefLeverdatumPerLijn(Winkelkar,VerzendWijze)
 ]]></Implementation>
 </Method>
 </Class>