Index: FLOWORD3.mac.rou
===================================================================
diff -u -r60710 -r66256
--- FLOWORD3.mac.rou	(.../FLOWORD3.mac.rou)	(revision 60710)
+++ FLOWORD3.mac.rou	(.../FLOWORD3.mac.rou)	(revision 66256)
@@ -12,7 +12,13 @@
  .Set TOENr=$P(R,D,27),TLLNr=$P($P(R,D,28),";")
  .Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  .Do REMOVE^vhLock("^KPR(PRNr)")
- .If 'Extern,TOENr Do DELLINE^FLOWTOE3(TOENr,TLLNr,1),CHKDEL^FLOWTOE3(TOENr)
+ .If 'Extern,TOENr Do 
+ ..If (##class(DOM.PM.impl.ProductTypeAPIimpl).%New().IsSpaceTowerProduct(PRNr)) Do
+ ...Set LEVNr=$P(^KTO1(TOENr),D),TLLNr=100
+ ...For  Set TLLNr=$O(^KTO(LEVNr,TOENr,TLLNr)) Quit:TLLNr=""  Do DELLINE^FLOWTOE3(TOENr,TLLNr,1)
+ ...Do CHKDEL^FLOWTOE3(TOENr)
+ ..Else
+ ...Do DELLINE^FLOWTOE3(TOENr,TLLNr,1),CHKDEL^FLOWTOE3(TOENr)
  .Kill AkpVkpVerlies(OLUNr)
  Do ProductOrderLijnAnnulatie^FLOWORD2(KLNr,ORDNr,OLNr)
  Kill ^KOD(KLNr,"F",ORDNr,OLNr)