Index: FLOWORD7.mac.rou
===================================================================
diff -u -r50195 -r50407
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 50195)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 50407)
@@ -554,7 +554,7 @@
  Set $P(^KOD(KLNr,"F",ORDNr,OLNr),D,27,28)=TOENr_D_TLNr
  Set $P(^KTO(LEVNr,TOENr,TLNr),D,27,28)=ORDNr_D_OLNr
  Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
- Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do BSSWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  Quit
  
@@ -568,7 +568,7 @@
  Do:$$INTDATE^vhLib.DataTypes(NewLevTToe,"DW")>$$INTDATE^vhLib.DataTypes(LevTToe,"DW")
  . Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  . Set $P(^KTO(LEVNr,TOENr,TLNr),D,25)=NewLevTToe
- . Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ . Do BSSWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  . Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
  Quit
  
Index: FLOWTOE.mac.rou
===================================================================
diff -u -r29059 -r50407
--- FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 29059)
+++ FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 50407)
@@ -341,6 +341,10 @@
  Do SWNODE^FLOWTOE2(LEVNr,TLNr,TLLNr)
  Quit
  ;
+BSSWNODE(LEVNr,TLNr,TLLNr) 
+ Do BSSWNODE^FLOWTOE2(LEVNr,TLNr,TLLNr)
+ Quit
+ ;
 MODBEST(LEVNr,TOENr,TLNr,Negatief) 
  Do MODBEST^FLOWTOE2(LEVNr,TOENr,TLNr,$G(Negatief))
  Quit
Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r50241 -r50407
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50241)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50407)
@@ -216,6 +216,31 @@
  Do DELTO^FLOWTOE3(LEVNr,TLNr,TLLNr)
  Quit
  ;
+ 
+BSSWNODE(LEVNr,TLNr,TLLNr) 
+ New R,Date,Index,Data,PRNr,LevWk,Kom,Qty,ToeRef
+ Set R=$$GWNODE(LEVNr,TLNr,TLLNr) Quit:R=""
+ Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Data=$P(R,"`",3)
+ Quit:'PRNr
+ Set Qty=$P(Data,D,4)
+ Set R=^KTO(LEVNr,TLNr,1),Date=$P(R,D,2),ToeRef=$P(R,D,3)
+ Set R=^KTO(LEVNr,TLNr,TLLNr)
+ 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
+ 
+ Set R=^KTO(LEVNr,TLNr,TLLNr)
+ Set ^KTO3(TLNr,$P(R,D,13,14)_D_TLLNr)=""
+ Do BUILDTO^FLOWTOE3(LEVNr,TLNr,TLLNr)
+ Quit
+ ;
+ 
 SWNODE(LEVNr,TLNr,TLLNr) 
  New R,Date,Index,Data,PRNr,LevWk,Kom,Qty,ToeRef
  Set R=$$GWNODE(LEVNr,TLNr,TLLNr) Quit:R=""
@@ -245,6 +270,7 @@
  Do BUILDTO^FLOWTOE3(LEVNr,TLNr,TLLNr)
  Quit
  ;
+ 
 MODBEST(LEVNr,TOENr,TLNr,Negatief) 
  New R,PRNr,Aantal,Type,ORDNr
  Set Negatief=$G(Negatief),R=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(R,D,2)