ZetVerzendingWijze(ORDNr,VerzendingWijze)
	set $piece(B(1),"\",7)=VerzendingWijze
	Set VerzendingWijze=$P($P(VerzendingWijze,"#")," ")
	set UVZW=VerzendingWijze
	If ($Data(ORDNr))
	{
		new Order
		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
		do Order.ZetVerzendingWijze(VerzendingWijze)
		do Order.Save()
	}
	quit
	
GeefVerzendingWijze()
	quit $piece(B(1),"\",7)