Adding "Alerts" cues and "My Alerts" to more role centres

Alerts provides cues and lists on a selection of role centres to quickly view unread alerts or failed alerts.

You can add these parts to any other role centre by integrating with Alerts via your own AL extension/app (see Development in AL).

Integrating with Alerts via an extension

1. Add a dependency to the Alerts app in your AL project. Make sure to use up-to-date values from extension management in Business Central.
   
2. Extend the required pages and add the parts in the example below
   

   pageextension 50000 OrderProcessorExt extends "Order Processor Role Center"
   {
       layout
       {
           addlast(RoleCenter)
           {
               part(AlertsPart; FSG_ALT_UserAlertPart)
               {
                   ApplicationArea = All;
               }
           }
       }
   }
   
   pageextension 50001 OrderProcessorActExt extends "SO Processor Activities"
   {
       layout
       {
           addlast(content)
           {
               cuegroup(AlertCues)
               {
                   Caption = 'Alerts';
   
                   field(UserUnreadAlerts; UserAlertCue.FSG_ALT_UserUnreadAlerts)
                   {
                       ApplicationArea = All;
                       Caption = 'My Unread Alerts';
                       StyleExpr = UnreadAlertStyle;
                       ToolTip = 'Specifies the current user''s unread alert entries.';
   
                       trigger OnDrillDown()
                       var
                           UserAlertEntry: Record FSG_ALT_UserAlertEntry;
                       begin
                           UserAlertEntry.OpenUserUnreadAlerts();
                       end;
                   }
   
                   field(FailedAlerts; UserAlertCue.FSG_ALT_FailedAlerts)
                   {
                       ApplicationArea = All;
                       Caption = 'Failed Alerts';
                       StyleExpr = UnreadAlertStyle;
                       ToolTip = 'Specifies the failed alert queue entries.';
   
                       trigger OnDrillDown()
                       var
                           AlertQueueEntry: Record FSG_ALT_AlertQueueEntry;
                       begin
                           AlertQueueEntry.OpenFailedAlerts();
                       end;
                   }
               }
           }
       }
       actions
       {
           addlast(Processing)
           {
               action(SetupCues)
               {
                   ApplicationArea = Basic, Suite;
                   Caption = 'Set Up Alert Cues';
                   Image = Setup;
                   ToolTip = 'Set up the cues (status tiles) for Alerts.';
   
                   trigger OnAction()
                   begin
                       UserAlertCue.OpenCueSetup();
                   end;
               }
           }
       }
   
       var
           UserAlertCue: Record FSG_ALT_UserAlertCue;
           UnreadAlertStyle: Text;
           FailedAlertStyle: Text;
   
   
       trigger OnOpenPage();
       begin
           UserAlertCue.InitUserAlertCue();
           UserAlertCue.SetMyUnreadAlertCueStyle(UnreadAlertStyle);
           UserAlertCue.SetFailedAlertCueStyle(FailedAlertStyle);
       end;
   }