Index: CHUI/MN/EWORDS.cls.xml
===================================================================
diff -u
--- CHUI/MN/EWORDS.cls.xml	(revision 0)
+++ CHUI/MN/EWORDS.cls.xml	(revision 49783)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.MN.EWORDS">
+<ProcedureBlock>0</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="IsVolledigOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Ref</FormalSpec>
+<Implementation><![CDATA[
+	New R,ORDNr,OLNr,Quit,Marked,OLUNr,StartRef,VerzW,AskLink
+	New OrderStaatVolledigBijVanHoeckeArray
+	New IsNodigControleerBezwaren, GaVerder, IsOrderVolledigGemarkeerd
+
+	Set OrderStaatVolledigBijVanHoeckeArray = ##class(%ArrayOfDataTypes).%New()
+	Set StartRef = Ref
+	Set R = ^HULP(%J,KLNr,"O",Ref)
+	Set ORDNr = $Piece(R,D)
+	Set Marked = ''$Data(^HULP(%J,KLNr,"M","A",ORDNr))
+
+	If 'Marked,'$$MagazijnBeschikbaar^EWORDS6(ORDNr,0) Quit:'$$^vhTXTPOP("EWORDS","MAGAZIJNNIETBESCHIKBAAR")
+
+	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>
+
+
+</Export>