Index: SD/EWORDSV/Verzendwijze.mac.rou
===================================================================
diff -u -r29059 -r70810
--- SD/EWORDSV/Verzendwijze.mac.rou	(.../Verzendwijze.mac.rou)	(revision 29059)
+++ SD/EWORDSV/Verzendwijze.mac.rou	(.../Verzendwijze.mac.rou)	(revision 70810)
@@ -19,7 +19,7 @@
  	If zb'="CANC",NieuweVerzendWijze'=VerzendWijze Do
  	. do Put(NieuweVerzendWijze) set %SC=1
  	. do Reset^SD.EWORDSV.Tijdstip
- 	. do Recalc^SD.EWORDSV.Verzenddatum()
+ 	. do RecalcVerzendwijze^SD.EWORDSV.Verzenddatum()
  	. do DISPLAY^vhScherm("EWORDSV",,,,"GERAAPT;VERZZONE;VERZDATUM")
  	quit
 
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
+ 
Index: SD/EWORDSV/Geraapt.mac.rou
===================================================================
diff -u -r29059 -r70810
--- SD/EWORDSV/Geraapt.mac.rou	(.../Geraapt.mac.rou)	(revision 29059)
+++ SD/EWORDSV/Geraapt.mac.rou	(.../Geraapt.mac.rou)	(revision 70810)
@@ -7,7 +7,7 @@
 PreEdit()
 	set sEr=-1  Set FP=2201  Write @F,@F1
  	For  Do FIELD^vhScherm("EWORDSV","DOUTDATE") Quit:X'?.N  Do FIELD^vhScherm("EWORDSV","DOUTTIME") Quit:X'="-"
- 	do Recalc^SD.EWORDSV.Verzenddatum()
+ 	do RecalcGeraapt^SD.EWORDSV.Verzenddatum()
  	do DISPLAY^vhScherm("EWORDSV",,,,"GERAAPT;VERZZONE;VERZDATUM")
  	Quit