Index: FLOWORD.mac.rou
===================================================================
diff -u -r33318 -r33688
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 33318)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 33688)
@@ -191,6 +191,7 @@
  
  Quit:$O(^KOD(KLNr,"F",ORDNr,100))=""
  Quit:##class(TECH.StringUtils).Equals(KLNr,$$$KlantKeller,$$$KlantDKGDeKeukenfabriek,$$$KlantDedecker)
+ Quit:(##class(DOM.VKP.Order.impl.OrderInhoudService).%New().BevatSpaceTowerProduct(ORDNr))
  Set R=^KOD(KLNr,"F",ORDNr,1),KredLock=$P(R,D,23)
  Quit:KredLock=1
  Set %J=$$%J^vhRtn1()
@@ -237,7 +238,7 @@
  ..Set LEVNr=$P($G(^KTO1(TOENr)),D)
  ..Quit:'LEVNr
  ..Set R=^KTO(LEVNr,TOENr,TLNr)
- ..Set $P(R,D,28)=OLNr,^KTO(LEVNr,TOENr,TLNr)=R
+ ..Set $P(R,D,28)=OLNr,^KTO(LEVNr,TOENr,TLNr)=R   ; indien spacetower, dan meerdere toelev-lijnen aanpassen, dus niet alleen deze lijn waarnaar verwezen wordt vanuit het order. 
  ..If $D(^KTOK(LEVNr,TOENr,TLNr)) Set R=^KTOK(LEVNr,TOENr,TLNr),$P(R,D,5)=OLNr,^KTOK(LEVNr,TOENr,TLNr)=R
  Set ^KOD(KLNr,"F",ORDNr,0)=OLNr+1
  Lock -^OD("SORT",ORDNr)