Validatie(Tijdstip)
	new Error set Error=""
	quit Error

FetchInd()
	quit $$EXTTIME^vhLib.DataTypes($$Fetch())
	
PreEdit()
	quit $$Fetch()
	
Clear()
	do Put("")

Put(Tijdstip)
	set $P(sdVerzendWijze,D,3)=Tijdstip
	Do ##class(vhLib.Logger).%New("EWORDSV").Info("EditVerzwOfGeraapt","Pickingtijdstip van order '"_ORDNr_"' aangepast naar '"_Tijdstip_"'")
	quit
	
Help1()
	quit "[] = "_$$FetchInd()

Fetch()
	new DueOutTime set DueOutTime = $P(sdVerzendWijze,D,3)
 	if '$length(DueOutTime) {
 		new VerzWijze set VerzWijze = $$Fetch^SD.EWORDSV.Verzendwijze()
		if $length(VerzWijze) set DueOutTime = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefVerzendwijze(VerzWijze).DueOutMagazijn
	}
 	quit DueOutTime
 	
Reset()
	do Clear
	do Put($$Fetch)
	quit