Fetch()
	quit ""

FetchInd()
	quit $$FetchInd^SD.EWORDSV.Datum()_" - "_$$FetchInd^SD.EWORDSV.Tijdstip()
	
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 RecalcGeraapt^SD.EWORDSV.Verzenddatum()
 	do DISPLAY^vhScherm("EWORDSV",,,,"GERAAPT;VERZZONE;VERZDATUM")
 	Quit