#LOOP(#SubCategories) #LOCAL("SHOW",1) #LOOP(#ObjectsToMove) #IF(#ListObjectID EQ #ID) #SET("SHOW",0) #ENDIF #ENDLOOP #IF(#SHOW)#IF(#ID != #Current) #IF(#CHILD_CLASSES_ALLOWED(#Object))#ENDIF#ENDIF #INCLUDE("SubCategories") #ENDIF #ENDLOCAL #ENDLOOP