Index: BL/Legacy/Order.cls.xml
===================================================================
diff -u -r64382 -r65926
--- BL/Legacy/Order.cls.xml	(.../Order.cls.xml)	(revision 64382)
+++ BL/Legacy/Order.cls.xml	(.../Order.cls.xml)	(revision 65926)
@@ -132,6 +132,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatOrderDataInKOD">
+<Description>
+ByRef KlantId : indien een order bestaat (input KlantId = ""), dan zal de KlantId ingevuld worden. 
+Verschil met voorgaande method 'GeefKlantNrVanBestaandOrder()' is dat je hier niet weet of de OrderData bestaat (in ^KOD) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[OrderId:%String,&KlantId:%String=""]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGevondenInKOD As %Boolean = $$$False
+	If KlantId = "" {
+		// Eerst KlantId proberen te bepalen 
+		Set KlantId = ""
+		For {
+			Set KlantId = $Order(^KOD(KlantId))  
+			Quit:(KlantId = "")
+			Quit:($Data(^KOD(KlantId,"F",OrderId)) > 0)
+		}
+	}
+
+	If $$$HasLength(KlantId) {
+		Set IsGevondenInKOD = ($Data(^KOD(KlantId,"F",OrderId)) > 0)
+	}
+
+	Quit IsGevondenInKOD
+]]></Implementation>
+</Method>
+
+<Method name="IsOrderDataConsistent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String,OrderId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Data(^KOD(KlantId,"F",OrderId)) > 0) && ($Piece($Get(^KO1(OrderId,"F")),"\",1) = KlantId)
+]]></Implementation>
+</Method>
+
 <Method name="RebuildIndexKOD">
 <Description>
 De indexen "IU" en "IP" in ^ORD opbouwen voor een gegeven order (van klant)
@@ -186,6 +221,7 @@
 				}
 			}
 		
+			Set:($G(^KO1(OrderID,"F"))="") ^KO1(OrderID,"F")="\"
 			Set $P(^KO1(OrderID,"F"),"\",1)=KlantNr
 			Set $P(^KOB(OrderID,"F"),"\",1)=KlantNr
 			Set ^KO2("F",KlantNr,OrderID)=""   ; TO DO : aanvullen met indexen ^KO3, ^KO4, ^KO5, ...