Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r50806 -r50829
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50806)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50829)
@@ -269,9 +269,12 @@
  Set $P(^KPR(PRNr,0),D,17)=R
  
  ; Stock reservatie
- Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _$P(^KPR(PRNr,2),D,9))
+ Set R = $P(^KPR(PRNr,2),D,9)
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _R)
+ Set $P(R,"#",3)=$P(R,"#",3)+$P(R,"#",2)
+ Set $P(R,"#",2)=0
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _R)
  Set $P(^KPR(PRNr,2),D,9)=R
- Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _$P(^KPR(PRNr,2),D,9))
  
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Set ^KTO3(TLNr,$P(R,D,13,14)_D_TLLNr)=""