Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u -r49776 -r49871
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 49776)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 49871)
@@ -89,7 +89,7 @@
 		Set OLNr=100
 		For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 		.Set R=^KOD(KLNr,"F",ORDNr,OLNr)
-		.Do SWNODE^FLOWORD2(KLNr, ORDNr, OLNr)
+		.Do UPDATEWNODE^FLOWORD2(KLNr, ORDNr, OLNr)
 		.Set:$P(R,"\",27) TLNr($P(R,"\",27))=""
 		Set TLNr=""
 		For  Set TLNr=$O(TLNr(TLNr)) Quit:TLNr=""  Do TSPLIT^FLOWTOE(TLNr)
Index: FLOWORD2.mac.rou
===================================================================
diff -u -r38012 -r49871
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 38012)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 49871)
@@ -375,6 +375,23 @@
  Do BUILDORD^FLOWORD3(KLNr,ORDNr,OLNr)
  Quit
  ;
+ 
+UPDATEWNODE(KLNr,ORDNr,OLNr) 
+ New R,Index,Data,PRNr,LevWk,Kom,Qty,OrdRef
+ Set R=$$GWNODE(KLNr,ORDNr,OLNr) Quit:R=""
+ Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Data=$P(R,"`",3)
+ Quit:'PRNr
+ Set Qty=$P(Data,D,4)
+ Set R=^KOD(KLNr,"F",ORDNr,1),OrdRef=$P(R,D,3)
+ Set R=^KOD(KLNr,"F",ORDNr,OLNr)
+ Set:'Qty Qty=$P(R,D,3)
+ Set Data=Qty_D_$P(R,D,25)_D_($P(R,D,27)'="")
+ Set ^KPR(PRNr,Index)=Data,^KPR(PRNr,"W")=""
+ ;Do MODRES(KLNr,ORDNr,OLNr) 
+ Do BUILDORD^FLOWORD3(KLNr,ORDNr,OLNr)
+ Quit
+ ;
+
 MODRES(KLNr,ORDNr,OLNr,Negatief) 
  New R,OrdTyp,PRNr,Aantal,ModRes,LevTerm,Type,TOENr
  Set Negatief=$G(Negatief),OrdTyp=$P(^KOD(KLNr,"F",ORDNr,1),D,25)
@@ -832,4 +849,3 @@
 
 
 
-