Index: MRPRES.mac.rou
===================================================================
diff -u -r69301 -r69431
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 69301)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 69431)
@@ -291,7 +291,7 @@
  ... Set SubMag=$P(@CRef@("TO",PRNr,FabKey,HFCode),D,2)
  ... Set:SubMag="" SubMag=$$GetVerzendCode(PRNr,FabKey)
  ... Set:SubMag="" SubMag="~"
- ... If SubMag="Y" Do ; MyLegrabox
+ ... If (SubMag="Y")||(SubMag="W") Do ; MyLegrabox of SpecialWorkShop
  .... Set @CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr)=$G(@CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr))+Qty
  .... Set @CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr,FabKey,HFCode)=Qty
  ... Else  Do