Validatie(Horolog)
	new Error set Error = ""
	If '$$ISARBDAG^vhRtn2(Horolog) Set Error = "Datum is geen werkdag."
	quit Error

FetchInd()
	quit $$EXTDATE^vhLib.DataTypes($$Fetch())
	
PreEdit()
	quit $$Fetch()
	
Put(Value)
	set $P(sdVerzendWijze,D,2)=Value
	quit
	
Help1()
	quit "[] = "_$$FetchInd()
	
Fetch()
	new DueOutDate set DueOutDate = $P(sdVerzendWijze,D,2)
	if '$length(DueOutDate) set DueOutDate=+$H
 	quit DueOutDate