Extending Gold Role Centres with new elements

Adding new elements such as actions, cues, and parts to role centres requires you to create your own AL extension/app (see Development in AL). Below are the standard pages and cue tables we have extended in Gold Role Centres, you can add your own elements by extending these objects.

Sample Extensions

The following are some examples of how to extend various parts of the role centres

Add a custom parts to the role centre

pageextension 50000 SalesAndMarketingRC extends "Sales & Marketing Manager RC"
{
    layout
    {
        addlast(rolecenter)
        {
            part(MyCustomListPart; MyCustomListPart)
            {
                ApplicationArea = All;
            }
        }
    }
}

Add a custom cue to the activities part

tableextension 50000 SalesCue extends "Sales Cue"
{
    fields
    {
        field(50000; MySalesCue; Integer)
        {
            Caption = 'My Sales Cue';
        }
    }
}

pageextension 50001 SOProcessorActivities extends "SO Processor Activities"
{
    layout
    {
        addlast(Content)
        {
            cuegroup(MyCustomCueGroup)
            {
                Caption = 'My Cue Group';

                field(MySalesCue; MySalesCue)
                {
                    ApplicationArea = All;
                    
                    trigger OnDrillDown()
                    begin
                        OpenMySalesPage();
                    end;
                }
            }
        }
    }
}

Add actions to the sections, embedding, and processing areas

pageextension 50000 SalesAndMarketingRC extends "Sales & Marketing Manager RC"
{
    actions
    {
        addlast(Sections)
        {
            group(MySalesGroup)
            {
                action(CustomerList)
                {
                    ApplicationArea = All;
                    Caption = 'Customers';
                    Image = CustomerList;
                    RunObject = Page "Customer List";
                }
            }
        }
        addlast(embedding)
        {
            action(Contacts)
            {
                ApplicationArea = All;
                Caption = 'Contacts';
                Image = CustomerContact;
                RunObject = Page "Contact List";
            }
        }
        addlast(Processing)
        {
            action(SalesPrices)
            {
                ApplicationArea = All;
                Caption = 'Sales Prices';
                Image = SalesPrices;
                RunObject = Page "Sales Prices";
            }
        }
    }
}

Add custom slides to the headline

pageextension 50000 SalesAndMarketingRC extends "Headline RC Order Processor"
{
    layout
    {
        addlast(content)
        {
            group(MyCustomSlide)
            {
                ShowCaption = false;

                field(MyHeadline; MyHeadlineValue)
                {
                    ApplicationArea = All;
                    Caption = 'My Custom Headline';
                    Editable = false;
                }
            }
        }
    }

    var
        MyHeadlineValue: Text;

    trigger OnOpenPage()
    begin
        MyHeadlineValue := CalculateMyHeadlineValue();
    end;
}