Validatie(Datum)
	new Error set Error = ""
	if '$length(Datum) set Error = "Datum is vereist. "
	if Datum<$$Fetch^SD.EWORDSV.Datum() set Error=Error_"Verzenddatum mag niet kleiner zijn dan pickdatum. "
	If '$$ISARBDAG^vhRtn2(Datum) Set Error = Error_"Datum is geen werkdag. "
	quit Error

FetchInd()
	Quit $$Fetch()

Fetch()
	quit $P(sdVerzendWijze,D,5)

RecalcVerzendwijze()
	new blLeveringsTermijn,blVerzendWijze
 	new VerzendWijze set VerzendWijze = $$Fetch^SD.EWORDSV.Verzendwijze()
 	Set $P(^KOD(KLNr,"F",ORDNr,1),D,7)=VerzendWijze
 	#dim blVerzendWijze As APPS.VKP.VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(KLNr,VerzendWijze)
 	#dim blLeveringsTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New($$Fetch^SD.EWORDSV.Datum(),blVerzendWijze)
 	Set DueOutTime = blLeveringsTermijn.GetDueOutPickingTime()
 	Set IsVoorVandaag = (##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)=1)
  	Set GewenstePickDatum = $S(IsVoorVandaag:+$H,1:+$$CALCDATE^vhLib.DataTypes($H,"A",1))
 	Set VerzDat=blLeveringsTermijn.GetVroegsteLeverDag(+GewenstePickDatum)
	Set LaatstePickingTijdstip = blLeveringsTermijn.GetLaatstePickingsTijdstip(VerzDat)
	Set $P(sdVerzendWijze,D,1) = VerzendWijze
	Set $P(sdVerzendWijze,D,2) = LaatstePickingTijdstip
 	Set $P(sdVerzendWijze,D,3) = DueOutTime
 	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