Index: CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml
===================================================================
diff -u -r49787 -r49801
--- CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49787)
+++ CHUI/VKP/OrderIngave/OrderMarkeerder/Helper.cls.xml	(.../Helper.cls.xml)	(revision 49801)
@@ -22,6 +22,48 @@
 <Implementation><![CDATA[	Quit $$^vhTXTPOP("EWORDS","MAGAZIJNNIETBESCHIKBAAR")
 ]]></Implementation>
 </Method>
+
+<Method name="MarkeerOrder">
+<FormalSpec>OrderNummer:%Integer,Marked:%Boolean</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(42).String("MarkeerOrder:::" _ LD("SELECT") _ "|||||" _ %J _ "|||||" _ KLNr _ "|||||" _ ORDNr _ "|||||" _ OrderNummer)
+	
+	New Ref, StartRef
+	
+	Set Ref = LD("SELECT")
+	Set StartRef = Ref
+	
+	new R, IsNodigControleerBezwaren, GaVerder, VerzW
+	New OLNr, Quit, OLUNr, AskLink
+	
+	Set R = ^KOD(KLNr, "F", ORDNr, 1)
+	Set VerzW = $Piece($$DEFAULT^KLVERZW(, KLNr, ORDNr), ";")
+
+	If '$D(^HULP(%J,KLNr,"M")),VerzW'=$P($G(^HULP(%J,KLNr,"V")),D) Do MODVERZW^EWORDS(VerzW)
+	
+	#dim IsNodigControleerBezwaren As %Boolean = $$$True
+	#dim GaVerder As %Boolean = $$$True
+
+	If $$CUMORD^EWORDS3(.Ref) Do
+	. If 'Marked,$$CHKLINK^EWORDS5(ORDNr) Set AskLink=$$ASKLINK^EWORDS5(ORDNr) If AskLink'=ORDNr Do:AskLink'="A" SERIE^EWORDS5("LINK",ORDNr,"L") Quit
+	. For  Set Ref=$O(^HULP(%J,KLNr,"O",Ref)) Quit:Ref=""  Do  Quit:Quit
+	. . Quit:$$$Not(GaVerder)
+	. . Set R = ^HULP(%J, KLNr, "O", Ref)
+	. . Set Quit = $$$Not(ORDNr = $Piece(R, D))
+	. . Set OLNr = $Piece(R, D, 11)
+	. . Set OLUNr = $Piece(R, D, 19)
+	. . Quit:Quit
+	. . If Marked!('Marked&'$D(^HULP(%J,KLNr,"M","A",ORDNr,OLUNr))) Do
+	. . . Do MARKLINE^EWORDS5(.Ref,1+Marked,Marked,IsNodigControleerBezwaren,.GaVerder)
+	. . . Set IsNodigControleerBezwaren = 0
+	. . Else  Do LINE^vhLIST(.LD,LD("SELECT")) Do MOVE^vhLIST(.LD,"DO","")
+	. Do:Marked LINE^vhLIST(.LD,LD("SELECT")) Do MOVE^vhLIST(.LD,"DO","")
+	. If LD("SELECT")=LD("MAX") Set LD("SELECT")=StartRef Do LINE^vhLIST(.LD,LD("SELECT"))
+	
+	Quit
+]]></Implementation>
+</Method>
 </Class>