Index: CHUI/MN/EWORDS.cls.xml
===================================================================
diff -u -r49783 -r49784
--- CHUI/MN/EWORDS.cls.xml	(.../EWORDS.cls.xml)	(revision 49783)
+++ CHUI/MN/EWORDS.cls.xml	(.../EWORDS.cls.xml)	(revision 49784)
@@ -14,8 +14,8 @@
 
 	Set OrderStaatVolledigBijVanHoeckeArray = ##class(%ArrayOfDataTypes).%New()
 	Set StartRef = Ref
-	Set R = ^HULP(%J,KLNr,"O",Ref)
-	Set ORDNr = $Piece(R,D)
+	
+	Set ORDNr = ..GeefOrderNummer()
 	Set Marked = ''$Data(^HULP(%J,KLNr,"M","A",ORDNr))
 
 	If 'Marked,'$$MagazijnBeschikbaar^EWORDS6(ORDNr,0) Quit:'$$^vhTXTPOP("EWORDS","MAGAZIJNNIETBESCHIKBAAR")
@@ -47,6 +47,19 @@
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrderNummer">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	New Data
+	
+	#dim Data As %String = ^HULP(%J, KLNr, "O", LD("SELECT"))
+	
+	Quit $Piece(Data, "\", 1)
+]]></Implementation>
+</Method>
 </Class>