;SD.EWORDSV.VerzendWijze

Validatie(VerzendWijze)
	new Error set Error=""
	if '$length(VerzendWijze) Set Error = "Verzendwijze is verplicht"
	quit Error

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

FetchInd(VerzendWijze)
	quit $select(VerzendWijze="":"",1:$$SHOW^KLVERZW(,,,VerzendWijze,,,1))
	
PreEdit(VerzendWijze)
	new zb,NieuweVerzendWijze,MultSel,Compact
 	set sEr=-1
 	Set MultSel=0_";0",Compact=0,FP=2201 Write @F,@F1
 	Set NieuweVerzendWijze = $$SELECT^KLVERZW(VerzendWijze,MultSel,Compact)
 	If zb'="CANC",NieuweVerzendWijze'=VerzendWijze Do
 	. do Put(NieuweVerzendWijze) set %SC=1
 	. do Reset^SD.EWORDSV.Tijdstip
 	. do RecalcVerzendwijze^SD.EWORDSV.Verzenddatum()
 	. do DISPLAY^vhScherm("EWORDSV",,,,"GERAAPT;VERZZONE;VERZDATUM")
 	quit

Put(VerzendWijze)
	set $piece(sdVerzendWijze,D,1)=VerzendWijze
	quit