Index: CHUI/VKP/OrderIngave/OrderControle.cls.xml
===================================================================
diff -u -r51217 -r51244
--- CHUI/VKP/OrderIngave/OrderControle.cls.xml	(.../OrderControle.cls.xml)	(revision 51217)
+++ CHUI/VKP/OrderIngave/OrderControle.cls.xml	(.../OrderControle.cls.xml)	(revision 51244)
@@ -4,13 +4,9 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="IsOrderVolledigGemarkeerd">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>KlantNummer:%String,OrderNummer:%Integer</FormalSpec>
+<FormalSpec>Index:%Integer,KlantNummer:%String,OrderNummer:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	// gemarkeerde lijnen  	^HULP(516000001,4689,"M","A",148125,100)	= 	"10\\63305"
-	// KOD lijnen
-	
 	#dim IsVolledigGemarkeerd As %Boolean = $$$True
 	
 	#dim OrderApi As DOM.VKP.impl.DataM.DataMOrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
@@ -21,21 +17,18 @@
 	While (OrderLijnIterator.HasNext() && IsVolledigGemarkeerd) {
 		#dim OrderLijn As DOM.VKP.Orderlijn = OrderLijnIterator.Next()
 		
-		Do ##class(Tools.Wlip).%New(42).String("orderlijn:" _ OrderLijn.GeefLijnVolgNr() _ " ||| " _ OrderLijn.GeefID())
-		
-		;Set IsVolledigGemarkeerd = heefthulpdata
-		
-		//If ($Data(
-			
+		Set IsVolledigGemarkeerd = ..IsLijnGemarkeerd(Index, KlantNummer, OrderNummer, OrderLijn.GeefID())	
 	}
+	
+	Quit IsVolledigGemarkeerd
 ]]></Implementation>
 </Method>
 
-<Method name="HeeftHulpData">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>OrderNummer:%Integer,OLU</FormalSpec>
+<Method name="IsLijnGemarkeerd">
+<FormalSpec>Index:%Integer,KlantNummer:%String,OrderNummer:%Integer,OrderLijnId:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1 //$Data(^HULP(,,"M","A", OrderNummer, OLU))
+<Implementation><![CDATA[	Quit $Data(^HULP(Index, KlantNummer,"M","A", OrderNummer, OrderLijnId))
 ]]></Implementation>
 </Method>
 </Class>