Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r38012 -r50241
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 38012)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50241)
@@ -227,11 +227,19 @@
  Set:'Qty Qty=$P(R,D,3)
  Set Data=Date_D_LEVNr_D_ToeRef_D_Qty_D_$P(R,D,3)_D_$P(R,D,25)_D_($P(R,D,27)'="")
  Set ^KPR(PRNr,Index)=Data,^KPR(PRNr,"W")=""
+ 
  ; Theoretische stock
  Set Qty=$P(R,D,3),Kom=($P(R,D,27)'="")
  Set R=$P(^KPR(PRNr,0),D,17)
  Set $P(R,"#")=$P(R,"#")+Qty,$P(R,"#",Kom+2)=$P(R,"#",Kom+2)+Qty
  Set $P(^KPR(PRNr,0),D,17)=R
+ 
+ ; Stock reservatie
+ Set R=$P(^KPR(PRNr,2),D,9)
+ Set $P(R,"#",2)=$P(R,"#",2)-Qty
+ Set $P(R,"#",Kom+2)=$P(R,"#",Kom+2)+Qty
+ Set $P(^KPR(PRNr,2),D,9)=R
+ 
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Set ^KTO3(TLNr,$P(R,D,13,14)_D_TLLNr)=""
  Do BUILDTO^FLOWTOE3(LEVNr,TLNr,TLLNr)
@@ -408,4 +416,3 @@
  }
  Quit
  ;
-