Index: EWORDSW.mac.rou
===================================================================
diff -u -r68334 -r68822
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 68334)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 68822)
@@ -3,6 +3,37 @@
  #Include BL.Derde.KlantSpecifiek
  #include Prod.Product
  ; 
+
+RESETONE(CONSNr) ; alleen de OBJT lijnen van een Picking (SOFTV = 'V'
+    If $G(CONSNr)="" Do
+    .Read "CONSOLIDATIE NR : ",CONSNr
+    Quit:CONSNr'?6N
+    Quit:'$D(^ORDW("D",CONSNr))
+    Set ORDNr=""
+    For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do 
+    . Set OLUNr=""
+    . For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
+    . . Set SOLNr=""
+    . . Set IsObjt=0
+    . . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
+    . . . Set Rec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)
+    . . . If $P(Rec,D,13)="V" Do
+    . . . . Set $P(Rec,D,2)="W" ;W
+    . . . . Set $P(Rec,D,4)="" ; blanko
+    . . . . Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)=Rec 
+    . . . . Set IsObjt=1
+    . . Set Rec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
+    . . If IsObjt Do
+    . . . Set $P(Rec,D,2)="W" ;W
+    . . . Set $P(Rec,D,3)=""
+    . . . Set $P(Rec,D,5)=""
+    . . . Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr)=Rec 
+    . Set Rec=^ORDW("D",CONSNr)
+    . Set $P(Rec,D,20)="W"
+    . Set $P(Rec,D,21)=""
+    . Set ^ORDW("D",CONSNr)=Rec 
+    Set ^ORDW("D",CONSNr,"S","V") ="W"
+    Quit
  
 CLEARONE(CONSNr)
 	If $G(CONSNr)="" Do