Index: PRODUKT2.mac.rou
===================================================================
diff -u -r29059 -r33102
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 29059)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 33102)
@@ -745,6 +745,13 @@
 	Set ProductClassificatie = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr).GeefClassificatieKnoop()
 	Quit (ProductClassificatie.GeefID() = ##class(DOM.PM.enu.Classificatie).TAORCUBICOVERInzet())
 
+ ; Geeft TRUE voor het moeder-product; Voor de kind-producten (zijnde LBX of andere lades) geeft deze False terug. 
+IsSpaceTower(PRNr)
+	new ProductClassificatie
+	Set ProductClassificatie = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr).GeefClassificatieKnoop()
+	Quit (ProductClassificatie.GeefID() = ##class(DOM.PM.enu.Classificatie).SpaceTower())
+
+
  ;
  ; Is tandembox
 ISTBX(PRNr)