Index: BL/Legacy/Order.cls.xml
===================================================================
diff -u -r64372 -r64382
--- BL/Legacy/Order.cls.xml	(.../Order.cls.xml)	(revision 64372)
+++ BL/Legacy/Order.cls.xml	(.../Order.cls.xml)	(revision 64382)
@@ -206,13 +206,15 @@
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	New D,U,Q
-	
-	Set D = $get(D,"\")
-	Set U = $get(U,";")
-	Set Q = $get(Q,"K")
-	
-	Do UPDATEWNODE^FLOWORD2(KlantNr,OrderID,LijnNr)
+	If $$$aHasData(^KOD(KlantNr,"F",OrderID,1)) {
+
+		New D,U,Q
+		Set D = $get(D,"\")
+		Set U = $get(U,";")
+		Set Q = $get(Q,"K")
+		
+		Do UPDATEWNODE^FLOWORD2(KlantNr,OrderID,LijnNr)
+	}
 ]]></Implementation>
 </Method>