Skip to main content

Notifications

Announcements

No record found.

News and Announcements icon
Dynamics 365 Community / Blogs / Khushbu Rajvi's Dynamic 365 Blogs / Dynamic 365 Business Centra...

Dynamic 365 Business Central : How to extend Activities Cue in Role center Page.

Khushbu Rajvi. Profile Picture Khushbu Rajvi. 8,274 Super User 2025 Season 1
 What is CUE?
A Cue provides a visual representation of aggregated business data, like the number of open sales invoices. Cues are interactive, meaning that you can select the Cue to drill down to data or open another page, run code, and more. Cues display data that is contained in a table field. This data can be raw data or calculated data.


Hi  Viewer, 

To add cue extend Activities Cue(1313) table  and Activities (1310) page Extensions.

First Create a query and use it to add data in a field in the Cue table.
query 50700 "Open vendor amount"
{
    QueryType = Normal;
 
    elements
    {
        dataitem(VendorLedgerEntry; "Vendor Ledger Entry")
        {
            column(Remaining_Amt___LCY_LCY; "Remaining Amt. (LCY)")
            {
                Method = Sum;
            }
            filter(DocumentTypeFilter; "Document Type")
            {
            }
            filter(Applies_to_ID; "Applies-to ID")
            {
            }
            filter(Open; "Open")
            {
            }
        }
    }
}

Create Table extension

tableextension 50706 "Activities Cue Ext" extends "Activities Cue"
{
    fields
    {
        field(50200; "Open Vendor Invoices Sum"; Decimal)
        {
            Caption = 'Open Vendor Invoices Sum';
            DataClassification = ToBeClassified;
            AutoFormatExpression = GetAmountFormat();
            AutoFormatType = 11;
            DecimalPlaces = 0 : 0;
        }
    }
    procedure OpenVendorInvoicesSum() Amount: Decimal
    var
        VendorLedgerEntry: Record "Vendor Ledger Entry";
        Openvendoramount: Query "Open vendor amount";
    begin
        Openvendoramount.SetRange(DocumentTypeFilter, VendorLedgerEntry."Document Type"::Invoice);
        Openvendoramount.SetFilter(Remaining_Amt___LCY_LCY, '<>0');
        Openvendoramount.SetFilter(open, 'Yes');
        Openvendoramount.SetFilter(Currency_Code, 'USD');
        Openvendoramount.SetFilter(Applies_to_ID, ' ');
        Openvendoramount.Open();
        if Openvendoramount.Read() then
            Amount := Amount + Openvendoramount.Remaining_Amt___LCY_LCY;
        exit(-Amount);
        Openvendoramount.Close();
    end;
 
    procedure DrillDownOverduePurchaseInvoiceAmount()
    var
        [SecurityFiltering(SecurityFilter::Filtered)]
        VendorLedgerEntry: Record "Vendor Ledger Entry";
    begin
        VendorLedgerEntry.SetFilter("Document Type", 'Invoice');
        VendorLedgerEntry.SetFilter("Remaining Amt. (LCY)", '<>0');
        VendorLedgerEntry.SetFilter(open, 'Yes');
        VendorLedgerEntry.SetFilter("Currency Code", 'USD');
        VendorLedgerEntry.SetFilter("Applies-to ID", '');
        VendorLedgerEntry.Ascending := true;
        PAGE.Run(PAGE::"Vendor Ledger Entries", VendorLedgerEntry);
    end;
}
Create Page Extensions
pageextension 50711 "O365 Activities Ext" extends "O365 Activities"
{
    layout
    {
        addafter("Overdue Purch. Invoice Amount")
        {
            field("Open Vendor Invoices Sum"; Rec."Open Vendor Invoices Sum")
            {
                ApplicationArea = All;
                ToolTip = 'Summation of AP/outstanding vendor invoices';
                trigger OnDrillDown()
                var
                    myInt: Integer;
                begin
                    rec.DrillDownOverduePurchaseInvoiceAmount();
                end;
            }
        }
    }
    trigger OnAfterGetRecord()
 
    begin
        Rec."Open Vendor Invoices Sum" := Rec.OpenVendorInvoicesSum();
        rec.Modify();
    end;
}


Thanks for reading...!!

Regards,
Khushbu Rajvi

Comments

*This post is locked for comments