Index: BL/Legacy/Order.cls.xml
===================================================================
diff -u -r33699 -r64372
--- BL/Legacy/Order.cls.xml	(.../Order.cls.xml)	(revision 33699)
+++ BL/Legacy/Order.cls.xml	(.../Order.cls.xml)	(revision 64372)
@@ -179,6 +179,7 @@
 						// Warning tonen ! 
 					}
 					Else {
+						Do ..UpdateProductWNode(KlantNr,OrderID,LijnNr)
 						Set ^ORD("IU",OrderID,OrderlijnUniekNr)=LijnNr
 						Set ^ORD("IP",ProductID,OrderID,OrderlijnUniekNr)=LijnNr
 					}
@@ -199,6 +200,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateProductWNode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%String,OrderID:%String,LijnNr:%String</FormalSpec>
+<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)
+]]></Implementation>
+</Method>
+
 <Method name="RebuildAllIndexFromKO1">
 <Description>
 Oproepen via :