Index: SD/EWORDSV/Verzenddatum.mac.rou
===================================================================
diff -u -r70771 -r70810
--- SD/EWORDSV/Verzenddatum.mac.rou	(.../Verzenddatum.mac.rou)	(revision 70771)
+++ SD/EWORDSV/Verzenddatum.mac.rou	(.../Verzenddatum.mac.rou)	(revision 70810)
@@ -12,7 +12,7 @@
 Fetch()
 	quit $P(sdVerzendWijze,D,5)
 
-Recalc()
+RecalcVerzendwijze()
 	new blLeveringsTermijn,blVerzendWijze
  	new VerzendWijze set VerzendWijze = $$Fetch^SD.EWORDSV.Verzendwijze()
  	Set $P(^KOD(KLNr,"F",ORDNr,1),D,7)=VerzendWijze
@@ -29,3 +29,9 @@
  	set $P(sdVerzendWijze,D,5)= blLeveringsTermijn.GetVroegsteLeverDag($$Fetch^SD.EWORDSV.Datum())
  	Quit
 
+RecalcGeraapt()
+	new blLeveringsTermijn 
+ 	#dim blLeveringsTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New($$Fetch^SD.EWORDSV.Datum(),blVerzendWijze)
+ 	set $P(sdVerzendWijze,D,5)= blLeveringsTermijn.GetVroegsteLeverDag($$Fetch^SD.EWORDSV.Datum())
+ 	Quit
+