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

 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

Post a Comment

Popular posts from this blog

Dynamics 365 Business Central: Enabling Custom and Default Tables in the "Search Company Data" Feature

Image
 Hi Colleagues, Today, we will discuss how we can search custom table data using the " Search Company Data " feature in Business Central. For more information regarding the " Search Company Data " feature, you can refer to the official Microsoft documentation: Search Company Data I have added a test customer to the default customer table.  and created three test entries in the Test Header custom table. To search for data, enter one or more keywords in the "Tell Me" search box. Alternatively, when you run "Tell Me" in the context of an editable page, it will automatically search for the value in the currently selected field. Click on " Search Company Data ". Here, you can see that the search results include the top results from the tables you have access to. However, custom table data is not showing in the list. Reason : Test Header is not enabled in the list. Now, follow below steps to add default or custom table data to the search list...
Read more

Dynamic 365 Business central: How to hide/disable the AssistEdit button

Image
AssitEdit property:   https://learn.microsoft.com/en-us/dynamics365/business-central/dev-itpro/developer/properties/devenv-assistedit-property OnAssistEdit-trigger: https://learn.microsoft.com/en-us/dynamics365/business-central/dev-itpro/developer/triggers-auto/pagefield/devenv-onassistedit-pagefield-trigger So we just need to set this property to false, and this button will be hidden on the page (UI). pageextension 50703 usersettting extends "User Settings" {     layout     {         modify("UserRoleCenter")         {             AssistEdit = false;         }       } } The AssistEdit Property must be set to True to enable the assist-edit capabilities . Thanks for reading Regards, Khushbu Rajvi
Read more