add value help as tree table

Author: etimr

app/admin/fiori-service.cds

@@ -54,6 +54,33 @@ annotate AdminService.Books with @(UI : {
     ]}
 });
 
+// Add Value Help for Tree Table
+annotate AdminService.Books with {
+    genre @(Common: {
+        Label    : 'Genre',
+        ValueList: {
+            CollectionPath              : 'GenreHierarchy',
+            Parameters                  : [
+            {
+                $Type            : 'Common.ValueListParameterDisplayOnly',
+                ValueListProperty: 'name',
+            }],
+            PresentationVariantQualifier: 'VH',
+        }
+    });
+}
+
+annotate AdminService.GenreHierarchy with @UI: {
+    PresentationVariant #VH: {
+        $Type                      : 'UI.PresentationVariantType',
+        Visualizations             : ['@UI.LineItem'],
+        RecursiveHierarchyQualifier: 'AdminHierarchy'
+    },
+    LineItem               : [{
+        $Type: 'UI.DataField',
+        Value: name,
+    }]
+};
 
 ////////////////////////////////////////////////////////////
 //

app/common.cds

@@ -177,7 +177,9 @@ annotate my.Genres with
     UI : {
         SelectionFields : [name],
         LineItem : [
-            {Value : name}
+            {Value : name,
+            Label : '{i18n>Name}',
+            },
         ],
     }
 );

db/books.cds

@@ -2,7 +2,6 @@ namespace my.bookshop;
 
 using {
     Currency,
-    sap,
     managed,
     cuid
 } from '@sap/cds/common';
@@ -46,9 +45,11 @@ annotate Authors with
 /**
  * Hierarchically organized Code List for Genres
  */
-entity Genres : sap.common.CodeList {
+entity Genres {
     key ID      : Integer;
     node        : Integer not null;
     parent_node : Integer default 0;
+    name        : localized String(255);
+    descr       : localized String(1000);
     parent      : Association to one Genres on parent.node = parent_node;
 }

srv/cat-service.cds

@@ -13,6 +13,9 @@ service CatalogService @(requires: 'any') {
     @readonly
     entity Authors     as projection on my.Authors;
 
+    @readonly
+    entity Genres     as projection on my.Genres;
+
     @readonly
     entity Reviews     as projection on my.Reviews;
 

srv/genres.cds

@@ -6,6 +6,7 @@ aspect Hierarchy {
   virtual DrillState             : String;
   virtual Matched                : Boolean;
   virtual MatchedDescendantCount : Integer64;
+  virtual LimitedRank            : Integer64;
 }
 
 
@@ -14,13 +15,15 @@ annotate Hierarchy with @Capabilities.FilterRestrictions.NonFilterableProperties
   'DistanceFromRoot',
   'DrillState',
   'Matched',
-  'MatchedDescendantCount'
+  'MatchedDescendantCount',
+  'LimitedRank'
 ];
 
 annotate Hierarchy with @Capabilities.SortRestrictions.NonSortableProperties: [
   'LimitedDescendantCount',
   'DistanceFromRoot',
   'DrillState',
   'Matched',
-  'MatchedDescendantCount'
+  'MatchedDescendantCount',
+  'LimitedRank'
 ];

srv/review-service.cds

@@ -13,6 +13,9 @@ service ReviewService {
     @readonly
     entity Authors as projection on my.Authors;
 
+    @readonly
+    entity Genres     as projection on my.Genres;
+
     // access control restrictions
     annotate Reviews with @restrict : [
         {